السلام عليكم
استفسار بخصوص عندي فورم1 دخول يوجد اشكاليه عندي بمجرد الضغط على زر دخول LOGIN ينتقل الى الفورم 2 المسمى عندي بـ frmContactPerson ولكن لا يختفي الفورم 1 هل بالإمكان معرفه الإشكالية على الرغم اني عملت الامر Close() ولكن للاسف هناك نقص ؟
اريد بمجرد الضغط على login يظهر لي فورم 2 ويختفي فورم 1 في نفس الوقت .
استفسار بخصوص عندي فورم1 دخول يوجد اشكاليه عندي بمجرد الضغط على زر دخول LOGIN ينتقل الى الفورم 2 المسمى عندي بـ frmContactPerson ولكن لا يختفي الفورم 1 هل بالإمكان معرفه الإشكالية على الرغم اني عملت الامر Close() ولكن للاسف هناك نقص ؟
اريد بمجرد الضغط على login يظهر لي فورم 2 ويختفي فورم 1 في نفس الوقت .
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim command As New OleDbCommand("SELECT [ID] FROM [Staff] WHERE [usernameField] = username AND [passwordField] = password", Con)
Dim usernameParam As New OleDbParameter("username", Me.TextBox1.Text)
Dim passwordParam As New OleDbParameter("password", Me.TextBox2.Text)
command.Parameters.Add(usernameParam)
command.Parameters.Add(passwordParam)
If Con.State = ConnectionState.Closed Then Con.Open()
Dim reader As OleDbDataReader = command.ExecuteReader()
If reader.HasRows Then
TextBox2.Text = ""
reader.Read()
IDUser = reader.GetValue(0).ToString
Dim Frm As New frmContactPerson
Frm.Show()
Else
MessageBox.Show("خطأفي كلمة السر أو الأسم")
TextBox2.Text = ""
End If
If Con.State = ConnectionState.Open Then Con.Close()
End Sub
اللهمّ بعلمك الغيب وقدرتك على الخلق، أحييني ما علمت الحياة خيراً لي، وتوفّني ما علمت الوفاة خيراً لي.
