+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] تسجيل الدخول (/showthread.php?tid=44377)
تسجيل الدخول - ali_ahmed12 - 25-11-22
السلام عليكم
هل من طريقة اضمن وافضل عملية دخول للبرنامج من تالية
كود :
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
Form_main.ShowDialog()
Else
MessageBox.Show("كلمة المرور خاطئة", "رسالة تنبيه")
Textpass.SelectAll()
End IfRE: تسجيل الدخول - aljzazy - 25-11-22
استخدم parameters
كود :
If Con.State = 1 Then Con.Close()
Con.Open()
Cmd = New SqlCommand("Select * from Users_Tbl Where UserName=@UserName And UserPassWord=@UserPassWord", Con)
Cmd.Parameters.AddWithValue("@UserName", CmbUsers.Text)
Cmd.Parameters.AddWithValue("@UserPassWord", TxtPassword.Text)
rdr = Cmd.ExecuteReader
rdr.Read()
If rdr.HasRows Then
Home.Show()
Me.Hide()
Else
MsgBox("اسم المستخدم او كلمة المرور غير صحيحيان ", MsgBoxStyle.Critical, System_Title)
CmbUsers.Text = ""
TxtPassword.Text = ""
End If
rdr.Close()
Con.Close()