《毕业设计源代码》.docVIP

毕业设计源代码学生姓名：班级学号指导教师：职 称： 所在系（教研室）：其中登录按钮的源码如下: Private Sub cmdLogin_Click()首先检查用户是否输入了用户名和密码If txtUser.Text = ThenMsgBox 请输入用户名！, vbOKOnly + vbInformation, 注意txtUser.SetFocusExit SubElseIf txtPwd.Text = ThenMsgBox 请输入密码！, vbOKOnly + vbInformation, 注意txtPwd.SetFocusExit SubEnd IfDim sqluser As String构造查询该用户名和密码的sql语句sqluser = select * from UserTable where Username = txtUser.Text _ and Password = txtPwd.Text rs_user.CursorLocation = adUseClient打开数据游标rs_user.Open sqluser, conn, adOpenKeyset, adLockPessimisticIf rs_user.EOF = True ThenMsgBox 用户名或密码不正确！, vbOKOnly + vbInformation, 注意rs_