Option Explicit On
Option Strict On
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.Sql
Imports System.Data.SqlClient.SqlConnection
Public Class Login
Dim Cnn As New SqlConnection
Dim Cnnstring As String
Dim SqlSelect As String
Dim SqlReader As SqlDataReader
Dim Password As String
Private Sub Bt_login_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt_login.Click
Cnnstring = "Data Source=NOEY-PC\SA;Initial Catalog=Project;Persist Security Info=True;User ID=sa;Password=powergurn"
With Cnn
If .State = ConnectionState.Open Then Close()
.ConnectionString = Cnnstring
.Open()
.Close()
End With
If txtPass.Text = "" Then
MessageBox.Show("ใส่ข้อมูล", "กรุณาใส่ รหัสผ่าน", MessageBoxButtons.OK, MessageBoxIcon.Error)
Else
ReadMyData(Cnnstring)
End If
End Sub
Public Sub ReadMyData(ByVal myConnString As String)
On Error GoTo 0
With Cnn
If .State = ConnectionState.Open Then Close()
.ConnectionString = Cnnstring
.Open()
End With
SqlSelect = "select * from Member Where Mem_Pass = " & "'" & Password & "'"
Dim SqlCommand As New SqlCommand(SqlSelect, Cnn)
SqlReader = SqlCommand.ExecuteReader
SqlReader.Read()
Password = CStr(SqlReader.Item("Mem_Pass"))
Cnn.Close()
If txtPass.Text = Password Then
Mainmenu.Show()
txtPass.Text = ""
Me.Hide()
Else
MessageBox.Show("กรุณาใส่ข้อมูลให้ถูกต้อง", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Warning)
End If
End Sub
End Class