《毕业设计源代码》.docVIP

  • 52
  • 0
  • 约4.17万字
  • 约 34页
  • 2016-12-13 发布于贵州
  • 举报
毕业设计源代码学生姓名:班级学号指导教师:职 称: 所在系(教研室):其中登录按钮的源码如下: 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_

您可能关注的文档

文档评论(0)

1亿VIP精品文档

相关文档