frmemployee.vb

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

            Me.Label7.TextAlign = System.Drawing.ContentAlignment.MiddleRight
            '
            'txtAddress
            '
            Me.txtAddress.BackColor = System.Drawing.SystemColors.Info
            Me.txtAddress.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
            Me.txtAddress.Location = New System.Drawing.Point(80, 312)
            Me.txtAddress.MaxLength = 100
            Me.txtAddress.Multiline = True
            Me.txtAddress.Name = "txtAddress"
            Me.txtAddress.Size = New System.Drawing.Size(240, 56)
            Me.txtAddress.TabIndex = 5
            Me.txtAddress.Text = ""
            '
            'Label6
            '
            Me.Label6.ForeColor = System.Drawing.Color.Navy
            Me.Label6.Location = New System.Drawing.Point(8, 312)
            Me.Label6.Name = "Label6"
            Me.Label6.Size = New System.Drawing.Size(64, 21)
            Me.Label6.TabIndex = 10
            Me.Label6.Text = "目前住址"
            Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleRight
            '
            'txtTelephone
            '
            Me.txtTelephone.BackColor = System.Drawing.SystemColors.Info
            Me.txtTelephone.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
            Me.txtTelephone.Location = New System.Drawing.Point(80, 152)
            Me.txtTelephone.MaxLength = 17
            Me.txtTelephone.Name = "txtTelephone"
            Me.txtTelephone.Size = New System.Drawing.Size(144, 21)
            Me.txtTelephone.TabIndex = 4
            Me.txtTelephone.Text = ""
            '
            'Label5
            '
            Me.Label5.ForeColor = System.Drawing.Color.Navy
            Me.Label5.Location = New System.Drawing.Point(8, 152)
            Me.Label5.Name = "Label5"
            Me.Label5.Size = New System.Drawing.Size(64, 21)
            Me.Label5.TabIndex = 8
            Me.Label5.Text = "联系电话"
            Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleRight
            '
            'cmbMarriedInfo
            '
            Me.cmbMarriedInfo.BackColor = System.Drawing.SystemColors.Info
            Me.cmbMarriedInfo.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
            Me.cmbMarriedInfo.Items.AddRange(New Object() {"  未婚", "  已婚", "  离异"})
            Me.cmbMarriedInfo.Location = New System.Drawing.Point(80, 120)
            Me.cmbMarriedInfo.Name = "cmbMarriedInfo"
            Me.cmbMarriedInfo.Size = New System.Drawing.Size(144, 20)
            Me.cmbMarriedInfo.TabIndex = 3
            '
            'Label4
            '
            Me.Label4.ForeColor = System.Drawing.Color.Navy
            Me.Label4.Location = New System.Drawing.Point(8, 120)
            Me.Label4.Name = "Label4"
            Me.Label4.Size = New System.Drawing.Size(64, 21)
            Me.Label4.TabIndex = 6
            Me.Label4.Text = "婚    否*"
            Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleRight
            '
            'txtTrueName
            '
            Me.txtTrueName.BackColor = System.Drawing.SystemColors.Info
            Me.txtTrueName.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
            Me.txtTrueName.Location = New System.Drawing.Point(80, 56)
            Me.txtTrueName.MaxLength = 50
            Me.txtTrueName.Name = "txtTrueName"
            Me.txtTrueName.Size = New System.Drawing.Size(144, 21)
            Me.txtTrueName.TabIndex = 1
            Me.txtTrueName.Text = ""
            '
            'txtEmployeeID
            '
            Me.txtEmployeeID.BackColor = System.Drawing.SystemColors.Info
            Me.txtEmployeeID.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
            Me.txtEmployeeID.Location = New System.Drawing.Point(80, 24)
            Me.txtEmployeeID.MaxLength = 18
            Me.txtEmployeeID.Name = "txtEmployeeID"
            Me.txtEmployeeID.Size = New System.Drawing.Size(240, 21)
            Me.txtEmployeeID.TabIndex = 0
            Me.txtEmployeeID.Text = ""
            '
            'cmbGender
            '
            Me.cmbGender.BackColor = System.Drawing.SystemColors.Info
            Me.cmbGender.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
            Me.cmbGender.Items.AddRange(New Object() {"  男", "  女"})
            Me.cmbGender.Location = New System.Drawing.Point(80, 88)
            Me.cmbGender.Name = "cmbGender"
            Me.cmbGender.Size = New System.Drawing.Size(144, 20)
            Me.cmbGender.TabIndex = 2
            '
            'Label3
            '
            Me.Label3.ForeColor = System.Drawing.Color.Navy
            Me.Label3.Location = New System.Drawing.Point(8, 88)
            Me.Label3.Name = "Label3"
            Me.Label3.Size = New System.Drawing.Size(64, 21)
            Me.Label3.TabIndex = 2
            Me.Label3.Text = "性    别*"
            Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleRight
            '
            'Label2
            '
            Me.Label2.ForeColor = System.Drawing.Color.Navy
            Me.Label2.Location = New System.Drawing.Point(8, 56)
            Me.Label2.Name = "Label2"
            Me.Label2.Size = New System.Drawing.Size(64, 21)
            Me.Label2.TabIndex = 1
            Me.Label2.Text = "真实性名*"
            Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
            '
            'Label1
            '
            Me.Label1.ForeColor = System.Drawing.Color.Navy
            Me.Label1.Location = New System.Drawing.Point(8, 24)
            Me.Label1.Name = "Label1"
            Me.Label1.Size = New System.Drawing.Size(64, 21)
            Me.Label1.TabIndex = 0
            Me.Label1.Text = "身份证号*"
            Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
            '
            'GroupBox2
            '
            Me.GroupBox2.Controls.Add(Me.EmployeesTree)
            Me.GroupBox2.Location = New System.Drawing.Point(8, 16)
            Me.GroupBox2.Name = "GroupBox2"
            Me.GroupBox2.Size = New System.Drawing.Size(224, 376)
            Me.GroupBox2.TabIndex = 0
            Me.GroupBox2.TabStop = False
            Me.GroupBox2.Text = "部门与人员信息"
            '
            'EmployeesTree
            '
            Me.EmployeesTree.BackColor = System.Drawing.SystemColors.Info
            Me.EmployeesTree.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
            Me.EmployeesTree.ForeColor = System.Drawing.Color.Navy
            Me.EmployeesTree.FullRowSelect = True
            Me.EmployeesTree.ImageIndex = -1
            Me.EmployeesTree.Location = New System.Drawing.Point(8, 24)
            Me.EmployeesTree.Name = "EmployeesTree"
            Me.EmployeesTree.SelectedImageIndex = -1
            Me.EmployeesTree.Size = New System.Drawing.Size(208, 336)
            Me.EmployeesTree.TabIndex = 0
            '
            'btnHire
            '
            Me.btnHire.FlatStyle = System.Windows.Forms.FlatStyle.Flat
            Me.btnHire.ForeColor = System.Drawing.Color.Navy
            Me.btnHire.Location = New System.Drawing.Point(288, 416)
            Me.btnHire.Name = "btnHire"
            Me.btnHire.Size = New System.Drawing.Size(72, 24)
            Me.btnHire.TabIndex = 0
            Me.btnHire.Text = "聘 用"
            '
            'btnFire
            '
            Me.btnFire.FlatStyle = System.Windows.Forms.FlatStyle.Flat
            Me.btnFire.ForeColor = System.Drawing.Color.Navy
            Me.btnFire.Location = New System.Drawing.Point(448, 416)
            Me.btnFire.Name = "btnFire"
            Me.btnFire.Size = New System.Drawing.Size(64, 24)
            Me.btnFire.TabIndex = 1
            Me.btnFire.Text = "解 聘"
            '
            'btnOK
            '
            Me.btnOK.DialogResult = System.Windows.Forms.DialogResult.Cancel
            Me.btnOK.FlatStyle = System.Windows.Forms.FlatStyle.Flat
            Me.btnOK.ForeColor = System.Drawing.Color.Navy
            Me.btnOK.Location = New System.Drawing.Point(520, 416)
            Me.btnOK.Name = "btnOK"
            Me.btnOK.Size = New System.Drawing.Size(64, 24)
            Me.btnOK.TabIndex = 2
            Me.btnOK.Text = "确 定"
            '
            'btnClear
            '
            Me.btnClear.FlatStyle = System.Windows.Forms.FlatStyle.Flat
            Me.btnClear.ForeColor = System.Drawing.Color.Navy
            Me.btnClear.Location = New System.Drawing.Point(208, 416)
            Me.btnClear.Name = "btnClear"
            Me.btnClear.Size = New System.Drawing.Size(72, 24)
            Me.btnClear.TabIndex = 3
            Me.btnClear.Text = "清 空"
            '
            'btnUpdate
            '
            Me.btnUpdate.FlatStyle = System.Windows.Forms.FlatStyle.Flat
            Me.btnUpdate.ForeColor = System.Drawing.Color.Navy
            Me.btnUpdate.Location = New System.Drawing.Point(368, 416)
            Me.btnUpdate.Name = "btnUpdate"
            Me.btnUpdate.Size = New System.Drawing.Size(72, 24)
            Me.btnUpdate.TabIndex = 4
            Me.btnUpdate.Text = "更 新"
            '
            'frmEmployee
            '
            Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
            Me.CancelButton = Me.btnOK
            Me.ClientSize = New System.Drawing.Size(594, 448)
            Me.Controls.Add(Me.btnUpdate)
            Me.Controls.Add(Me.btnClear)
            Me.Controls.Add(Me.btnOK)
            Me.Controls.Add(Me.btnFire)
            Me.Controls.Add(Me.btnHire)
            Me.Controls.Add(Me.GroupBox1)
            Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
            Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
            Me.MaximizeBox = False
            Me.Name = "frmEmployee"
            Me.Text = "员工管理"
            Me.GroupBox1.ResumeLayout(False)
            Me.gpDetails.ResumeLayout(False)
            Me.GroupBox2.ResumeLayout(False)
            Me.ResumeLayout(False)

        End Sub

#End Region

        Private sqlstr As String = String.Empty
        Private mFileName As String = String.Empty
        Private Shared mEmployees As New SortedList

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

        Private Sub btnHire_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHire.Click
            Dim curclerk As Clerk
            curclerk = GetDataFromForm()
            Try
                sqlstr = "INSERT INTO ClerkInfo (ClerkID,ClerkName,Sex,Marry,Tel,Address," & _
                            "Dept,Duty,Salary,HireDate,PhotoPath) VALUES('" & curclerk.ID & "'," & _
                            "'" & curclerk.Name & "'," & curclerk.Sex & "," & _
                            "" & curclerk.Marry & ",'" & curclerk.Tel & "'," & _
                            "'" & curclerk.Address & "','" & curclerk.Dept & "'," & _
                            "'" & curclerk.Duty & "'," & curclerk.Salary & "," & _
                            "'" & curclerk.HireDate & "'," & "'" & curclerk.PhotoPath & "')"
                If AccessToDatabase.UpdateData(sqlstr) = True Then
                    MsgBox("已经成功添加了该用户", MsgBoxStyle.OKOnly + _
                    MsgBoxStyle.Information, "添加员工成功")
                Else
                    MsgBox("数据保存失败，数据无法插入。", MsgBoxStyle.OKOnly + _