ACC2000: form veya rapor bir parola oluþturmak nasýl korumalý

• Kullanýcý/grup hesaplarý ve izinleri
• Veritabaný parolalarý

Üste

Üste

Kodu için bir parola kullanarak, bir formu Koru

1. Access'i baþlatýn ve sonra da Northwind.mdb örnek veritabanýný açýn.
2. Microsoft Visual Basic Düzenleyicisi'ni baþlatmak için ALT + F11 tuþlarýna basýn.
3. Ekle menüsünden modülü ' nü týklatýn.
4. Modül sayfasýna aþaðýdaki yordamý yazýn:

   Public MyPassword
   Public Function KeyCode(Password As String) As Long
      ' This function will produce a unique key for the
      ' string that is passed in as the Password.
      Dim I As Integer
      Dim Hold As Long
   
      For I = 1 To Len(Password)
         Select Case (Asc(Left(Password, 1)) * I) Mod 4
         Case Is = 0
            Hold = Hold + (Asc(Mid(Password, I, 1)) * I)
         Case Is = 1
            Hold = Hold - (Asc(Mid(Password, I, 1)) * I)
         Case Is = 2
            Hold = Hold + (Asc(Mid(Password, I, 1)) * _
               (I - Asc(Mid(Password, I, 1))))
         Case Is = 3
            Hold = Hold - (Asc(Mid(Password, I, 1)) * _
               (I + Len(Password)))
      End Select
      Next I
      KeyCode = Hold
   End Function
   					

5. Access'e dönmek için ALT + F11 tuþlarýna basýn.
6. (Nesneler) ' in altýnda <a1>Veritabaný</a1> penceresinde Tablolar ' ý týklatýn ve sonra da Yeni'yi týklatýn.
7. Yeni Tablo iletiþim kutusunda, Tasarým görünümü) çift týklatýn.
8. Yeni bir tablo aþaðýdaki gibi oluþturursunuz:

      Table: tblPassword
      ---------------------------
      Field Name: ObjectName
         Data Type: Text
         Field Size: 50
      Field Name: KeyCode
         Data Type: Text
         Field Size: 25
         Input Mask: Password
   
      Table Properties: tblPassword
      -----------------------------
         PrimaryKey: ObjectName
   					

9. TblPassword tabloyu açýn ve sonra da aþaðýdaki verileri girin:

        ObjectName: Orders
          KeyCode: 2818
   					

10. Tasarým görünümünde yeni bir form oluþturmak ve formu frmPassword kaydedin.
11. Tek bir metin kutusu Text0 adlý frmPassword ve CheckPassword adlý bir komut düðmesi ekleyin.
12. (Týrnak iþaretleri) eksi Text0 "PASSWORD" için Giriþ maskesi özelliðini ayarlayýn.
13. CheckPassword düðmenin OnClick olay için aþaðýdaki kodu ekleyin ve sonra formu kaydedin:

    If IsNull(Forms!frmPassword!Text0.Value) Then
                     MsgBox "You cannot enter a blank Password. Try again."
                     Me!Text0.SetFocus
                Else
                     MyPassword = Me!Text0.Value
                     DoCmd.Close acForm, "frmPassword"
                End If 
    					

14. Sipariþler formu Tasarým görünümünde açýn.
15. Özellik sayfasý görünür deðilse, Görünüm menüsünden Özellikler ' i týklatýn.
16. Aþaðýdaki olay yordamýný OnOpen özelliðini formun modülünün yazýn:

    Private Sub Form_Open(Cancel as Integer)
       Dim Hold As Variant
       Dim tmpKey As Long
       Dim I As Integer
       Dim rs As DAO.Recordset
       Dim db As DAO.Database
    
       On Error GoTo Error_Handler
       ' Prompt the user for the Password.
       DoCmd.OpenForm "frmPassword", acNormal, , , , acDialog
                Hold = MyPassword
    ' Open the table that contains the password.
       Set db = CurrentDb
       Set rs = db.OpenRecordset("tblPassword", dbOpenTable)
       rs.Index = "PrimaryKey"
       rs.Seek "=", Me.Name
       If rs.NoMatch Then
          MsgBox "Sorry cannot find password information. Try Again"
          Cancel = -1
       Else
          ' Test to see if the key generated matches the key in
          ' the table; if there is not a match, stop the form
          ' from opening.
          If Not (rs![keycode] = KeyCode(Cstr(Hold))) Then
             MsgBox "Sorry you entered the wrong password." & _
                "Try again.", vbOKOnly, "Incorrect Password"
             Cancel = -1
          End If
       End If
       rs.Close
       db.Close
       Exit Sub
    
    Error_Handler:
       MsgBox Err.Description, vbOKOnly, "Error #" & Err.Number
       Exit Sub
    End Sub
    					

17. Kapatýn ve sonra da sipariþler formu kaydedin.
18. Orders formunu açýn ve bir parola istendiðinde PASSWORD yazýn.
    
    Sipariþler, açýlýr form dikkat edin. PASSWORD tarafýndan oluþturulan KeyCode KeyCode tblPassword tablodaki eþleþen ve büyük/küçük harf girilen parolayý baðlýdýr.
19. Kapatýn ve yeniden Orders formunu açýn ve parola girmeniz istendiðinde, parolayý yazýn.
    
    Aldýðýnýz ileti dikkat edin:
    Üzgünüm, yanlýþ parola girdiniz. Yeniden deneyin.
    Parola yordamý büyük/küçük harfe duyarlý olduðundan, Sipariþler formundaki açýlmaz.
20. Belirli bir dize için karþýlýk gelen KeyCode ne olduðunu belirlemek için <a0></a0>, aþaðýdaki komut penceresi içinde yazýn ve ENTER tuþuna basýn:

    ?KeyCode("TestString")
    						

    5864 önceki örnek verir.
21. Veritabaný penceresinde tblPassword tablosunu gizlemek için <a0></a0>, tblPassword tabloyu sað týklatýn ve sonra da Özellikler ' i týklatýn. Properties penceresinde <a0>Gizli</a0> onay kutusunu seçin ve Tamam ' ý týklatýn.

Üste