formemployee.vb

人事管理系统（VB.NET2005+SQL Server2005）

        Me.cmbNation.TabIndex = 18
        '
        'txtIntro
        '
        Me.txtIntro.Location = New System.Drawing.Point(16, 184)
        Me.txtIntro.Margin = New System.Windows.Forms.Padding(3, 1, 3, 3)
        Me.txtIntro.Multiline = True
        Me.txtIntro.Name = "txtIntro"
        Me.txtIntro.Size = New System.Drawing.Size(328, 56)
        Me.txtIntro.TabIndex = 17
        '
        'txtName
        '
        Me.txtName.Location = New System.Drawing.Point(48, 16)
        Me.txtName.Margin = New System.Windows.Forms.Padding(1, 3, 3, 1)
        Me.txtName.Name = "txtName"
        Me.txtName.Size = New System.Drawing.Size(72, 21)
        Me.txtName.TabIndex = 16
        '
        'PictureBox1
        '
        Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
        Me.PictureBox1.Location = New System.Drawing.Point(360, 144)
        Me.PictureBox1.Name = "PictureBox1"
        Me.PictureBox1.Size = New System.Drawing.Size(100, 96)
        Me.PictureBox1.TabIndex = 15
        Me.PictureBox1.TabStop = False
        '
        'Label15
        '
        Me.Label15.Location = New System.Drawing.Point(128, 112)
        Me.Label15.Margin = New System.Windows.Forms.Padding(3, 3, 1, 1)
        Me.Label15.Name = "Label15"
        Me.Label15.Size = New System.Drawing.Size(46, 20)
        Me.Label15.TabIndex = 14
        Me.Label15.Text = "地址"
        '
        'Label14
        '
        Me.Label14.Location = New System.Drawing.Point(8, 136)
        Me.Label14.Margin = New System.Windows.Forms.Padding(3, 1, 3, 1)
        Me.Label14.Name = "Label14"
        Me.Label14.Size = New System.Drawing.Size(82, 21)
        Me.Label14.TabIndex = 13
        Me.Label14.Text = "私人Email"
        '
        'Label13
        '
        Me.Label13.Location = New System.Drawing.Point(16, 160)
        Me.Label13.Margin = New System.Windows.Forms.Padding(3, 1, 3, 2)
        Me.Label13.Name = "Label13"
        Me.Label13.Size = New System.Drawing.Size(74, 21)
        Me.Label13.TabIndex = 12
        Me.Label13.Text = "个人简介"
        '
        'Label12
        '
        Me.Label12.Location = New System.Drawing.Point(128, 16)
        Me.Label12.Margin = New System.Windows.Forms.Padding(3, 3, 1, 1)
        Me.Label12.Name = "Label12"
        Me.Label12.Size = New System.Drawing.Size(46, 21)
        Me.Label12.TabIndex = 11
        Me.Label12.Text = "性别"
        '
        'Label11
        '
        Me.Label11.Location = New System.Drawing.Point(257, 16)
        Me.Label11.Margin = New System.Windows.Forms.Padding(3, 3, 3, 1)
        Me.Label11.Name = "Label11"
        Me.Label11.Size = New System.Drawing.Size(75, 21)
        Me.Label11.TabIndex = 10
        Me.Label11.Text = "出生时间"
        '
        'Label10
        '
        Me.Label10.Location = New System.Drawing.Point(8, 40)
        Me.Label10.Margin = New System.Windows.Forms.Padding(3, 1, 1, 1)
        Me.Label10.Name = "Label10"
        Me.Label10.Size = New System.Drawing.Size(38, 21)
        Me.Label10.TabIndex = 9
        Me.Label10.Text = "民族"
        '
        'Label9
        '
        Me.Label9.Location = New System.Drawing.Point(128, 40)
        Me.Label9.Margin = New System.Windows.Forms.Padding(3, 2, 1, 1)
        Me.Label9.Name = "Label9"
        Me.Label9.Size = New System.Drawing.Size(45, 21)
        Me.Label9.TabIndex = 8
        Me.Label9.Text = "婚姻"
        '
        'Label8
        '
        Me.Label8.Location = New System.Drawing.Point(257, 40)
        Me.Label8.Margin = New System.Windows.Forms.Padding(3, 2, 3, 1)
        Me.Label8.Name = "Label8"
        Me.Label8.Size = New System.Drawing.Size(75, 21)
        Me.Label8.TabIndex = 7
        Me.Label8.Text = "身份证"
        '
        'Label7
        '
        Me.Label7.Location = New System.Drawing.Point(8, 64)
        Me.Label7.Margin = New System.Windows.Forms.Padding(3, 1, 1, 1)
        Me.Label7.Name = "Label7"
        Me.Label7.Size = New System.Drawing.Size(38, 21)
        Me.Label7.TabIndex = 6
        Me.Label7.Text = "学历"
        '
        'Label6
        '
        Me.Label6.Location = New System.Drawing.Point(128, 64)
        Me.Label6.Margin = New System.Windows.Forms.Padding(3, 1, 1, 2)
        Me.Label6.Name = "Label6"
        Me.Label6.Size = New System.Drawing.Size(46, 21)
        Me.Label6.TabIndex = 5
        Me.Label6.Text = "职称"
        '
        'Label5
        '
        Me.Label5.Location = New System.Drawing.Point(257, 64)
        Me.Label5.Margin = New System.Windows.Forms.Padding(3, 1, 3, 1)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(75, 21)
        Me.Label5.TabIndex = 4
        Me.Label5.Text = "家庭电话"
        '
        'Label4
        '
        Me.Label4.Location = New System.Drawing.Point(8, 88)
        Me.Label4.Margin = New System.Windows.Forms.Padding(3, 2, 1, 1)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(38, 21)
        Me.Label4.TabIndex = 3
        Me.Label4.Text = "籍贯"
        '
        'Label3
        '
        Me.Label3.Location = New System.Drawing.Point(8, 112)
        Me.Label3.Margin = New System.Windows.Forms.Padding(3, 2, 1, 2)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(38, 20)
        Me.Label3.TabIndex = 2
        Me.Label3.Text = "邮编"
        '
        'Label2
        '
        Me.Label2.Location = New System.Drawing.Point(257, 88)
        Me.Label2.Margin = New System.Windows.Forms.Padding(3, 2, 3, 1)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(75, 21)
        Me.Label2.TabIndex = 1
        Me.Label2.Text = "手机"
        '
        'Label1
        '
        Me.Label1.Location = New System.Drawing.Point(8, 17)
        Me.Label1.Margin = New System.Windows.Forms.Padding(3, 3, 1, 1)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(38, 21)
        Me.Label1.TabIndex = 0
        Me.Label1.Text = "姓名"
        '
        'txtAddress
        '
        Me.txtAddress.Location = New System.Drawing.Point(176, 112)
        Me.txtAddress.Margin = New System.Windows.Forms.Padding(1, 1, 3, 1)
        Me.txtAddress.Name = "txtAddress"
        Me.txtAddress.Size = New System.Drawing.Size(280, 21)
        Me.txtAddress.TabIndex = 16
        '
        'txtPostalcode
        '
        Me.txtPostalcode.Location = New System.Drawing.Point(48, 112)
        Me.txtPostalcode.Margin = New System.Windows.Forms.Padding(1, 3, 3, 3)
        Me.txtPostalcode.Name = "txtPostalcode"
        Me.txtPostalcode.Size = New System.Drawing.Size(72, 21)
        Me.txtPostalcode.TabIndex = 16
        '
        'txtPersonalEmail
        '
        Me.txtPersonalEmail.Location = New System.Drawing.Point(98, 136)
        Me.txtPersonalEmail.Margin = New System.Windows.Forms.Padding(3, 1, 3, 2)
        Me.txtPersonalEmail.Name = "txtPersonalEmail"
        Me.txtPersonalEmail.Size = New System.Drawing.Size(150, 21)
        Me.txtPersonalEmail.TabIndex = 16
        '
        'txtHomePhone
        '
        Me.txtHomePhone.Location = New System.Drawing.Point(344, 64)
        Me.txtHomePhone.Margin = New System.Windows.Forms.Padding(3, 1, 3, 1)
        Me.txtHomePhone.Name = "txtHomePhone"
        Me.txtHomePhone.Size = New System.Drawing.Size(112, 21)
        Me.txtHomePhone.TabIndex = 16
        '
        'txtIdcard
        '
        Me.txtIdcard.Location = New System.Drawing.Point(344, 40)
        Me.txtIdcard.Margin = New System.Windows.Forms.Padding(3, 1, 3, 1)
        Me.txtIdcard.Name = "txtIdcard"
        Me.txtIdcard.Size = New System.Drawing.Size(112, 21)
        Me.txtIdcard.TabIndex = 16
        '
        'txtMobile
        '
        Me.txtMobile.Location = New System.Drawing.Point(344, 88)
        Me.txtMobile.Margin = New System.Windows.Forms.Padding(3, 2, 3, 1)
        Me.txtMobile.Name = "txtMobile"
        Me.txtMobile.Size = New System.Drawing.Size(112, 21)
        Me.txtMobile.TabIndex = 16
        '
        'cmbEducation
        '
        Me.cmbEducation.FormattingEnabled = True
        Me.cmbEducation.Location = New System.Drawing.Point(48, 64)
        Me.cmbEducation.Margin = New System.Windows.Forms.Padding(1, 1, 3, 1)
        Me.cmbEducation.Name = "cmbEducation"
        Me.cmbEducation.Size = New System.Drawing.Size(72, 20)
        Me.cmbEducation.TabIndex = 18
        '
        'cmbPostTitle
        '
        Me.cmbPostTitle.FormattingEnabled = True
        Me.cmbPostTitle.Location = New System.Drawing.Point(176, 64)
        Me.cmbPostTitle.Margin = New System.Windows.Forms.Padding(1, 0, 3, 1)
        Me.cmbPostTitle.Name = "cmbPostTitle"
        Me.cmbPostTitle.Size = New System.Drawing.Size(72, 20)
        Me.cmbPostTitle.TabIndex = 18
        '
        'txtSex
        '
        Me.txtSex.FormattingEnabled = True
        Me.txtSex.Items.AddRange(New Object() {"男", "女"})
        Me.txtSex.Location = New System.Drawing.Point(176, 16)
        Me.txtSex.Margin = New System.Windows.Forms.Padding(1, 3, 3, 0)
        Me.txtSex.Name = "txtSex"
        Me.txtSex.Size = New System.Drawing.Size(72, 20)
        Me.txtSex.TabIndex = 18
        '
        'txtMarry
        '
        Me.txtMarry.FormattingEnabled = True
        Me.txtMarry.Items.AddRange(New Object() {"未婚", "已婚", "离异"})
        Me.txtMarry.Location = New System.Drawing.Point(176, 40)
        Me.txtMarry.Margin = New System.Windows.Forms.Padding(1, 1, 3, 1)
        Me.txtMarry.Name = "txtMarry"
        Me.txtMarry.Size = New System.Drawing.Size(72, 20)
        Me.txtMarry.TabIndex = 18
        '
        'FormEmployee
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.CancelButton = Me.btnExit
        Me.ClientSize = New System.Drawing.Size(688, 448)
        Me.Controls.Add(Me.Panel2)
        Me.Controls.Add(Me.Splitter1)
        Me.Controls.Add(Me.Panel1)
        Me.Name = "FormEmployee"
        Me.Text = "人事管理"
        Me.Panel1.ResumeLayout(False)
        Me.Panel2.ResumeLayout(False)
        Me.Panel3.ResumeLayout(False)
        Me.gbxEmployeeInfo.ResumeLayout(False)
        Me.gbxEmployeeInfo.PerformLayout()
        Me.gbxPersonInfo.ResumeLayout(False)
        Me.gbxPersonInfo.PerformLayout()
        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region

#Region "Properties"
    Public Property SelectedEmployee() As Employee
        Get
            Return oEmployee
        End Get
        Set(ByVal Value As Employee)
            oEmployee = Value
        End Set
    End Property
#End Region

    Public Sub FindEmployee(ByVal sNumber As String)
        Dim sDepartNumber As String = Microsoft.VisualBasic.Left(sNumber, 2)
        Dim sEmployeeInnerNumber As String = Microsoft.VisualBasic.Right(sNumber, 3)
        Dim tnDepart As TreeNode
        Dim tnEmployee As TreeNode
        For Each tnTemp As TreeNode In tvEmployee.Nodes(0).Nodes
            If tnTemp.Tag = sDepartNumber Then
                tnDepart = tnTemp
                For Each tnTemp2 As TreeNode In tnDepart.Nodes
                    If tnTemp2.Tag = sEmployeeInnerNumber Then
                        tnEmployee = tnTemp2
                        Exit For
                    End If
                Next
                Exit For
            End If
        Next
        tvEmployee.SelectedNode = tnEmployee
    End Sub