როგორ დავიცვათ თქვენი მგრძნობიარე მონაცემები Access-ში შესვლის ფორმის საშუალებით

შესვლის ფორმა აუცილებელია მონაცემთა ბაზებისთვის, რომლებიც შეიცავს მგრძნობიარე ინფორმაციას. მიჰყევით ქვემოთ მოცემულ ნაბიჯებს, რათა შექმნათ თქვენი საკუთარი შესვლის ფორმა, რათა დაიცვათ თქვენი მონაცემთა ბაზა არასწორი წვდომისგან.

ჩამოტვირთეთ არის

თუ გსურთ, რომ ფუნქცია რაც შეიძლება მალე გამოიყენოთ, შეგიძლიათ:

ჩამოტვირთეთ ნიმუშის მონაცემთა ბაზა VBA კოდებით ახლა

წინააღმდეგ შემთხვევაში, თუ გსურთ წვრილმანი, შეგიძლიათ წაიკითხოთ შინაარსი ქვემოთ.

Access-ში შესვლის ფორმის შესაქმნელად ნაბიჯები

1. შექმენით შესვლის ცხრილი

პირველი, რაც უნდა გავაკეთოთ არის ცხრილის შექმნა, რომელიც შეინახავს ყველა შესვლის ინფორმაციას.

1. შექმენით ახალი ცხრილი და დაასახელეთ როგორც tbl_login.
2. გახსენით ცხრილი დიზაინის ხედში.
3. დაამატეთ შემდეგი ველები მათი შესაბამისი მონაცემთა ტიპებით:

4. შეცვალეთ პაროლის შეყვანის ნიღაბი ისე, რომ გამოჩნდეს ვარსკვლავის სერია (*).

• აირჩიეთ პაროლის ველი.
• გადადით ზოგადი ჩანართზე > შეყვანის ნიღაბი >…
• როდესაც Input Mask Wizard გამოჩნდება, აირჩიეთ პაროლი.
• დააჭირეთ დასრულებას.

5. გახსენით ცხრილი მონაცემთა ფურცლის ხედში და შეიყვანეთ პირველი ჩანაწერი (თქვენი შესვლის დეტალები).
6. დახურეთ ცხრილი და შეინახეთ შეტანილი ცვლილებები.

2. შექმენით შესვლის ფორმა

შექმენით ცარიელი ფორმა 2 ტექსტური ყუთით და 2 ბრძანების ღილაკით (როგორც ნაჩვენებია ქვემოთ). გამოტოვეთ ბრძანების ღილაკის ოსტატი.

ჩვენ ვაპირებთ მივმართოთ ამ ფორმის კონტროლებს ჩვენს კოდში მოგვიანებით, ასე რომ, უმჯობესი იქნება მათი სახელის გადარქმევა ისე, რომ მათი ადვილად იდენტიფიცირება მოხდეს:

• txt_username
• txt_პაროლი
• cmd_login
• cmd_cancel

შემდეგი, შეცვალეთ პაროლის ტექსტური ყუთის შეყვანის ნიღაბი ისე, რომ ის ასევე გამოჩნდეს ვარსკვლავის სერიის სახით (*).

1. დიზაინის ხედვისას აირჩიეთ პაროლის ტექსტური ყუთი.
2. გახსენით თვისებების ფურცელი (ALT + Enter).
3. გადადით მონაცემთა ჩანართზე > შეყვანის ნიღაბი.
4. აირჩიეთ პაროლი და დააჭირეთ Finish.

ახლა, ჩვენ ვაპირებთ ფორმის ზოგიერთ თვისებას შევცვალოთ ესთეტიკური მიზნებისთვის და რაც მთავარია, იმის უზრუნველსაყოფად, რომ მომხმარებლებმა ვერ შეძლონ ამ ფორმის გვერდის ავლა სწორი შესვლის მონაცემების შეყვანის გარეშე.

1. დიზაინის ხედვისას აირჩიეთ ფორმა (როგორც ნაჩვენებია ქვემოთ).
2. გახსენით თვისებების ფურცელი (ALT + Enter) და განაახლეთ შემდეგი თვისებები:

• ქვეშ ფორმატი tab
  • წარწერა: შესვლა
  • ჩანაწერების ამომრჩევები: არა
  • ნავიგაციის ღილაკები: არა
  • გადახვევის ზოლები: არც ერთი
  • საზღვრის სტილი: დიალოგი
  • დახურვის ღილაკი: არა

• ქვეშ სხვა tab
  • Pop Up: დიახ
  • მოდალი: დიახ
  • მალსახმობების მენიუ: არა

3. შეინახეთ ფორმა როგორც frm_login.

3. დაამატეთ კოდი

დაამატეთ On Click მოვლენა შესვლის ღილაკზე.

1. დიზაინის ხედვისას აირჩიეთ შესვლა ღილაკი.
2. გადადით საკუთრების ფურცელზე > მოვლენის ჩანართზე > დაწკაპუნებით >…
3. აირჩიეთ კოდექსის შემქმნელი აირჩიეთ აღმაშენებლის მენიუდან და დააწკაპუნეთ 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., მონაცემთა აღდგენის ტექნოლოგიების ექსპერტი, გთავაზობთ პროგრამულ უზრუნველყოფას, რომელიც გარემონტდება დაზიანებული წვდომა მონაცემთა ბაზა. თქვენი მონაცემთა ბაზის აღდგენა ჯერ კიდევ შესაძლებელია.

ავტორი შესავალი:

ჯეიმ სტეკი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის sql აღდგენა და Excel-ის აღდგენის პროგრამული პროდუქტები. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად