Bảo mật access bằng 3 cấp mật khẩu

Bạn thử làm thế này thử nhéHãy kích vào Link Sau: http://www.echip.com.vn/echiproot/html/2004/so91/baomatcsdlaccess.htmlđoạn mã này tại Echip.com.vnHầu như ai mần một ứng dụng Microsoft Access cũng xài một trong những (hoặc tất cả) cách sau để bảo vệ cơ sởdữ liệu (CSDL), hòng khóa tay, khóa chân những nhân viên tò mò, thích quậy:1. Bảo vệ mã lệnh VBA (Visual Basic for Application) bằng cách chọn mục Properties trên trình đơn Tools của cửasổ soạn thảo Microsoft Visual Basic rồi chọn trang Protection trên hộp thoại Project Properties. Cuối cùng, chọnLock project for viewing, kèm theo là mật khẩu bảo vệ....
Nội dung trích xuất từ tài liệu:
Bảo mật access bằng 3 cấp mật khẩu Baomataccessbang3capmatkhaukhongbikrasao???TrongACCESSBạnthửlàmthếnàythửnhéHãykíchvàoLinkSau:http://www.echip.com.vn/echiproot/html/2004/so91/baomatcsdlaccess.htmlđoạnmãnàytạiEchip.com.vnHầunhưaimầnmộtứngdụngMicrosoftAccesscũngxàimộttrongnhững(hoặctấtcả)cáchsauđểbảovệcơsởdữliệu(CSDL),hòngkhóatay,khóachânnhữngnhânviêntòmò,thíchquậy:1.BảovệmãlệnhVBA(VisualBasicforApplication)bằngcáchchọnmụcPropertiestrêntrìnhđơnToolscủacửasổsoạnthảoMicrosoftVisualBasicrồichọntrangProtectiontrênhộpthoạiProjectProperties.Cuốicùng,chọnLockprojectforviewing,kèmtheolàmậtkhẩubảovệ.Vớicáchnày,cấutrúcvàdữliệucácbảng(table)vẫncóthểđượcxemvàsửađổi.2.DùngchứcnăngMakeMDEfileđểngănkhôngchosửađổimãlệnh,thiếtkếbiểumẫu(form)vàthiếtkếbáobiểu(report).Vớicáchnày,cấutrúcvàdữliệucácbảng(table)vẫncóthểđượclấyđiđểchuyểnvàotậptin.MDBkhácmàxemvàsửađổi.3.DùngchứcnăngEncrypt/Decryptdatabase…đểmãhóaCSDL,ngănkhôngchocácchươngtrìnhtiệníchhayxửlývănbảngiảimãnhưngvẫncóthểdùngAccessđểmở.4.DùngchứcnăngSetdatabasepasswordđểquyđịnhmậtkhẩuchoCSDL.CáchnàyhơiphiềnnếucómộtbảngtrongCSDLkhácliênkết(link)vớinó.Nếuquênmậtkhẩuthì…khócluônchứsao!5.Thiếtkếmộtbiểumẫukhởiđộng,trongđóyêucầuchobiếttênvàmậtkhẩu,dùnghộpthoạiStartup(từdanhsáchDisplayForm/Page)đểquyđịnhphảimởbiểumẫunàytrướctiênmỗilầnmởCSDL.Nhờcáchnày,tacóthểgiấuluôncửasổDatabase,nơicóthểxemvàchọncácthànhphầncủaCSDLđểsửachữa.Trongnhữngcáchtrên,cáchthứ5vẫncóthểbịvượtquabằngcáchnhấnvàgiữphímShifttronglúcmởCSDL.Đểkhắcphục,tacóthểdùngVisualBasicgántrịFalsechothuộctínhAllowBypassKeyđểvôhiệuhóaphímShiftkhimởCSDL.GiảsửbạncómộtCSDLtêndbLock.MDB.Mỗilầnngườitamởnó,bạnmuốnbiểumẫufrmKhoiDongluônđượchiểnthịtrướctiênbằngcáchxácđịnhDisplayForm/PagelàfrmKhoiDong.ĐểthayđổithuộctínhAllowBypassKey,bắtbuộcphảimởCSDL,gántrịmớichothuộctínhnày,đóngCSDLlạithìlầnmởsaumớicóépphê.Bạnnhớ,cầnkhóalàmsaođểngườitakhôngmởđượcmàmìnhmởđược,nghĩalàtaphảicóchìakhóađểmở.Chìaởđâychínhlàmộtbiểumẫukhác,chẳnghạncótênlàfrmChiaKhoa.KhiđãthayđổithuộctínhAllowBypassKeyđượcrồi,chắcchắnbiểumẫufrmKhoiDongđượchiểnthịkhimởCSDL.Chonêntađặtchìakhóathôngquabiểumẫunàybằngcáchvẽmộtôđiềukhiểnnàođấy(miễnsaonócóthủtụcxửlýtìnhhuốngClicklàđược),chẳnghạnnhãnlblChiaKhoa,rồiđặtthuộctínhVisiblelàNovàthêmdònglệnhDoCmd.OpenForm“frmChiaKhoa”vàothủtụcxửlýtìnhhuốngClick.BạnphảinhớvịtrínhãnlblChiaKhoađểlôichìakhóaranhé.Nhưvậy,vấnđềcònlạinằmởbiểumẫufrmChiaKhoa.BạnmởcửasổsoạnthảoMicrosoftVisualBasic,chọnmụcReferences…đểbảođảmMicrosoftDAOxx.xxObjectLibrary(trongđó,phiênbảnxx.xxcóthểlà:2.5hoặc3.51hoặc3.6tùytheophiênbảnAccess,dĩnhiênnênchọnphiênbảnmớinhất)đãđượcchọntrongdanhsáchAvailableReferences.[Đầutrang]Hình1:BiểumẫucầnthiếtkếHình1làbiểumẫufrmChiaKhoacầnthiếtkế,baogồmmộtôvănbảntxtPasswordđểnhậnmậtkhẩumàngườicầnmởkhóaphảigõvào,mộtnútlệnhcmdLockthựchiệnviệckhóaCSDLvàmộtnútlệnhcmdUnlockthựchiệnviệcmởkhóaCSDL.Xong,bạngõcácthủtụcxửlýnhưđoạnmã1.TrướckhiquậychuyệnnàytrênmộtCSDL,bạnnênsaochépphònghờCSDLđểtránhsựcốkhóađượcrồinhưngkhôngmởđược(dobạngõnhầmcácdònglệnh).Đoạnmã1HàmChangePropertythayđổicácthuộctínhcủaCSDLFunctionChangeProperty(strPropName,varPropType,varPropValue)DimdbsAsDatabase,prpAsPropertyConstconPropNotFoundError=3270Setdbs=CurrentDbOnErrorGoToChange_XuLyLoidbs.Properties(strPropName)=varPropValueChangeProperty=TrueChange_KetThuc:ExitFunctionChange_XuLyLoi:ThuộctínhkhôngthấyIfErr=conPropNotFoundErrorThenSetprp=dbs.CreateProperty(strPropName,_varPropType,varPropValue)dbs.Properties.AppendprpResumeNextElseKhôngbiếtlỗigìChangeProperty=FalseResumeChange_KetThucEndIfEndFunctionXửlýtìnhhuốngchọnnút[Khóadatabase]PrivateSubcmdLock_Click()‘BiểumẫunàyđượcnạptrướcChangePropertyStartupForm,dbText,frmKhoiDongChangePropertyStartupShowDBWindow,dbBoolean,FalseChangePropertyStartupShowStatusBar,dbBoolean,FalseChangePropertyAllowBuiltinToolbars,dbBoolean,FalseChangePropertyAllowFullMenus,dbBoolean,FalseChangePropertyAllowBreakIntoCode,dbBoolean,FalseChangePropertyAllowSpecialKeys,dbBoolean,False‘KhôngchoxàiphímShiftđểbỏquabiểumẫufrmKhoiDongChangePropertyAllowBypassKey,dbBoolean ...