frmusermanager.vb

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

            Me.btnUpdate.Size = New System.Drawing.Size(64, 24)
            Me.btnUpdate.TabIndex = 5
            Me.btnUpdate.Text = "更新资料"
            '
            'btnAdd
            '
            Me.btnAdd.BackColor = System.Drawing.SystemColors.InactiveBorder
            Me.btnAdd.FlatStyle = System.Windows.Forms.FlatStyle.Popup
            Me.btnAdd.ForeColor = System.Drawing.Color.Navy
            Me.btnAdd.Location = New System.Drawing.Point(8, 264)
            Me.btnAdd.Name = "btnAdd"
            Me.btnAdd.Size = New System.Drawing.Size(64, 24)
            Me.btnAdd.TabIndex = 3
            Me.btnAdd.Text = "添加用户"
            '
            'gpFunctionModel
            '
            Me.gpFunctionModel.Controls.Add(Me.chkBill)
            Me.gpFunctionModel.Controls.Add(Me.rdtOrder)
            Me.gpFunctionModel.Controls.Add(Me.rdtSend)
            Me.gpFunctionModel.Controls.Add(Me.rdtForest)
            Me.gpFunctionModel.Controls.Add(Me.gbSeparate)
            Me.gpFunctionModel.Controls.Add(Me.chkClerkManage)
            Me.gpFunctionModel.Controls.Add(Me.chkSendService)
            Me.gpFunctionModel.Controls.Add(Me.chkOrderService)
            Me.gpFunctionModel.Controls.Add(Me.chkForest)
            Me.gpFunctionModel.Enabled = False
            Me.gpFunctionModel.ForeColor = System.Drawing.Color.Navy
            Me.gpFunctionModel.Location = New System.Drawing.Point(8, 160)
            Me.gpFunctionModel.Name = "gpFunctionModel"
            Me.gpFunctionModel.Size = New System.Drawing.Size(352, 96)
            Me.gpFunctionModel.TabIndex = 6
            Me.gpFunctionModel.TabStop = False
            Me.gpFunctionModel.Text = "功 能 模 块"
            '
            'chkBill
            '
            Me.chkBill.FlatStyle = System.Windows.Forms.FlatStyle.Flat
            Me.chkBill.Location = New System.Drawing.Point(128, 64)
            Me.chkBill.Name = "chkBill"
            Me.chkBill.Size = New System.Drawing.Size(96, 24)
            Me.chkBill.TabIndex = 8
            Me.chkBill.Text = "财务会计"
            '
            'rdtOrder
            '
            Me.rdtOrder.FlatStyle = System.Windows.Forms.FlatStyle.Flat
            Me.rdtOrder.Location = New System.Drawing.Point(240, 24)
            Me.rdtOrder.Name = "rdtOrder"
            Me.rdtOrder.TabIndex = 7
            Me.rdtOrder.Text = "酒宴预定"
            '
            'rdtSend
            '
            Me.rdtSend.FlatStyle = System.Windows.Forms.FlatStyle.Flat
            Me.rdtSend.Location = New System.Drawing.Point(128, 24)
            Me.rdtSend.Name = "rdtSend"
            Me.rdtSend.Size = New System.Drawing.Size(96, 24)
            Me.rdtSend.TabIndex = 6
            Me.rdtSend.Text = "外卖服务"
            '
            'rdtForest
            '
            Me.rdtForest.FlatStyle = System.Windows.Forms.FlatStyle.Flat
            Me.rdtForest.Location = New System.Drawing.Point(8, 24)
            Me.rdtForest.Name = "rdtForest"
            Me.rdtForest.Size = New System.Drawing.Size(96, 24)
            Me.rdtForest.TabIndex = 5
            Me.rdtForest.Text = "前台营业"
            '
            'gbSeparate
            '
            Me.gbSeparate.Location = New System.Drawing.Point(8, 48)
            Me.gbSeparate.Name = "gbSeparate"
            Me.gbSeparate.Size = New System.Drawing.Size(336, 8)
            Me.gbSeparate.TabIndex = 4
            Me.gbSeparate.TabStop = False
            '
            'chkClerkManage
            '
            Me.chkClerkManage.FlatStyle = System.Windows.Forms.FlatStyle.Flat
            Me.chkClerkManage.Location = New System.Drawing.Point(8, 64)
            Me.chkClerkManage.Name = "chkClerkManage"
            Me.chkClerkManage.TabIndex = 3
            Me.chkClerkManage.Text = "员工管理"
            '
            'chkSendService
            '
            Me.chkSendService.FlatStyle = System.Windows.Forms.FlatStyle.Flat
            Me.chkSendService.Location = New System.Drawing.Point(128, 24)
            Me.chkSendService.Name = "chkSendService"
            Me.chkSendService.Size = New System.Drawing.Size(96, 24)
            Me.chkSendService.TabIndex = 1
            Me.chkSendService.Text = "外卖服务"
            '
            'chkOrderService
            '
            Me.chkOrderService.FlatStyle = System.Windows.Forms.FlatStyle.Flat
            Me.chkOrderService.Location = New System.Drawing.Point(240, 24)
            Me.chkOrderService.Name = "chkOrderService"
            Me.chkOrderService.TabIndex = 2
            Me.chkOrderService.Text = "酒宴预定"
            '
            'chkForest
            '
            Me.chkForest.FlatStyle = System.Windows.Forms.FlatStyle.Flat
            Me.chkForest.Location = New System.Drawing.Point(8, 24)
            Me.chkForest.Name = "chkForest"
            Me.chkForest.TabIndex = 0
            Me.chkForest.Text = "前台营业"
            '
            'lbUserIndentity
            '
            Me.lbUserIndentity.Location = New System.Drawing.Point(32, 104)
            Me.lbUserIndentity.Name = "lbUserIndentity"
            Me.lbUserIndentity.Size = New System.Drawing.Size(56, 20)
            Me.lbUserIndentity.TabIndex = 4
            Me.lbUserIndentity.Text = "用户身份"
            Me.lbUserIndentity.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
            '
            'txtUserID
            '
            Me.txtUserID.BackColor = System.Drawing.SystemColors.Info
            Me.txtUserID.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
            Me.txtUserID.Location = New System.Drawing.Point(88, 24)
            Me.txtUserID.MaxLength = 15
            Me.txtUserID.Name = "txtUserID"
            Me.txtUserID.Size = New System.Drawing.Size(144, 21)
            Me.txtUserID.TabIndex = 0
            Me.txtUserID.Text = ""
            '
            'lbUserID
            '
            Me.lbUserID.Location = New System.Drawing.Point(32, 24)
            Me.lbUserID.Name = "lbUserID"
            Me.lbUserID.Size = New System.Drawing.Size(56, 21)
            Me.lbUserID.TabIndex = 0
            Me.lbUserID.Text = "用户账号"
            Me.lbUserID.TextAlign = System.Drawing.ContentAlignment.BottomLeft
            '
            'frmUserManager
            '
            Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
            Me.CancelButton = Me.btnOK
            Me.ClientSize = New System.Drawing.Size(382, 312)
            Me.Controls.Add(Me.gpUserInfo)
            Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
            Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
            Me.KeyPreview = True
            Me.MaximizeBox = False
            Me.Name = "frmUserManager"
            Me.Text = "用户管理"
            Me.gpUserInfo.ResumeLayout(False)
            Me.gpFunctionModel.ResumeLayout(False)
            Me.ResumeLayout(False)

        End Sub

#End Region

        Public Property CurrentUser() As String
            Get
                Return m_User
            End Get
            Set(ByVal Value As String)
                m_User = Value
            End Set
        End Property

        Private Sub frmUserManager_Load(ByVal sender As System.Object, _
                                ByVal e As System.EventArgs) Handles MyBase.Load
            Me.cmbUserIdentity.Items.Add(UserManager.Identity.Administrator)
            Me.cmbUserIdentity.Items.Add(UserManager.Identity.GeneralManager)
            Me.cmbUserIdentity.Items.Add(UserManager.Identity.PartmentManager)
            Me.cmbUserIdentity.Items.Add(UserManager.Identity.ClientOperator)
            Me.cmbUserIdentity.SelectedIndex = 0
            txtUserID.Text = Me.CurrentUser
            btnQuery_Click(Nothing, Nothing)
        End Sub

        Private Sub cmbUserIdentity_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbUserIdentity.SelectedIndexChanged
            If cmbUserIdentity.SelectedIndex < 0 Then
                Return
            End If
            m_UserIdentity = CType(cmbUserIdentity.SelectedItem, UserManager.Identity)
            Select Case m_UserIdentity
                Case UserManager.Identity.Administrator
                    gpFunctionModel.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 = False
                Case UserManager.Identity.ClientOperator
                    gpFunctionModel.Enabled = True
                    chkClerkManage.Enabled = False
                    chkClerkManage.Checked = False
                    rdtForest.Visible = True
                    rdtSend.Visible = True
                    rdtOrder.Visible = True
                    chkBill.Visible = False
                Case UserManager.Identity.GeneralManager
                    gpFunctionModel.Enabled = True
                    chkClerkManage.Enabled = False
                    chkForest.Enabled = False
                    chkSendService.Enabled = False
                    chkOrderService.Enabled = False
                    chkForest.Checked = True
                    chkSendService.Checked = True
                    chkOrderService.Checked = True
                    chkClerkManage.Checked = True
                    rdtForest.Visible = False
                    rdtSend.Visible = False
                    rdtOrder.Visible = False
                    chkBill.Visible = True