[ali_ahmed12]

السلام عليكم 
لدي شاشة صلاحيات المستخدمين 
به اسم المستخدم وكلمة المرور وتاكيد كلمة المرور 
وcheckbox  اسم كل فورم الذي سوف احدده ياخد صلاحية شاشة محدده
ولدي جدول مستخدمين بيه يوزر ايدي واسم مستخدم وكلمة المرور و 6 حقول من  نوع bit صلاحيات شاشات
وفي فورم رئيسية عملت menustrip به شاشات وسميت كل اسم ل menustrip  نفس حقول في قاعده بيانات p1,p2,p3,p4,p5,p6
وفي حدث فورم لود شاشة رئيسية يفتح شاشة دخول يتاكد من صلاحيات ثم يظهر ماهو مسموح وماهو ممنوع 
مرفق اكواد وصورة شاشات وجدول قاعدة بيانات 
لماذا عندما اضغط دخول لايدخل لشاشة رئيسية 
كود دخول 

كود :

If ComboBox1.SelectedIndex < 0 Then ComboBox1.Focus() Exit Sub
       If Textpass.Text = "" Then Textpass.Focus() Exit Sub
       Dim sql = "select *from users"
       Dim adp = New SqlDataAdapter(sql, Module1.con)
       Dim ds = New DataSet
       adp.Fill(ds)
       Dim dt = ds.Tables(0)
       If dt.Rows.Count > 0 Then
           Dim dr As DataRow
           dr = dt.Rows(0)
           Form_main.p1.Enabled = dr!p1
           Form_main.p2.Enabled = dr!p2
           Form_main.p3.Enabled = dr!p3
           Form_main.p4.Enabled = dr!p4
           Form_main.p5.Enabled = dr!p5

           Me.Close()

       End If

كود form_load شاشة رئيسة التي تفتح شاشة دخول 

كود :

Private Sub Form_main_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       form_login.ShowDialog()


   End Sub

كود حفظ مستخدم شاشة صلاحيات المستخدمين

كود :

If Trim(user_password.Text) <> Trim(password_confirm.Text) Then
           MessageBox.Show("كلمة المرور غير مطابقه")
           Dim sql = "select *from users where user_name=N '" & user_name.Text & "'"
           Dim adp = New SqlDataAdapter(sql, Module1.con)
           Dim ds = New DataSet
           adp.Fill(ds)
           Dim dt = ds.Tables(0)
           If dt.Rows.Count > 0 Then
               MessageBox.Show("اسم مستخدم موجود مسبقا")
               user_name.Text = ""
               user_name.Focus()
           End If
           Try
               Dim dr = dt.NewRow
               dr!user_name = user_name.Text
               dr!user_password = user_password.Text
               dr!p1 = p1.Checked
               dr!p2 = p2.Checked
               dr!p3 = p3.Checked
               dr!p4 = p4.Checked
               dr!p5 = p5.Checked
               dr!p6 = p6.Checked
               dt.Rows.Add(dr)
               Dim cmd = New SqlCommandBuilder(adp)
               adp.Update(dt)
               MessageBox.Show("تم حفظ مستخدم وصلاحياته")

           Catch ex As Exception

           End Try

       End If

---

(15-11-22, 10:23 PM)ali_ahmed12 كتب : السلام عليكم 
لدي شاشة صلاحيات المستخدمين 
به اسم المستخدم وكلمة المرور وتاكيد كلمة المرور 
وcheckbox  اسم كل فورم الذي سوف احدده ياخد صلاحية شاشة محدده
ولدي جدول مستخدمين بيه يوزر ايدي واسم مستخدم وكلمة المرور و 6 حقول من  نوع bit صلاحيات شاشات
وفي فورم رئيسية عملت menustrip به شاشات وسميت كل اسم ل menustrip  نفس حقول في قاعده بيانات p1,p2,p3,p4,p5,p6
وفي حدث فورم لود شاشة رئيسية يفتح شاشة دخول يتاكد من صلاحيات ثم يظهر ماهو مسموح وماهو ممنوع 
مرفق اكواد وصورة شاشات وجدول قاعدة بيانات 
لماذا عندما اضغط دخول لايدخل لشاشة رئيسية 
كود دخول 

كود :

If ComboBox1.SelectedIndex < 0 Then ComboBox1.Focus() Exit Sub
       If Textpass.Text = "" Then Textpass.Focus() Exit Sub
       Dim sql = "select *from users"
       Dim adp = New SqlDataAdapter(sql, Module1.con)
       Dim ds = New DataSet
       adp.Fill(ds)
       Dim dt = ds.Tables(0)
       If dt.Rows.Count > 0 Then
           Dim dr As DataRow
           dr = dt.Rows(0)
           Form_main.p1.Enabled = dr!p1
           Form_main.p2.Enabled = dr!p2
           Form_main.p3.Enabled = dr!p3
           Form_main.p4.Enabled = dr!p4
           Form_main.p5.Enabled = dr!p5

           Me.Close()

       End If

كود form_load شاشة رئيسة التي تفتح شاشة دخول 

كود :

Private Sub Form_main_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       form_login.ShowDialog()


   End Sub

كود حفظ مستخدم شاشة صلاحيات المستخدمين

كود :

If Trim(user_password.Text) <> Trim(password_confirm.Text) Then
           MessageBox.Show("كلمة المرور غير مطابقه")
           Dim sql = "select *from users where user_name=N '" & user_name.Text & "'"
           Dim adp = New SqlDataAdapter(sql, Module1.con)
           Dim ds = New DataSet
           adp.Fill(ds)
           Dim dt = ds.Tables(0)
           If dt.Rows.Count > 0 Then
               MessageBox.Show("اسم مستخدم موجود مسبقا")
               user_name.Text = ""
               user_name.Focus()
           End If
           Try
               Dim dr = dt.NewRow
               dr!user_name = user_name.Text
               dr!user_password = user_password.Text
               dr!p1 = p1.Checked
               dr!p2 = p2.Checked
               dr!p3 = p3.Checked
               dr!p4 = p4.Checked
               dr!p5 = p5.Checked
               dr!p6 = p6.Checked
               dt.Rows.Add(dr)
               Dim cmd = New SqlCommandBuilder(adp)
               adp.Update(dt)
               MessageBox.Show("تم حفظ مستخدم وصلاحياته")

           Catch ex As Exception

           End Try

       End If

ياريت رد من اخوة لماذا لايظهر شي بعد ضغط علي زر دخول