frmempman.vb

使用说明 1.在使用源程序前

Class FrmEmpMan
    Inherits System.Windows.Forms.Form
    Public TmpOk As Boolean
    Dim DSet As New DataSet
    Private Sub Cmd_Add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAdd.Click
        TmpOk = False
        If CurDep.Dep_Id <= 0 Then
            MsgBox("请选择所属部门")
            Exit Sub
        End If
        '设置添加标记
        FrmEmpEdit.Modify = False
        FrmEmpEdit.ShowDialog()
    End Sub

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

    Private Sub ComboState_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboState.SelectedIndexChanged
        '根据ComboState的值刷新AdoEmpNameList，并更新DataList1的内容
        Dim SQLString As String
        Dim MSG As String = ""
        SQLString = "SELECT Emp_Id, Emp_Name FROM Employees WHERE Dep_Id=" & Trim(Str(CurDep.Dep_Id)) & " And State=" & Trim(Str(ComboState.SelectedIndex + 1))
        '	AdoEmpNameList.Refresh()
        Dim DTable As DataTable
        DTable = ClsOperation.DBOperate(SQLString, MSG)
        ListBox1.DataSource = DTable
        ListBox1.DisplayMember = "Emp_Name"
        ListBox1.ValueMember = "Emp_Id"
    End Sub

    Private Sub FrmEmpMan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim TmpNode As TreeNode
        Dim Focuskey As Object
        Dim FocusDepName As Object
        ComboState.SelectedIndex = 0
        FocusDepName = "公司领导"
        Focuskey = ""
        TmpNode = TreeView1.Nodes.Add("a0", "部门信息", 1, 3)
        TmpNode.Checked = True
        TmpNode.SelectedImageKey = 2
        '将部门信息添加到TreeView控件中
        Add_DepToTree(TreeView1, "a0")
    End Sub

    Private Sub TreeView1_AfterSelect(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect
        Dim Focuskey As String
        '根据关键字获取部门信息
        If TreeView1.SelectedNode Is Nothing Then
            Exit Sub
        End If
        Focuskey = TreeView1.SelectedNode.Name
        CurDep.Dep_name = TreeView1.SelectedNode.Text
        CurDep.Dep_Id = Val(Microsoft.VisualBasic.Right(TreeView1.SelectedNode.Name, Len(TreeView1.SelectedNode.Name) - 1))

        If Focuskey = "a0" Then '根结点
            Dim SQLString As String
            Dim MSG As String
            SQLString = "SELECT * FROM Employees WHERE Dep_Id<0"
            Dim DTable As DataTable
            DTable = ClsOperation.DBOperate(SQLString, MSG)
            ListBox1.DisplayMember = "Emp_Name"
            ListBox1.ValueMember = "Emp_Id"
            ListBox1.Refresh()
            Exit Sub
        End If
        '如果包含子结点，则设置图像格式
        If CurDep.HaveSon(CurDep.Dep_Id) = False Then
            TreeView1.SelectedNode.SelectedImageKey = 2
            TreeView1.SelectedNode.ImageIndex = 0
            TreeView1.SelectedNode.SelectedImageIndex = 2
        End If
        '读取CurDep中的所有部门信息
        CurDep.GetInfo((CurDep.Dep_Id))
        '根据选择的部门编号刷新AdoEmpNameList1，从而选择符合条件的员工姓名
        ListBox1.Refresh()
    End Sub

    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        If ListBox1.ValueMember = "" Then
            CurEmp.Init()
            Exit Sub
        End If
        '根据选择的员工更新AdoEmpDetail      
        '读取当前员工信息到CurEmp
        CurEmp.GetInfo(CInt(ListBox1.SelectedValue))
        ShowEmpInfo()
        '显示上级员工姓名
        Lbl_Upper.Text = MyEmp.GetName(CurEmp.UpperId)
    End Sub

    Sub ShowEmpInfo()
        Me.Lbl_Memo.Text = CurEmp.Memo
        Me.Lbl_BadgeID.Text = CurEmp.BadgeID
        Me.Lbl_Fillin_Time.Text = CurEmp.Fillin_Time
        Me.Lbl_Fillin_Person.Text = CurEmp.Fillin_Person
        Me.Lbl_Base_Prize.Text = CurEmp.Base_Prize
        Me.Lbl_Base_Wage.Text = CurEmp.Base_Wage
        Me.Lbl_Contract_Sign_Date.Text = CurEmp.Contract_Sign_Date
        Me.Lbl_Title.Text = CurEmp.Title
        Me.Lbl_Street_Office.Text = CurEmp.Street_Office
        Me.Lbl_Police_Post.Text = CurEmp.Police_Post
        Me.Lbl_Postcode.Text = CurEmp.Postcode
        Me.Lbl_Files_Keep_Org.Text = CurEmp.Files_Keep_Org
        Me.Lbl_Hukou.Text = CurEmp.Hukou
        Me.Lbl_PcId.Text = CurEmp.PcId
        Me.Lbl_Nationality.Text = CurEmp.Nationality
        Me.Lbl_Culture_Level.Text = CurEmp.Culture_Level
        Me.Lbl_Working_Years.Text = CurEmp.Working_Years
        Me.Lbl_Political_Party.Text = CurEmp.Political_Party
        Me.Lbl_Marital_Condition.Text = CurEmp.Marital_Condition
        Me.Lbl_Id_Card.Text = CurEmp.Id_Card
        Me.Lbl_HireDate.Text = CurEmp.HireDate
        Me.Lbl_Family_Place.Text = CurEmp.Family_Place
        Me.Lbl_Sex.Text = CurEmp.Sex
        Me.Lbl_Residence.Text = CurEmp.Residence
        Me.Lbl_Mobile.Text = CurEmp.Mobile
        Me.Lbl_HomePhone.Text = CurEmp.Home_phone
        Me.Lbl_Bp.Text = CurEmp.Bp
        Me.Lbl_OfficePhone.Text = CurEmp.Office_phone
        Me.Lbl_Position.Text = CurEmp.Position
        Me.Lbl_Birth.Text = CurEmp.Birth
        Me.Lbl_Emp_Name.Text = CurEmp.Emp_Name
    End Sub

    Private Sub BtnDel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDel.Click
        If CurEmp.Emp_Id <= 0 Then
            MsgBox("请选择要删除的员工")
            Exit Sub
        End If
        '确定是否删除
        If MsgBox("姓名:" & Lbl_Emp_Name.Text & Chr(13), MsgBoxStyle.YesNo, "是否删除") = MsgBoxResult.No Then
            Exit Sub
        End If
        CurEmp.Delete((CurEmp.Emp_Id))
        CurEmp.Emp_Id = 0
        CurEmp.Init()
        ShowEmpInfo()
        Dim SQLString As String
        Dim MSG As String = ""
        SQLString = "SELECT Emp_Id, Emp_Name FROM Employees WHERE Dep_Id=" & Trim(Str(CurDep.Dep_Id)) & " And State=" & Trim(Str(ComboState.SelectedIndex + 1))
        '	AdoEmpNameList.Refresh()
        Dim DTable As DataTable
        DTable = ClsOperation.DBOperate(SQLString, MSG)
        ListBox1.DataSource = DTable
        ListBox1.DisplayMember = "Emp_Name"
        ListBox1.ValueMember = "Emp_Id"
    End Sub

    Private Sub BtnTrans_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnTrans.Click
        Dim TmpDepid As Integer
        If CurEmp.Emp_Id <= 0 Then
            MsgBox("请选择员工")
            Exit Sub
        End If
        '保存CurDep
        TmpDepid = CurDep.Dep_Id
        CurDep.Init()
        FrmTrans.Lbl_Emp_Name.Text = ListBox1.Text
        FrmTrans.Lbl_OldDep.Text = TreeView1.SelectedNode.Text
        FrmTrans.ComboDep.Text = ""
        FrmTrans.txtTitle.Text = ""
        FrmTrans.ShowDialog()
        '恢复CurDep
        CurDep.Dep_Id = TmpDepid
        CurDep.GetInfo((CurDep.Dep_Id))
    End Sub

    Private Sub BtnModi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnModi.Click
        If CurEmp.Emp_Id <= 0 Then
            MsgBox("请选择要修改的员工")
            Exit Sub
        End If
        '设置修改标记
        FrmEmpEdit.Modify = True
        FrmEmpEdit.ComboState.SelectedIndex = ComboState.SelectedIndex
        FrmEmpEdit.ShowDialog()
    End Sub

    Private Sub BtnFamily_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnFamily.Click
        If CurEmp.Emp_Id <= 0 Then
            MsgBox("请选择员工")
            Exit Sub
        End If
        FrmFamilyMan.OriEmpId = CurEmp.Emp_Id
        FrmFamilyMan.ShowDialog()
    End Sub

    Private Sub BtnExperience_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnExperience.Click
        If CurEmp.Emp_Id <= 0 Then
            MsgBox("请选择员工")
            Exit Sub
        End If
        FrmExpMan.OriEmpId = CurEmp.Emp_Id
        FrmExpMan.ShowDialog()
    End Sub

    
    Private Sub PicPhoto_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub


    Private Sub PicPhoto_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)

    End Sub
End Class