[ali_ahmed12]

(08-01-23, 11:47 PM)aljzazy كتب : ارفق ملفات المشروع ليتم التعديل عليه

ممكن تحويل كود تالي الي وضع المنفصل 

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