Kuidas kaitsta oma tundlikke andmeid Accessis sisselogimisvormiga

Juurdepääsulahendused September 29, 2025

Tundlikku teavet sisaldavate andmebaaside jaoks on sisselogimisvorm kohustuslik. Järgige alltoodud samme, et saaksite luua oma sisselogimisvormi, et kaitsta oma andmebaasi kehtetu juurdepääsu eest.

Download Now

Kui soovite funktsiooni võimalikult kiiresti kasutama hakata, saate teha järgmist.

Laadige kohe alla VBA koodidega näidisandmebaas

Vastasel juhul, kui soovite ise teha, saate lugeda allpool olevat sisu.

Juhised Accessis sisselogimisvormi loomiseks

1. Looge sisselogimistabel

Esimene asi, mida peame tegema, on luua tabel, mis salvestab kogu sisselogimisteabe.

  1. Looge uus tabel ja nimetage see järgmiselt tbl_login.
  2. Avage tabel kujundusvaates.
  3. Lisage järgmised väljad vastavate andmetüüpidega.
Välja nimi Andmetüüp
Kasutaja ID Automaatne number
Eesnimi Lühitekst
Perekonnanimi Lühitekst
Kasutajanimi Lühitekst
Parool Lühitekst

 

  1. Muutke parooli sisestusmaski nii, et see kuvatakse tärnidena (*).Redigeerige parooli sisestusmaski
  • Valige väli Parool.
  • Avage vahekaart Üldine > Sisestusmask > ...
  • Kui ilmub sisestusmaski viisard, valige Parool.
  • Klõpsake nuppu Lõpeta.
  1. Avage tabel andmelehevaates ja sisestage esimene kirje (oma sisselogimisandmed).Sisestage oma sisselogimisandmed
  2. Sulgege tabel ja salvestage tehtud muudatused.

2. Looge sisselogimisvorm

Looge tühi vorm 2 tekstikasti ja 2 käsunupuga (nagu allpool näidatud). Jätke käsunupu viisard vahele.Looge sisselogimisvorm

Viitame nendele vormi juhtelementidele oma koodis hiljem, nii et kõige parem oleks need ümber nimetada, et neid oleks lihtne tuvastada:

  • txt_kasutajanimi
  • txt_password
  • cmd_login
  • cmd_tühista

Järgmisena muutke parooli tekstikasti sisestusmaski nii, et see kuvatakse ka tärnide (*) seeriana.

  1. Valige kujundusvaates parooli tekstikast.
  2. Avage atribuutide leht (ALT + Enter).
  3. Valige vahekaart Andmed > Sisendmask.
  4. Valige Parool ja klõpsake nuppu Lõpeta.

Nüüd muudame vormi mõningaid omadusi esteetilistel eesmärkidel ja mis kõige tähtsam, et tagada, et kasutajad ei saaks seda vormi mööda hiilida ilma õigeid sisselogimisandmeid sisestamata.

  1. Kujundusvaates valige vorm (nagu allpool näidatud).Valige Vorm
  2. Avage atribuutide leht (ALT + Enter) ja värskendage järgmisi atribuute:
  • Vastavalt vorming tab
    • Pealkiri: Logi sisse
    • Kirjete valijad: ei
    • Navigeerimisnupud: Ei
    • Kerimisribad: mitte kumbagi
    • Ääriste stiil: dialoog
    • Sulgemisnupp: Ei
  • Vastavalt Muu tab
    • Pop Up: Jah
    • Modal: Jah
    • Kiirmenüü: Ei
  1. Salvestage vorm nimega frm_login.

3. Lisage kood

Lisage nupule Logi sisse sündmus On Click.

  1. Kujundusvaates valige nupp Logi sisse.
  2. Avage atribuutide leht > vahekaart Sündmus > klõpsamisel > …
  3. valima Koodiehitaja menüüst Vali koostaja ja klõpsake nuppu OK.
  4. See avab VBA redaktori.
  5. Kopeerige allolev kood.
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

See kood:

  1. Kontrollige, kas kasutajanime ja parooli väljad pole tühjaks jäetud. Kui need on, kuvatakse viip.
  2. Kontrollige, kas sisselogimisandmed on õiged, võrreldes neid sisselogimistabelis olevate väärtustega (tbl_login).
  3. Kui sisselogimisandmed on kinnitatud, kuvatakse kasutajat tervitav viip.

Järgmise sammuna tuleb lisada nupule Loobu kood, nii et kui sellel klõpsate, suletakse andmebaas.

  1. Lisa nupule Tühista sündmus On Click (sama toiming sisselogimisnupuga).
  2. Kopeerige allolev kood.
Private Sub cmd_cancel_Click()
   DoCmd.Quit acQuitSaveAll
End Sub

4. Määrake sisselogimisvorm kuvamisvormiks

Lõpuks määrake sisselogimisvorm vaikevormiks, mida kasutajad andmebaasi avamisel näevad.

  1. Avage Fail > Valikud > Praegune andmebaas.
  2. Määra Display Form väärtuseks frm_login.
  3. Vajuta OK.

Peate andmebaasi sulgema ja uuesti avama, et näha, kuidas see töötab.

Taastage oma juurdepääsuandmebaas

Palju õnne! Nüüd teate, kuidas kaitsta oma väärtuslikku andmebaasi kehtetu juurdepääsu eest. Nüüd annan teile täiendava näpunäite. Kui teie andmebaas on kahetsusväärsel põhjusel rikutud, ÄRGE paanitsege. DataNumen Inc., andmete taastamise tehnoloogiate ekspert, pakub tarkvara, mis parandab rikutud juurdepääs andmebaasi. Teie andmebaasi saab siiski taastada.

Autori sissejuhatus:

Jayme Stack on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas sql taastamine ja Exceli taastamise tarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom

Kommentaarid on suletud.