usermanager.vb

单机版餐饮服务系统,结合了SqlServer数据库

Imports System
Imports System.Data
Imports System.ComponentModel
Imports System.Security.Principal
Imports System.Security.Cryptography

Namespace HZC.DinningService

    Public Class UserManager

        '//定义登录用户的身份
        Public Enum Identity
            '// 系统管理员
            Administrator
            '// 酒店总经理
            GeneralManager
            '// 部门经理
            PartmentManager
            '// 普通终端操作员
            ClientOperator
        End Enum

        Private Shared sqlstr As String = String.Empty

        '// 添加新用户
        Public Shared Sub AddUser( _
                          ByVal UserName As String, _
                          ByVal Password As String, _
                          ByVal Pepdom As Identity, _
                          ByVal mUserModel As String, _
                          ByVal UserPicture As String)
            Select Case Pepdom
                Case Identity.Administrator
                    sqlstr = "INSERT INTO UserInfo(user_id,user_pwd,user_pepdom," & _
                    "user_mod,user_picture) VALUES( '" & UserName & "','" _
                    & Logon.Encrypt(Password) & "','0'," & mUserModel & ",'" & _
                    UserPicture & "') "
                Case Identity.GeneralManager
                    sqlstr = "INSERT INTO UserInfo(user_id,user_pwd,user_pepdom," & _
                   "user_mod,user_picture) VALUES( '" & UserName & "','" _
                   & Logon.Encrypt(Password) & "','1'," & mUserModel & ",'" & _
                   UserPicture & "') "
                Case Identity.PartmentManager
                    sqlstr = "INSERT INTO UserInfo(user_id,user_pwd,user_pepdom," & _
                   "user_mod,user_picture) VALUES( '" & UserName & "','" _
                   & Logon.Encrypt(Password) & "','2'," & mUserModel & ",'" & _
                   UserPicture & "') "
                Case Identity.ClientOperator
                    sqlstr = "INSERT INTO UserInfo(user_id,user_pwd,user_pepdom," & _
                   "user_mod,user_picture) VALUES( '" & UserName & "','" _
                   & Logon.Encrypt(Password) & "','3'," & mUserModel & ",'" & _
                   UserPicture & "') "
            End Select
            Try
                AccessToDatabase.UpdateData(sqlstr)
                MsgBox("耶，您成功的添加了一个新的用户。", MsgBoxStyle.OKOnly + MsgBoxStyle.Information, "添加用户成功")
            Catch ex As Exception
                MsgBox("喔哟，您没能添加一个新的用户，请检查是否有用户重名。", MsgBoxStyle.OKOnly + MsgBoxStyle.Exclamation, "添加用户失败")
            End Try
        End Sub

        Public Shared Function UpdateUser( _
                               ByVal UserName As String, _
                               ByVal Pepdom As Identity, _
                               ByVal UserModel As String, _
                               ByVal UserPicture As String _
                               ) As Boolean
            Select Case Pepdom
                Case Identity.Administrator
                    sqlstr = "UPDATE UserInfo SET user_pepdom='0',user_mod=" _
                    & UserModel & ",user_picture='" & UserPicture _
                    & "' WHERE user_id='" & UserName & "'"
                Case Identity.GeneralManager
                    sqlstr = "UPDATE UserInfo SET user_pepdom='1'," _
                   & "user_mod=" & UserModel & ",user_picture='" & UserPicture _
                  & "' WHERE user_id='" & UserName & "'"
                Case Identity.PartmentManager
                    sqlstr = "UPDATE UserInfo SET user_pepdom='2',user_mod=" _
                    & UserModel & ",user_picture='" & UserPicture _
                    & "' WHERE user_id='" & UserName & "'"
                Case Identity.ClientOperator
                    sqlstr = "UPDATE UserInfo SET user_pepdom='3',user_mod=" _
                    & UserModel & ",user_picture='" & UserPicture _
                   & "' WHERE user_id='" & UserName & "'"
            End Select
            Try
                AccessToDatabase.UpdateData(sqlstr)
            Catch ex As Exception
                Return False
            End Try
            Return True
        End Function

    End Class

End Namespace