باید اول سطح کاربراتو توی بانکت تعیین کنی
مثلا:
- مدیر : اجازه ثبت نام، ویرایش، اخراج دانش آموزان را دارد.
- معاون: اجازه ثبت نام، ویرایش دانش آموزان را دارد.
- دفتردار : اجازه ویرایش دانش آموزان را دارد.
حالا اگه یوزر نیم و پسورد رو درست وارد کرد باید با متغییر های Boolean بگیم که مثلا میتونه اخراج کنه دانش آموز رو یا نه.
یک نمونه کد:
کد:Option Explicit
Public AddNew As Boolean
Public Delete As Boolean
Public Edit As Boolean
Public GroupTypeName As String
Public Sub GroupType()
'Access Type
If GroupTypeName = "Admin" Then
AddNew = True
Delete = True
Edit = True
End If
If GroupTypeName = "Assistant" Then
AddNew = True
Edit = True
Delete = False
End If
If GroupTypeName = "BookKeeper" Then
AddNew = False
Edit = True
Delete = False
End If
End Sub
این هم یک نمونه
[HTML]http://342248.20upload.net/files/1389/bahman/Student.rar[/HTML]
