Kā aizsargāt slepenos datus, izmantojot piekļuves veidlapu

Pieteikšanās veidlapa ir obligāta datubāzēm, kas satur sensitīvu informāciju. Veiciet tālāk norādītās darbības, lai jūs varētu izveidot savu pieteikšanās veidlapu, lai aizsargātu savu datu bāzi no nederīgas piekļuves.

Lejupielādēt tagad

Ja vēlaties sākt lietot šo funkciju pēc iespējas ātrāk, varat:

Lejupielādējiet paraugdatu bāzes ar VBA kodiem tūlīt

Pretējā gadījumā, ja vēlaties DIY, varat izlasīt tālāk sniegto saturu.

Darbības, lai izveidotu pieteikšanās veidlapu programmā Access

1. Izveidojiet pieteikšanās tabulu

Pirmais, kas mums jādara, ir izveidot tabulu, kurā tiks glabāta visa pieteikšanās informācija.

1. Izveidojiet jaunu tabulu un nosauciet to kā tbl_login.
2. Atveriet tabulu noformējuma skatā.
3. Pievienojiet šādus laukus ar tiem atbilstošajiem datu tipiem:

4. Rediģējiet paroles ievades masku tā, lai tā tiktu parādīta kā zvaigznīšu sērija (*).

• Atlasiet lauku Parole.
• Atveriet cilni Vispārīgi> Ievades maska>…
• Kad tiek parādīts ievades maskas vednis, atlasiet Parole.
• Noklikšķiniet uz Pabeigt.

5. Datu lapas skatā atveriet tabulu un ievadiet pirmo ierakstu (savu pieteikšanās informāciju).
6. Aizveriet tabulu un saglabājiet veiktās izmaiņas.

2. Izveidojiet pieteikšanās formu

Izveidojiet tukšu veidlapu ar 2 tekstlodziņiem un 2 komandu pogām (kā parādīts zemāk). Izlaidiet komandu pogas vedni.

Mēs vēlāk atsaucīsimies uz šīm veidlapu vadīklām mūsu kodā, tāpēc vislabāk būtu tos pārdēvēt, lai tos varētu viegli noteikt:

• txt_lietotājvārds
• txt_parole
• cmd_login
• cmd_cancel

Pēc tam mainiet paroles tekstlodziņa ievades masku tā, lai tā tiktu parādīta arī kā zvaigznīšu sērija (*).

1. Atrodoties noformējuma skatā, atlasiet paroles tekstlodziņu.
2. Atveriet rekvizītu lapu (ALT + Enter).
3. Atveriet cilni Dati> Ievades maska.
4. Atlasiet Parole un noklikšķiniet uz Pabeigt.

Tagad mēs mainīsim dažas veidlapas īpašības estētisku apsvērumu dēļ un, pats galvenais, lai pārliecinātos, ka lietotāji nevar apiet šo veidlapu, neievadot pareizus pieteikšanās datus.

1. Atrodoties noformējuma skatā, atlasiet formu (kā parādīts zemāk).
2. Atveriet rekvizītu lapu (ALT + Enter) un atjauniniet šīs īpašības:

• Zem formāts tab
  • Paraksts: pieteikšanās
  • Ierakstu atlasītāji: Nē
  • Navigācijas pogas: Nē
  • Ritināšanas joslas: Neviens
  • Robežu stils: dialogs
  • Aizvērt pogu: Nē

• Zem Citi tab
  • Uznirstošais logs: jā
  • Modāls: Jā
  • Īsinājumizvēlne: Nē

3. Saglabājiet veidlapu kā frm_login.

3. Pievienojiet kodu

Pievienojiet pogai Pieteikties notikumu On Click.

1. Atrodoties noformējuma skatā, atlasiet pogu Pieteikties.
2. Pārejiet uz rekvizītu lapu> cilne Notikums> Uz klikšķa> ...
3. Izvēlēties Kodu veidotājs izvēlnē Izvēlieties veidotāju un noklikšķiniet uz Labi.
4. Tādējādi tiks atvērts VBA redaktors.
5. Kopējiet zemāk esošo kodu.

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 kods:

1. Pārbaudiet, vai lietotājvārda un paroles lauki nav atstāti tukši. Ja tie ir, parādīsies uzvedne.
2. Pārbaudiet, vai pieteikšanās informācija ir pareiza, salīdzinot tās ar pieteikšanās tabulas vērtībām (tbl_login).
3. Kad pieteikšanās informācija būs pārbaudīta, parādīsies uzaicinājums, kurā lietotājs tiek uzņemts.

Nākamais solis ir pievienot pogas Atcelt kodu, lai pēc tam, kad uz tā noklikšķinātu, datu bāze tiktu aizvērta.

1. Pievienojiet pogai Atcelt Atcelt notikumu On Click (tā pati procedūra ar pogu Login).
2. Kopējiet zemāk esošo kodu.

Private Sub cmd_cancel_Click()
   DoCmd.Quit acQuitSaveAll
End Sub

4. Iestatiet pieteikšanās formu kā displeja veidlapu

Visbeidzot, iestatiet pieteikšanās formu kā noklusējuma veidlapu, kuru lietotāji redzēs, atverot datu bāzi.

1. Dodieties uz Fails> Opcijas> Pašreizējā datu bāze.
2. Iestatiet Displeja veidlapu uz frm_login.
3. Noklikšķiniet uz Labi.

Jums būs jāaizver datu bāze un jāatver tā no jauna, lai redzētu, kā tā darbojas.

Atgūstiet piekļuves datu bāzi

Apsveicam! Tagad jūs zināt, kā aizsargāt savu dārgo datu bāzi no nederīgas piekļuves. Tagad es jums došu papildu padomu. Ja neveiksmīga iemesla dēļ jūsu datu bāze ir bojāta, NAV panikā. DataNumen Inc., datu atkopšanas tehnoloģiju eksperts, nodrošina programmatūru, kas labo bojāta piekļuve datu bāzē. Jūsu datu bāzi joprojām var atgūt.

Autora ievads:

Džeims Steks ir datu atkopšanas eksperts DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp sql atgūšana un Excel atkopšanas programmatūras produkti. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar