نكاتی در مورد برنامه نويسي در Visual Basic

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

برای دسترسی کاربران به یک سری فعالیت ها باید یک روال بسازیم تا تمام امکانات را در اختیار کاربران قرار دهد.
مثال:

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

 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

یک مثال برای فهم بیشتر.