[ali_ahmed12]

(08-01-23, 08:14 PM)aljzazy كتب : تابع الدروس وستفهم باذن الله بطريقة سهلة وبسيطة

طبقت مثل فيديو يظهر لي خطا 
انا لدي شاشة form_main به 5 ازار كل زر يفتح شاشة عملت صلاحيات لهم هدا 
كود دخول 

PHP كود :

If ComboBox1.SelectedIndex < 0 Then
            MessageBox.Show("الرجاء اختيار اسم المستخدم ")
            Exit Sub
        End If
        query = "select * from users where user_name='" & ComboBox1.Text & "' and user_password= '" & Textpass.Text & "'"
        da = New SqlDataAdapter(query, Module1.con)
        da.Fill(dt)


        If dt.Rows.Count > 0 Then

            Dim dr As DataRow
            Form_main.Label2.Text = Me.ComboBox1.Text
            Form_main.btn_sales.Enabled = dr("btn_sales")
            Form_main.btn_customer.Enabled = dr("btn_customer")
            Form_main.btn_product.Enabled = dr("btn_product")
            Form_main.btn_users.Enabled = dr("btn_users")
            Form_main.btn_con.Enabled = dr("btn_con")
            Form_main.ShowDialog()
            Me.Close()
        Else
            MessageBox.Show("كلمة المرور خطأ")
            Textpass.Select()


        End If 


هادي شاشة مستخدمين 
وجدول مستخدمين 
ورسالة خطا اثناء دخول 
وكود حفظ مستخدم

PHP كود :

If user_password.Text <> password_confirm.Text Then
            MessageBox.Show("كلمه المرور غير مطابقه")
            Exit Sub
        End If
        If user_name.Text = "" Then
            MessageBox.Show("الرجاء ادخال اسم المستخدم")
            user_name.Select()
            Exit Sub
        End If
        Dim sql = "select *from users where user_name=N'" & (user_name.Text) & "'"
        Dim adp As New SqlDataAdapter(sql, Module1.con)
        Dim ds As New DataSet
        adp.Fill(ds)
        Dim dt = ds.Tables(0)
        If dt.Rows.Count > 0 Then
            MessageBox.Show("اسم مستخدم موجود مسبقا")
        Else

            Dim DR = dt.NewRow
            DR!user_name = user_name.Text
            DR!user_password = user_password.Text
            DR!btn_sales = CheckBox1.Checked
            DR!btn_customer = CheckBox2.Checked
            DR!btn_product = CheckBox3.Checked
            DR!btn_users = CheckBox4.Checked
            DR!btn_con = CheckBox5.Checked
            dt.Rows.Add(DR)
            Dim cmd As New SqlCommandBuilder(adp)
            adp.Update(dt)

            MessageBox.Show("تم حفظ بنجاح")
        End If
        fill_users()
        Button4_Click(sender, e) 


---

(08-01-23, 10:12 PM)ali_ahmed12 كتب :

(08-01-23, 08:14 PM)aljzazy كتب : تابع الدروس وستفهم باذن الله بطريقة سهلة وبسيطة

طبقت مثل فيديو يظهر لي خطا 
انا لدي شاشة form_main به 5 ازار كل زر يفتح شاشة عملت صلاحيات لهم هدا 
كود دخول 

PHP كود :

If ComboBox1.SelectedIndex < 0 Then
            MessageBox.Show("الرجاء اختيار اسم المستخدم ")
            Exit Sub
        End If
        query = "select * from users where user_name='" & ComboBox1.Text & "' and user_password= '" & Textpass.Text & "'"
        da = New SqlDataAdapter(query, Module1.con)
        da.Fill(dt)


        If dt.Rows.Count > 0 Then

            Dim dr As DataRow
            Form_main.Label2.Text = Me.ComboBox1.Text
            Form_main.btn_sales.Enabled = dr("btn_sales")
            Form_main.btn_customer.Enabled = dr("btn_customer")
            Form_main.btn_product.Enabled = dr("btn_product")
            Form_main.btn_users.Enabled = dr("btn_users")
            Form_main.btn_con.Enabled = dr("btn_con")
            Form_main.ShowDialog()
            Me.Close()
        Else
            MessageBox.Show("كلمة المرور خطأ")
            Textpass.Select()


        End If 


هادي شاشة مستخدمين 
وجدول مستخدمين 
ورسالة خطا اثناء دخول 
وكود حفظ مستخدم

PHP كود :

If user_password.Text <> password_confirm.Text Then
            MessageBox.Show("كلمه المرور غير مطابقه")
            Exit Sub
        End If
        If user_name.Text = "" Then
            MessageBox.Show("الرجاء ادخال اسم المستخدم")
            user_name.Select()
            Exit Sub
        End If
        Dim sql = "select *from users where user_name=N'" & (user_name.Text) & "'"
        Dim adp As New SqlDataAdapter(sql, Module1.con)
        Dim ds As New DataSet
        adp.Fill(ds)
        Dim dt = ds.Tables(0)
        If dt.Rows.Count > 0 Then
            MessageBox.Show("اسم مستخدم موجود مسبقا")
        Else

            Dim DR = dt.NewRow
            DR!user_name = user_name.Text
            DR!user_password = user_password.Text
            DR!btn_sales = CheckBox1.Checked
            DR!btn_customer = CheckBox2.Checked
            DR!btn_product = CheckBox3.Checked
            DR!btn_users = CheckBox4.Checked
            DR!btn_con = CheckBox5.Checked
            dt.Rows.Add(DR)
            Dim cmd As New SqlCommandBuilder(adp)
            adp.Update(dt)

            MessageBox.Show("تم حفظ بنجاح")
        End If
        fill_users()
        Button4_Click(sender, e)