酒店管理系統(tǒng)需求分析范文-文庫吧資料
2024-08-15 22:25本頁面
【正文】 s (SQL)If = 0 Then MsgBox 沒有該賬號 txtUser = txtPassword = Else If Password = Rs(密碼) Then MsgBox 登陸成功 SQL = SELECT 姓名, 權(quán)限, SQL = SQL + FROM 員工信息表 LEFT JOIN 管理員信息 ON = SQL = SQL + WHERE 賬號=39。Open_Rs (SQL)With PInfo .ID = Rs(員工ID) .Name = Rs(姓名) .Department = Rs(部門) .Position = Rs(職位) .EDate = Rs(入職日期) .State = Rs(權(quán)限) .Password = Rs(密碼) .Username = Rs(賬號) If Rs(權(quán)限) = 管理員 Then .Root = True Else .Root = False End IfEnd With = 員 工 ID： + + vbCrLf + vbCrLf + 姓 名： + + vbCrLf + vbCrLf = + 所屬部門： + + vbCrLf + vbCrLf + 職 位： + + vbCrLf + vbCrLf = + 入職日期： + Trim() + vbCrLf + vbCrLf + 權(quán) 限： + End Sub3. 登陸：Private Sub OK_Click(Index As Integer)Dim SQL As StringUsername = txtUserPassword = txtPasswordIf Trim(Username) = Then MsgBox 請輸入用戶名 txtUser = txtPassword = Exit SubEnd IfIf Password = Then MsgBox 請輸入密碼 txtPassword = Exit SubEnd IfSQL = SELECT * FROM 管理員信息 WHERE 賬號=39。 dFileEnd SubPublic Sub Open_Rs(SQL As String)If = 1 Then SQL, conn, adOpenKeyset, adLockBatchOptimisticEnd Sub2. 初始化用戶：Type PerInfo ID As String Name As String Department As String Position As String EDate As Date State As String Root As Boolean Passwo
醫(yī)療健康相關(guān)推薦
鄂ICP備17016276號-1