frmdepman.vb

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

Imports VB = Microsoft.VisualBasic
Friend Class FrmDepMan
	Inherits System.Windows.Forms.Form
  
	
    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 FrmDepMan_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
        TreeView1.Nodes.Clear()
        FocusDepName = "公司领导"
        Focuskey = ""
        '设置根结点
        TmpNode = TreeView1.Nodes.Add("a0", "部门信息", 1, 3)
        TmpNode.Checked = True
        TmpNode.SelectedImageIndex = 2
        '调用函数将所有部门添加到TreeView1中
        Add_DepToTree(TreeView1, "a0")
    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
        CurDep.Dep_name = TreeView1.SelectedNode.Text
        ' MsgBox(CurDep.Dep_name)
        CurDep.Dep_Id = Val(VB.Right(TreeView1.SelectedNode.Name, Len(TreeView1.SelectedNode.Name) - 1))
        If Focuskey = "a0" Then '根结点
            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))
    End Sub
	

    Private Sub BtnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAdd.Click
        '初始化FrmDepEdit信息
        FrmDepEdit.lblUpper.Text = CurDep.Dep_name
        FrmDepEdit.txtDep.Text = ""
        FrmDepEdit.txtDescribe.Text = ""
        FrmDepEdit.Modify = False
        '打开编辑部门信息的窗体
        FrmDepEdit.ShowDialog()
    End Sub

    Private Sub BtnModify_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnModify.Click
        '不能修改根结点
        If TreeView1.SelectedNode.Name = "a0" Then
            MsgBox("此项不能修改")
            Exit Sub
        End If
        '将当前部门的信息赋值到编辑部门信息的窗口
        FrmDepEdit.lblUpper.Text = MyDep.GetName(CurDep.UpperId)
        FrmDepEdit.txtDep.Text = CurDep.Dep_name
        FrmDepEdit.txtDescribe.Text = CurDep.Describe
        FrmDepEdit.Modify = True
        FrmDepEdit.ShowDialog()
        ' TreeView1_Click(TreeView1, New System.EventArgs())
    End Sub

    Private Sub BtnDel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDel.Click
        If TreeView1.SelectedNode.Name = "a0" Then
            MsgBox("此项不能删除")
            Exit Sub
        End If
        '如果当前部门包含下一级部门，则不能删除
        If CurDep.HaveSon(CurDep.Dep_Id) = True Then
            MsgBox(CurDep.Dep_name & " 包含下级部门，不能删除")
            Exit Sub
        End If
        '如果部门中包含员工，则不能删除
        If MyDep.HaveEmp(CurDep.Dep_Id) = True Then
            MsgBox(CurDep.Dep_name & " 包含员工，不能删除")
            Exit Sub
        End If
        '确定删除
        If MsgBox("是否确定要删除 " & Trim(TreeView1.SelectedNode.Text), MsgBoxStyle.YesNo, "请确认") = MsgBoxResult.No Then
            Exit Sub
        End If
        CurDep.Delete(CurDep.Dep_Id)
        TreeView1.Nodes.Remove(TreeView1.SelectedNode)
    End Sub
End Class