[ali_ahmed12]

(02-11-22, 01:04 PM)barawy كتب : عليكم السلام ورحمة الله
ممكن تعرف متغير اسمه  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

عملت مثل ما قلت لكن علي محمود مدير اثنين button يظهر لي enbled هدا كود 

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       If TextBox1.Text = "" Then
           MessageBox.Show("الرجاء ادخال كلمة المرور")
           TextBox1.Focus()
       End If
       Dim dt As New DataTable
       query = "select * from users where id='" & ComboBox1.Text & "' and pwd='" & TextBox1.Text & "'"
       da = New SqlDataAdapter(query, Module1.con)
       da.Fill(dt)

       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)
           Form_main.UserType = dt.Rows(0)(3)

           Form_main.ShowDialog()

           Me.Dispose()

       Else
           MessageBox.Show("كلمة المرور غير صحيحة")
       End If
   End Sub

هدا كود فورم لود 

كود :

Private Sub Form_main_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Label2.Text &= Now.ToShortDateString
       Label3.Text &= Environment.MachineName
       Label1.Text = fullname
       If UserType <> "مدير" Then
           Button3.Enabled = True
           Button1.Enabled = True
           Button2.Enabled = True
           Button4.Enabled = True
           Button5.Enabled = True
           Button8.Enabled = True
           Button7.Enabled = True
       Else

           Button4.Enabled = False
           Button5.Enabled = False
       End If


   End Sub

هدا جدول