I. BÀI TẬP HƯỚNG DẪN
BIỂU MẪU NHẬP LIỆU VỚI DATA ENVIRONMENT
Chương 7 MÔI TRƯỜNG DỮ LIỆU
BIỂU MẪU NHẬP LIỆU VỚI DATA ENVIRONMENT
o Tạo một dự án mới; bổ sung Data Enviroment vào dự án của ta nhờ chọn Project/Add Data Environment. Khi lựa chọn mục này, môi trường DED sẽ hiển thị; sử dụng cửa sổ Properties để thiết lập thuộc tính Name là: datHH. Ở đây, ta sẽ sử dụng DED để kết nối với CSDL HANGHOA.MDB.
o Sửa lại thuộc tính Name của Connection1 là conHH; sau đó chuột phải lên conHH, chọn Properties.
Ở hộp thoại đầu tiên, ta phải chọn một trình cung cấp dữ liệu, ở đây chọn
Microsoft Jet 4.0 OLE DB Provider, nhấn Next để tiếp tục.
Tiếp theo ta cần nhập chính xác đường dẫn đến tập tin CSDL, chẳng hạn ở đây là: H:\Visual Basic\HangHoa.Mdb.
Cuối cùng, nhấn nút Test Connection để kiểm tra việc nối kết dữ liệu chính xác hay không?
Hình VII.4: Tạo Connection
Tạo đối tượng Command:
o Xây dựng một đối tượng Command kết nối trực tiếp với Table (bảng) THANGHOA trong file dữ liệu HangHoa.mdb.
o Nhấp chuột phải trên kết nối dữ liệu conHH & chọn Add Command; sửa Command Name là: comHH; chọn Table từ Combo Box Database Object, chọn THANGHOA từ Combo Box Object Name.
o Trước khi đóng hộp thoại này, ta chuyển qua nhãn Advanced & thiết lập LockType là 3 – Optimistic (mặc nhiên là 1 – Read Only); Cursor Location: Use client-side cursor. Nhờ vậy ta mới có thể cập nhật Record Set từ chương trình của ta.
o Trở lại giao diện DED, ta được:
Hình VII.5: Đối tượng Command
Tạo một ứng dụng nhập liệu với DED
o Ở môi trường DED, ta kéo các trường của Command comHH vào Form1, chỉnh sửa lại cho thích hợp.
o Ở đây ta có sử dụng một lưới để hiển thị dữ liệu; do vậy ta chọn Project\Component; chọn Microsoft DataGrid Control 6.0 (OLE DB); sau đó kéo điều khiển này vào Form, thiết lập các thuộc tính cho thích hợp.
Name: grdHH. DataSource: datHH DataMember: comHH
o Nhấp chuột phải lên điều khiển DataGrid, chọn Retrieve Structure. Sau đó, lưu dự án & chạy chương trình ta được:
Hình VII.6: Kết quả thực thi ứng dụng
o Thêm các nút hành động (Thêm, Sửa, Xóa,…). Chẳng hạn các sự kiện cmd_Them_Click, cmdXoa_Click, cmdLuu_Click, cmdHuy_Click được xử lý:
Hình VII.7: Giao diện đầy đủ
Private Sub cmdThem_Click() With datHH.rscomHH
.AddNew End With End Sub
Private Sub cmdXoa_Click() With datHH.rscomHH .Delete .Update Me.Refresh End With End Sub
Private Sub cmdHuy_Click() With datHH.rscomHH .CancelUpdate Me.Refresh End With
End Sub
Private Sub cmdLuu_Click() On Error GoTo Xuly With datHH.rscomHH .Update
End With
Me.Refresh Exit Sub
Xuly:
MsgBox Err.Description, vbCritical + vbSystemModal, "Error"
End Sub
Như vậy, ta đã thiết kế xong một Form cho phép hiển thị thông tin các hàng hóa, Form này cho phép sửa đổi, thêm mới các mẩu tin trong bảng THANGHOA của CSDL HANGHOA.MDB.
II. BÀI TẬP TỰ LÀM
1) Sử dụng DataEnviroment, thiết kế Form nhập liệu cho bảng THangHoa (hình dưới). Ở đây thay vì hiển thị MaLoai, ta lại hiển thị TenLoai:
Hình VII.8: Form nhập liệu
2) Sử dụng DataEnviroment, thiết kế Form nhập liệu cho bảng TNhanVien.
3) Sử dụng DataEnviroment, thiết kế Form cho phép nhập (sửa, xóa) thông tin về một phát sinh về một mặt hàng nào đó trong ngày. Lưu ý: Trường STT là kiểu AutoNumber (Access), Ngay: lấy ngày hệ thống (hàm Now).