Imports VB = Microsoft.VisualBasic
Friend Class FrmDepSel
	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 FrmDepSel_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.SelectedImageKey = 2
        '調用函數將所有部門添加到TreeView1中
        Add_DepToTree(TreeView1, "a0")
        ' TreeView1_Click(TreeView1, New System.EventArgs())
    End Sub

    Private Sub TreeView1_AfterSelect(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect
        If TreeView1.SelectedNode Is Nothing Then
            Exit Sub
        End If
        Dim Focuskey As String
        '根據關鍵字獲取部門信息
        Focuskey = TreeView1.SelectedNode.Name
        MyDep.Dep_name = TreeView1.SelectedNode.Text
        MyDep.Dep_Id = Val(VB.Right(TreeView1.SelectedNode.Name, Len(TreeView1.SelectedNode.Name) - 1))
        If Focuskey = "a0" Then '根結點
            Exit Sub
        End If
        '如果包含子結點，則設置圖像格式
        If MyDep.HaveSon(MyDep.Dep_Id) = False Then
            TreeView1.SelectedNode.SelectedImageKey = 2
            TreeView1.SelectedNode.ImageIndex = 0
            TreeView1.SelectedNode.SelectedImageIndex = 2
        End If
        '讀取MyDep中的所有部門信息
        MyDep.GetInfo((MyDep.Dep_Id))
    End Sub
	

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