VB写数据库登录教程

VB写数据库登录教程 Dim TIM As Integer Dim mydb As Database Dim myrs As Recordset Dim sql As String Private Sub Form_Activate() Set mydb = Workspaces(0).OpenDatabase(App.Path & "\kfgl.mdb") '打开数据库 sql = "select 操作员 from qxsz" Set myrs = mydb.OpenRecordset(sql) If myrs.EOF = False Then myrs.MoveLast If myrs.BOF = False Then myrs.MoveFirst For i = 0 To myrs.RecordCount - 1 master.AddItem (myrs.Fields(0)) myrs.MoveNext Next i If master.ListCount > 0 Then master.ListIndex = 0 myrs.Close mydb.Close master.SetFocus End Sub Private Sub Cmdok_Click() '确认操作员和密码 Dim MESSAGE As String If master.Text <> "" Then Set mydb = Workspaces(0).OpenDatabase(App.Path & "\kfgl.mdb") Set myrs = mydb.OpenRecordset("qxsz", dbOpenDynaset) myrs.FindFirst "操作员 = " + Chr(34) + master.Text + Chr(34) + "" ' 查找操作员 If myrs.NoMatch Then '没查到 MsgBox ("无此操作员～") Else If password.Text = myrs.Fields("密码") Then '确认密码 MsgBox "系统登陆成功～" '系统登录成功 Else If TIM = 3 Then MESSAGE = MsgBox("密码输入错误,请向系统管理员查询!", 0, "") If MESSAGE = vbOK Then End End If MsgBox ("密码错误,请重新输入密码!") TIM = TIM + 1 '密码输入错误次数 password.SetFocus End If End If End If End Sub Private Sub master_KeyDown(KeyCode As Integer, Shift As Integer) '回车换行 If KeyCode = vbKeyReturn Then password.SetFocus End If End Sub Private Sub password_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then Cmdok.Visible = True Cmdok.SetFocus End If If KeyCode = vbKeyDown Then Cmdok.Visible = True Cmdok.SetFocus End If If KeyCode = vbKeyUp Then master.SetFocus End If End Sub Private Sub Cmdexit_Click() End End Sub