Kaip apsaugoti savo neskelbtinus duomenis naudojant prisijungimo formą „Access“.

Prisijungimo forma yra būtina duomenų bazėms, kuriose yra neskelbtinos informacijos. Atlikite toliau nurodytus veiksmus, kad galėtumėte sukurti savo prisijungimo formą, kad apsaugotumėte duomenų bazę nuo netinkamos prieigos.

Atsisiųsti dabar

Jei norite kuo greičiau pradėti naudoti šią funkciją, galite:

Atsisiųskite pavyzdinę duomenų bazę su VBA kodais dabar

Kitu atveju, jei norite pasidaryk pats, galite perskaityti toliau pateiktą turinį.

Veiksmai, kaip sukurti prisijungimo formą „Access“.

1. Sukurkite prisijungimo lentelę

Pirmas dalykas, kurį turime padaryti, yra sukurti lentelę, kurioje bus saugoma visa prisijungimo informacija.

1. Sukurkite naują lentelę ir pavadinkite ją kaip tbl_login.
2. Atidarykite lentelę dizaino rodinyje.
3. Pridėkite šiuos laukus su atitinkamais duomenų tipais:

4. Redaguokite slaptažodžio įvesties kaukę, kad ji būtų rodoma žvaigždutėmis (*).

• Pasirinkite lauką Slaptažodis.
• Eikite į skirtuką Bendra > Įvesties kaukė >…
• Kai pasirodys įvesties kaukės vedlys, pasirinkite Slaptažodis.
• Spustelėkite Baigti.

5. Atidarykite lentelę duomenų lapo rodinyje ir įveskite pirmąjį įrašą (savo prisijungimo duomenis).
6. Uždarykite lentelę ir išsaugokite atliktus pakeitimus.

2. Sukurkite prisijungimo formą

Sukurkite tuščią formą su 2 teksto laukeliais ir 2 komandų mygtukais (kaip parodyta toliau). Praleiskite komandų mygtuko vedlį.

Vėliau savo kode nurodysime šiuos formos valdiklius, todėl geriausia būtų juos pervardyti, kad būtų galima lengvai atpažinti:

• txt_vartotojo vardas
• txt_password
• cmd_login
• cmd_cancel

Tada pakeiskite slaptažodžio teksto laukelio įvesties kaukę, kad ji taip pat būtų rodoma kaip žvaigždžių (*) serija.

1. Dizaino rodinyje pasirinkite slaptažodžio teksto laukelį.
2. Atidarykite ypatybių lapą (ALT + Enter).
3. Eikite į skirtuką Duomenys > Įvesties kaukė.
4. Pasirinkite Slaptažodis ir spustelėkite Baigti.

Dabar pakeisime kai kurias formos savybes estetiniais tikslais ir, svarbiausia, siekdami užtikrinti, kad vartotojai negalėtų apeiti šios formos neįvedę teisingų prisijungimo duomenų.

1. Dizaino rodinyje pasirinkite formą (kaip parodyta toliau).
2. Atidarykite ypatybių lapą (ALT + Enter) ir atnaujinkite šias ypatybes:

• pagal Formatas kortelė
  • Antraštė: Prisijunkite
  • Įrašų parinkėjai: Nr
  • Naršymo mygtukai: Ne
  • Slinkties juostos: nei viena
  • Kraštinės stilius: dialogas
  • Uždaryti mygtukas: Ne

• pagal Kiti kortelė
  • Pop Up: Taip
  • Modalas: Taip
  • Spartusis meniu: Ne

3. Išsaugokite formą kaip frm_login.

3. Pridėkite kodą

Pridėkite įvykį „On Click“ prie mygtuko „Prisijungti“.

1. Dizaino rodinyje pasirinkite mygtuką Prisijungti.
2. Eikite į Ypatybės lapą > Įvykio skirtuką > Spustelėjus >…
3. pasirinkti „Code Builder“ meniu Pasirinkti kūrėją ir spustelėkite Gerai.
4. Tai atidarys VBA redaktorių.
5. Nukopijuokite žemiau esantį kodą.

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

Šis kodas:

1. Patikrinkite, ar vartotojo vardo ir slaptažodžio laukai nepalikti tušti. Jei jie yra, pasirodys raginimas.
2. Patikrinkite, ar prisijungimo duomenys yra teisingi, palygindami juos su reikšmėmis prisijungimo lentelėje (tbl_login).
3. Kai prisijungimo duomenys bus patvirtinti, pasirodys raginimas pasveikinti vartotoją.

Kitas veiksmas – pridėti mygtuko Atšaukti kodą, kad jį spustelėjus duomenų bazė būtų uždaryta.

1. Pridėkite įvykį „On Click“ prie mygtuko „Atšaukti“ (ta pati procedūra su mygtuku „Prisijungti“).
2. Nukopijuokite žemiau esantį kodą.

Private Sub cmd_cancel_Click()
   DoCmd.Quit acQuitSaveAll
End Sub

4. Nustatykite prisijungimo formą kaip rodymo formą

Galiausiai nustatykite prisijungimo formą kaip numatytąją formą, kurią vartotojai matys atidarę duomenų bazę.

1. Eikite į Failas > Parinktys > Dabartinė duomenų bazė.
2. Nustatykite Rodyti formą į frm_login.
3. Spustelėkite OK (gerai).

Turėsite uždaryti duomenų bazę ir vėl ją atidaryti, kad pamatytumėte, kaip ji veikia.

Atkurkite savo prieigos duomenų bazę

Sveikiname! Dabar žinote, kaip apsaugoti savo brangią duomenų bazę nuo netinkamos prieigos. Dabar aš duosiu jums papildomą patarimą. Jei dėl apgailėtinos priežasties jūsų duomenų bazė buvo sugadinta, NEPANIKINKITE. DataNumen Inc., duomenų atkūrimo technologijų ekspertas, teikia programinę įrangą, kuri taiso sugadinta prieiga duomenų bazėje. Jūsų duomenų bazė vis tiek gali būti atkurta.

Autoriaus įvadas:

Jayme'as Stackas yra duomenų atkūrimo ekspertas DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant sql atkūrimas ir Excel atkūrimo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com