Ngôn ngữ lập trình Visual BasicFor Application

Lư uý: Bài thi gồm 2 phần: Lý thuyết và Thực hành (Tạo bảng, Truy vấn, Báo cáo và Biểu mẫu). Nếu điểm của phần Lý thuyết 8” Case else Msgbox “Num số 255 0:false, -1:true -32.768 -> 32.767 -2.147.483.648 -> 2.147.483.647 -922.337.203.685.774,5808 -> 922.337.203.685.774,5807 Rất lớn Rất lớn 1/1/100 -> 31/12/9999 Tối đa không tỷ ký tự Số byte byte 8 16 Các hàm hỗ trợ kiểm tra kiểu liệu: Hàm kiểm tra số: IsNumeric trả true số, false số Hàm kiểm tra ngày: IsDate Hàm kiểm tra giá trò rổng: Empty Hàm kiểm tra giá trò Null: IsNull Đc: 318 Thống Nhất P.16 Q.GV  3.996.1590 Trang Trung Tâm Đào Tạo Tin Học An Quốc Việt Giáo trình Access NC Chương 2: LÀM VIỆC VỚI CÁC ĐỐI TƯNG, THUỘC TÍNH VÀ CÁC BIẾN CỐ SỰ KIỆN Trong phần tìm hiểu mô hình đối tượng Access, tập hợp biểu mẫu, báo cáo, bảng… cú pháp lệnh để tham chiếu lên điều khiển biểu mẫu Mô hình đối tượng sở liệu Access: Đối tượng sở liệu thành phần tồn bên tập tin sở liệu, chúng chứa bảng, truy vấn, biểu mẫu, báo cáo, tập lệnh thư viện mã lệnh… chúng chứa điều khiển biểu mẩu hay báo cáo Nếu hiểu rõ ràng đối tượng Access, dễ dàng thêm, sửa, xoá đối tượng ứn g dụng Mô hình đối tượng tập hợp ứng dụng: Application Forms Controls Reports Controls Modules Screen Docmd Ýù nghóa: Đối tượng tập hợp Đối tượng Tập hợp biểu mẫu – Forms collection: Đc: 318 Thống Nhất P.16 Q.GV  3.996.1590 Trang Trung Tâm Đào Tạo Tin Học An Quốc Việt Giáo trình Access NC Bao gồm tất biểu mẫu hành mở csdl Sử dụng tập hợp biểu mẫu thực hành động thay đổi tiêu đề, màu sắc biểu mẫu mở Ví dụ: thay đổi tiêu đề form mở cách gán thêm tên người sử dụng hành Sub Formscollection() Dim Fr as form For Each fr In forms Fr.caption= Fr.caption & “ – “ & Currentuser Next fr End sub Tập hợp báo cáo – Reports Collection: Tương tự tập hợp biểu mẫu, tập hợp báo cáo bao gồm báo cáo mở csdl hành Tập hợp thư viện mã lệnh – Modules collection Đối tượng hình – Screen Object: Đối tượng hình sử dụng để tham chiếu đến biểu mẫu, báo cáo hay điều khiển nhận Focus Các thuộc tính đến biểu mẫu, báo cáo hay điều khiển kích hoạt active Đối tượng hình không sử dụng biểu mẫu hay báo cáo kích hoạt Tìm hiểu đối tượng, thuộc tính, biến cố phương thức đối tượng: Đối tượng tất thứ tạo csdl, chúng bao gồm: bảng, truy vấn, biểu mẫu, báo cáo… tương tự đối tượng lại có thành phần bên Mỗi đối tượng csdl có số thuộc tính đònh, phương thức đònh hành động sử dụng đối tượng Thuộc tính đối tượng đặc trưng riêng biệt đối tượn g, đối tượng có nhiều thuộc tính Một biến cố Access việc đáp lại bên ứng dụng Các biến cố kiện bao gồm di chuyển chuột, thay đổi liệu, biểu mẫu mở ra, mẫu tin thêm vào… Phương thức hành động sử dụng đối tượng csdl Giống thuộc tính biến cố, đối tượng khác có phương thức liên quan đến chúng khác Một phương thức thật tựa hàm thủ tục, ngoại trừ phương thức phải thuộc đối tượng Chỉ đònh đến đối tượng, thuộc tính phương thức: Các đối tượng Access phân loại thành tập hợp, tập hợp nhóm lại theo đối tượng loại Ví dụ: Tập hợp biểu mẫu nhóm biểu mẫu mở csdl Mỗi biểu mẫu lại có tập hợp điều khiển, cá c điều khiển có biểu mẫu Đc: 318 Thống Nhất P.16 Q.GV  3.996.1590 Trang 10 Trung Tâm Đào Tạo Tin Học An Quốc Việt Giáo trình Access NC Mỗi điều khiển biểu mẫu lại đối tượng, đònh đến đối tượng xuyên suốt qua tập hợp mà đối tượng thuộc vào Ví dụ: để đònh đến biểu mẫu tập hợp biểu mẫu , VBA đưa cách để đònh đến đối tượng sau: Forms! Forms!(“”) Forms(0) Forms(0) biểu mẫu mở Để đònh đến điều khiển biểu mẫu sử dụng cú pháp sau: Forms!! Muốn đònh đến thuộc tính, đến phương thức đối tượng, sử dụng cú pháp sau: Forms!!. Hoặc: Forms!!. Mô tả gán biến đối tượng: Biến đối tượng biến dùng đònh đến loại đối tượng đó, vd: biểu mẫu, báo cáo, mẫu tin… chúng cho phép tạo biến tắt đònh đến đối tượng Cú pháp: Dim as Set = Sau khai báo gán giá trò khởi tạo cho biến đối tượng, sử dụng biến đối tượng bình thường đối tượng Cuối sau làm việc xong với biến đối tượng, phải giải phóng tài nguyên vùng nhớ hệ thống cách gán từ khoá nothing cho biến đối tượng Cú pháp: Set = Nothing Một số thuộc tính đặc biệt đònh đến đối tượng: VBA cung cấp số thuận lợi để thực hành động biểu mẫu, báo cáo, điều khiển kích hoạt hành Danh sách bên cung cấp thuộc tính đặc biệt dùng để đònh đến đối tượng mô hình đối tượng Access Tên thuộc tính Chỉ đònh ActiveControl Điều khiển nhận tập trung, kích hoạt đối tượng biểu mẫu, báo cáo… PreviousControl Điều khiển gần trước điều khiển RecordsetClone Bộ mẫu tin liệu nguồn bên biểu mẫu ActiveForm Biểu mẫu nhận tập trung ActiveReport Báo cáo nhận tập trung Form Biểu mẫu chứa tập biểu mẫu Report Báo cáo chứa tập báo cáo Me Đối tượng biểu mẫu báo cáo nơi mà chứa đoạn mã lệnh thực Parent Đối tượng cha đối tượng Đc: 318 Thống Nhất P.16 Q.GV  3.996.1590 Trang 11 Trung Tâm Đào Tạo Tin Học An Quốc Việt Giáo trình Access NC Chương 3: ĐỐI TƯNG TRUY CẬP DỮ LIỆU DAO – DATA ACCESS OBJECT DAO sử dụng để tạo, sửa đổi, bỏ đối tượng liệu bên tập tin csdl thông qua đoạn mã lệnh VBA Chúng ta sử dụng DAO để thực công việc sau đây: Phân tích cấu trúc csdl có tồn Thêm thay đổi bảng, truy vấn Tạo csdl Thay đổi nội dung truy vấn Duyệt qua mẫu tin Sửa đổi liệu bảng… Trong mô hình hệ thống DAO, đối tượng gọi đối tượng DBEngine – công nghệ csdl – gọi Microsoft Jet Database Engine, đối tượng chứa tất đối tượng lại mô hình Khi muốn đònh đến csdl hành ta dùng hàm CurrentDB(), muốn đònh đến csdl khác, bắt buộc phải đònh đến đối tượng DBEngine Vd: trả phiên hành csdl sử dụng Sub VersionCurrentdb() Dim db as database Set db=Currentdb() Debug.Print db.Version End sub Các đối tượng đối tượng DBEngine: Để vận dụng cách khéo léo đối tượng DAO ứng dụng chạy, phải hiểu rõ chúng cách tường minh Chúng ta thao khảo số đối tượng đối tượng DBEngine sau: WorkSpaces – không gian làm việc Tập hợp không gian làm việc workspaces chứa đựng đối tượng không gian làm việc workspace Mỗi đối tượng không gian làm việc đònh nghóa khu vực mà người sử dụng làm việc họ bắt đầu khởi động Access Tất tiến trình thao tác an toàn liệu cho người sử dụng ghi nhận vùng làm việc Users – người sử dụng Groups – nhóm người sử dụng Databases – tập hợp sở liệu Vd: In tên csdl mở vùng làm việc hành Sub Printdbname() Dim ws as workspace Dim db as database Dim db1 as database Dim db2 as database Set ws=DBEngine(0) Set db1= currentdb() Đc: 318 Thống Nhất P.16 Q.GV  3.996.1590 Trang 12 Trung Tâm Đào Tạo Tin Học An Quốc Việt Giáo trình Access NC Set db2= ws.opendatabase(“d:\access\vd.mdb”) For Each db In ws.databses Debug.print db.name Next db End sub TableDefs – tập hợp bảng đònh nghóa Tập hợp bảng đònh nghóa – tabledefs chứa tất bảng đònh nghóa trước tập tin csdl Nó chứa đựng tất thông tin chi tiết thuộc tính bảng Vd: kiểm tra tồn bảng tập tin csdl hành sau: Sub ExitstTable() Dim db as database Dim tb as tabledef Dim tbname as string Dim flag as boolean Dim td as string Flag=false Tbname= inputbox(“nhập vào tên bảng cần kiểm tra”) Set db= currentdb() For Each tb In db.tabledefs If tb.name= tbname then Flag=true Exit for End if Next tb Td=iif( Flag, “bang co ton tai”, “bang khong ton tai”) Msgbox td End sub Indexs – tập hợp mục xếp Querydefs – tập hợp truy vấn đònh nghóa Fields – tập hợp cột Vd: liệt kê thông tin cột chứa bảng đònh Sub Listfield() Dim db as database Dim tb as tabledef Dim fd as field Dim tbname as string Tbname=inputbox(“nhập vào tên bảng cần in field”) Set db= currentdb() For each tb in db.tabledefs If tb.name= tbname then Đc: 318 Thống Nhất P.16 Q.GV  3.996.1590 Trang 13 Trung Tâm Đào Tạo Tin Học An Quốc Việt Giáo trình Access NC End if For each fd in tb.fields Debug.print fd.name Debug.print fd.type Debug.print fd.size Next fd Exit for Next tb End sub Parameters – tập hợp tham số Recordsets – tập hợp mẫu tin Relations – tập hợp mối quan hệ Containers – tập hợp chứa đựng thông tin Documents – tập hợp hồ sơ Properties – tập hợp thuộc tính Các đối tượng mẫu tin – Recordset Một đối tượng mẫu tin đại diện cho mẫu tin bảng hay truy vấn chọn Access cung cấp loại mẫu tin sau: Bộ mẫu tin động – dynaset Bộ mẫu tin tức – snapshot Bộ mẫu tin bảng – table Làm việc với phương thức thuộc tính đối tượng mẫu tin: Tạo biến đối tượng mẫu tin Vd: Tạo biến mẫu tin dạng bảng có liệu nguồn từ bảng sinh viên cho biết tổng số mẫu tin có bảng sinh viên Sub Opentable() Dim db as Database Dim rs as Recordset Set db=Currentdb() Set rs=db.Openrecordset(“sinhvien”) Debug.Print rs.Recordcount End sub Các tham số phương thức OpenRecordset Cú pháp: Set = .Openrecordset(type, options) Các phương thức di chuyển mẫu tin mẫu tin: Phương thức MoveFirst MoveLast MovePrevious MoveNext Ý nghóa Di chuyển mẩu tin mẫu tin Di chuyển mẩu tin cuối mẫu tin Di chuyển mẩu tin trước mẫu tin hành mẫu tin Di chuyển mẩu tin sau mẫu tin hành mẫ u tin Đc: 318 Thống Nhất P.16 Q.GV  3.996.1590 Trang 14 Trung Tâm Đào Tạo Tin Học An Quốc Việt Giáo trình Access NC Move[0] Về trước sau số mẫu tin đònh so với mẫu tin hành Vd: in mã số sinh viên đầu tiên, thứ hai, cuối kế cuối bảng sinh viên Sub Inmautin() Dim db as Database Dim rs as Recordset Set db= Currentdb() Set rs=db.Openrecordset(“sinhvien”) Rs.Movefirst Debug.Print rs!masv Rs.Movenext Debug.print rs!masv Rs.Movelast Debug.print rs!masv Rs.Moveprevious Debug.print rs!masv End sub Trong đối tượng mẫu tin có thuộc tính là: BOF (begin of file) EOF (end of file), thuộc tính nói lên vò trí điểm giới hạn mẫu tin Các thuộc tính giúp để xác đònh vò trí trỏ mẩu tin hành đứng đâu Vd: in tất mã số sv có bảng sinh viên Sub Inlist() Dim db as Database Dim rs as Recordset Set db=Currentdb() Set rs=db.Openrecordset(“sinhvien”) Do while not rs.EOF Debug.Print rs!masv Rs.Movenext Loop End sub Sắp xếp, lọc tìm kiếm mẫu tin: Thuộc tính sort Cú pháp: .sort = [asc / desc] Trong đó: Biến: tên biến có kiểu mẫu tin Btc: danh sách cột muốn xếp Đc: 318 Thống Nhất P.16 Q.GV  3.996.1590 Trang 15 Trung Tâm Đào Tạo Tin Học An Quốc Việt Giáo trình Access NC Asc / desc: tăng hay giảm Vd: xếp liệu bảng sinh viên theo thứ tự tăng dần theo ngày sinh Sub Sortngaysinh() Dim db as databse Dim rs as recordset Set db=curretndb() Set rs=db.openrecordset(“sinhvien”, dbopendynaset) Debug.print “chua sap xep” Do while not rs.EOF Debug.print rs!ngaysinh Rs.movenext Loop Debug.print “da sap xep” Rs.sort = “[ngaysinh]” Set rs=rs.openrecordset Do while not rs.EOF Debug.print rs!ngaysinh Rs.movenext Loop End sub Thuộc tính Filter Cú pháp: .Filter= Vd: lọc sinh viên học khoa tin học Sub Filtertinhoc() Dim db as database Dim rs as recordset Set db=currentdb() Set rs=db.recordset(“sinhvien”, dbdynaset) Rs.Filter= “makh=’Tin học’” Set rs=rs.openrecordset Do while not rs.EOF Debug.print “ma so: “ & rs!masv & “ khoa “ & rs!makh Rs.movenext Loop End sub Thuộc tính Index Cú pháp: .index = Đc: 318 Thống Nhất P.16 Q.GV  3.996.1590 Trang 16 Trung Tâm Đào Tạo Tin Học An Quốc Việt Giáo trình Access NC nghóa: thay đổi thứ tự xếp hành mẫu tin mẫu tin Phương thức Seek Cú pháp: .Seek , , … Trong đó: Biến: tên biến Btc1: biểu thức huỗi so sánh là: , =, = Bt1, bt2… : giá trò cần dò tìm Vd: tìm mã số sinh viên bảng sinh viên Sub Seekmasv(masvct as string) Dim db as database Dim rs as recordset Set db=currentdb() Set rs=db.recordset(“sinhvien”, dbopentable) Rs.index=”primarykey” Rs.seek “=”, masvct Msgbox(rs.NoMatch, “khong tim thay”,”tim thay”) End sub Thuộc tính AbsolutePosition: trả vò trí mẫu tin hành Thuộc tính Bookmark: mảng số nguyên hệ thống phát sinh dùng để đònh đònh danh cho mẫu tin mẫu tin Thuộc tính LastModified: chứa giá trò bookmark mẫu tin gần thêm vào sửa đổi liệu Thuộc tính RecordsetClone: dùng đến mẫu tin nằm bên biểu mẫu Đc: 318 Thống Nhất P.16 Q.GV  3.996.1590 Trang 17 Trung Tâm Đào Tạo Tin Học An Quốc Việt Giáo trình Access NC CÁC BẠN HỌC VIÊN CHÚ Ý:  Sau học xong học này, hv có buổi ôn tập lại cũ, sau làm kiểm tra cuối khoá Sau học kiểm tra đủ lớp học (Access 1, Access 2, Access 3) có điểm kiểm tra cuối khoá>=5, hv liên hệ bàn Ghi Danh đăng ký cấp chứng “Nghề Tin Học Quản Lý”, đăng ký dự thi CCQG C trường đại học Khoa Học Tự Nhiên – Bộ Giáo Dục cấp Liên hệ bàn Ghi danh để hướng dẫn chi tiết  Học viên đăng ký học sử dụng thành thạo dòch vụ Internet ADSL, trình chiếu Slide với PowerPoint, lớp kỹ thuật chuyên đề mà cần hỗ trợ cho tương lai nghề nghiệp, hỗ trợ cho công việc bạn Trung tâm có đào tạo lớp chuyên đề hay cho nghề nghiệp bạn, liên hệ bàn Ghi danh để tư vấn thêm Xem chi tiết tại: www.aqv.edu.vn  Các bạn học viên có nhu cầu tìm việc làm toàn thời gian hay bán thời gian Các doanh nghiệp hay sở có nhu cầu tuyển dụng nhân vui lòng cung cấp thông tin cho phận Ghi Danh, mail thông tin vào đòa chỉ: ttthaqv@yahoo.com ttthaqv@vnn.vn Trung tâm tạo điều kiện giới thiệu việc làm miễn phí cho học viên, giới thiệu nhân miễn phí cho doanh nghiệp Trong tương lai gần trung tâm thành lập website riêng để tiện việc hỗ trợ cho học viên tìm việc sau học Các bạn cố gắng học tập tốt để đạt kết cao, thuận tiện xin việc làm sau P ĐÀO TẠO Đc: 318 Thống Nhất P.16 Q.GV  3.996.1590 Trang 18 [...]...Trung Tâm Đào Tạo Tin Học An Quốc Việt Giáo trình Access NC Mỗi một điều khiển trên biểu mẫu lại là một đối tượng, và chúng ta có thể chỉ đònh đến bất kỳ một đối tượng xuyên suốt qua tập hợp mà đối tượng đó thuộc vào Ví dụ: để chỉ đònh đến một biểu... cáo nơi mà chứa đoạn mã lệnh hiện tại đang thực hiện Parent Đối tượng cha của đối tượng hiện tại Đc: 318 Thống Nhất P.16 Q.GV  3.996.1590 Trang 11 Trung Tâm Đào Tạo Tin Học An Quốc Việt Giáo trình Access NC Chương 3: ĐỐI TƯNG TRUY CẬP DỮ LIỆU DAO – DATA ACCESS OBJECT DAO được sử dụng để có thể tạo, sửa đổi, và bỏ các đối tượng dữ liệu bên trong tập tin csdl thông qua các đoạn mã lệnh trong... workspaces chứa đựng các đối tượng không gian làm việc workspace Mỗi đối tượng không gian làm việc đònh nghóa ra một khu vực mà người sử dụng đang làm việc khi họ bắt đầu khởi động Access Tất cả tiến trình thao tác và an toàn dữ liệu cho người sử dụng sẽ được ghi nhận tại một vùng làm việc Users – người sử dụng Groups – nhóm người sử dụng Databases – tập hợp cơ sở dữ liệu Vd: In ra tên các csdl hiện... db as database Dim db1 as database Dim db2 as database Set ws=DBEngine(0) Set db1= currentdb() Đc: 318 Thống Nhất P.16 Q.GV  3.996.1590 Trang 12 Trung Tâm Đào Tạo Tin Học An Quốc Việt Giáo trình Access NC Set db2= ws.opendatabase(“d:\access\vd.mdb”) For Each db In ws.databses Debug.print db.name Next db End sub TableDefs – tập hợp bảng đònh nghóa Tập hợp các bảng đònh nghóa – tabledefs chứa... tên bảng cần in field”) Set db= currentdb() For each tb in db.tabledefs If tb.name= tbname then Đc: 318 Thống Nhất P.16 Q.GV  3.996.1590 Trang 13 Trung Tâm Đào Tạo Tin Học An Quốc Việt Giáo trình Access NC End if For each fd in tb.fields Debug.print fd.name Debug.print fd.type Debug.print fd.size Next fd Exit for Next tb End sub Parameters – tập hợp các tham số Recordsets – tập hợp các mẫu... mẫu tin hiện hành trong bộ mẫu tin Di chuyển về mẩu tin sau mẫu tin hiện hành trong bộ mẫ u tin Đc: 318 Thống Nhất P.16 Q.GV  3.996.1590 Trang 14 Trung Tâm Đào Tạo Tin Học An Quốc Việt Giáo trình Access NC Move[0] Về trước hoặc ra sau một số các mẫu tin chỉ đònh so với mẫu tin hiện hành Vd: in ra mã số của sinh viên đầu tiên, thứ hai, cuối cùng và kế cuối trong bảng sinh viên Sub Inmautin()... [asc / desc] Trong đó: Biến: tên của biến có kiểu bộ mẫu tin Btc: danh sách cột muốn sắp xếp Đc: 318 Thống Nhất P.16 Q.GV  3.996.1590 Trang 15 Trung Tâm Đào Tạo Tin Học An Quốc Việt Giáo trình Access NC Asc / desc: sắp tăng hay giảm Vd: sắp xếp dữ liệu trong bảng sinh viên theo thứ tự tăng dần theo ngày sinh Sub Sortngaysinh() Dim db as databse Dim rs as recordset Set db=curretndb() Set... rs!masv & “ khoa “ & rs!makh Rs.movenext Loop End sub Thuộc tính Index Cú pháp: .index = Đc: 318 Thống Nhất P.16 Q.GV  3.996.1590 Trang 16 Trung Tâm Đào Tạo Tin Học An Quốc Việt Giáo trình Access NC nghóa: thay đổi thứ tự sắp xếp hiện hành của các mẫu tin trong bộ mẫu tin Phương thức Seek Cú pháp: .Seek , , … Trong đó: Biến: tên biến Btc1: biểu thức huỗi so sánh có... hoặc sửa đổi dữ liệu Thuộc tính RecordsetClone: dùng chỉ đến bộ mẫu tin nằm bên dưới các biểu mẫu Đc: 318 Thống Nhất P.16 Q.GV  3.996.1590 Trang 17 Trung Tâm Đào Tạo Tin Học An Quốc Việt Giáo trình Access NC CÁC BẠN HỌC VIÊN CHÚ Ý:  Sau khi học xong bài học này, hv sẽ có một buổi ôn tập lại bài cũ, sau đó làm bài kiểm tra cuối khoá Sau khi học và kiểm tra đủ 3 lớp học trên (Access 1, Access... ký dự thi CCQG C do trường đại học Khoa Học Tự Nhiên – Bộ Giáo Dục cấp Liên hệ bàn Ghi danh để được hướng dẫn chi tiết  Học viên có thể đăng ký học sử dụng thành thạo các dòch vụ trên Internet ADSL, trình chiếu Slide với PowerPoint, hoặc các lớp kỹ thuật chuyên đề mà mình cần hỗ trợ cho tương lai nghề nghiệp, hoặc hỗ trợ cho công việc hiện tại của bạn Trung tâm có đào tạo các lớp chuyên đề rất hay