frmusermanager.vb

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

                    chkBill.Checked = True
                    chkBill.Enabled = False
                Case UserManager.Identity.PartmentManager
                    gpFunctionModel.Enabled = True
                    chkClerkManage.Enabled = True
                    chkForest.Enabled = False
                    chkSendService.Enabled = False
                    chkOrderService.Enabled = False
                    chkClerkManage.Checked = False
                    chkForest.Checked = False
                    chkSendService.Checked = False
                    chkOrderService.Checked = False
                    rdtForest.Visible = False
                    rdtSend.Visible = False
                    rdtOrder.Visible = False
                    chkBill.Visible = True
                    chkBill.Enabled = True
                    chkBill.Checked = False
            End Select
        End Sub

        Private Sub btnBrowse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBrowse.Click
            Dim OpenPhotoFileDialog As New OpenFileDialog
            With OpenPhotoFileDialog
                .Title = ""
                .CheckFileExists = True
                .Filter = "BMP Files(*.bmp)|*.bmp|JPEG Files(*.jpg)|*.jpg"
                If .ShowDialog = DialogResult.OK Then
                    mFileName = .FileName
                End If
            End With
            If mFileName = String.Empty Then
                Return
            End If
            Dim mImage As Bitmap = New Bitmap(mFileName)
            UserPhoto.Image = mImage
        End Sub

        Private Sub btnAdd_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles btnAdd.Click
            If (txtUserID.Text.Trim = String.Empty) Or _
            (txtUserPwd.Text.Trim = String.Empty) Then
                Throw New ArgumentNullException
                Exit Sub
            End If
            Select Case m_UserIdentity
                Case UserManager.Identity.Administrator
                    mUserModel = "'0|0|0|0|0|'"
                Case UserManager.Identity.ClientOperator
                    mUserModel = "'" & Abs(CInt(rdtForest.Checked)) & "|" & _
                    Abs(CInt(rdtSend.Checked)) & "|" & _
                    Abs(CInt(rdtOrder.Checked)) & "|0|0|'"
                Case UserManager.Identity.GeneralManager
                    mUserModel = "'1|1|1|1|1|'"
                Case UserManager.Identity.PartmentManager
                    mUserModel = "'0|0|0|" & Abs(CInt(chkClerkManage.Checked)) _
                    & "|" & Abs(CInt(chkBill.Checked)) & "|'"
            End Select
            Try
                Dim _FileName As String = String.Empty
                If Not mFileName = String.Empty Then
                    _FileName = mFileName.Substring(mFileName.LastIndexOf("\") + 1)
                End If
                UserManager.AddUser(txtUserID.Text.Trim, _
                txtUserPwd.Text.Trim, m_UserIdentity, mUserModel, _FileName)
            Catch ex As Exception
            End Try
        End Sub

        Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
            Me.Close()
        End Sub

        Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.Click
            If txtUserID.Text.Trim = String.Empty Then
                Return
            End If
            Sqlstr = "SELECT * FROM UserInfo WHERE user_id='" & txtUserID.Text.Trim & "'"
            Try
                Dim tempDS As New DataSet
                Dim tempModel As String
                Dim tempPicture As String
                tempDS.Clear()
                tempDS = AccessToDatabase.GetDataFromDB(Sqlstr)
                If Not tempDS Is Nothing Then
                    If tempDS.Tables(0).Rows.Count > 0 Then
                        cmbUserIdentity.SelectedIndex = CInt(tempDS.Tables(0).Rows(0)("user_pepdom"))
                        tempModel = CStr(tempDS.Tables(0).Rows(0)("user_mod"))
                        If tempDS.Tables(0).Rows(0).Item("user_picture").GetType.ToString = "System.DBNull" Then
                            tempPicture = String.Empty
                        Else
                            tempPicture = CStr(tempDS.Tables(0).Rows(0)("user_picture")).Trim
                        End If
                        DisplayUserInfo(CType(cmbUserIdentity.SelectedItem, UserManager.Identity), tempModel, tempPicture)
                        System.Threading.Thread.Sleep(1000)
                        If MsgBox("小心的提示您，真的要删除该用户么？", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "删除用户确认") = MsgBoxResult.Yes Then
                            Sqlstr = "DELETE UserInfo WHERE user_id='" & txtUserID.Text.Trim & "'"
                            AccessToDatabase.UpdateData(Sqlstr)
                            MsgBox("OKay，您已经将该用户永久的删掉了。", MsgBoxStyle.OKOnly + MsgBoxStyle.Information, "删除用户成功")
                        Else
                            Return
                        End If
                    Else
                        MsgBox("咦，目前好像没有这个用户哦。", MsgBoxStyle.OKOnly + MsgBoxStyle.Exclamation, "经查无此用户")
                        Return
                    End If
                Else
                    Return
                End If
            Catch ex As Exception
            End Try
            txtUserPwd.Enabled = True
            cmbUserIdentity.Enabled = True
            cmbUserIdentity.SelectedIndex = 0
        End Sub

        Private Sub btnQuery_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnQuery.Click
            If txtUserID.Text.Trim = String.Empty Then
                Return
            End If
            Sqlstr = "SELECT * FROM UserInfo WHERE user_id='" & txtUserID.Text.Trim & "'"
            Try
                Dim tempDS As New DataSet
                Dim tempModel As String
                Dim tempPicture As String
                tempDS.Clear()
                tempDS = AccessToDatabase.GetDataFromDB(Sqlstr)
                If Not tempDS Is Nothing Then
                    If tempDS.Tables(0).Rows.Count > 0 Then
                        cmbUserIdentity.SelectedIndex = CInt(tempDS.Tables(0).Rows(0)("user_pepdom"))
                        tempModel = CStr(tempDS.Tables(0).Rows(0)("user_mod"))
                        If tempDS.Tables(0).Rows(0).Item("user_picture").GetType.ToString = "System.DBNull" Then
                            tempPicture = String.Empty
                        Else
                            tempPicture = CStr(tempDS.Tables(0).Rows(0)("user_picture")).Trim
                        End If
                        DisplayUserInfo(CType(cmbUserIdentity.SelectedItem, UserManager.Identity), tempModel, tempPicture)
                    Else
                        Return
                    End If
                End If
            Catch ex As Exception
            End Try
        End Sub

        Private Sub btnUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpdate.Click
            If txtUserID.Text.Trim = String.Empty Then
                Throw New ArgumentNullException
            End If
            Select Case m_UserIdentity
                Case UserManager.Identity.Administrator
                    mUserModel = "'0|0|0|0|0|'"
                Case UserManager.Identity.ClientOperator
                    mUserModel = "'" & Abs(CInt(rdtForest.Checked)) & "|" & Abs(CInt(rdtSend.Checked)) & "|" & Abs(CInt(rdtOrder.Checked)) & "|0|0|'"
                Case UserManager.Identity.GeneralManager
                    mUserModel = "'1|1|1|1|1|'"
                Case UserManager.Identity.PartmentManager
                    mUserModel = "'0|0|0|" & Abs(CInt(chkClerkManage.Checked)) & "|" & Abs(CInt(chkBill.Checked)) & "|'"
            End Select
            Try
                Dim _FileName As String = String.Empty
                If Not mFileName = String.Empty Then
                    _FileName = mFileName.Substring(mFileName.LastIndexOf("\") + 1)
                End If
                UserManager.UpdateUser(txtUserID.Text.Trim, m_UserIdentity, mUserModel, _FileName)
            Catch ex As Exception
                MsgBox("抱歉，您没能更新该用户的资料信息。", MsgBoxStyle.OKOnly + MsgBoxStyle.Exclamation, "更新用户资料失败")
            End Try
            MsgBox("耶，您成功的更新了一个用户资料。", MsgBoxStyle.OKOnly + MsgBoxStyle.Information, "更新用户资料成功")
            txtUserPwd.Enabled = True
            cmbUserIdentity.Enabled = True
        End Sub

        Private Sub DisplayUserInfo(ByVal UserIdentity As UserManager.Identity, ByVal UserModel As String, ByVal UserPicture As String)
            Dim tempMod() As String
            txtUserPwd.Text = String.Empty
            txtUserPwd.Enabled = False
            cmbUserIdentity.Enabled = False
            Select Case UserIdentity
                Case UserManager.Identity.Administrator
                Case UserManager.Identity.GeneralManager
                Case UserManager.Identity.PartmentManager
                    tempMod = UserModel.Split("|")
                    If tempMod.Length >= 5 Then
                        chkClerkManage.Checked = CBool(CInt(tempMod(3)))
                        chkBill.Checked = CBool(CInt(tempMod(4)))
                    End If
                Case UserManager.Identity.ClientOperator
                    tempMod = UserModel.Split("|")
                    If tempMod.Length >= 5 Then
                        rdtForest.Checked = CBool(CInt(tempMod(0)))
                        rdtSend.Checked = CBool(CInt(tempMod(1)))
                        rdtOrder.Checked = CBool(CInt(tempMod(2)))
                    End If
            End Select
            If UserPicture = String.Empty Then
                UserPhoto.Image = Nothing
            Else
                mFileName = AccessToDatabase.GetStartupPath & "\UserPhoto\" & UserPicture
                UserPhoto.Image = New Bitmap(mFileName)
            End If
        End Sub

        Private Sub txtUserID_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtUserID.KeyDown
            If e.KeyCode = Keys.Enter Then
                If txtUserID.Text.Trim = String.Empty Then
                    Return
                End If
                btnQuery_Click(Nothing, Nothing)
            End If
        End Sub

    End Class

End Namespace