学生管理系统--用户登录窗体创建总结

一、登录界面视觉效果

二、代码的实现

Private Sub cmdOK_Click()‘用来存放SQL语句Dim txtSQL As String‘用来存放记录集对象Dim mrc As ADODB.Recordset‘用来存放返回信息Dim msgText As StringUserName = “”‘判断输入用户名是否为空If Trim(txtUserName.Text = “”) ThenMsgBox “没有这个用户，请重新输入用户名！”, vbOKOnly + vbExclamation, “警告”txtUserName.SetFocusElse‘查询指定用户名的记录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 “没有这个用户，请重新输入用户名！”, vbOKOnly + vbExclamation, “警告”txtUserName.SetFocusElse‘判断输入密码是否正确If Trim(mrc!user_PWD) = Trim(txtPassword.Text) ThenFrmMain.Showmrc.CloseMe.HideUserName = Trim(txtUserName.Text)ElseMsgBox “输入密码不正确，请重新输入！”, vbOKOnly + vbExclamation, “警告”txtPassword.SetFocustxtPassword.Text = “”End IfEnd IfEnd If‘记载输入密码次数miCount = miCouont + 1If miCount = 3 ThenMe.Hide ‘Me指代当前对象本身–End IfExit SubEnd SubPrivate Sub cmdCancel_Click()Unload MeEnd Sub

三、学习总结

1.界面总结部件的部署和背景色彩很重要，我需要多努力完善对艺术欣赏的能力。2.代码总结很容易写错了的语句txtSQL = “select * from user_Info where user_ID= ‘” & txtUserName.Text & “’”如果出错了，常提示错误“91”就是对象变量或with块变量未定义。原因是数据库没连接上；代码写错了其中 If Trim(mrc!user_PWD) = Trim(txtPassword.Text) Then这句也可以这样写：If Trim(mrc.Fields(1)) = Trim(txtPassword.Text) Then