Giáo trình Microsoft Access 2000 Copyright ® Nguyễn Sơn Hải Trang 159 Và mã lệnh cho form như sau: ' 'Hàm xác định USCNN của 2 số nguyên (thuật toán Ơ-cơ-lít) ' Function usc(a, b As Integer) As Integer Dim a1, b1 As Integer a1 = a b1 = b While a1 <> b1 If a1 > b1 Then a1 = a1 - b1 Else b1 = b1 - a1 End If Wend usc = a1 End Function ' 'Mã lệnh cho nút Tính toán ' Private Sub cmdTinhToan_Click() txtUSC = usc(txtA, txtB) txtBSC = txtA * txtB / usc(txtA, txtB) End Sub ' 'Mã lệnh cho nút ĐÓng ' Private Sub cmdClose_Click() DoCmd.Close End Sub Bài toán 3: Nhập vào 3 hệ số A, B, C của phương trình bậc hai Ax 2 + Bx+C =0 và cho biết nghiệm phương trình đó: Thiết kế form như sau: Click to buy NOW! P D F - X C h a n g e V i e w e r w w w . d o c u - t r a c k . c o m Click to buy NOW! P D F - X C h a n g e V i e w e r w w w . d o c u - t r a c k . c o m . Giáo trình Microsoft Access 2000 Copyright ® Nguyễn Sơn Hải Trang 160 Thiết lập thuộc tính cho các đối tượng như sau: Form Caption: Giải phương trình bậc 2 Default view: Single Form Scroll bar: Neither Record selector: No Navigation Buttons: No Diving line: No Ô nhập số cần kiểm tra Ô Thuộc tính Name A: txtA B: txtB C: txtC Nút Tính toán Name: cmdGPTB2 Caption: Giải phương trình Nút Đóng Name: cmdClose Caption: Đóng Click to buy NOW! P D F - X C h a n g e V i e w e r w w w . d o c u - t r a c k . c o m Click to buy NOW! P D F - X C h a n g e V i e w e r w w w . d o c u - t r a c k . c o m . Giáo trình Microsoft Access 2000 Copyright ® Nguyễn Sơn Hải Trang 161 Và mã lệnh cho form như sau: ' 'Mã lệnh cho nút Giải phương trình ' Private Sub cmdChanLe_Click() Dim delta, x, x1, x2 As Double Dim kqua As String delta = txtB * txtB - 4 * txtA * txtC If delta = 0 Then x = -txtB / (2 * txtA) kq = "Nghiệm kép: x1 = x2 = " + Trim(Str(x)) Else If dleta > 0 Then x1 = (-txtB + Sqr(delta)) / (2 * txtA) x1 = (-txtB - Sqr(delta)) / (2 * txtA) kqua = "Có 2 nghiệm phân biệt:" + Chr(13) _ + " X1 = " + Trim(Str(x1)) + Chr(13) _ + " X2 = " + Trim(Str(x2)) Else kqua = "Phương trình vô nghiệm" End If End If MsgBox kqua End Sub ' 'Lệnh cho nút Đóng ' Private Sub cmdClose_Click() DoCmd.Close End Sub Click to buy NOW! P D F - X C h a n g e V i e w e r w w w . d o c u - t r a c k . c o m Click to buy NOW! P D F - X C h a n g e V i e w e r w w w . d o c u - t r a c k . c o m . Giáo trình Microsoft Access 2000 Copyright ® Nguyễn Sơn Hải Trang 162 CHƯƠNG 7 LẬP TRÌNH CƠ SỞ DỮ LIỆU Access không những là một hệ quản trị CSDL mạnh mà còn cung cấp những công cụ mạnh cho phép phát triển một CSDL đơn thuần thành một sản phẩm đóng gói thương mại. Chúng ta đã được học Queries, Forms, Report – đó là những công cụ khá mạnh và dễ học dùng để xây dựng các truy vấn, biểu mẫu và báo cáo in ấn trong Access. Chương 7 đã được làm quen với ngôn ngữ VBA- một ngôn ngữ lập trình trực quan, hướng đối tượng trong các ứng dụng Microsoft Office nói chung cũng như trên Access. Đó là cơ sở quan trọng để trong chương này chúng ta tìm hiểu những kỹ thuật lập trình CSDL bằng VBA- có thể nói là một mức chuyên sâu tiếp theo những gì đã học VBA căn bản. Các chủ đề sẽ được bàn đến trong chương này bao gồm:  Lớp đối tượng truy cập dữ liệu (DAO- Data Access Objects);  Bài toán tìm kiếm;  Bài toán đặt lọc;  Một số bài toán khác. Click to buy NOW! P D F - X C h a n g e V i e w e r w w w . d o c u - t r a c k . c o m Click to buy NOW! P D F - X C h a n g e V i e w e r w w w . d o c u - t r a c k . c o m . Giáo trình Microsoft Access 2000 Copyright ® Nguyễn Sơn Hải Trang 163 1. Kỹ thuật DAO DAO (Data Access Objects – Các đối tượng truy xuất dữ liệu) là tập hợp bao gồm lớp các đối tượng có thể dùng để lập trình truy cập và xử lý dữ liệu trong các hệ CSDL. Ở đây CSDL Access, ngôn ngữ lập trình VBA. DAO được phát triển khá sớm, gần đây nhất là phiên bản DAO 3.5 và 3.51- nó có thể thực hiện tốt được trên các phiên bản Access từ 97 trở về trước. Với Access 2000, XP phải dùng phiên bản DAO 3.6. Với phiên bản mới này, DAO 3.6 sử dụ ng nền Microsoft Jet 4.0. Vì vậy, có thể làm việc được trên nền Unicode dễ dàng. Để nạp thư viện DAO3.6 vào làm việc, hãy thực hiện như sau: Bước 1: Mở cửa sổ lập trình VBA; Bước 2: Chọn thực đơn Tools | References Hộp thoại sau xuất hiện: Hãy chọn (tích) mục Microsoft DAO 3.6 Object Libraly trên danh sách Available References; chọn xong, nhấn OK để đóng lại. Click to buy NOW! P D F - X C h a n g e V i e w e r w w w . d o c u - t r a c k . c o m Click to buy NOW! P D F - X C h a n g e V i e w e r w w w . d o c u - t r a c k . c o m . . hướng đối tượng trong các ứng dụng Microsoft Office nói chung cũng như trên Access. Đó là cơ sở quan trọng để trong chương này chúng ta tìm hiểu những kỹ thuật lập trình CSDL bằng VBA- có thể. là tập hợp bao gồm lớp các đối tượng có thể dùng để lập trình truy cập và xử lý dữ liệu trong các hệ CSDL. Ở đây CSDL Access, ngôn ngữ lập trình VBA. DAO được phát triển khá sớm, gần đây. V i e w e r w w w . d o c u - t r a c k . c o m . Giáo trình Microsoft Access 2000 Copyright ® Nguyễn Sơn Hải Trang 161 Và mã lệnh cho form như sau: ' 'Mã lệnh cho nút Giải phương trình ' Private