[ali_ahmed12]

(05-11-22, 11:51 AM)barawy كتب : السلام عليكم

انت فى الاتجاه الصحيح ولكن اظنك عكست المطلوب اثناء كتابة الكود واليك الكود المعدل
 
ملحوظة : علامة <> تعنى لا تساوى
شرح الكود : هو اذا كان نوع المستخدم لا يساوي مدير .. قم بالتالى .... تعطيل الأزرار ما عدا رقم 3 و 4 ...  غير ذلك ... قم بقتح جميع الأزرار

مرفق مثال

كود :

 Private Sub FrmMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        If UserType <> "مدير" Then

            Button1.Enabled = False
            Button2.Enabled = False
            Button3.Enabled = True
            Button4.Enabled = True
            Button5.Enabled = False
            Button6.Enabled = False

        Else

            Button1.Enabled = True
            Button2.Enabled = True
            Button3.Enabled = True
            Button4.Enabled = True
            Button5.Enabled = True
            Button6.Enabled = True

        End If
    End Sub

لايعمل ملف مرفق الذي ارسالته انا فيجوال 2015

كود :

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

           Button1.Enabled = True
           Button2.Enabled = True
           Button3.Enabled = True
           Button4.Enabled = True
           Button5.Enabled = True

       Else

           Button1.Enabled = True
           Button2.Enabled = True
           Button3.Enabled = True
           Button4.Enabled = False
           Button5.Enabled = False
       End If


   End Sub

كود :

  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