منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم
هل من طريقة اضمن وافضل عملية دخول للبرنامج من تالية

كود :

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 If

استخدم 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()

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

ali_ahmed12

aljzazy