تعینن حدود دسترسی کاربران

[ramsess]

سلام اهل فن
خسته نباشید لطفا اگه میتوانید راهنمایی نمایید . من در برنامه ام یوز نیم و پسورد دارم و حتی همون کاربر اصلی می تونه تغییر بده سوالم اینه که چطور همون کاربر اصلی بتونه یوزر تعریف کنه و به اونها دسترسی به منو ها رو بده مرسی از همتون و از وقتی که برای جواب دادن به هموطنان عزیز می زارید در پناه حق موفق باشید

[اوبالیت به بو]

شما خودتون باید یه تابع تعریف کنید و اینها رو توش تعریف کنید.
مثال:
مدیر : اجازه ثبت نام، ویرایش، اخراج دانش آموزان را دارد.
معاون: اجازه ثبت نام، ویرایش دانش آموزان را دارد.
دفتردار : اجازه ویرایش دانش آموزان را دارد.

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

این یک روال هستش که می تونید در هنگام ورود یا Login تعریف کنید.