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

[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 تعریف کنید.