formcurriculum.vb

学生信息管理系统

        '
        Me.miGiveCourse.Index = 2
        Me.miGiveCourse.Text = "专业开课"
        '
        'FormCurriculum
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(648, 309)
        Me.Name = "FormCurriculum"
        '
        AddControls()

    End Sub

#End Region

    Private Sub AddControls()
        Me.GroupBox1.Controls.Add(Me.lblCourse)
        Me.GroupBox1.Controls.Add(Me.lblCourseType)
        Me.GroupBox1.Controls.Add(Me.lblClassDay)
        Me.GroupBox1.Controls.Add(Me.lblClassroom)
        Me.GroupBox1.Controls.Add(Me.lblClasstime)
        Me.GroupBox1.Controls.Add(Me.lblCoefficient)
        Me.GroupBox1.Controls.Add(Me.lblStuNum)
        Me.GroupBox1.Controls.Add(Me.lblTeacher)
        Me.GroupBox1.Controls.Add(Me.txtCoefficient)
        Me.GroupBox1.Controls.Add(Me.txtStuAmount)
        Me.GroupBox1.Controls.Add(Me.cmbTeacher)
        Me.GroupBox1.Controls.Add(Me.cmbClassDay)
        Me.GroupBox1.Controls.Add(Me.cmbClassroom)
        Me.GroupBox1.Controls.Add(Me.cmbClassTime)
        Me.GroupBox1.Controls.Add(Me.cmbCourse)
        Me.GroupBox1.Controls.Add(Me.cmbType)
        'add controls to GroupBox1 here
    End Sub

    '读取窗体各控件值，并设置m_oCurriculum对象实例相应属性
    Private Function GetControl() As Boolean
        If Object.Equals(Me.m_oCurriculum, Nothing) Then
            GetControl = False
        Else
            '读取控件值
            Me.m_oCurriculum.CourseId = Me.cmbCourse.SelectedValue
            Me.m_oCurriculum.CourseTypeId = Me.cmbType.SelectedValue
            Me.m_oCurriculum.m_sClassRoom = Me.cmbClassroom.Text
            Me.m_oCurriculum.teacherid = Me.cmbTeacher.SelectedValue
            Me.m_oCurriculum.m_sDay = Me.cmbClassDay.Text
            Me.m_oCurriculum.m_iTimeId = Me.cmbClassTime.SelectedValue
            Me.m_oCurriculum.m_iStudentAmount = CInt(Me.txtStuAmount.Text)
            Me.m_oCurriculum.m_fCoefficient = CDbl(Me.txtCoefficient.Text)
            GetControl = True
        End If
    End Function

    '根据m_oCurriculum对象实例的属性设置窗体各控件值
    Private Function SetControl() As Boolean
        If Object.Equals(Me.m_oCurriculum, Nothing) Then
            SetControl = False
        Else
            '设置控件值
            Me.cmbCourse.SelectedValue = Me.m_oCurriculum.CourseId
            Me.cmbType.SelectedValue = Me.m_oCurriculum.CourseTypeId
            Me.cmbClassroom.Text = Me.m_oCurriculum.m_sClassRoom
            Me.cmbTeacher.SelectedValue = Me.m_oCurriculum.TeacherId
            Me.cmbClassDay.Text = Me.m_oCurriculum.m_sDay
            Me.cmbClassTime.SelectedValue = Me.m_oCurriculum.m_iTimeId
            Me.txtStuAmount.Text = Me.m_oCurriculum.m_iStudentAmount
            Me.txtCoefficient.Text = Me.m_oCurriculum.m_fCoefficient
            SetControl = True
        End If
    End Function

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

    '初始化窗体
    Protected Overrides Sub Init()
        Me.Text = "专业开课"
        lblCaption.Text = "专业开课 Give Course"
        btnOk.Text = "确定"
        btnCancel.Text = "取消"

        'Init ComboBox
        '课程下拉框
        cmbCourse.Items.Clear()
        cmbCourse.ValueMember = "id"
        cmbCourse.DisplayMember = "name"
        'cmbCourse.DataSource = CommonDB.DbBase.DataInterface.Execute4DS("select id,name from course").Tables(0).DefaultView
        '课程类型下拉框
        cmbType.Items.Clear()
        cmbType.ValueMember = "id"
        cmbType.DisplayMember = "name"
        cmbType.DataSource = CommonDB.DbBase.DataInterface.Execute4DS("select id,name from course_type").Tables(0).DefaultView
        '教室下拉框
        cmbClassroom.Items.Clear()
        cmbClassroom.ValueMember = "address"
        cmbClassroom.DisplayMember = "address"
        cmbClassroom.DataSource = CommonDB.DbBase.DataInterface.Execute4DS("select address from classroom").Tables(0).DefaultView
        '上课时间下拉框
        cmbClassTime.Items.Clear()
        cmbClassTime.ValueMember = "id"
        cmbClassTime.DisplayMember = "caption"
        cmbClassTime.DataSource = CommonDB.DbBase.DataInterface.Execute4DS("select id,caption from class_time").Tables(0).DefaultView
        '教室下拉框
        cmbTeacher.Items.Clear()
        cmbTeacher.ValueMember = "id"
        cmbTeacher.DisplayMember = "name"
        cmbTeacher.DataSource = CommonDB.DbBase.DataInterface.Execute4DS("select id,name from teacher").Tables(0).DefaultView
        '上课日期下拉框
        cmbClassDay.Items.Clear()
        cmbClassDay.Items.AddRange(New Object() {"星期一", "星期二", "星期三", "星期四", "星期五"})

        Me.btnOk.Enabled = False
    End Sub

    'cmCurriculum弹出事件处理
    Private Sub cmCurriculum_Popup(ByVal sender As Object, ByVal e As EventArgs) Handles cmCurriculum.Popup
        If tvStudent.SelectedNode.ImageIndex = 2 Then
            '专业节点右键菜单
            miGiveCourse.Visible = True
            miCancelCourse.Visible = False
            miEditCourse.Visible = False
        ElseIf tvStudent.SelectedNode.ImageIndex = 3 Then
            '课程节点右键菜单
            miGiveCourse.Visible = False
            miCancelCourse.Visible = True
            miEditCourse.Visible = True
        Else
            miGiveCourse.Visible = False
            miCancelCourse.Visible = False
            miEditCourse.Visible = False
        End If
    End Sub

    '专业开课菜单项单击
    Private Sub miGiveCourse_Click(ByVal sender As Object, ByVal e As EventArgs) Handles miGiveCourse.Click
        Me.m_oCurriculum = New Curriculum
        cmbCourse.DataSource = DbBase.DataInterface.Execute4DS("select id,name from course where profession_id = " & CInt(tvStudent.SelectedNode.Tag)).Tables(0).DefaultView
        btnOk.Text = "开课"
        btnOk.Enabled = True
    End Sub

    '修改课程菜单项单击
    Private Sub miEditCourse_Click(ByVal sender As Object, ByVal e As EventArgs) Handles miEditCourse.Click
        Me.m_oCurriculum = New Curriculum(CInt(tvStudent.SelectedNode.Tag))
        cmbCourse.DataSource = CommonDB.DbBase.DataInterface.Execute4DS("select id,name from course where profession_id =" & tvStudent.SelectedNode.Parent.Tag).Tables(0).DefaultView
        SetControl()
        btnOk.Text = "修改"
        btnOk.Enabled = True
    End Sub

    '专业消课菜单项单击
    Private Sub miCancelCourse_Click(ByVal sender As Object, ByVal e As EventArgs) Handles miCancelCourse.Click
        Me.m_oCurriculum = New Curriculum(tvStudent.SelectedNode.Tag)
        cmbCourse.DataSource = CommonDB.DbBase.DataInterface.Execute4DS("select id,name from course where profession_id =" & tvStudent.SelectedNode.Parent.Tag).Tables(0).DefaultView
        SetControl()
        btnOk.Text = "消课"
        btnOk.Enabled = True
    End Sub

    Protected Overrides Sub OK()
        GetControl()
        Select Case btnOk.Text
            Case "开课"
                If Me.m_oCurriculum.GiveCourse() = 0 Then
                    MessageBox.Show("专业开课成功！")
                End If
            Case "修改"
                If Me.m_oCurriculum.EditCourse = 0 Then
                    MessageBox.Show("修改课程成功！")
                End If
            Case "消课"
                If Me.m_oCurriculum.CancelCourse = 0 Then
                    MessageBox.Show("专业消课成功！")
                End If
            Case Else
                '
        End Select
        Cancel()
    End Sub

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