formteacher.vb

学生信息管理系统

Public Class FormTeacher
    Inherits FormBase

    Private m_oTeacher As Teacher

#Region " Windows 窗体设计器生成的代码 "

    Public Sub New()
        MyBase.New()

        '该调用是 Windows 窗体设计器所必需的。
        InitializeComponent()

        '在 InitializeComponent() 调用之后添加任何初始化

    End Sub

    '窗体重写 dispose 以清理组件列表。
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Windows 窗体设计器所必需的
    Private components As System.ComponentModel.IContainer

    '注意: 以下过程是 Windows 窗体设计器所必需的
    '可以使用 Windows 窗体设计器修改此过程。
    '不要使用代码编辑器修改它。
    Friend WithEvents lblName As System.Windows.Forms.Label
    Friend WithEvents txtName As System.Windows.Forms.TextBox
    Friend WithEvents cmTeacher As ContextMenu
    Friend WithEvents miAddTeacher As MenuItem
    Friend WithEvents miEditTeacher As MenuItem
    Friend WithEvents miDeleteTeacher As MenuItem
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.lblName = New System.Windows.Forms.Label
        Me.txtName = New System.Windows.Forms.TextBox
        Me.cmTeacher = New ContextMenu
        Me.miAddTeacher = New MenuItem
        Me.miDeleteTeacher = New MenuItem
        Me.miEditTeacher = New MenuItem
        '
        'lblName
        '
        Me.lblName.AutoSize = True
        Me.lblName.Location = New System.Drawing.Point(40, 40)
        Me.lblName.Name = "lblName"
        Me.lblName.Size = New System.Drawing.Size(29, 17)
        Me.lblName.TabIndex = 0
        Me.lblName.Text = "教师"
        '
        'txtName
        '
        Me.txtName.Location = New System.Drawing.Point(104, 32)
        Me.txtName.Name = "txtName"
        Me.txtName.Size = New System.Drawing.Size(240, 21)
        Me.txtName.TabIndex = 5
        Me.txtName.Text = ""
        '
        'cmTeacher，将菜单项加入到右键菜单中
        '
        Me.cmTeacher.MenuItems.Add(Me.miAddTeacher)
        Me.cmTeacher.MenuItems.Add(Me.miDeleteTeacher)
        Me.cmTeacher.MenuItems.Add(Me.miEditTeacher)
        '
        '设置菜单项文本
        '
        Me.miAddTeacher.Text = "增加教师"
        Me.miDeleteTeacher.Text = "删除教师"
        Me.miEditTeacher.Text = "修改教师"
        '
        'FormTeacher
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(648, 317)
        Me.Name = "FormTeacher"

        AddControls()
    End Sub

#End Region


    Private Sub AddControls()
        Me.GroupBox1.Controls.Add(Me.lblName)
        Me.GroupBox1.Controls.Add(Me.txtName)
    End Sub

    Protected Overrides Sub Init()
        Me.Text = "教师管理"
        Me.lblCaption.Text = "教师管理 Manage Teacher"
        Me.btnOk.Enabled = False
        Me.btnOk.Text = "确定"
        Me.btnCancel.Text = "取消"
    End Sub

    Protected Overrides Sub InitTreeView()
        '清空节点
        Me.tvStudent.Nodes(0).Nodes.Clear()
        '添加右键菜单
        Me.tvStudent.ContextMenu = Me.cmTeacher
        '填充节点
        Dim dtTemp As DataTable = CommonDB.DbBase.DataInterface.Execute4DS("select id,name,profession_id,profession_name,college_id,college_name from v_teacher order by profession_id").Tables(0)
        Dim tnRoot As TreeNode = tvStudent.Nodes(0)
        Dim iPreviousCollegeId As Integer = 0
        Dim iPreviousProfessionId As Integer = 0
        Dim tnCurrentCollege, tnCurrentProfession, tnTeacher As TreeNode
        For Each drTemp As DataRow In dtTemp.Rows
            '填充学院
            If Not Object.Equals(drTemp(4), DBNull.Value) Then
                If drTemp(4) <> iPreviousCollegeId Then
                    tnCurrentCollege = New TreeNode(drTemp(5), 1, 1)
                    tnCurrentCollege.Tag = drTemp(4)
                    tnRoot.Nodes.Add(tnCurrentCollege)
                    iPreviousCollegeId = drTemp(4)
                End If
            End If
            '填充专业
            If Not Object.Equals(drTemp(2), DBNull.Value) Then
                If drTemp(2) <> iPreviousProfessionId Then
                    tnCurrentProfession = New TreeNode(drTemp(3), 2, 2)
                    tnCurrentProfession.Tag = drTemp(2)
                    tnCurrentCollege.Nodes.Add(tnCurrentProfession)
                    iPreviousProfessionId = drTemp(2)
                End If
            End If
            '填充教师
            If Not Object.Equals(drTemp(0), DBNull.Value) Then
                tnTeacher = New TreeNode(drTemp(1), 3, 3)
                tnTeacher.Tag = drTemp(0)
                tnCurrentProfession.Nodes.Add(tnTeacher)
            End If
        Next
        tvStudent.ExpandAll()
    End Sub

    Private Function GetControl() As Boolean
        If Object.Equals(Me.m_oTeacher, Nothing) Then
            GetControl = False
        Else
            Me.m_oTeacher.m_sName = Me.txtName.Text
            GetControl = True
        End If
    End Function

    Private Function SetControl() As Boolean
        If Object.Equals(Me.m_oTeacher, Nothing) Then
            SetControl = False
        Else
            Me.txtName.Text = Me.m_oTeacher.m_sName
            SetControl = True
        End If
    End Function


    Protected Overrides Sub OK()
        If GetControl() Then
            Select Case btnOk.Text
                Case "增加"
                    If Me.m_oTeacher.AddTeacher() = 0 Then
                        MessageBox.Show("增加教师成功！")
                    End If
                Case "修改"
                    If Me.m_oTeacher.EditTeacher() = 0 Then
                        MessageBox.Show("修改教师成功！")
                    End If
                Case "删除"
                    If Me.m_oTeacher.DeleteTeacher() = 0 Then
                        MessageBox.Show("删除教师成功！")
                    End If
                Case Else
                    '
            End Select
        End If
        Cancel()
    End Sub

    Protected Overrides Sub Cancel()
        btnOk.Text = "确定"
        btnOk.Enabled = False
        InitTreeView()
    End Sub

    Private Sub miAddTeacher_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles miAddTeacher.Click
        Me.m_oTeacher = New Teacher
        Me.m_oTeacher.ProfessionId = tvStudent.SelectedNode.Tag
        btnOk.Text = "增加"
        btnOk.Enabled = True
    End Sub

    Private Sub miDeleteTeacher_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles miDeleteTeacher.Click
        Me.m_oTeacher = New Teacher(tvStudent.SelectedNode.Tag)
        SetControl()
        btnOk.Text = "删除"
        btnOk.Enabled = True
    End Sub

    Private Sub miEditTeacher_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles miEditTeacher.Click
        Me.m_oTeacher = New Teacher(tvStudent.SelectedNode.Tag)
        SetControl()
        btnOk.Text = "修改"
        btnOk.Enabled = True
    End Sub

    Private Sub cmTeacher_Popup(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmTeacher.Popup
        If tvStudent.SelectedNode.ImageIndex = 2 Then
            miAddTeacher.Visible = True
            miDeleteTeacher.Visible = False
            miEditTeacher.Visible = False
        ElseIf tvStudent.SelectedNode.ImageIndex = 3 Then
            miAddTeacher.Visible = False
            miDeleteTeacher.Visible = True
            miEditTeacher.Visible = True
        Else
            miAddTeacher.Visible = False
            miDeleteTeacher.Visible = False
            miEditTeacher.Visible = False
        End If
    End Sub
End Class