＋设为首页 ＋添加到收藏夹
很菜的问题请教！！
我建了一个ACCESS数据库，库里有一个用户信息表，用ADO连接
怎么用做一个用户密码登录窗口，最好有代码贴，谢谢大哥大姐！！
希望你能看懂
Dim j As Integer
Private Sub Combo1_Click()
Ado1.Recordset.MoveFirst
Do Until Ado1.Recordset.EOF 判断是否找到
If Ado1.Recordset.Fields("姓名") = Combo1.Text Then
If Ado1.Recordset.Fields("操作密码") = "1111" Then
修改密码.Show 判断是否为第一次登录
Exit Sub
End If
End If
Ado1.Recordset.MoveNext
Loop
End Sub
Private Sub Command1_Click()
Dim mm As String
Dim rep
If Text1.Text = "1111" Then 判断是否为第一次登录
修改密码.Show
Exit Sub
End If
s_xm = Combo1.Text
mm = Text1.Text 给核对值负值
Ado1.Recordset.MoveFirst 指针移至最先
Do Until Ado1.Recordset.EOF 判断是否找到
If Ado1.Recordset.Fields("姓名") = s_xm Then
If Ado1.Recordset.Fields("操作密码") = mm Then 记录查找
s_rq = Calendar1.Value 提取指定日期
s_qx = Ado1.Recordset.Fields("操作权限") 提取权限
系统总控.Show
登录.Hide
Else
If j < 3 Then 三次输入限制
rep = MsgBox("密码错误！要重试吗？", vbYesNo + vbExclamation, "家庭理财")
If rep = vbNo Then
End
Else
Text1.SetFocus
End If
j = j + 1
Else
MsgBox "非法操作!", vbExclamation + vbOKOnly 三次输入到期
Command1.Enabled = False 禁用设备
Label4.Caption = "非法操作!"
Label4.ForeColor = vbRed
End If
End If
End If
Ado1.Recordset.MoveNext
Loop
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
Dim i As Integer
Calendar1.Value = Date
Do Until Ado1.Recordset.EOF 判断库是否为空
Combo1.List(i) = Ado1.Recordset.Fields("姓名") 为控件添加记录
Ado1.Recordset.MoveNext
i = i + 1
Loop
Combo1.Text = Combo1.List(0) 控件莫认为第一条
End Sub
