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:

230


Me.Recalc
c) BIN C
- On Open (Cancel As Integer)a s
Tham sTrue

- On Load:khi d liu c np lên form.
- On Unload (Cancel As Integer):ngun d liu trên form b
ng li. Tham s
True
- On Close:ca s form b ng li.

Các bin c ln lut xy ra khi m form:


Các bin c ln lut xng form:

9.3.2. TEXTBOX
a) THUC TÍNH
- Name: 
. Trong quá trình i tng ang m ta không c phép s
dng lnh  i tên i tng.
- Control Source:. Nu thay i bng lnh
thì giá tr thay i phi t trong cp du nháy i.
 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

- Visible: (True)(False) TextBox. Mc nhiên là True.


Me.txtKETQUA.Visible = False 
- Enabled:  (False) (True) Mc nhiên là True.
Ví
Me.txtTongTriGia.Enabled = False 
- Locked: Cho phép (False)  (True)a
TextBox. Mc nhiên là False.
Open
Load
Resize
Current
Active
UnLoad
Close
Deactive
231


Me.txtTongTriGia.Locked = False 
TextBox txtTongTriGia
- AutoTab:  (True) hay  (False)
 nhp xong 
 nu nh trong thuc tính Input Mark ca textbox có quy
nh khuôn mu nhp liu.

Me.txtMaSP.AutoTab = True         
.
- ControlTipText:
.

9Manv
b) C
- SetFocus:

THÊMhêm mu tin
txtMASP
 MASP
SetFocus.
Private Sub THEM_Click()
Me.txtMASP.SetFocus 
txtMASP
End Sub
232

c) BIN C
- GotFocus:
TextBox).
- On Change:
- BeforeUpdate: 

- AfterUpdate: 

- LostFocus:              
TextBox.
9.3.3. COMMAND BUTTON
a) THUC TÍNH
- Name:
- Caption:
 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 nó ang là ì i li tr thành

à ngc li nu ang là ì i li tr thà


Else

End If
- Picture: Khai báo ng dn n file hình  làm nhãn cho nút lnh thay 
.
maybay.icoHinh
C:
\Hinh\maybay
- ControlTipText: 
mu tin
F_HOADON
Me.cmdThem.ControlTipText mu tin
233


9

- Visible:

Me.cmdThoat.Visible = False
- Enabled:

Me.cmdCong.Enabled = False
Me.cmdTru.Enabled = False
Me.cmdNhan.Enabled = False
Me.cmdChia.Enabled = False
b) C

- SetFocus:lnh 
cmdLuu  mu tincmdThem
Entermu tin

Me.cmdThem.SetFocus
c) BIN C

