Bài giảng Access: Chương 6 do Nguyễn Sơn Hải biên soạn nhằm mục đích phục vụ cho việc giảng dạy. Nội dung bài giảng gồm: Dạng lệnh hướng đối tượng, các thành phần cơ bản của ngôn ngữ, khai báo biến, các cấu trúc lệnh VBA, chương trình con,...
Vi du Giới thiệu chung Ngơn ngữ lập trình kèm với ACCESS VBA – Viasual Basic For Applycation giúp người dùng tạo chương trình ứng dụng mềm dẽo theo ý muốn Cửa sổ viết lệnh: nơi soạn thảo lệnh VBA, kích phải chuột form (Report) chọn Builder Code: chọn đối tượng, chọn kiện tương ứng C2: Chọn mục Module, New Vi du Dạng lệnh hướng đối tượng = Ví dụ: Label1.Caption=“Access” Text1.value=4 Label1.Fontname=“vni-times” Label1.backcolor=255 Vi du Các thành phần ngôn ngữ Kiểu liệu biến nhớ Boolean logic, bytes, Yes/No Byte số nguyên dương byte (0 ->255) Integersố nguyên bytes (-32768 231 (231 1) ->32767) Long số nguyên bytes Single số thực bytes Double số thực bytes Currency tiền tệ, bytes String kiểu xâu ký tự, 255 ký tự, Text Variant kiểu liệu không tường minh Vi du Khai báo biến: Dim i, j As Integer Khai báo biến i, j kiểu Integer Dim i As Integer, st As String*15 Dim i As Variant Dim i Dim Hoten(45) As String * 30 Khai báo mảng kiểu String*30 gồm 46 phần tử Dim A(3, 4) As Integer Khai báo biến mảng chiều A(i , j) đó: i = j = Dim A(1 To 5, To 9, To 5) As Double Dim MyArray() Vi du Các cấu trúc lệnh VBA If Then [ Else ] End If Vi du Select Case Case Case ……… Case [Case Else ] End Select B thức=gt F T T B thức=gt F ……… B thức=gt nF T Thủ tục Thủ tục Thủ tục n Thủ tục n+1 endcase Vi du Ví dụ:Tạo Form xếp loại học tập dựa vào DTB học sinh Form: Caption Label4: Caption, FontName, FonSize Text1 Command Text2: ControlSource: DTB Value :0 Viế lệnh KT điều kiện Vi du dtb = Text2.Value Select Case dtb Case Is >= xl = "Gioi" Case Is >= xl = "Khá" Case Is >= xl = "Trung binh" Case Is < xl = "Yeu" End Select Label6.Caption = xl Vi du 3.2 Cấu trúc lặp For i = To [Step ] [Exit For] Next Điều While [Exit while] wend F kiện T nhóm lệnh Wend Vi du Viết hàm tách tên Function tachten(hoten As String) As String n = Len(hoten) For i = To n kytu = Mid(hoten, i, 1) If kytu = " " Then j=i End If Next tachten=mid(hoten,j+1) Endfunction Vi du Ví dụ 4: Viết hàm đọc số có ba chữ số sang chữ Function baso(nhom As Integer) As String Dim tram, chuc, donvi As Single Dim chuso(9) As String chuso(1) = "một" chuso(2) = " hai" chuso(3) = " ba" chuso(4) = " bốn" chuso(5) = " năm" chuso(6) = " sáu" chuso(7) = " bảy" chuso(8) = " tám" chuso(9) = " chín" tram = Val(Left(STR(nhom), 1)) chuc = Val(Mid(STR(nhom), 2, 1)) dv = Val(Right(STR(nhom), 1)) Vi du baso = "" If tram Then baso = baso + chuso(tram) + " traêm" End If “Doc hang chuc If tram And chuc = And dv Then baso = baso + " leû" Else If chuc = Then baso = baso + " mười" Else If chuc And chuc Then baso = baso + chuso(chuc) + " mươi" End If End If End If Vi du If dv = And chuc > Then baso = baso + " mốt" Else If dv = And chuc >= Then baso = baso + " lăm" Else If dv >= Then baso = baso + chuso(dv) End If End If End If End Function Vi du Public Function tienchu(sotien As Long) As String Dim chuoitien, nhom As String chuoitien = Right(Space(11) + Str(sotien), 12) Dim donvi(4) As String donvi(1) = "Tỉ" donvi(2) = "Triệu" donvi(3) = "Ngàn" donvi(4) = "Đồng" For i = To Vi du nhom = Mid(chuoitien, i * - 2, 3) If nhom Space(3) And nhom "000" Then tienchu = tienchu + baso(nhom) + donvi(i) + Space(1) Else If i = Then tienchu = tienchu + " đồng" End If End If Next End Function Vi du Ví dụ: Tạo Form nhập vào số tiền, đọc số chữ tương ứng Viết lệnh: nút Đọc tiền chữ Label3.Caption = tienchu(x) Vi du Ví dụ : Tạo phiếu lương cho cán cuối phiếu đọc thực lĩnh chữ tương ứng Vi du Giải thích Mã hố ký tự bảng mã VNI, TCVN3 UNICODE khác nên xếp khác Muốn quy cách tiếng việt bạn phải mã hố dấu tiếng việt Ví dụ: â < a chuyển mã a -> ab; a ->aa xếp aa < ab hay a < â Chú ý: bảng mã VNI chữ â cĩ độ dài TCVN3 chữ â cĩ độ dài Vi du Public Function mahoaTCVN3(chuoi1 As String) As String Dim chuoix, chuoiy As String Dim dodaichuoi, vitri As Byte chuoix = "a ;à ; ả ;ã ;á ;ạ ;ă ;ẳ ;ẵ ;ắ ;ặ ;â ;ầ ;ẩ ;ẫ ;ấ ;ậ ;e ;è ;ẻ ;ẽ ;é ;ẹ ;ê ;ề ;ể ;ễ ;ế ;ệ ;i ;ì ;ỉ ;ĩ ;í ;ị ;o ;ị ;ỏ ;õ ;ó ;ọ ;ồ ;ổ ;ỗ ;ố ;ộ ;ờ ;ở ;ỡ ;ớ ;ợ ;u ;ù ;ủ ;ũ ;ú ;ụ ;ừ ;ử ;ữ ;ứ ;ự ;y ;ỳ ;ỷ ;ỹ ;ý ;ỵ ;D ;Đ " chuoiy="aa;ab;ac;ad;ae;af;ag;ah;ai;aj;ak;al;am;an;ao;ap; ea;eb;ec;ed;ee;ef;eg;eh;ei;ej;ek;el;ia;ib;ic;id;ie;if;oa;ob;oc; od;oe;of;og;oh;oi;oj;ok;ol;om;on;oo;op;ua;ub;uc;ud;ue;uf ;ug;uh;ui;uj;uk;ya;yb;yc;yd;ye;yf;Da;Db" mahoaVNI = Space(0) Vi du Thuật toán - Đinh nghĩa chuỗi chuoix chứa nguyên âm TV có dấu xếp theo quy định TV - Chuỗi chuoiy chứa ký tự mã hóa tương ứng ký tự chuoix - Lấy ký tự thứ chuỗi cần mã hóa B1: Xác định ví trí ký tự chuoix B2: Nếu ký tự khơng có chuỗi x lấy ký tự chuoi, quay lại b1 - Nếu ký tự có chuỗix lấy ký tự vị trí tương ứng chuỗiy, đưa ký tự vào kết - Quá trình dừng lấy hết ký tự chuỗi - Lưu ý: Chuoix chuoiy phải đảm bảo xác vị trí ký tự chuôix tương ứng với chuôiy Vi du dodaichuoi = Len(chuoi1) vitri = While vitri 255) Integersố nguyên bytes (-3 2 768 231... lấy ký tự chuoi, quay lại b1 - Nếu ký tự có chuỗix lấy ký tự vị trí tương ứng chuỗiy, đưa ký tự vào kết - Q trình dừng lấy hết ký tự chuỗi - Lưu ý: Chuoix chuoiy phải đảm bảo xác vị trí ký tự... mahoaVNI = Space(0) Vi du Thuật toán - Đinh nghĩa chuỗi chuoix chứa nguyên âm TV có dấu xếp theo quy định TV - Chuỗi chuoiy chứa ký tự mã hóa tương ứng ký tự chuoix - Lấy ký tự thứ chuỗi cần mã hóa