15-11-22, 10:23 PM
(آخر تعديل لهذه المشاركة : 15-11-22, 10:37 PM {2} بواسطة ali_ahmed12.)
السلام عليكم
لدي شاشة صلاحيات المستخدمين
به اسم المستخدم وكلمة المرور وتاكيد كلمة المرور
وcheckbox اسم كل فورم الذي سوف احدده ياخد صلاحية شاشة محدده
ولدي جدول مستخدمين بيه يوزر ايدي واسم مستخدم وكلمة المرور و 6 حقول من نوع bit صلاحيات شاشات
وفي فورم رئيسية عملت menustrip به شاشات وسميت كل اسم ل menustrip نفس حقول في قاعده بيانات p1,p2,p3,p4,p5,p6
وفي حدث فورم لود شاشة رئيسية يفتح شاشة دخول يتاكد من صلاحيات ثم يظهر ماهو مسموح وماهو ممنوع
مرفق اكواد وصورة شاشات وجدول قاعدة بيانات
لماذا عندما اضغط دخول لايدخل لشاشة رئيسية
كود دخول
كود form_load شاشة رئيسة التي تفتح شاشة دخول
كود حفظ مستخدم شاشة صلاحيات المستخدمين
ياريت رد من اخوة لماذا لايظهر شي بعد ضغط علي زر دخول
لدي شاشة صلاحيات المستخدمين
به اسم المستخدم وكلمة المرور وتاكيد كلمة المرور
و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
ياريت رد من اخوة لماذا لايظهر شي بعد ضغط علي زر دخول
