Bước 4: Sự kiện cmdThem_Click Private Sub cmdThem_Click() DoiTThai False End Sub Trong đó: Private Sub DoiTThai(ByVal TThai As Boolean) = TThai = TThai = TThai = Not TThai = Not TThai End Sub Bước 4: Sự kiện cmdSua_Click & sự kiện cmdXoa_Click: Private Sub cmdSua_Click() DoiTThai False End Sub Private Sub cmdXoa_Click() On Error GoTo Xuly Exit Sub Xuly: MsgBox , vbCritical + vbSystemModal, "Loi" End Sub Bước 5: Sự kiện cmdLuu_Click & cmdHuy_Click Private Sub cmdHuy_Click() ' = DoiTThai True End Sub Private Sub cmdLuu_Click() DoiTThai True End. | TT. Visual Basic Bước 4 Sự kiện cmdThem_Click Private Sub cmdThem_Click DoiTThai False End Sub Trong đó Private Sub DoiTThai ByVal TThai As Boolean TThai TThai TThai Not TThai Not TThai End Sub Bước 4 Sự kiện cmdSua_Click sự kiện cmdXoa_Click Private Sub cmdSua_Click DoiTThai False End Sub Private Sub cmdXoa_Click On Error GoTo Xuly Exit Sub Xuly MsgBox vbCritical vbSystemModal Loi End Sub Bước 5 Sự kiện cmdLuu_Click cmdHuy_Click Private Sub cmdHuy_Click DoiTThai True End Sub Private Sub cmdLuu_Click DoiTThai True End Sub Bước 6 Sự kiện Form_Load Private Sub Form_Load DoiTThai True End 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ÀM Sử dụng CSDL 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 MaLoai củ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Ừ XA Mụ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 .