THIẾT KẾ BIỂU MẪU DÙNG CÁC ĐIỀU KHIỂN - CHỈ ĐỊNH VỊ TRÍ CƠ SỞ DỮ LIỆU - 6

Bước 4: Sự kiện cmdThem_Click Private Sub cmdThem_Click() datHH.Recordset.AddNew DoiTThai False End Sub Trong đó: Private Sub DoiTThai(ByVal TThai As Boolean) cmdThem.Enabled = TThai cmdSua.Enabled = TThai cmdXoa.Enabled = TThai cmdHuy.Enabled = Not TThai cmdLuu.Enabled = Not TThai End Sub Bước 4: Sự kiện cmdSua_Click & sự kiện cmdXoa_Click: Private Sub cmdSua_Click() datHH.Recordset.Edit DoiTThai False End Sub Private Sub cmdXoa_Click() On Error GoTo Xuly datHH.Recordset.Delete Exit Sub Xuly: MsgBox Err.Description, vbCritical + vbSystemModal, "Loi" End Sub Bước 5: Sự kiện cmdLuu_Click & cmdHuy_Click Private Sub cmdHuy_Click() dathh.Database = datHH.Recordset.CancelUpdate DoiTThai True End Sub Private Sub cmdLuu_Click() datHH.Recordset.Update DoiTThai True End...
Nội dung trích xuất từ tài liệu:
THIẾT KẾ BIỂU MẪU DÙNG CÁC ĐIỀU KHIỂN - CHỈ ĐỊNH VỊ TRÍ CƠ SỞ DỮ LIỆU - 6 TT. Visual BasicBước 4: Sự kiện cmdThem_ClickPrivate Sub cmdThem_Click() datHH.Recordset.AddNew DoiTThai FalseEnd SubTrong đó:Private Sub DoiTThai(ByVal TThai As Boolean) cmdThem.Enabled = TThai cmdSua.Enabled = TThai cmdXoa.Enabled = TThai cmdHuy.Enabled = Not TThai cmdLuu.Enabled = Not TThaiEnd SubBước 4: Sự kiện cmdSua_Click & sự kiện cmdXoa_Click:Private Sub cmdSua_Click() datHH.Recordset.Edit DoiTThai FalseEnd SubPrivate Sub cmdXoa_Click() On Error GoTo Xuly datHH.Recordset.Delete Exit SubXuly: MsgBox Err.Description, vbCritical + vbSystemModal, LoiEnd SubBước 5: Sự kiện cmdLuu_Click & cmdHuy_ClickPrivate Sub cmdHuy_Click() dathh.Database = datHH.Recordset.CancelUpdate DoiTThai TrueEnd SubPrivate Sub cmdLuu_Click() datHH.Recordset.Update DoiTThai TrueEnd SubBước 6: Sự kiện Form_Load:Private Sub Form_Load() DoiTThai TrueEnd Sub Trang 76 TT. Visual Basic - Có nhận xét gì nếu khi chạy chương trình, ta thêm mới một mẩu tin có khóa làMahang trùng với một MaHang đã có. Để giái quyết ta làm thế nào?II. BÀI TẬP TỰ LÀMSử dụng CSDL HangHoa.mdb, anh (chị) hãy:1) Cải tiến Form nhập ở bài 4-4, sao cho trường MaLoai phải được lấy từ các MaLoaicủa bảng TLoaiHang. Hơn nữa thay vì hiển thị MaLoai, ta hiển thị TenLoai cho dễtheo dõi; nhưng khi thêm vào bảng THangHoa, ta lại thêm vào MaLoai của TenLoaiđó.2) Bằng cách sử dụng DAO (tương tự 4-3), anh (chị) hãy: a. Thiết kế Form nhập liệu cho bảng THANGHOA. b. Thiết kế Form nhập liệu cho bảng TNHANVIEN. Trang 77 TT. Visual Basic Chương 5 ĐỐI TƯỢNG DỮ LIỆU TỪ XAMục tiêu: Chương này nhằm giới thiệu cho sinh viên cách thức sử dụng thưviện đối tượng RDO để truy cập dữ liệu, cách thức truy cập dữ liệu trước đâyđối với cơ sở dữ liệu ở máy từ xa.Học xong chương này, sinh viên phải nắm được các vấn đề sau: - Thiết lập tên nguồn dữ liệu (Data Source Name) trên Windows. - Sử dụng Remote Data Control để truy cập dữ liệu. - Đối tượng UserConnection cũng như thư viện đối tượng RDO.Kiến thức có liên quan: Giáo trình Visual Basic, Chương 10.Tài liệu tham khảo: - Visual Basic 6 Certification Exam Guide - Chapter 11, Page 309 -Dan Mezick & Scot Hillier - McGraw-Hill - 1998. - Microsoft Visual Basic 6.0 & Lập trình cơ sở dữ liệu – Chương 23,trang 735 - Nguyễn Thị Ngọc Mai (chủ biên) - Nhà xuất bản Giáo dục -2000. - Tự học Lập trình cơ sở dữ liệu với Visual Basic 6 trong 21 ngày(T2) - Chương 17, trang 227 - Nguyễn Đình Tê (chủ biên), Nhà xuất bảnGiáo dục - 2001. Trang 78 TT. Visual BasicI. HƯỚNG DẪN Bài tập 5-1 ĐỐI TƯỢNG USER CONNECTIONTHIẾT LẬP NGUỒN DỮ LIỆU ODBCBước 1: Trong bài tập này, ta sẽ thao tác với CSDL Access BIBLIO.MDB thông quaVB. Trước tiên ta phải thiết lập nguồn dữ liệu nhờ tiện ích ODBC Administrator củaWindows. Chọn ODBC Administrator trong Control Panel (icon tên là ODBC). Nhấpđúp vào icon này để khởi động ODBC Administrator.Bước 2: Một hộp thoại hiện ra hiển thị tất cả các nguồn dữ liệu ODBC hiện thời trênmáy tính. Để tạo một nguồn dữ liệu mới, ta chọn mục System DSN. Nhấp vào nútAdd. Hộp thoại cho phép tạo nguồn dữ liệu mới với tất cả các điều khiển (drivers)ODBC có sẵn trên máy. Ở đây, ta chọn Microsoft Access ODBC driver trong danhsách và chọn Finish.Bước 3: Hộp thoại cài đặt ODBC xuất hiện. Trong hộp thoại này, định nghĩa mộtnguồn dữ liệu mới. Nhưng trước tiên ta phải xác định tên của nguồn dữ liệu. Ta có thểđặt với bất cứ một tên nào, chẳng hạn BIBLIO. Sau đó, nhấp nút Select để tìm đến CSDL BIBLIO.MDB trong máy tính, chọntập tin này; nhấp OK. Lúc này nguồn dữ liệu đã được định nghĩa xong.TẠO GIAO DIỆN CHƯƠNG TRÌNHBước 4: Tạo một dự án mới trong thư mục BasicBt5-1. Tạo giao diện chương trìnhnhư hình dưới: 1 2 3 Hình V.1: Giao diện 4 5 6 7 8 9 1: TextBox Name: txtTitle 2: TextBox Name: txtAuthor 3: TextBox Trang 79 TT. Visual Basic Nam ...