VB2010+Access用户登陆验证(精简)
Public Class login
'管理员登陆
Private Sub Button1_Click(ByVal sender As System.Object, ByVa l e As System.EventArgs) Handles Button1.Click
Dim ObjConn As New OleDb.OleDbConnection("Provider=Micros oft.Jet.OLEDB.4.0;Data Source=cardbs.mdb")
Dim ObjCom As New OleDb.OleDbCommand("select * from admin ", ObjConn)
Dim ObjDap As New OleDb.OleDbDataAdapter
Dim ObjDar As OleDb.OleDbDataReader
Dim pd As Boolean = False
Dim i As Integer
ObjCom = New OleDb.OleDbCommand("select * from admin", Ob jConn)
'与数据库建立连接
ObjConn.Open()
ObjDar = ObjCom.ExecuteReader
'循环判断与数据库中数据是否相同
Do While ObjDar.Read()
If ComboBox1.Text = "" Then
MsgBox("请输入用户名！")
ElseIf Trim(ComboBox1.Text) <> (ObjDar.Item("admin_na me")) Then
MsgBox("用户名不存在！")
ComboBox1.Focus()
ElseIf TextBox2.Text = "" Then
MsgBox("请输入密码！")
'End If
ElseIf Trim(TextBox2.Text) <> (ObjDar.Item("admin_psw ")) Then
MsgBox("密码输入不正确！")
'TextBox2.Focus()
Else
For i = 0 To ObjDar.FieldCount - 1
If Trim(ComboBox1.Text) = (ObjDar.Item("admin _name")) And Trim(TextBox2.Text) = (ObjDar.Item("admin_psw")) Then 'MsgBox("成功登陆")
Me.Hide()
Form_main.Show()
pd = True
Exit Sub
End If
Next
End If
Loop
ObjDar.Close()
ObjConn.Close()
End Sub
Private Sub LoginForm1_Load(ByVal sender As System.Object, By Val e As System.EventArgs) Handles MyBase.Load
Dim X0 As Long
Dim Y0 As Long
'让窗体居中
X0 = Screen.PrimaryScreen.Bounds.Width
Y0 = Screen.PrimaryScreen.Bounds.Height
X0 = (X0 - Me.Width) / 2
Y0 = (Y0 - Me.Height) / 2
Me.Location = New Point(X0, Y0)
ComboBox1.Text = "admin"
TextBox2.Text = "admin"
End Sub
End Class。