Giáo trình Access 2000

gi¸o tr×nh access 2000 ph¹m thanh dung phÇn 1 kü thuËt lËp tr×nh ch­¬ng 1 nh÷ng kh¸i niÖm chung bµi 1 , thuéc tÝnh , ph­¬ng thøc , sù kiÖn 1.1/ ®èi t­îng , vµi vÝ dô trong thùc tÕ ®èi t­îng cã thÓ lµ vd : tivi , hoÆc lµ 1 ®å vËt nµo ®ã .Mçi mét c¸i ®Òu cã c«ng dông vµ thuéc tÝnh riªng . Vµ mçi ®èi t­îng cã thÓ ®­îc cÊu t¹o tõ nhiÒu ®èi t­îng kh¸c vd : « t« ®­îc cÊu t¹o tõ - b¸nh xe - khung xe - ®éng c¬ -vv => ®èi t­îng lµ nh÷ng thanh phÇn cÊu t¹o nªn giao diÖn cho ng­êi sö dông vd: ®èi t­îng form , khung frame 1.1.1/ lËp tr×nh ®èi t­îng : obfect-oriented programing víi lËp tr×nh h­íng ®èi t­îng (oop) lËp tr×nh viªn sÏ chia nhá vÊn ®Ò cÇn gi¶i quyÕt thµnh c¸c ®«Ý t­îng . tõng ®èi t­îng cã ®êi sèng riªng cña nã > nã cã nh÷ng ®Æc ®iÓm mµ ta gäi lµ thuéc tÝnh ( propertedies) mµ nh÷ng chøc n¨ng riªng biÖt mµ ta gäi lµ ph­¬ng thøc ( methods) trong m«i tr­êng access cho phÐp ta sö dông ng«n ng÷ (vba) (visual basic for applicatoin) ®Ó viÕt c¸c hµm , thñ tôc nh»m xö lý ®èi t­îng.( b¶ng , truy vÊn , mÉu biÓu ...) ®­îc t¹o b»ng c¸c c«ng cô cña access 1.2. thuéc tÝnh (propertied) ®¬n gi¶n lµ m« t¶ thuéc tÝnh ®èi t­îng . mçi ®èi t­îng ®Òu cã 1 thuéc tÝnh m« t¶ ®èi t­îng vd : ®èi t­¬ng form : -left - top - heigh * c¸c thuéc tÝnh th«ng dông left : vi trÝ c¨n tr¸i cña ®iÒu khiÓn so víi vËt chøa nã top " trªn " " height : chiÒu cao cña ®iÒu khiÓn name : tªn cña ®iÒu khiÓn enabled : gi¸ trÞ logic ( tovf ) quyÕt ®Þnh ng­êi sö dông cã ®­îc lµm viÖc víi ®iÒu khiÓn nµy hay kh«ng visible : gi¸ trÞ logic quyÕt ®Þnh ng­êi sö dông cã thÊy ®iÒu khiÓn haykh«ng 1.3/ ph­¬ng thøc ( methods) lµ ®o¹n ch­¬ng tr×nh cã trong ®iÒu khiÓn biÕt cach thøc ®Ó thùc hiÖn 1 c«ng viÖc nµo ®ã * mét sè ph­¬ng thøc c¬ b¶n move : thay ®æi vÞ trÝ cña ®èi t­îng theo yªu cÇu cña ch­¬ng tr×nh set focus : cung cÊp tÇm ng¾m cña ®èi t­îng zorder : quy ®Þng thø tù xuÊt hiÖn cña c¸c ®iÒu khiÓn trªn mµn h×nh drag : ho¹t ®éng kÐo th¶ cña ng­êi sö dông 1.4 / sù kiÖn nÕu thuéc tÝnh m« t¶ ®èi t­îng , ph­¬ng thøc chØ ra c¸ch thøc ®èi t­îng ho¹t ®éng . th× sù kiÖn lµ nh÷ng ph¶n øng cña ®èi t­îng vd : khi ng­êi ta sö dông nhÊn vµo 1 nót lÖnh nhiÒu sù kiÖn x¶y ra - nót chuét ®­îc nhÊn - command button trong øng dông ®­îc nhÊn - sau ®ã nót chuét ®­îc xo¸ 3 ho¹t ®«ng trªn t­¬ng øng v¬i 3 sù kiÖn - mouse down - on click - mouse up c¸c sù kiÖn x¶y ra th­êng lµ kÕt qu¶ cña 1 hµnh ®éng nµo ®ã nh­ : di chuét , nhÊn bµn phÝm , hoÆc gâ vµo hép v¨n b¶n * mét sè sù kiÖn th«ng dông - change ; ng­êi sö dông söa ®æi chuçi ký tù trong chuçi kÕt hîp - click ; ng­êi sö dông dïng chuét nhÊn vµo ®èi t­îng - dbl click : " " ®óp " drap drup : ng­êi sö dông kÐo rª mét ®èi t­äng sang mét chç kh¸c - got fous : ®­a mét ®èi t­îng vµo tÇm ng¾m cña ®èi t­îng key down : ng­êi sö dông nhÊn 1 nót sù kiÖn bµn phÝm ®t ®ang trong tÇm ng¾m - key press : ng­êi sö dung nhÊn vµ th¶ nót trªn bµn phÝm " " " - lot fous ; ®­a 1 ®èi t­îng ra khái tÇm ng¾m - move : ng­êi sö dông di con chá chuét ngang qua 1 ®èi t­îng - mouse up : ng­¬i sö dông th¶ nót chuét trong khi con chá chuét ®ang n»m trªn ®èi t­îng * chó ý ; sö dông got focus vµ lost focus: ®Ó kiÓm tra dù liÖu nhËp vµo cña ng­êi sö dông 1.5 / mèi quan hÖ gi÷a thu«c tÝnh , ph­¬ng thøc , ® sù kiÖn m¨c dï p ,m , on, cã c¸c vai trß kh¸c nhau nh­ng th­êng liªn quan ®Õn nhau . phô thuéc lÉn nhau , ta cã thÓ xö lý b»ng nhiÒu c¸ch a , thuéc tÝnh xuÊt hiÖn formmy forn . visible = true biÕn mÊt fornmy forn . visible = false b , ph­¬ng thøc xuÊt hiÖn fornmy forn . show biÕn mÊt fornmy forn . hide Bµi 2: ®¬n thÓ Module CÊu tróc cña hµm vµ thñ tôc 1. §¬n thÓ §¬n thÓ dïng chung cã d¹ng General Option Compare Database Option EXplicit + Khai b¸o h»ng biÕn cÊp ch­¬ng tr×nh dïng tõ kho¸ piclic +Khai b¸o c¸c hµng, m¶ng cÊp ®¬n thÓ, dïng tõ kho¸ Dim 2. CÊu tróc cña 1 hµm vµ thñ tôc a thñ tôc §­îc khai b¸o nh­ sau: Sub tªn_thñ_tuc(khai b¸o tõng ®èi) ........... End sub a. Hµm ®­îc khai b¸o nh­ sau: functionTªn_hµm(khai b¸o tõng ®èi) as [kiÓu] .............. Tªn_hµm=gi¸ trÞ .............. end function c. thñ tôc sö lý sù kiÖn - sù kiÖn from Sub from-tªn_sù_kiÖn() ........... end sub - sù kiÖn Report Sub report-tªn_sù_kiÖn() ........... end sub - sù kiÖn cña « ®iÒu khiÓn Sub tªn_«_®iÒu_khiÓn_sù_kiÖn() ........... end sub Bµi 3 mét sè hµm th­êng dïng vµ c¸c to¸n tö ®iÒu khiÓn 1. Mét sè hµm a. Inputbox C«ng dông Tr¶ vÒ mét gi¸ trÞ kiÓu chuçi(string) Th­êng dïng ®Ó nhËp liÖu Có ph¸p: Inputbox ("lêi nh¾c","tieu ®Ò",[gi¸ trÞ mÆc ®Þnh]) b. Hµm vµ thñ tôc msgbox C«ng dông: Thñ tôc msgbox dïng ®Ó ®­a hiÖn mét biÓt thøc chuçn ra hép tho¹i Có ph¸p: msgbox nd[,kiÓu[,tiªu ®Ò] VD: msgbox "chuc mõng" ,"dÊu nh¾c") Hµm msgbox dïng ®Ó ®­a mét biÓu thøc chuçi ra hép tho¹i vµ nhËn mét gi¸ trÞ sè tr¶ vÒ Có ph¸p: msgbox(nd[,kiÓu[,tiªu ®Ò]) VD: msgbox"sè liÖu kh«ng hîp lª" 5+6 Nhãm c¸c nót Gi¸ trÞ ý nghÜ 0 hiÖn nót OK 1 hiÖn c¸c nót OK vµ Cancel 2 HiÖn c¸c nót abort, Retry vµ ignore 3 HiÖn c¸c nót yes, no, cacel 4 HiÖn c¸c nót yes vµ No 5 hiÖn c¸c nót Retry vµ canel Vµ mét sè c¸c biÓi t­îng c. C¸c hµm xö lý chuçi len, left(T,n), right(T,n),mid((T,i,n).. D. Hµm lùa chän . IIF(®iÒu kiÖn,gi¸ trÞ 1,gi¸ trÞ 2) SÏ cho gi¸ trÞ ®óng nÕu ®iÒu kiÖn ®óng cßn l¹i sÏ cho gi¸ trÞ sai e. Hµm t×m kiÕm Có ph¸pBiÓu_thøc_chuçi like mÉu 2 c¸c to¸n tö ®iÒu khiÓn 1 lÖnh rÏ nh¸nh D¹ng 1: if then ... c¸c c©u lÖnh end if D¹ng 2: IF then ... nhãm c©u lÖnh 1 else IFF then ... nhãm lÖnh 2 end if en if 2. select case có ph¸p: select case biÓu_thøc_nguyªn; case gt1 nhãm lÖnh 1 case gt2 nhãm lÖnh 2 .................. case gtn nhãm lÖnh n-1 end select 3 to¸n tö for Có ph¸p for biÕn_®Õm=gi¸ trÞ ®Çu to gt cuèi [exit for] next 4 Do....Loop với điều kiện trước Dang1: do while DK_tiÕp_tôc_chu_tr×nh [exit do] loop D¹ng 2 do until DK_tiÕp_tôc_chu_tr×nh ................ [exit do] loop 5 Do ...Loop với điều kiện sau Dạng 1: Do …………………… [exit do] loop while điều kiện tiếp tục chu trinhf Dạng 2: Do ……………….. [Exit do] loop until DK_k ết _th uc_chu_tr×nh B ài 4 Th ực hi ện macro trong ch ư ơng tr ình b ằng c âu l ệnh DOCMD d ạng th ức: Docmd ten_hanh_dong [danh sach doi muc] M ột s ố h ành đ ộng Close: D