TAILIEUCHUNG - Giáo trình lập trình cơ sở dữ liệu với Visual Basic part 9

Tham khảo tài liệu 'giáo trình lập trình cơ sở dữ liệu với visual basic part 9', công nghệ thông tin, kỹ thuật lập trình phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả | 59 SP adstatus As ByVai pRecordset As ADO DB. Recordset If Adodcl. Re cordset BOF False And Adodcl. Recordset EOF False Then If Adodcl. Recordset Ed itMode - adEditAdd Then Exit Sub nẽu recordset đang ở tình trạng thêm mới exit sub DisplayCurren tRecord Mau tín thu CStr tren CStr Adodcl. Recordset. RecordCount hiển thị thứ tự mẩu tin trên tiêu đê của điều khiến Adodcl. End If End Sub Đoạn code cho năm nút New Edit Delete OK Cancel có sửa đổi . Private Sub cmdCancel_CNck SetButtons False If False And False Then DisplayCurrentRecord End If End Sub Private Sub cmdNew_Click AddNewFlag True bật cờ thêm một record true ClearAlì gan giá trị rỗng lên các control. SetButtons True End Sub Private Sub cmdDelete_ClickO On Error GoTo DeleteErr If False And False Then recordset có mẩu tin cân xóa retumvalue MsgBoxf Do you want to delete this record vbOKCancel vbQuestion Notice If returnvalue vbOK Then xóa mẩu tin hiện hành 194 Adodcl. Recordset. Move Next chuyển đẽn mầu tin kẽ If . EOF True Then kiểm tra EOF End If Exit Sub End If DeleteErr Msg Box Err. Description End Sub Private Sub cmdUpdate_Click AddNewFlag False Cập nhật đê mục sách đổi tiêu đề form cho người dùng biẽtđang cập nhật mẩu tin SetButtons True End Sub Private Sub cmdNew_Click AddNewFlag True bật cờ thêm một record true ClearAll gán giá tri rỗng lên các control. Thêm mới đề mục sách đổi tiêu đề form cho người dùng biẽt đang thêm mâu tin mới SetButtons True End Sub Private Sub cmdOK_Click kiểm tra các Ràng buộc toàn vẹn ở đây nẽu không thỏa Exit Sub If AddNewHag True Then người dùng nhãn nút New giữ lại giá tộ dcPublD mà người dùng đã chọn vào biên PublD vì khi gọi method AddNew giá trị datacombo dcPublĐ sẽ rỗng Dim PublD As Long PublD CLng Ad odd. Recordset. Add .

TÀI LIỆU MỚI ĐĂNG
42    171    1    29-03-2024
10    148    0    29-03-2024
15    174    0    29-03-2024
37    146    0    29-03-2024
24    127    0    29-03-2024
5    118    0    29-03-2024
5    114    0    29-03-2024
Đã phát hiện trình chặn quảng cáo AdBlock
Trang web này phụ thuộc vào doanh thu từ số lần hiển thị quảng cáo để tồn tại. Vui lòng tắt trình chặn quảng cáo của bạn hoặc tạm dừng tính năng chặn quảng cáo cho trang web này.