THÍ DỤ VỀ SỬ DỤNG DAO

Một phần của tài liệu Tài liệu Giáo trình TT Visual Basic doc (Trang 76 - 79)

I. BÀI TẬP HƯỚNG DẪN

THÍ DỤ VỀ SỬ DỤNG DAO

SỬ DỤNG DATA CONTROL

THÍ DỤ VỀ SỬ DỤNG DAO

Bài tập này nhằm mục đích giới thiệu về cách thức sử dụng điều khiển dữ liệu và thư viện DAO trong việc thiết kế một Form nhập liệu hoàn chỉnh cho bảng THangHoa trong CSDL HangHoa.mdb. Giao diện cùng với mã lệnh chỉ mang tính chất gợi ý; sinh viên có thể thực hiện theo ý riêng của mình.

Bước 1: Thiết kế form như sau:

+ * Hình IV.13: Sử dụng Data Control Với *: DataControl: Điều khiển dữ liệu DatabaseName: HangHoa.MDB RecordSource: THangHoa Name: datHH

Bước 2: Thiết lập các thuộc tính cho các TextBox & ComboBox. DataSource: DatHH

DataField:

Bước 3:Đặt điều khiển lưới lên Form (+) sau khi đã tham chiếu đến nó (Project\Components\Microsoft Data Bound Grid Control 5.0 SP3). DataSource: datHH

Trang 76

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 Sub

Bước 6: Sự kiện Form_Load: Private Sub Form_Load() DoiTThai True

- 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 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 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. (adsbygoogle = window.adsbygoogle || []).push({});

Trang 78

Một phần của tài liệu Tài liệu Giáo trình TT Visual Basic doc (Trang 76 - 79)