frmdepsel.vb

vb2005人事管理系统源码

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