Şifre Düzeyli Form Oluşturma
Örnek olarak bir tabloyu kullanan formumuzda, form açılırken kullanıcıya şifresini soralım.
Eğer kullanıcının şifresi
“007” ise bütün haklara sahip olsun
“Düzenleyici” ise kayıt ekleme izni olmasın
“İzleyici” ise kayıt ekleme, silme ve değiştirme izni olmasın
“Misafir” ise kayıt ekleme, silme, değiştirme ve listeleme izni olmasın.
Bunun için formun Load (Açıldığında) olayına şu kodu yazalım:
İyi çalışmalar
Örnek olarak bir tabloyu kullanan formumuzda, form açılırken kullanıcıya şifresini soralım.
Eğer kullanıcının şifresi
“007” ise bütün haklara sahip olsun
“Düzenleyici” ise kayıt ekleme izni olmasın
“İzleyici” ise kayıt ekleme, silme ve değiştirme izni olmasın
“Misafir” ise kayıt ekleme, silme, değiştirme ve listeleme izni olmasın.
Bunun için formun Load (Açıldığında) olayına şu kodu yazalım:
Kod:
Private Sub Form_Load()
Dim şifre
Şifre = InputBox(“Şifreniz”)
Select Case şifre
Case “Düzenleyici”
AllowAdditions = False
Case “İzleyici”
AllowAdditions = False
AllowEdits = False
AllowDeletions = False
Case “Misafir”
AllowAdditions = False
AllowEdits = False
AllowDeletions = False
AllowFilters = False
Case “007”
‘Herhangi bir koda gerek yok. Zaten default olarak bütün özellikler Evet (True) dir.
Case Else ‘Şifre bunlardan hiçbiri değilse
MsgBox “Yetkisiz kullanıcılar bu programı kullanamaz”
Cancele = True ‘Formun açılışını iptal et.
End Select
End Sub