formcourse.vb

学生信息管理系统

Imports CommonDB

Public Class FormCourse
    Inherits FormBase

    Private m_oCourse As Course

#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 lblCreditHour As System.Windows.Forms.Label
    Friend WithEvents txtName As System.Windows.Forms.TextBox
    Friend WithEvents txtCreditHour As System.Windows.Forms.TextBox
    Friend WithEvents cmCourse As ContextMenu
    Friend WithEvents miAddCourse As MenuItem
    Friend WithEvents miEditCourse As MenuItem
    Friend WithEvents miDeleteCourse As MenuItem
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.lblName = New System.Windows.Forms.Label
        Me.lblCreditHour = New System.Windows.Forms.Label
        Me.txtName = New System.Windows.Forms.TextBox
        Me.txtCreditHour = New System.Windows.Forms.TextBox
        Me.cmCourse = New ContextMenu
        Me.miAddCourse = New MenuItem
        Me.miEditCourse = New MenuItem
        Me.miDeleteCourse = New MenuItem
        '
        'lblName
        '
        Me.lblName.AutoSize = True
        Me.lblName.Location = New System.Drawing.Point(72, 48)
        Me.lblName.Name = "lblName"
        Me.lblName.Size = New System.Drawing.Size(42, 17)
        Me.lblName.TabIndex = 0
        Me.lblName.Text = "课程名"
        '
        'lblCreditHour
        '
        Me.lblCreditHour.AutoSize = True
        Me.lblCreditHour.Location = New System.Drawing.Point(72, 88)
        Me.lblCreditHour.Name = "lblCreditHour"
        Me.lblCreditHour.Size = New System.Drawing.Size(29, 17)
        Me.lblCreditHour.TabIndex = 1
        Me.lblCreditHour.Text = "学分"
        '
        'txtName
        '
        Me.txtName.Location = New System.Drawing.Point(136, 40)
        Me.txtName.Name = "txtName"
        Me.txtName.Size = New System.Drawing.Size(232, 21)
        Me.txtName.TabIndex = 4
        Me.txtName.Text = ""
        '
        'txtCreditHour
        '
        Me.txtCreditHour.Location = New System.Drawing.Point(136, 80)
        Me.txtCreditHour.Name = "txtCreditHour"
        Me.txtCreditHour.Size = New System.Drawing.Size(232, 21)
        Me.txtCreditHour.TabIndex = 5
        Me.txtCreditHour.Text = ""
        '
        'cmCourse
        '
        Me.cmCourse.MenuItems.Add(miAddCourse)
        Me.cmCourse.MenuItems.Add(miEditCourse)
        Me.cmCourse.MenuItems.Add(miDeleteCourse)
        '
        'miAddCourse
        '
        Me.miAddCourse.Text = "增加课程"
        '
        'miEditCourse
        '
        Me.miEditCourse.Text = "修改课程"
        '
        'miDeleteCourse
        '
        Me.miDeleteCourse.Text = "删除课程"
        '
        'FormCourse
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(648, 333)
        Me.Name = "FormCourse"
        '
        AddControls()
    End Sub

#End Region

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

    '初试化Treeview
    Protected Overrides Sub InitTreeView()
        '清空节点
        Me.tvStudent.Nodes(0).Nodes.Clear()
        '添加右键菜单
        Me.tvStudent.ContextMenu = Me.cmCourse
        '填充节点
        Dim dtTemp As DataTable = CommonDB.DbBase.DataInterface.Execute4DS("select id,name,profession_id,profession_name,college_id,college_name from v_course 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, tnStudent 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
                tnStudent = New TreeNode(drTemp(1), 3, 3)
                tnStudent.Tag = drTemp(0)
                tnCurrentProfession.Nodes.Add(tnStudent)
            End If
        Next
        tvStudent.ExpandAll()
    End Sub

    '初试化FormCourse
    Protected Overrides Sub Init()
        Me.Text = "课程管理"
        Me.lblCaption.Text = "课程管理 Manage Course"
        Me.btnOk.Text = "确定"
        Me.btnCancel.Text = "重置"

        '设置btnOk
        btnOk.Enabled = False
    End Sub

    'cmCourse的Popup事件
    Private Sub cmCourse_Popup(ByVal sender As Object, ByVal e As EventArgs) Handles cmCourse.Popup
        If tvStudent.SelectedNode.ImageIndex = 2 Then
            miAddCourse.Visible = True
            miEditCourse.Visible = False
            miDeleteCourse.Visible = False
        ElseIf tvStudent.SelectedNode.ImageIndex = 3 Then
            miAddCourse.Visible = False
            miEditCourse.Visible = True
            miDeleteCourse.Visible = True
        Else
            miAddCourse.Visible = False
            miEditCourse.Visible = False
            miDeleteCourse.Visible = False
        End If
    End Sub

    Private Sub miAddCourse_Click(ByVal sender As Object, ByVal e As EventArgs) Handles miAddCourse.Click
        Me.m_oCourse = New Course
        Me.m_oCourse.ProfessionId = Me.tvStudent.SelectedNode.Tag
        btnOk.Text = "增加"
        btnOk.Enabled = True
    End Sub

    Private Sub miEditCourse_Click(ByVal sender As Object, ByVal e As EventArgs) Handles miEditCourse.Click
        Me.m_oCourse = New Course(tvStudent.SelectedNode.Tag)
        SetControl()
        btnOk.Text = "修改"
        btnOk.Enabled = True
    End Sub

    Private Sub miDeleteCourse_Click(ByVal sender As Object, ByVal e As EventArgs) Handles miDeleteCourse.Click
        Me.m_oCourse = New Course(tvStudent.SelectedNode.Tag)
        SetControl()
        btnOk.Text = "删除"
        btnOk.Enabled = True
    End Sub

    Private Sub SetControl()
        If Not Object.Equals(Me.m_oCourse, Nothing) Then
            Me.txtName.Text = Me.m_oCourse.Name
            Me.txtCreditHour.Text = Me.m_oCourse.CreditHour
        End If
    End Sub

    Private Sub GetControl()
        'Me.m_oCourse.Id = Me.tvStudent.SelectedNode.Tag
        'Me.m_oCourse.ProfessionId = Me.tvStudent.SelectedNode.Parent.Tag
        Me.m_oCourse.Name = Me.txtName.Text
        Me.m_oCourse.CreditHour = CDbl(Me.txtCreditHour.Text)
    End Sub

    Protected Overrides Sub OK()
        GetControl()
        Select Case btnOk.Text
            Case "增加"
                If Me.m_oCourse.Add() = 0 Then
                    MessageBox.Show("成功增加课程！")
                End If
            Case "修改"
                If Me.m_oCourse.Edit() = 0 Then
                    MessageBox.Show("成功修改课程！")
                End If
            Case "删除"
                If Me.m_oCourse.Delete() = 0 Then
                    MessageBox.Show("成功删除课程！")
                End If
            Case Else
                '
        End Select
        Cancel()
    End Sub

    Protected Overrides Sub Cancel()
        Me.m_oCourse = Nothing
        Me.txtName.Text = ""
        Me.txtCreditHour.Text = ""
        Me.btnOk.Text = "确定"
        Me.btnOk.Enabled = False
        InitTreeView()
    End Sub
End Class