Tham khảo tài liệu ''giáo trình phân tích nguyên lý ứng dụng những kỹ năng để xử lý lỗi bằng lệnh on error goto p2'', công nghệ thông tin, quản trị web phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả
! O W N Copyright Nguyễn Sơn Hải to k lic c u -tr a c k Và mã lệnh cho form sau: ' 'Hàm xác định USCNN số nguyên (thuật tố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 hệ số A, B, C phương trình bậc hai Ax2 + Bx+C =0 cho biết nghiệm phương trình đó: Thiết kế form sau: Trang 159 d o o c m C m w o d o w w w w w C lic k to bu Giáo trình Microsoft Access 2000 w y N y ® h a n g e Vi e bu XC er O W F- w PD h a n g e Vi e ! XC er PD F- c u -tr a c k c ! O W N to k lic c u -tr a c k Thiết lập thuộc tính cho đối tượng sau: Form Caption: Default view: Scroll bar: Record selector: Navigation Buttons: Diving line: Giải phương trình bậc Single Form Neither No No No Ô nhập số cần kiểm tra Ô A: B: C: Thuộc tính Name txtA txtB txtC Nút Tính tốn Name: cmdGPTB2 Caption: Giải phương trình Nút Đóng Name: cmdClose Caption: Đóng Trang 160 d o o c m C m w o d o w w w w w C lic k to bu Copyright Nguyễn Sơn Hải w y N ® h a n g e Vi e bu y Giáo trình Microsoft Access 2000 XC er O W F- w PD h a n g e Vi e ! XC er PD F- c u -tr a c k c ! O W N bu to c Và mã lệnh cho form 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 - * txtA * txtC If delta = Then x = -txtB / (2 * txtA) kq = "Nghiệm kép: x1 = x2 = " + Trim(Str(x)) Else If dleta > Then x1 = (-txtB + Sqr(delta)) / (2 * txtA) x1 = (-txtB - Sqr(delta)) / (2 * txtA) kqua = "Có 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 Trang 161 d o m o m o c u -tr a c k C lic k to k C lic w w w d o w w w w y N Copyright Nguyễn Sơn Hải h a n g e Vi e bu y ® Giáo trình Microsoft Access 2000 XC er O W F- w PD h a n g e Vi e ! XC er PD F- c u -tr a c k c ! O W N Copyright Nguyễn Sơn Hải to c CHƯƠNG LẬP TRÌNH CƠ SỞ DỮ LIỆU Access khơng hệ quản trị CSDL mạnh mà cung cấp công cụ mạnh cho phép phát triển CSDL đơn thành sản phẩm đóng gói thương mại Chúng ta học Queries, Forms, Report – công cụ mạnh dễ học dùng để xây dựng truy vấn, biểu mẫu báo cáo in ấn Access Chương làm quen với ngơn ngữ VBA- ngơn ngữ lập trình trực quan, hướng đối tượng ứng dụng Microsoft Office nói chung Access Đó sở quan trọng để chương tìm hiểu kỹ thuật lập trình CSDL VBA- nói mức chun sâu học VBA Các chủ đề bàn đến chương bao gồm: Lớp đối tượng truy cập liệu (DAO- Data Access Objects); Bài tốn tìm kiếm; Bài tốn đặt lọc; Một số toán khác Trang 162 d o m o m o c u -tr a c k C lic k to k C lic w w w d o w w w w bu Giáo trình Microsoft Access 2000 h a n g e Vi e y N y ® XC bu F- er O W w PD h a n g e Vi e ! XC er PD F- c u -tr a c k c ! O W N Copyright Nguyễn Sơn Hải to c Kỹ thuật DAO DAO (Data Access Objects – Các đối tượng truy xuất liệu) tập hợp bao gồm lớp đối tượng dùng để lập trình truy cập xử lý liệu hệ CSDL Ở CSDL Access, ngơn ngữ lập trình VBA DAO phát triển sớm, gần phiên DAO 3.5 3.51- thực tốt phiên Access từ 97 trở trước Với Access 2000, XP phải dùng phiên DAO 3.6 Với phiên này, DAO 3.6 sử dụng Microsoft Jet 4.0 Vì vậy, làm việc Unicode dễ dàng Để nạp thư viện DAO3.6 vào làm việc, thực 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 danh sách Available References; chọn xong, nhấn OK để đóng lại Trang 163 d o m o m o c u -tr a c k C lic k to k C lic w w w d o w w w w bu Giáo trình Microsoft Access 2000 h a n g e Vi e y N y ® XC bu F- er O W w PD h a n g e Vi e ! XC er PD F- c u -tr a c k c ... cmdGPTB2 Caption: Giải phương trình Nút Đóng Name: cmdClose Caption: Đóng Trang 160 d o o c m C m w o d o w w w w w C lic k to bu Copyright Nguyễn Sơn Hải w y N ® h a n g e Vi e bu y Giáo trình Microsoft... đối tượng truy xuất liệu) tập hợp bao gồm lớp đối tượng dùng để lập trình truy cập xử lý liệu hệ CSDL Ở CSDL Access, ngơn ngữ lập trình VBA DAO phát triển sớm, gần phiên DAO 3.5 3.51- thực tốt... chọn (tích) mục Microsoft DAO 3.6 Object Libraly danh sách Available References; chọn xong, nhấn OK để đóng lại Trang 163 d o m o m o c u -tr a c k C lic k to k C lic w w w d o w w w w bu Giáo trình