Kako zaščititi svoje občutljive podatke s prijavnim obrazcem v Accessu

Prijavni obrazec je obvezen za baze podatkov, ki vsebujejo občutljive informacije. Sledite spodnjim korakom, da lahko ustvarite svoj obrazec za prijavo in zaščitite svojo bazo podatkov pred neveljavnim dostopom.

Prenesi zdaj

Če želite funkcijo začeti uporabljati čim prej, lahko:

Zdaj prenesite vzorčno zbirko podatkov s kodami VBA

V nasprotnem primeru, če želite sami, lahko preberete spodnjo vsebino.

Koraki za ustvarjanje prijavnega obrazca v Accessu

1. Ustvarite prijavno tabelo

Prva stvar, ki jo moramo storiti, je ustvariti tabelo, ki bo shranila vse podatke za prijavo.

1. Ustvarite novo tabelo in jo poimenujte kot tbl_login.
2. Odprite tabelo v pogledu oblikovanja.
3. Dodajte naslednja polja z ustreznimi vrstami podatkov:

4. Uredite vnosno masko gesla, tako da bo prikazana kot niz zvezdic (*).

• Izberite polje Geslo.
• Pojdite na zavihek Splošno > Vnosna maska ​​> …
• Ko se pojavi čarovnik za vnosno masko, izberite Geslo.
• Kliknite Dokončaj.

5. Odprite tabelo v pogledu podatkovnega lista in vnesite prvi zapis (vaše podatke za prijavo).
6. Zaprite tabelo in shranite opravljene spremembe.

2. Ustvarite prijavni obrazec

Ustvarite prazen obrazec z 2 besedilnima poljema in 2 ukaznima gumboma (kot je prikazano spodaj). Preskočite čarovnika za ukazne gumbe.

Pozneje se bomo v naši kodi sklicevali na te kontrolnike obrazca, zato bi bilo najbolje, da jih preimenujete, da jih bo mogoče zlahka prepoznati:

• txt_uporabniško ime
• txt_geslo
• cmd_login
• cmd_cancel

Nato spremenite vnosno masko besedilnega polja gesla, tako da bo prikazano tudi kot niz zvezdic (*).

1. V pogledu načrtovanja izberite besedilno polje gesla.
2. Odprite list z lastnostmi (ALT + Enter).
3. Pojdite na zavihek Podatki > Vnosna maska.
4. Izberite Geslo in kliknite Dokončaj.

Zdaj bomo spremenili nekatere lastnosti obrazca zaradi estetskih razlogov in predvsem zato, da uporabniki ne morejo zaobiti tega obrazca brez vnosa pravilnih prijavnih podatkov.

1. V pogledu načrtovanja izberite obrazec (kot je prikazano spodaj).
2. Odprite list z lastnostmi (ALT + Enter) in posodobite naslednje lastnosti:

• Pod oblikovana tab
  • Napis: Prijava
  • Izbirniki zapisov: št
  • Navigacijski gumbi: št
  • Drsni trakovi: Niti eno
  • Slog obrobe: pogovorno okno
  • Gumb za zapiranje: št

• Pod Ostalo tab
  • Pop Up: Da
  • Modalno: Da
  • Bližnjični meni: št

3. Shranite obrazec kot frm_login.

3. Dodajte kodo

Dodajte dogodek ob kliku gumbu Prijava.

1. V pogledu načrtovanja izberite gumb Prijava.
2. Pojdite na list z lastnostmi > zavihek Dogodek > Ob kliku > …
3. Izberite Graditelj kod v meniju Izberi graditelja in kliknite V redu.
4. To bo odprlo urejevalnik VBA.
5. Kopirajte spodnjo kodo.

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

Ta koda bo:

1. Preverite, ali polji za uporabniško ime in geslo nista prazni. Če so, se prikaže poziv.
2. Preverite, ali so podatki za prijavo pravilni, tako da jih primerjate z vrednostmi v tabeli za prijavo (tbl_login).
3. Ko so podatki za prijavo preverjeni, se uporabniku prikaže poziv za dobrodošlico.

Naslednji korak je dodajanje kode za gumb Prekliči, tako da se zbirka podatkov zapre, ko ga kliknete.

1. Dodajte dogodek ob kliku gumbu Prekliči (isti postopek z gumbom Prijava).
2. Kopirajte spodnjo kodo.

Private Sub cmd_cancel_Click()
   DoCmd.Quit acQuitSaveAll
End Sub

4. Nastavite obrazec za prijavo kot obrazec za prikaz

Na koncu nastavite prijavni obrazec kot privzeti obrazec, ki ga bodo uporabniki videli, ko odprejo bazo podatkov.

1. Pojdite na Datoteka > Možnosti > Trenutna zbirka podatkov.
2. Nastavite prikazni obrazec na frm_login.
3. Kliknite OK.

Zapreti boste morali bazo podatkov in jo znova odpreti, da vidite, kako deluje.

Obnovite svojo zbirko podatkov Access

čestitke! Zdaj veste, kako zaščititi svojo dragoceno bazo podatkov pred neveljavnim dostopom. Zdaj pa vam bom dal dodaten namig. Če je bila vaša zbirka podatkov iz nesrečnega razloga poškodovana, NE zganjajte panike. DataNumen Inc., strokovnjak za tehnologije za obnovitev podatkov, ponuja programsko opremo, ki popravlja poškodovan dostop zbirka podatkov. Vašo bazo podatkov je še vedno mogoče obnoviti.

Uvod avtorja:

Jayme Stack je strokovnjak za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z obnovitev sql in excel programske izdelke za obnovitev. Za več informacij obiščite www.datanumen.com