TRANG CHỦ
Imports
System.Data.SqlClient
Public Class Frm_DangNhap
Hàm đầu tiên dùng để kiểm quá trình kết nối dữ liệu, kiểm tra điều kiện nhập
Private Sub bttdn_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles bttdn.Click
If (txtuser.Text = "")
Then
MessageBox.Show("Bạn hãy nhập vào tên tài khoản")
txtuser.Focus()
Else
If
(txtpass.Text = "") Then
MessageBox.Show("Bạn hãy nhập vào mật khẩu")
txtpass.Focus()
Else
Tạo một class kết nối, sử dụng class với đối số truyền vô là hai text nhập
Dim
ketn As New
Ketnoi
If
ketn.ktketnoi(txtuser.Text, txtpass.Text) Then
MessageBox.Show("Bạn đã đăng nhập thành công")
Frm_TrangChu.Show()
Me.Hide()
Else //ngược lại tức là dữ liệu lấy từ ketnoi
không có hoặc một trong tài khoản hoặc user đã sai thì thông báo
MessageBox.Show("Lỗi đăng nhập!")
txtpass.Text = ""
txtpass.Focus()
End
If
End
If
End IF
End Sub
