Prihlasovací formulár je nutnosťou pre databázy, ktoré obsahujú citlivé informácie. Postupujte podľa krokov nižšie, aby ste si mohli vytvoriť svoj vlastný prihlasovací formulár na ochranu databázy pred neplatným prístupom.
stiahnuť
Ak chcete začať používať túto funkciu čo najskôr, môžete:
Stiahnite si ukážkovú databázu s kódmi VBA
V opačnom prípade si môžete prečítať obsah uvedený nižšie.
Kroky na vytvorenie prihlasovacieho formulára v Accesse
1. Vytvorte prihlasovaciu tabuľku
Prvá vec, ktorú musíme urobiť, je vytvoriť tabuľku, ktorá bude uchovávať všetky prihlasovacie informácie.
- Vytvorte novú tabuľku a pomenujte ju tbl_login.
- Otvorte tabuľku v návrhovom zobrazení.
- Pridajte nasledujúce polia s príslušnými typmi údajov:
| Názov poľa | Dátový typ |
| userid | Automatické číslo |
| Krstné meno | Krátky text |
| Priezvisko | Krátky text |
| Username | Krátky text |
| Heslo | Krátky text |
- Upravte vstupnú masku hesla tak, aby sa zobrazila ako séria hviezdičiek (*).
- Vyberte pole Heslo.
- Prejdite na kartu Všeobecné > Vstupná maska > …
- Keď sa zobrazí Sprievodca vstupnou maskou, vyberte položku Heslo.
- Kliknite na tlačidlo Dokončiť.
- Otvorte tabuľku v zobrazení údajového listu a zadajte prvý záznam (vaše prihlasovacie údaje).
- Zatvorte tabuľku a uložte vykonané zmeny.
2. Vytvorte prihlasovací formulár
Vytvorte prázdny formulár s 2 textovými poľami a 2 príkazovými tlačidlami (ako je uvedené nižšie). Preskočte sprievodcu príkazovým tlačidlom.
Na tieto ovládacie prvky formulára sa v našom kóde odkážeme neskôr, takže by bolo najlepšie ich premenovať, aby sa dali ľahko identifikovať:
- txt_username
- txt_password
- cmd_login
- cmd_cancel
Ďalej zmeňte vstupnú masku textového poľa hesla tak, aby sa tiež zobrazila ako séria hviezdičiek (*).
- V zobrazení návrhu vyberte textové pole pre heslo.
- Otvorte hárok vlastností (ALT + Enter).
- Prejdite na kartu Údaje > Vstupná maska.
- Vyberte položku Heslo a kliknite na tlačidlo Dokončiť.
Teraz zmeníme niektoré vlastnosti formulára z estetických dôvodov a čo je najdôležitejšie, aby sme zabezpečili, že používatelia nebudú môcť tento formulár obísť bez zadania správnych prihlasovacích údajov.
- V návrhovom zobrazení vyberte formulár (ako je uvedené nižšie).
- Otvorte hárok vlastností (ALT + Enter) a aktualizujte nasledujúce vlastnosti:
- Pod tvoril pútko
- Titulok: Prihláste sa
- Výber záznamov: Nie
- Navigačné tlačidlá: Nie
- Rolovacie lišty: Ani jedno
- Štýl okraja: Dialóg
- Tlačidlo Zavrieť: Nie
- Pod ostatné pútko
- Vyskakovacie okno: Áno
- Modal: Áno
- Ponuka skratiek: Nie
- Uložte formulár ako frm_login.
3. Pridajte kód
Pridajte udalosť On Click do tlačidla Prihlásiť.
- V zobrazení návrhu vyberte tlačidlo Prihlásiť sa.
- Prejdite na hárok vlastností > karta Udalosť > Pri kliknutí > …
- vybrať Tvorca kódu z ponuky Choose Builder a kliknite na tlačidlo OK.
- Otvorí sa editor VBA.
- Skopírujte nižšie uvedený kód.
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
Tento kód bude:
- Skontrolujte, či polia používateľského mena a hesla nezostali prázdne. Ak sú, zobrazí sa výzva.
- Skontrolujte správnosť prihlasovacích údajov porovnaním s hodnotami v prihlasovacej tabuľke (tbl_login).
- Po overení prihlasovacích údajov sa zobrazí výzva na uvítanie používateľa.
Ďalším krokom je pridanie kódu pre tlačidlo Zrušiť, takže po kliknutí sa databáza zatvorí.
- Pridajte udalosť On Click do tlačidla Zrušiť (rovnaký postup ako pri tlačidle Prihlásiť).
- Skopírujte nižšie uvedený kód.
Private Sub cmd_cancel_Click() DoCmd.Quit acQuitSaveAll End Sub
4. Nastavte prihlasovací formulár ako zobrazovaný formulár
Nakoniec nastavte Prihlasovací formulár ako predvolený formulár, ktorý používatelia uvidia po otvorení databázy.
- Prejdite na Súbor > Možnosti > Aktuálna databáza.
- Nastavte Display Form na frm_login.
- Kliknite na tlačidlo OK.
Budete musieť zatvoriť databázu a znova ju otvoriť, aby ste videli, ako to funguje.
Obnovte svoju prístupovú databázu
Gratulujem! Teraz viete, ako chrániť svoju vzácnu databázu pred neplatným prístupom. Teraz vám dám extra tip. Ak bola vaša databáza z nešťastného dôvodu poškodená, NEPANIKÁRTE. DataNumen Inc., odborník na technológie obnovy dát, poskytuje softvér, ktorý opravuje poškodený prístup databázy. Vaša databáza môže byť stále obnovená.
Úvod autora:
Jayme Stack je expert na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane zotavenie sql a vynikajúce softvérové produkty na obnovenie. Pre viac informácií navštívte www.datanumen. S