Formulari i hyrjes është i domosdoshëm për bazat e të dhënave që përmbajnë informacione të ndjeshme. Ndiqni hapat e mëposhtëm që të mund të krijoni formularin tuaj të hyrjes për të mbrojtur bazën tuaj të të dhënave nga aksesi i pavlefshëm.
Shkarkojeni Tani
Nëse doni të filloni ta përdorni këtë funksion sa më shpejt të jetë e mundur, atëherë mund të:
Shkarkoni bazën e të dhënave të mostrës me kodet VBA Tani
Përndryshe, nëse dëshironi të bëni DIY, mund të lexoni përmbajtjen më poshtë.
Hapat për të krijuar një formular hyrjeje në Access
1. Krijoni një tabelë identifikimi
Gjëja e parë që duhet të bëjmë është të krijojmë një tabelë që do të ruajë të gjithë informacionin e hyrjes.
- Krijo një tabelë të re dhe emërtoje si tbl_login.
- Hapni tabelën në pamjen e dizajnit.
- Shtoni fushat e mëposhtme me llojet e tyre përkatëse të të dhënave:
| Emri i fushes | Lloji i të dhënave |
| userid | AutoNumri |
| Emri | Tekst i shkurtër |
| mbiemër | Tekst i shkurtër |
| USERNAME | Tekst i shkurtër |
| Fjalëkalimin | Tekst i shkurtër |
- Ndryshoni maskën e hyrjes së fjalëkalimit në mënyrë që ajo të shfaqet si një seri yjesh (*).
- Zgjidhni fushën Fjalëkalimi.
- Shkoni te skeda e Përgjithshme > Maska hyrëse >…
- Kur shfaqet magjistari i maskës së hyrjes, zgjidhni Fjalëkalimin.
- Klikoni Finish
- Hapni tabelën në pamjen e Fletës së të Dhënave dhe futni rekordin e parë (të dhënat tuaja të hyrjes).
- Mbyllni tabelën dhe ruani ndryshimet e bëra.
2. Krijo formularin Login
Krijoni një formë të zbrazët me 2 kuti teksti dhe 2 butona komandimi (siç tregohet më poshtë). Kapërceni magjistarin e butonit të komandës.
Ne do t'u referohemi këtyre kontrolleve të formularit në kodin tonë më vonë, kështu që do të ishte më mirë t'i riemërtojmë ato në mënyrë që të mund të identifikohen lehtësisht:
- txt_emri i përdoruesit
- txt_password
- cmd_login
- cmd_anuloj
Më pas, ndryshoni maskën e hyrjes së kutisë së tekstit të fjalëkalimit në mënyrë që ajo të shfaqet gjithashtu si një seri yjesh (*).
- Ndërsa jeni në pamjen e dizajnit, zgjidhni kutinë e tekstit të fjalëkalimit.
- Hapni fletën e vetive (ALT + Enter).
- Shkoni te skeda Të dhënat > Maska hyrëse.
- Zgjidhni Fjalëkalimin dhe klikoni Finish.
Tani, do të ndryshojmë disa nga vetitë e formularit për qëllime estetike dhe, më e rëndësishmja, për t'u siguruar që përdoruesit nuk mund ta anashkalojnë këtë formular pa futur të dhënat e sakta të hyrjes.
- Ndërsa jeni në pamjen e dizajnit, zgjidhni formularin (siç tregohet më poshtë).
- Hapni fletën e vetive (ALT + Enter) dhe përditësoni vetitë e mëposhtme:
- Nën Format tab
- Titulli: Identifikohu
- Zgjedhësit e regjistrimeve: Jo
- Butonat e navigimit: Jo
- Shiritat e lëvizjes: Asnjëra
- Stili i kufirit: Dialog
- Butoni i mbylljes: Jo
- Nën tjetër tab
- Pop Up: Po
- Modal: Po
- Menuja e shkurtoreve: Jo
- Ruaje formularin si frm_login.
3. Shtoni kodin
Shtoni një ngjarje On Click në butonin Login.
- Ndërsa jeni në pamjen e dizajnit, zgjidhni butonin Hyrja.
- Shkoni te Fleta e Pronave > Skeda e Ngjarjeve > On Kliko >…
- zgjedh Ndërtuesi i kodeve nga menyja Choose Builder dhe klikoni OK.
- Kjo do të hapë Redaktuesin VBA.
- Kopjoni kodin më poshtë.
Private Sub cmd_login_Click()
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim strSQL As String
If Trim(Me.txt_username.Value & vbNullString) = vbNullString Then
MsgBox prompt:="Username should not be left blank.", buttons:=vbInformation, title:="Username Required"
Me.txt_username.SetFocus
Exit Sub
End If
If Trim(Me.txt_password.Value & vbNullString) = vbNullString Then
MsgBox prompt:="Password should not be left blank.", buttons:=vbInformation, title:="Password Required"
Me.txt_password.SetFocus
Exit Sub
End If
'query to check if login details are correct
strSQL = "SELECT FirstName FROM tbl_login WHERE Username = """ & Me.txt_username.Value & """ AND Password = """ & Me.txt_password.Value & """"
Set db = CurrentDb
Set rst = db.OpenRecordset(strSQL)
If rst.EOF Then
MsgBox prompt:="Incorrect username/password. Try again.", buttons:=vbCritical, title:="Login Error"
Me.txt_username.SetFocus
Else
MsgBox prompt:="Hello, " & rst.Fields(0).Value & ".", buttons:=vbOKOnly, title:="Login Successful"
DoCmd.Close acForm, "frm_login", acSaveYes
End If
Set db = Nothing
Set rst = Nothing
End Sub
Ky kod do të:
- Kontrolloni nëse fushat e emrit të përdoruesit dhe fjalëkalimit nuk janë lënë bosh. Nëse janë, do të shfaqet një kërkesë.
- Kontrolloni nëse detajet e hyrjes janë të sakta duke i krahasuar me vlerat në tabelën e hyrjes (tbl_login).
- Pasi të verifikohen detajet e hyrjes, do të shfaqet një kërkesë që mirëpret përdoruesin.
Hapi tjetër është të shtoni kodin për butonin Cancel në mënyrë që pasi të klikohet, baza e të dhënave të mbyllet.
- Shtoni një ngjarje On Click në butonin Cancel (e njëjta procedurë me butonin Login).
- Kopjoni kodin më poshtë.
Private Sub cmd_cancel_Click() DoCmd.Quit acQuitSaveAll End Sub
4. Cakto Formularin Login si Formular Display
Së fundi, vendosni Formularin Login si formën e paracaktuar që përdoruesit do të shohin pas hapjes së bazës së të dhënave.
- Shkoni te Skedari > Opsionet > Baza e të dhënave aktuale.
- Cakto Formularin e Ekranit në frm_login.
- Klikoni OK.
Ju do të duhet të mbyllni bazën e të dhënave dhe ta rihapni atë për të parë se si funksionon.
Rikuperoni bazën tuaj të të dhënave të aksesit
urime! Tani e dini se si të mbroni bazën tuaj të të dhënave të çmuar nga aksesi i pavlefshëm. Tani, unë do t'ju jap një këshillë shtesë. Nëse, për një arsye të pafat, databaza juaj është e korruptuar, MOS u frikësoni. DataNumen Inc., një ekspert në teknologjitë e rikuperimit të të dhënave, ofron një softuer që riparon Access i korruptuar bazën e të dhënave. Baza juaj e të dhënave mund të rikuperohet ende.
Hyrje e autorit:
Jayme Stack është një ekspert për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë shërim sql dhe produkte softuerike të rimëkëmbjes excel. Për më shumë informacion vizitoni www.datanumen.com