02-11-22, 01:04 PM
عليكم السلام ورحمة الله
ممكن تعرف متغير اسمه UserTypeفى الفورم الرئيسية وتقوم بتغيير قيمته بعد التحقق من الاسم وكلمة المستخدم FrmMain.usertype="Admin" ثم استدعاء الفورم
وتعطل او تشغل الأزرار بحسب قيمة هذا المتغير فى حدث FormLoad
كود تسجيل دخول
كود تشغيل الفورم الرئيسي
ممكن تعرف متغير اسمه UserTypeفى الفورم الرئيسية وتقوم بتغيير قيمته بعد التحقق من الاسم وكلمة المستخدم FrmMain.usertype="Admin" ثم استدعاء الفورم
وتعطل او تشغل الأزرار بحسب قيمة هذا المتغير فى حدث FormLoad
كود تسجيل دخول
كود :
If (dt.Rows.Count <> 0) Then
Module1.id = dt.Rows(0)(0)
Module1.pwd = dt.Rows(0)(1)
Me.Hide()
fullname = dt.Rows(0)(2)
Frm_main.UserType=dt.Rows(0)(3)
Form_main.ShowDialog()
Me.Dispose()
Else
MessageBox.Show("كلمة المرور غير صحيحة")
End Ifكود تشغيل الفورم الرئيسي
كود :
Public UserType As String
Private Sub frmMain_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
If UserType <> "مدير" Then
Me.btn1.Enabled= False
Me.btn2.Enabled= False
End If
End Sub