برنامج إدارة المطاعم - الدرس الثالث والعشرون والأخير: برمجة صلاحيات المستخدمين

في الدرس الثالث والعشرون من برنامج ادارة المطاعم سوف نقوم بتصميم الصفحة الرئيسية والتي من خلالها يتم التنقل بين صفحات البرنامج  بأستخدام يوزر ( مستخدم ) بحسب الصلاحيات المحددة له كما موضح في الصورة اعلاه :

فيتم كتابة كود فتح الصفحة داخل الزر المخصص لها. مثلا لفتح صفحة المبيعات نكتب الكود داخل زر btnSales بالطريقة التالية:

frmSales.Show()
Me.Hide()

وهكذا بالنسبة لبقية الازرار وكما موضح بالصوره ادناة

بعد ذلك نقوم بأضافة فورم الدخول الذي سبق شرحة في دورة تعلم الفيجوال بيسك

 

ويمكنكم مراجعة هذه الدروس من خلال الروابط التالية:

·         الدرس – 21: تصميم صفحة دخول احترافية

·         الدرس – 22: برمجة صفحة الدخول

·         الدرس – 23 : برمجة زر الدخول - إضافة مستخدم جديد وتغييره - الطريقة الأولى

·         الدرس – 24 : برمجة زر الدخول - إستخدام قاعدة بيانات -الطريقة الثانية

·         الدرس – 25 : إضافة مستخدم جديد لقاعدة بيانات

·         الدرس – 26 : تحديث بيانات المستخدمين في قاعدة البيانات

ويتم كتابة كود توزيع الصلاحيات داخل زر الدخول بعد التأكد من صحة اسم المستخدم و كلمة المرور كما موضح بالكود التالي:

If tbusername.Text = "" Then
 MsgBox("الرجاء إدخال اسم المستخدم", MsgBoxStyle.Information, Title:=" اسم المستخدم مطلوب!")
 tbusername.Focus()
 Return
End If

If tbpassword.Text = "" Then
  MsgBox("الرجاء إدخال كلمة المرور", MsgBoxStyle.Information, Title:="كلمة المرور مطلوبة!")
  tbpassword.Focus()
  Return
End If


Dim daa As New OleDbDataAdapter
Dim dtt As New DataTable
daa = New OleDbDataAdapter("Select * from tblUsers Where Username = '" &
tbusername.Text & "' and Password = '" & tbpassword.Text & "'", con)
daa.Fill(dtt)

If dtt.Rows.Count <> 0 Then

  If dtt.Rows(0).Item("Items").ToString = "Yes" Then
     frmHome.btnProducts.Enabled = True
  Else
     frmHome.btnProducts.Enabled = False
  End If

  If dtt.Rows(0).Item("Sales").ToString = "Yes" Then
     frmHome.btnSales.Enabled = True
  Else
    frmHome.btnSales.Enabled = False
  End If

   If dtt.Rows(0).Item("Bills").ToString = "Yes" Then
     frmHome.btnBills.Enabled = True
   Else
    frmHome.btnBills.Enabled = False
   End If

  If dtt.Rows(0).Item("Users").ToString = "Yes" Then
     frmHome.btnUsers.Enabled = True
  Else
    frmHome.btnUsers.Enabled = False
  End If

  frmHome.lbUsername.Text = tbusername.Text
  frmHome.Show()
  Me.Hide()
  Else
     MsgBox("Wrong Username or Password, please try again!", MsgBoxStyle.Exclamation,
     Title:="Sorry!")
 Return

End If

لتحميل كود هذا الدرس فقط اضغط هنا

لتحميل كامل المشروع اضغط هنا

لتحميل قاعدة البيانات اضغط هنا

ملاحظة هامة

في حال كنت تستخدم إصدار فيجوال ستوديو اقل من إصدار 2017 قد تواجهه بعض الأخطاء اثناء فتح المشروع. لذا يفضل استخدام فيجوال ستوديو إصدار 2017 او 2019

والان اترككم مع الفيديو على اليوتيوب