Ang isang form sa pag-login ay kinakailangan para sa mga database na naglalaman ng sensitibong impormasyon. Sundin ang mga hakbang sa ibaba upang makagawa ka ng sarili mong form sa pag-login upang protektahan ang iyong database mula sa di-wastong pag-access.
Download na Ngayon
Kung gusto mong simulan ang paggamit ng feature sa lalong madaling panahon, maaari mong:
I-download ang Sample Database na may VBA Codes Ngayon
Kung hindi man, kung nais mong DIY, maaari mong basahin ang mga nilalaman sa ibaba.
Mga Hakbang para Gumawa ng Form sa Pag-login sa Access
1. Gumawa ng talahanayan sa pag-log in
Ang unang bagay na kailangan nating gawin ay lumikha ng isang talahanayan na mag-iimbak ng lahat ng impormasyon sa pag-login.
- Lumikha ng bagong talahanayan at pangalanan ito bilang tbl_login.
- Buksan ang talahanayan sa view ng disenyo.
- Idagdag ang mga sumusunod na patlang kasama ng kanilang mga kaukulang uri ng data:
| Pangalan ng Patlang | Uri ng datos |
| User ID | AutoNumber |
| Pangalan | ShortText |
| Huling pangalan | ShortText |
| UserName | ShortText |
| password | ShortText |
- I-edit ang input mask ng password upang ito ay maipakita bilang isang serye ng mga asterisk (*).
- Piliin ang field ng Password.
- Pumunta sa General tab > Input Mask >…
- Kapag nag-pop up ang Input Mask Wizard, piliin ang Password.
- Mag-click sa Tapos na.
- Buksan ang talahanayan sa Data Sheet view at ilagay ang unang tala (ang iyong mga detalye sa pag-log in).
- Isara ang talahanayan at i-save ang mga pagbabagong ginawa.
2. Lumikha ng form sa Pag-login
Gumawa ng blangkong form na may 2 textbox at 2 command button (tulad ng ipinapakita sa ibaba). Laktawan ang command button wizard.
Magre-refer kami sa mga form control na ito sa aming code sa ibang pagkakataon kaya pinakamahusay na palitan ang pangalan ng mga ito upang madali silang makilala:
- txt_username
- txt_password
- cmd_login
- cmd_cancel
Susunod, palitan ang input mask ng textbox ng password upang maipakita rin ito bilang isang serye ng mga asterisk (*).
- Habang nasa view ng disenyo, piliin ang textbox ng password.
- Buksan ang Property Sheet (ALT + Enter).
- Pumunta sa tab na Data > Input Mask.
- Piliin ang Password at i-click ang Tapos na.
Ngayon, babaguhin natin ang ilan sa mga katangian ng form para sa mga layuning pang-esthetic at higit sa lahat, para matiyak na hindi malalampasan ng mga user ang form na ito nang hindi inilalagay ang tamang mga detalye sa pag-login.
- Habang nasa view ng disenyo, piliin ang form (tulad ng ipinapakita sa ibaba).
- Buksan ang Property Sheet (ALT + Enter) at i-update ang mga sumusunod na property:
- Sa ilalim ng format tab
- Caption: Mag-login
- Mga Tagapili ng Record: Hindi
- Mga Pindutan sa Pag-navigate: Hindi
- Mga Scroll Bar: Wala rin
- Estilo ng Border: Dialog
- Pindutan ng Isara: Hindi
- Sa ilalim ng iba tab
- Pop Up: Oo
- Modal: Oo
- Shortcut Menu: Hindi
- I-save ang form bilang frm_login.
3. Idagdag ang code
Magdagdag ng On Click na kaganapan sa pindutan ng Pag-login.
- Habang nasa view ng disenyo, piliin ang pindutan ng Pag-login.
- Pumunta sa Property Sheet > Event Tab > On Click > …
- piliin Tagabuo ng Code mula sa menu na Pumili ng Tagabuo at i-click ang OK.
- Bubuksan nito ang VBA Editor.
- Kopyahin ang code sa ibaba.
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
Ang code na ito ay:
- Suriin kung ang mga patlang ng username at password ay hindi naiwang blangko. Kung oo, may lalabas na prompt.
- Suriin kung tama ang mga detalye sa pag-log in sa pamamagitan ng paghahambing ng mga ito sa mga halaga sa talahanayan ng pag-login (tbl_login).
- Kapag na-verify na ang mga detalye sa pag-log in, may lalabas na prompt na tinatanggap ang user.
Ang susunod na hakbang ay idagdag ang code para sa button na Kanselahin upang kapag na-click ito, magsasara ang database.
- Magdagdag ng kaganapang On Click sa button na Kanselahin (parehong pamamaraan sa pindutan ng Pag-login).
- Kopyahin ang code sa ibaba.
Private Sub cmd_cancel_Click() DoCmd.Quit acQuitSaveAll End Sub
4. Itakda ang Login Form bilang Display Form
Panghuli, itakda ang Form sa Pag-login bilang default na form na makikita ng mga user sa pagbubukas ng database.
- Pumunta sa File > Options > Current Database.
- Itakda ang Display Form sa frm_login.
- -Click ang OK.
Kakailanganin mong isara ang database at muling buksan ito upang makita kung paano ito gumagana.
I-recover ang Iyong Access Database
Binabati kita! Alam mo na ngayon kung paano protektahan ang iyong mahalagang database mula sa di-wastong pag-access. Ngayon, bibigyan kita ng karagdagang tip. Kung, sa hindi magandang dahilan, ang iyong database ay nasira, HUWAG mataranta. DataNumen Inc., isang dalubhasa sa mga teknolohiya sa pagbawi ng data, ay nagbibigay ng software na nag-aayos sirang Access database. Maaari pa ring mabawi ang iyong database.
Panimula ng May-akda:
Si Jayme Stack ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang sql paggaling at excel mga produkto ng pagbawi ng software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa