一、登录界面视觉效果

二、代码的实现


Private Sub cmdOK_Click()
‘用来存放sql语句
Dim txtsql As String
‘用来存放记录集对象
Dim mrc As ADODB.Recordset
‘用来存放返回信息
Dim msgText As String
UserName = “”
‘判断输入用户名是否为空
If Trim(txtUserName.Text = “”) Then
MsgBox “没有这个用户，请重新输入用户名！”,vbOKOnly + vbExclamation,“警告”
txtUserName.SetFocus
Else
‘查询指定用户名的记录
txtsql = “select * from user_Info where user_ID= ‘” & txtUserName.Text & “’”
‘执行查询语句
Set mrc = Executesql(txtsql,msgText)
If mrc.EOF = True Then ‘End of File指当前记录位置位于Recordset对象的最后一个记录之后
MsgBox “没有这个用户，请重新输入用户名！”,“警告”
txtUserName.SetFocus
Else
‘判断输入密码是否正确
If Trim(mrc!user_PWD) = Trim(txtPassword.Text) Then
FrmMain.Show
mrc.Close
Me.Hide
UserName = Trim(txtUserName.Text)
Else
MsgBox “输入密码不正确，请重新输入！”,“警告”
txtPassword.SetFocus
txtPassword.Text = “”
End If
End If
End If
‘记载输入密码次数
miCount = miCouont + 1
If miCount = 3 Then
Me.Hide ‘Me指代当前对象本身–
End If
Exit Sub
End Sub

Private Sub cmdCancel_Click()
Unload Me
End Sub

三、学习总结

1.界面总结
部件的部署和背景色彩很重要，我需要多努力完善对艺术欣赏的能力。

2.代码总结
很容易写错了的语句
txtsql = “select * from user_Info where user_ID= ‘” & txtUserName.Text & “’”
如果出错了，常@R_301_304@“91”就是对象变量或with块变量未定义。原因是数据库没连接上；代码写错了

其中 If Trim(mrc!user_PWD) = Trim(txtPassword.Text) Then这句也可以这样写：If Trim(mrc.Fields(1)) = Trim(txtPassword.Text) Then