frmdepedit.vb

人事管理系统 在使用源程序前

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
        '将新输入的数据保存到类变量中
        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) & " 已经存在")
                    Exit Sub
                End If
                'CurDep中保存在部门管理窗体中选中的部门信息
                '当插入新记录时，新记录将做为当前部门的下级部门
                .UpperId = CurDep.Dep_Id
                Bh = .Insert
                '生成TreeView中一个结点的关键字
                Tmp_Key = "a" & Trim(Str(Bh))
                '设置结点的图像
                FrmDepMan.TreeView1.SelectedNode.ImageIndex = 0
                FrmDepMan.TreeView1.SelectedNode.SelectedImageKey = 2
                FrmDepMan.TreeView1.SelectedNode.SelectedImageIndex = 2
                '在树中添加一个结点
                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) & " 已经存在")
                        Exit Sub
                    End If
                End If
                '当修改记录时，不能改变上下级之间的关系
                .UpperId = CurDep.UpperId
                .Update((CurDep.Dep_Id))
                If CurDep.Dep_name <> Trim(txtDep.Text) Then
                    FrmDepMan.TreeView1.SelectedNode.Text = Trim(txtDep.Text)
                End If
                '设置CurDep变量
                CurDep.Dep_name = Trim(txtDep.Text)
            End If
        End With
        '关闭窗口
        Me.Close()
    End Sub
End Class