Class FrmDepEdit
    Inherits System.Windows.Forms.Form
    Public Modify As Boolean


    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 txtDep_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtDep.KeyPress
        Dim KeyAscii As Short = Asc(e.KeyChar)
        EnterTAB((KeyAscii))
        e.KeyChar = Chr(KeyAscii)
        If KeyAscii = 0 Then
            e.Handled = True
        End If
    End Sub


    Private Sub BtnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOK.Click
        Dim TmpNode As TreeNode
        Dim Tmp_Key As Object
        Dim Bh As Object
        If Trim(txtDep.Text) = "" Then
            MsgBox("請輸入部門名稱")
            Exit Sub
        End If
        '將新輸入的數(shù)據(jù)保存到類變量中
        With MyDep
            .Dep_name = Trim(txtDep.Text)
            .Describe = Trim(txtDescribe.Text)
            If Modify = False Then '插入
                If .In_DB(.Dep_name, .UpperId) = True Then
                    MsgBox(Trim(txtDep.Text) & " 已經(jīng)存在")
                    Exit Sub
                End If
                'CurDep中保存在部門管理窗體中選中的部門信息
                '當插入新記錄時，新記錄將做為當前部門的下級部門
                .UpperId = CurDep.Dep_Id
                Bh = .Insert
                '生成TreeView中一個結(jié)點的關(guān)鍵字
                Tmp_Key = "a" & Trim(Str(Bh))
                '設(shè)置結(jié)點的圖像
                FrmDepMan.TreeView1.SelectedNode.ImageIndex = 0
                FrmDepMan.TreeView1.SelectedNode.SelectedImageKey = 2
                FrmDepMan.TreeView1.SelectedNode.SelectedImageIndex = 2
                '在樹中添加一個結(jié)點
                TmpNode = FrmDepMan.TreeView1.Nodes.Find(FrmDepMan.TreeView1.SelectedNode.Name, True)(0).Nodes.Add(Tmp_Key, .Dep_name, 0, 2)
                TmpNode.Checked = True
            Else '修改
                If CurDep.Dep_name <> Trim(txtDep.Text) Then
                    If .In_DB(Trim(txtDep.Text), .UpperId) = True Then
                        MsgBox(Trim(txtDep.Text) & " 已經(jīng)存在")
                        Exit Sub
                    End If
                End If
                '當修改記錄時，不能改變上下級之間的關(guān)系
                .UpperId = CurDep.UpperId
                .Update((CurDep.Dep_Id))
                If CurDep.Dep_name <> Trim(txtDep.Text) Then
                    FrmDepMan.TreeView1.SelectedNode.Text = Trim(txtDep.Text)
                End If
                '設(shè)置CurDep變量
                CurDep.Dep_name = Trim(txtDep.Text)
            End If
        End With
        '關(guān)閉窗口
        Me.Close()
    End Sub
End Class