'Imports VB = Microsoft.VisualBasic
Friend Class FrmEmpSel
	Inherits System.Windows.Forms.Form
    Private Sub Cmd_Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmd_Cancel.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))
        Dim DTable As DataTable = ClsOperation.DBOperate(SQLString, MSG)
        ListBox1.DataSource = DTable
        ListBox1.DisplayMember = "Emp_Name"
        ListBox1.ValueMember = "Emp_Id"
        ListBox1.Refresh()
    End Sub



    Private Sub FrmEmpSel_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim Focuskey As Object
        Dim FocusDepName As Object
        Dim TmpNode As System.Windows.Forms.TreeNode
        FocusDepName = "公司領導"
        Focuskey = ""
        TreeView1.Nodes.Clear()
        '設置根結點
        TmpNode = TreeView1.Nodes.Add("a0", "部門信息", 1, 3)
        TmpNode.Checked = True
        TmpNode.SelectedImageIndex = 2
        '調用函數將所有部門添加到TreeView1中
        Add_DepToTree(TreeView1, "a0")
        ComboState.SelectedIndex = 0
    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))
        Dim SQLString As String
        Dim MSG As String
        Dim DTable As DataTable
        If Focuskey = "a0" Then '根結點
            SQLString = "SELECT * FROM Employees WHERE Dep_Id<0"
            DTable = ClsOperation.DBOperate(SQLString, MSG)
            ListBox1.DataSource = DTable
            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，從而選擇符合條件的員工姓名
        SQLString = "SELECT Emp_Id, Emp_Name FROM Employees WHERE Dep_Id=" & Trim(Str(CurDep.Dep_Id)) & " And State=" & Trim(Str(ComboState.SelectedIndex + 1))
        DTable = ClsOperation.DBOperate(SQLString, MSG)
        ListBox1.DataSource = DTable
        ListBox1.DisplayMember = "Emp_Name"
        ListBox1.ValueMember = "Emp_Id"
        ListBox1.Refresh()
    End Sub



    Private Sub ListBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.Click
        If ListBox1.SelectedItem Is Nothing Then
            MyEmp.Init()
            Exit Sub
        End If
        '讀取當前員工信息到Myemp
        MyEmp.GetInfo(CInt(ListBox1.SelectedValue))
    End Sub

    
 
    Private Sub BtnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOK.Click
        If MyEmp.Emp_Id <= 0 Then
            MsgBox("請選擇員工")
            Exit Sub
        End If
        '將選擇員工的數據保存在UpperEmp變量中
        UpperEmp.Emp_Id = MyEmp.Emp_Id
        UpperEmp.GetInfo(UpperEmp.Emp_Id)
        Me.Close()
    End Sub
End Class