[ali_ahmed12]

السلام عليكم ورحمة الله وبركاته
لدي جدول المستخدمين في الصوره 
حقل type  اريده عندما يكون موجود به مدير  لديه كل شاشات مسموحه له واذا كان مستخدم عادي شاشة المستخدمين والعملاء لاتظهر له 
انا شاشات عبارة عن ازرار كل زر يفتح شاشة .......... توضيح انا  لزالت اتعلم

---

(30-10-22, 08:20 PM)ali_ahmed12 كتب : السلام عليكم ورحمة الله وبركاته
لدي جدول المستخدمين في الصوره 
حقل type  اريده عندما يكون موجود به مدير  لديه كل شاشات مسموحه له واذا كان مستخدم عادي شاشة المستخدمين والعملاء لاتظهر له 
انا شاشات عبارة عن ازرار كل زر يفتح شاشة .......... توضيح انا  لزالت اتعلم

كود تسجيل دخول 

كود :

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.ShowDialog()

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