GIÁO TRÌNH LẬP TRÌNH QUẢN LÝ VỚI MICROSOFT OFFIC ACCESS - BÀI 9 LÀM VIỆC VỚI ĐỐI TƯỢNG TRONG ACCESS ppt

220 Baøi 9.  TRONG ACCESS 9.1.  9.1.1.  a) KHÁI NIM        tên    hay  b) THUC TÍNH, BIN C C CNG - Tp thuc tính (Properties): Là tp hp các c im  hình thành ra i tng. ng có mt vài thuc tính ging nhau và có mt s thuc tính riêng bit ch có trong mt s  ng. ví d: Form và u có thuc tính Width (chiu r  Form mi có thuc tính Record Source còn TextBox ch có thuc tính Control Source. Khi ngi dùng to ra mt i tng trong Access thì tp hp các thuc tính ca i tng do Access  nh ngha sn. Mi thuc tính ca i tng mi to ra Access cng  gán mt giá tr mc nh  khi to ra i tng . Trong quá trình iu khin i tng trong Access ngi lp trình có th tham kho và hoc thay i giá tr tp thuc tính ca i tng. ca i tng  . - Tp pc (Methods): Là tp hp các hành ng mà i tng  có kh nng thc hin c. ví d ng có kh nng        ng khác nhau s    thc khác nhau. Khi ngi dùng to ra mt i tng tp hp phng thc ca i tng do Access  nh ngha sn và c ngi lp trình gi phng thc ca i tng thi hành khi cn thit  . - Tp bin c (Events): Là tp hp s kin xy ra trên mt i tng (ch yu do ngi s dng tác ng lên i tng) khi i tng  ang m ví d  221 s di chuyn chut, Click chui d liu ca i to ra mt i tng mc nhiên i tng  bt ng trc các bin c xy ra trên nó. Do  mun i tng  phn ng li nh th nào khi có mt bin c xy ra trên i tng thì ngi lp trình phi nh ngha nó bng các xây dng các th tc x lý s kin (Event Procedure) trên bin c .     ngi lp trình ch quan tâm n mt s các bin c mà thôi. 9.1.2.   nhiu nhóm i tng ang m                   9 a) FORMS COLLECTION    CSDL    Application Controls Reports Modules Screen DoCmd Forms Controls    222 9 b) REPORTS COLLECTION   thu c) MODULES COLLECTION   d) CONTROLS COLLECTION   9.2.  9.2.1.  a)  Forms!<Tên Form> b)  Hoadon Forms!F_Hoadon 9.2.2.  a)  Forms!<Tên Main Form>!<>.Form b)            CTHoaDon   F_Hoadon Forms!F_Hoadon!CTHoaDon.Form 223 9.2.3.  a)  Reports!<Tên Report> b)   Reports!R_HoaDon 9.2.4.  a)   Forms!<Tên Form>!<>  Forms!<Tên Form>!<.Form!<>  Reports!<Tên Report>!<> b)           SOHD     F_HoaDon Forms!F_HoaDon!SOHD          MASP     R_SanPham Reports!R_SanPham!MASP MAKH    HoaDon     F_KhachHang    sau: Forms!F_Khachhang!HoaDon.Form!MAKH. Chú ý: Ta có th s dng t Me  thay th cho ng dn n form hoc report cha module mà ta ang lp trình. Khi  cú pháp ch nh n control nm trên form hoc report  s là: Me.<tên control> Ví d: Gi s ta ang lp trình trên module ca form F_Hoadon thì:  Me s thay th cho ng dn Forms!F_Hoadon  Me.SoHD thay th cho ng dn Forms!F_Hoadon!SoHD 9.2.5. CÁCH THAY I THUC TÍNH CA I TNG.  tham kho hoc thay i thuc tính ca i tng ta có th s dng mt trong hai cách sau: 224 Cách 1: Áp dng  thay i thuc tính ngay khi khi to ra i tng.  Vào hp thoi thuc tính ca i tng  Khai báo li giá tr cho các thuc tính ca i tng  làm cho i tng phù hp vi bói cnh chng trình. Cách 2: Thay i bng lnh. Cách này c áp dng  thay i thuc tính ca i tng khi i tng ang m. Cú pháp:      Fomrs!F_ChiTietHoaDon!cmdLuu.Enabled = False 9.2.6. CÁCHA M        Forms!F_CapNhatHangHoa.Recalc  bên t 225 Forms!F_DMNSX!MANSX.Move 50,50,400,200 MoveMove Left [,Top][,Width][,Height] Left: Top: Width: Height:  . Chú ý:  Ta có th s dng Me  thay th cho ng dn n form hoc report cha on lnh mà ta ang lp trình khi  ng dn n mt control ang nm trên form hoc report  s là: Me.<tên control>. Ví d: gi s ta ang lp trình trong module ca form F_Hoadon thì: o Me s thay th cho ng dn Forms!F_Hoadon o Me.Sohd s thay th cho ng dn Forms!F_Hoadon!Sohd 9.2.7.  a)   mu tin (Recordset), Form, Control. b)  Dim <> As <> Set <> = <> c)    <>.< <>.<> d)   Nothing Set <> = Nothing e)       ActiveControl u khin s tng màn hình, 226 Form, Report Previous Control u khin gn nht  u khin hin ti RecordsetClone B mu tin d liu ngui ca Form ActiveForm n s tp trung ActiveReport n s tp trung Form Form con cha trong mt Form Report Report con cha trong mt Report Me ng Form hon mã lnh hin ti ang thc hin Parent ng cha cng hin ti 9.2.8.  a)  Khi ta không mun lp li nhiu ln tên bing hong trong các câu lnh thì ta có th dùng phát biu With. b) CÚ PHÁP With <ng> .<Thuc tính> .<c> End With c) THÍ D : n l Me.Caption = "Quan ly khach hang" Me.AllowAdditions = False Me.AllowDeletions = False Me.AllowEdits = True Có th vit li theo cu trúc With là: With Me .Caption = "Quan ly khach hang" .AllowAdditions = False .AllowDeletions = False .AllowEdits = True End With 9.3.           9.3.1. FORM 227 a) THUC TÍNH - Caption:ca s ca form  Forms!F_Hoadon   - RecordSource:  Q_DONDATHANG Me.RecordSou - Visible: form ra   Me.Visible = False  - AllowDeletions: Cho (True)không cho (False)  Me.AllowDeletions = False  - AllowAdditions: Cho (True)không cho (False)  Me.Additions = True  - AllowEdits: Cho (True)không cho (False)  Me.AllowEdits = False  - NavigationButtons:  mu tin  Me.NavigationButtons = False mu tin. - mu tin mu tinmu tin)  Me.BookMark = Rs.BookMark mu tin mu tinmu tin  - CurrentRecord:mu tin  mu tin Thuc tính này read only nên ch cho phép ngi lp trình tham kho ch không cho phép thay i. 228 - AllowFilters:  (True)(False)mu tin trên Fo  Me.AllowFilters = False mu tin trên Form - Filter: t trong du nháy i. - FilterOn:  Filter. Ví Trong form F_HosoNVol tên nhân viên  tên nhân viên     mu tin form F_HosoNV ch cho hin th nhng nhân viên có tên c nhp t bàn phím mà thôimu tin nh  9  229 9tên nhân viên  Private Sub CmdBoloc_Click() Me.FilterOn = False End Sub Private Sub Cmdloc_Click() Dim dk As String dk = InputBox("Nhap vao ten nhan vien can loc:") Me.Filter = "ten='" & dk & "'" Me.AllowFilters = True Me.FilterOn = True End Sub b) C - Undo:  Me.Undo    - Requery:                 +  + mu tin + mu tin trên Form.  Me.Requery  - Recalc: [...]... tác dụng hủy bỏ biến cố - On Close: biến cố xảy ra khi cửa sổ form bị đóng lại Thứ tự các biến c xảy ra Các biến cố lần luợt xảy ra khi mở form: Open Load Resize Active Current Các biến cố lần luợt xảy ra khi đóng form: UnLoad Deactive Close 9. 3.2 TEXTBOX a) THU C TÍNH - Name: dùng đặt tên cho TextBox Ta chỉ đặt tên cho TextBox khi Form ở chế độ Design View Trong quá trình đối tượng đang mở ta không... Me.txtKETQUA.Visible = False - Làm ẩn TextBox txtKETQUA Enabled: làm mờ (False) hoặc sáng lại bình thường (True) Mặc nhiên là True Ví dụ Me.txtTongTriGia.Enabled = False Làm mờ TextBox txtTongTriGia - Locked: Cho phép (False) hoặc không cho phép (True) sửa đổi dữ liệu trên TextBox Mặc nhiên là False 230 Thí dụ Me.txtTongTriGia.Locked = False „Không cho phép sửa đổi dữ liệu trên TextBox txtTongTriGia - AutoTab: tự... đang mở ta không được phép sử dụng lệnh để đổi tên đối tượng - Control Source: khai báo nguồn dữ liệu cho TextBox Nếu thay đổi bằng lệnh thì giá trị thay đổi phải đặt trong cặp dấu nháy đôi Thí dụ Trên Form một form ta co textbox mang tên txtthang Để gán cho txtbox này hiển thị tháng hiện hành ta sử dụng lệnh Me.txtthang.RecordSource=”=Month(Date())” - Visible: Hiện (True) hoặc ẩn (False) TextBox Mặc... chuyển con trỏ sang control kế tiếp (nằm trong bảng thứ tự Order Tab) khi đã nhập xong ký tự cuối cùng trong TextBox nếu như trong thuộc tính Input Mark của textbox có quy định khuôn mẫu nhập liệu Thí dụ Me.txtMaSP.AutoTab = True „Cho phép con nháy tự động nhảy sang điều khiển khác - ControlTipText: đặt lời mách nước về TextBox khi ta đưa con trỏ chuột vào nó Hình 9. 13: Khi đưa con tr chuột vào TextBox... ngay tới TextBox End Sub 231 c) BIẾN C - GotFocus: xảy ra khi TextBox nhận được sự tập trung (con trỏ chèn nhảy vào TextBox) - On Change: xảy ra khi có sự thay đổi dữ liệu trên TextBox - BeforeUpdate: xảy ra trước khi dữ liệu được cập nhật xuống Control Source của TextBox - AfterUpdate: xảy ra sau khi dữ liệu đã được cập nhật xuống Control Source của TextBox - LostFocus: xảy ra khi TextBox mất sự tập... lệnh cmdThem xuất hiện khi ta đưa con tr chuột vào n - - Visible: tương tự như TextBox Thí dụ n nút cmdThoat Me.cmdThoat.Visible = False Enabled: tương tự như TextBox Thí dụ làm mờ nút cmdCong, cmdTru, cmdNhan, cmdChia Me.cmdCong.Enabled = False Me.cmdTru.Enabled = False Me.cmdNhan.Enabled = False Me.cmdChia.Enabled = False b) PHƯƠNG THỨC - SetFocus: làm cho nút lệnh nhận sự tập trung Thí dụ Khi ta bấm... Me.CmdVd.Caption=”Yes” End If - - Picture: Khai báo đường dẫn đến file hình để làm nhãn cho nút lệnh thay dòng chữ Thí dụ Đặt hình lên nút Hình là file maybay.ico nằm ở thư mục Hinh của ổ đĩa C: Me.cmdLoc.Picture=”C:\Hinh\maybay.ico” ControlTipText: tương tự TextBox Thí dụ Cho lời mách của nút cmdThem là “Thêm mẩu tin mới” khi mở Form F_HOADON Me.cmdThem.ControlTipText = “Thêm mẩu tin mới” 232 Hình 9. 17: Lời mách...Thí dụ Me.Recalc c) BIẾN C - On Open (Cancel As Integer): biến cố xảy ra khi cửa sổ form được mở ra Tham số Cancel có giá trị là True hoặc False Mặc nhiên là False Nếu là True có tác dụng hủy bỏ biến cố - On Load: biến cố xảy ra khi dữ liệu được nạp lên form - On Unload (Cancel As Integer): biến cố xảy ra khi nguồn dữ liệu trên form bị đóng lại... AfterUpdate: xảy ra sau khi dữ liệu đã được cập nhật xuống Control Source của TextBox - LostFocus: xảy ra khi TextBox mất sự tập trung, con trỏ chèn đi ra khỏi TextBox 9. 3.3 COMMAND BUTTON a) THU C TÍNH - Name: đặt thuộc tính Name cho Command Button - Caption: Đặt thuộc tính nhãn cho CommandButton Thí dụ Đoạn lệnh sau đây có chức năng kiểm tra thuộc tính Caption của nút nút lệnh có tên là CmdVd nếu nhãn của... - ControlTipText: đặt lời mách nước về TextBox khi ta đưa con trỏ chuột vào nó Hình 9. 13: Khi đưa con tr chuột vào TextBox Manv thì xuất hiện lời mách nước b) PHƯƠNG THỨC - SetFocus: Cho TextBox nhận sự tập trung Hay nói cách khác làm cho con trỏ chèn nhảy vào TextBox Thí dụ Khi ta bấm vào nút THÊM để thêm mẩu tin mới cho Form F CAPNHATSANPHAM, ta muốn con trỏ nhảy ngay tới TextBox txtMASP nào đó để . 220 Baøi 9.  TRONG ACCESS 9. 1.  9. 1.1.  a) KHÁI NIM        tên. Access cng  gán mt giá tr mc nh  khi to ra i tng . Trong quá trình iu khin i tng trong Access ngi lp trình có th tham kho và hoc thay i giá tr tp thuc tính ca. ngi dùng to ra mt i tng trong Access thì tp hp các thuc tính ca i tng do Access  nh ngha sn. Mi thuc tính ca i tng mi to ra Access cng  gán mt giá tr mc