09-01-23, 06:07 PM
PHP كود :
If ComboBox1.SelectedIndex < 0 Then
MessageBox.Show("الرجاء اختيار اسم المستخدم ")
Exit Sub
End If
Module1.con.Open()
cmd = New SqlCommand("select *from users where user_name=@user_name and user_password=@user_password", Module1.con)
cmd.Parameters.AddWithValue("@user_name", ComboBox1.Text)
cmd.Parameters.AddWithValue("@user_password", Textpass.Text)
rdr = cmd.ExecuteReader
rdr.Read()
If rdr.HasRows() Then
str_username = rdr("user_name").ToString()
With Form_main
.btn_sales.Enabled = rdr("btn_sales").ToString()
.btn_customer.Enabled = rdr("btn_customer").ToString()
.btn_product.Enabled = rdr("btn_product").ToString()
.btn_users.Enabled = rdr("btn_users").ToString()
.btn_con.Enabled = rdr("btn_con").ToString()
.Show()
Me.Hide()
End With
Else
MessageBox.Show("كلمة المرور خطأ")
Textpass.Select()
End If
rdr.Close()
Module1.con.Close()