计算机信息管理专业毕业论文--娱乐休闲型酒店管理信息系统设计（开题报告 源代码）.docVIP

计算机信息管理专业毕业论文--娱乐休闲型酒店管理信息系统设计（开题报告+源代码） Option Explicit Public LoginCount As Integer 定义此变量的目的是为了判断登录的次数 Private Sub CmdOk_Click If LoginCount 3 Then With DbCommand Set ActiveConnection DbConn CommandType adCmdText CommandText Select usernameuserpassword from hotellogin where username txtUersNameText Set DbTempSet Execute End With If DbTempSetEOF And DbTempSetBOF Then MsgBox 用户不存在请重新输入用户ID vbOKOnly frmLogintxtUersNameText frmLogintxtUersNameSetFocus Else If RTrim LTrim DbTempSetFields 1 Value txtPasswordText Then MsgBox 输入的该用户的密码错误请重新输入 vbOKOnly frmLogintxtPasswordText frmLogintxtPasswordSetFocus LoginCount LoginCount 1 Else UserId txtUersNameText LoginSucceeded True Unload Me End If End If Else If Not AppRun Then LoginSucceeded False Unload Me Else Unload frmMain Unload Me End If End If End Sub Private Sub cmdPasswork_Click If Not AppRun Then LoginSucceeded False Unload Me Else Unload frmMain Unload Me End End If End Sub Private Sub Form_Activate frmLogintxtUersNameSetFocus frmLogintxtUersNameText frmLogintxtPasswordText End Sub Private Sub Form_Load On Error GoTo ProErr frmLoginLeft 3900 调整窗体的位置靠左面的距离 frmLoginTop 3200 调整窗体的位置 靠顶部的距离 Call get_text With DbConn If State adStateClosed Then Close End If End With If DbConn Is Nothing Then End If DbConnOpen Exit Sub ProErr MsgBox ErrDescription vbOKOnly AppTitle End Sub 此段程序的目的是当按回车键的时候光标自动跳入txtpasswordtext中 Private Sub txtUersName_Keydown KeyCode As Integer Shift As Integer If KeyCode 13 Then frmLogintxtPasswordSetFocus End If End Sub 此段程序目的是当按回车键的时候光标自动跳入到确定按扭上准备开始验证输入的用户名称和用户密码 private Sub txtPassword_KeyDown KeyCode As Integer Shift As Integer If KeyCode