Ինչպես պաշտպանել ձեր զգայուն տվյալները Access-ում մուտքի ձևով

Մուտքի ձևը պարտադիր է տվյալների բազաների համար, որոնք պարունակում են զգայուն տեղեկատվություն: Հետևեք ստորև նշված քայլերին, որպեսզի կարողանաք ստեղծել ձեր սեփական մուտքի ձևը՝ ձեր տվյալների բազան անվավեր մուտքից պաշտպանելու համար:

Download Now

Եթե ​​ցանկանում եք հնարավորինս շուտ սկսել օգտագործել գործառույթը, ապա կարող եք՝

Ներբեռնեք Նմուշի շտեմարանը VBA կոդերով հիմա

Հակառակ դեպքում, եթե ցանկանում եք ինքնուրույն վարվել, կարող եք կարդալ ստորև բերված բովանդակությունը:

Access-ում մուտքի ձև ստեղծելու քայլեր

1. Ստեղծեք մուտքի աղյուսակ

Առաջին բանը, որ մենք պետք է անենք, աղյուսակ ստեղծելն է, որը կպահի մուտքի բոլոր տեղեկությունները:

1. Ստեղծեք նոր աղյուսակ և անվանեք այն այսպես tbl_login.
2. Բացեք աղյուսակը դիզայնի տեսքով:
3. Ավելացրեք հետևյալ դաշտերը՝ իրենց համապատասխան տվյալների տեսակներով.

4. Խմբագրեք գաղտնաբառի մուտքագրման դիմակն այնպես, որ այն ցուցադրվի որպես աստղանիշների շարք (*):

• Ընտրեք Գաղտնաբառ դաշտը:
• Գնացեք «Ընդհանուր» ներդիր > Ներածման դիմակ >…
• Երբ Input Mask Wizard-ը հայտնվում է, ընտրեք Գաղտնաբառ:
• Սեղմեք Finish- ը:

5. Բացեք աղյուսակը Տվյալների աղյուսակի տեսքով և մուտքագրեք առաջին գրառումը (ձեր մուտքի տվյալները):
6. Փակեք աղյուսակը և պահպանեք կատարված փոփոխությունները:

2. Ստեղծեք Մուտքի ձևը

Ստեղծեք դատարկ ձև 2 տեքստային տուփերով և 2 հրամանի կոճակներով (ինչպես ցույց է տրված ստորև): Բաց թողնել հրամանի կոճակի հրաշագործը:

Մենք պատրաստվում ենք ավելի ուշ անդրադառնալ մեր կոդի այս ձևերի վերահսկմանը, այնպես որ լավագույնը կլինի վերանվանել դրանք, որպեսզի դրանք հեշտությամբ նույնականացվեն.

• txt_username
• txt_password
• cmd_login
• cmd_չեղարկել

Այնուհետև փոխեք գաղտնաբառի տեքստային տուփի մուտքագրման դիմակը, որպեսզի այն նույնպես ցուցադրվի որպես աստղանիշների շարք (*):

1. Դիզայնի դիտման ժամանակ ընտրեք գաղտնաբառի տեքստային տուփը:
2. Բացեք Հատկությունների թերթիկը (ALT + Enter):
3. Գնացեք Տվյալների ներդիր > Մուտքագրման դիմակ:
4. Ընտրեք Գաղտնաբառ և սեղմեք Ավարտել:

Հիմա մենք փոխելու ենք ձևի որոշ հատկություններ՝ գեղագիտական ​​նպատակներով և, ամենակարևորը, որպեսզի օգտատերերը չկարողանան շրջանցել այս ձևը՝ առանց ճիշտ մուտքագրման տվյալները մուտքագրելու։

1. Դիզայնի տեսքով ընտրեք ձևը (ինչպես ցույց է տրված ստորև):
2. Բացեք Հատկությունների թերթիկը (ALT + Enter) և թարմացրեք հետևյալ հատկությունները.

• Տակ է Ֆորմատ ականջակալ
  • Վերնագիր: Մուտք գործեք
  • Գրառումների ընտրիչներ՝ ոչ
  • Նավիգացիոն կոճակներ՝ ոչ
  • Ոլորման գծեր. ոչ մեկը
  • Սահմանի ոճ. երկխոսություն
  • Փակման կոճակ՝ ոչ

• Տակ է այլ ականջակալ
  • Pop Up: Այո
  • Մոդալ: Այո
  • Դյուրանցման ընտրացանկ՝ ոչ

3. Պահպանեք ձևը որպես frm_login.

3. Ավելացրեք կոդը

Մուտք կոճակին ավելացրեք On Click իրադարձությունը:

1. Դիզայնի դիտման ժամանակ ընտրեք Մուտք կոճակը:
2. Գնացեք Հատկությունների թերթիկ > Իրադարձությունների ներդիր > Մի սեղմեք >…
3. ընտրել Կոդ կառուցող Ընտրել Builder ցանկից և սեղմել OK:
4. Սա կբացի VBA խմբագիրը:
5. Պատճենեք ստորև նշված կոդը:

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

Այս կոդը կանի.

1. Ստուգեք, արդյոք օգտագործողի անունն ու գաղտնաբառը դաշտերը դատարկ չեն մնացել: Եթե ​​դրանք լինեն, հուշում կհայտնվի:
2. Ստուգեք՝ արդյոք մուտքի տվյալները ճիշտ են՝ համեմատելով դրանք մուտքի աղյուսակի արժեքների հետ (tbl_login):
3. Մուտքի մանրամասները ստուգելուց հետո օգտատիրոջը ողջունող հուշում կհայտնվի:

Հաջորդ քայլը Չեղարկել կոճակի կոդը ավելացնելն է, որպեսզի սեղմելուց հետո տվյալների բազան փակվի:

1. Չեղարկել կոճակին ավելացրեք On Click իրադարձությունը (նույն կարգը Մուտք կոճակի դեպքում):
2. Պատճենեք ստորև նշված կոդը:

Private Sub cmd_cancel_Click()
   DoCmd.Quit acQuitSaveAll
End Sub

4. Մուտքի ձևը սահմանեք որպես Ցուցադրման ձև

Վերջապես, սահմանեք Մուտքի ձևը որպես լռելյայն ձև, որը օգտվողները կտեսնեն տվյալների բազան բացելուց հետո:

1. Գնալ դեպի Ֆայլ > Ընտրանքներ > Ընթացիկ տվյալների բազա:
2. Ցուցադրման ձևը դրեք frm_login:
3. Սեղմեք OK.

Դուք պետք է փակեք տվյալների բազան և նորից բացեք այն, որպեսզի տեսնեք, թե ինչպես է այն աշխատում:

Վերականգնել ձեր մուտքի տվյալների բազան

Շնորհավորում եմ: Այժմ դուք գիտեք, թե ինչպես պաշտպանել ձեր թանկարժեք տվյալների բազան անվավեր մուտքից: Հիմա ես ձեզ լրացուցիչ հուշում կտամ: Եթե ​​դժբախտ պատճառով ձեր տվյալների բազան խաթարվել է, խուճապի չմատնվեք: DataNumen Inc.-ը, որը տվյալների վերականգնման տեխնոլոգիաների փորձագետ է, տրամադրում է ծրագրային ապահովում, որը վերանորոգում է կոռումպացված մատչում տվյալների բազա։ Ձեր տվյալների բազան դեռ կարող է վերականգնվել:

Հեղինակի ներածություն.

Jayme Stack- ը տվյալների վերականգման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում sql վերականգնում և գերազանցել վերականգնման ծրագրային արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com