📄 formselectcourse.vb

📁 学生信息管理系统
💻 VB
字号:
Imports CommonDB
Public Class FormSelectCourse    Inherits FormBase#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 lblStudent As System.Windows.Forms.Label
    Friend WithEvents lblCollege As System.Windows.Forms.Label
    Friend WithEvents lblProfession As System.Windows.Forms.Label
    Friend WithEvents lblCurriculum As System.Windows.Forms.Label
    Friend WithEvents lblClassroom As System.Windows.Forms.Label
    Friend WithEvents lblClassTime As System.Windows.Forms.Label
    Friend WithEvents cmbStudent As System.Windows.Forms.ComboBox
    Friend WithEvents cmbCollege As System.Windows.Forms.ComboBox
    Friend WithEvents cmbProfession As System.Windows.Forms.ComboBox
    Friend WithEvents cmbCurriculum As System.Windows.Forms.ComboBox
    Friend WithEvents txtClassroom As System.Windows.Forms.TextBox
    Friend WithEvents txtClassTime As System.Windows.Forms.TextBox
    Friend WithEvents txtTeacher As System.Windows.Forms.TextBox
    Friend WithEvents lblTeacher As System.Windows.Forms.Label
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()        Me.lblStudent = New System.Windows.Forms.Label
        Me.lblCollege = New System.Windows.Forms.Label
        Me.lblProfession = New System.Windows.Forms.Label
        Me.lblCurriculum = New System.Windows.Forms.Label
        Me.lblClassroom = New System.Windows.Forms.Label
        Me.lblClassTime = New System.Windows.Forms.Label
        Me.cmbStudent = New System.Windows.Forms.ComboBox
        Me.cmbCollege = New System.Windows.Forms.ComboBox
        Me.cmbProfession = New System.Windows.Forms.ComboBox
        Me.cmbCurriculum = New System.Windows.Forms.ComboBox
        Me.txtClassroom = New System.Windows.Forms.TextBox
        Me.txtClassTime = New System.Windows.Forms.TextBox
        Me.txtTeacher = New System.Windows.Forms.TextBox
        Me.lblTeacher = New System.Windows.Forms.Label
        '
        'lblStudent
        '
        Me.lblStudent.AutoSize = True
        Me.lblStudent.Location = New System.Drawing.Point(72, 40)
        Me.lblStudent.Name = "lblStudent"
        Me.lblStudent.Size = New System.Drawing.Size(29, 17)
        Me.lblStudent.TabIndex = 0
        Me.lblStudent.Text = "学生"
        '
        'lblCollege
        '
        Me.lblCollege.AutoSize = True
        Me.lblCollege.Location = New System.Drawing.Point(72, 80)
        Me.lblCollege.Name = "lblCollege"
        Me.lblCollege.Size = New System.Drawing.Size(54, 17)
        Me.lblCollege.TabIndex = 1
        Me.lblCollege.Text = "开课学院"
        '
        'lblProfession
        '
        Me.lblProfession.AutoSize = True
        Me.lblProfession.Location = New System.Drawing.Point(72, 120)
        Me.lblProfession.Name = "lblProfession"
        Me.lblProfession.Size = New System.Drawing.Size(54, 17)
        Me.lblProfession.TabIndex = 2
        Me.lblProfession.Text = "开课专业"
        '
        'lblCurriculum
        '
        Me.lblCurriculum.AutoSize = True
        Me.lblCurriculum.Location = New System.Drawing.Point(72, 160)
        Me.lblCurriculum.Name = "lblCurriculum"
        Me.lblCurriculum.Size = New System.Drawing.Size(29, 17)
        Me.lblCurriculum.TabIndex = 3
        Me.lblCurriculum.Text = "课程"
        '
        'lblClassroom
        '
        Me.lblClassroom.AutoSize = True
        Me.lblClassroom.Location = New System.Drawing.Point(72, 200)
        Me.lblClassroom.Name = "lblClassroom"
        Me.lblClassroom.Size = New System.Drawing.Size(54, 17)
        Me.lblClassroom.TabIndex = 4
        Me.lblClassroom.Text = "上课教室"
        '
        'lblClassTime
        '
        Me.lblClassTime.AutoSize = True
        Me.lblClassTime.Location = New System.Drawing.Point(72, 240)
        Me.lblClassTime.Name = "lblClassTime"
        Me.lblClassTime.Size = New System.Drawing.Size(54, 17)
        Me.lblClassTime.TabIndex = 5
        Me.lblClassTime.Text = "上课时间"
        '
        'cmbStudent
        '
        Me.cmbStudent.Location = New System.Drawing.Point(128, 32)
        Me.cmbStudent.Name = "cmbStudent"
        Me.cmbStudent.Size = New System.Drawing.Size(248, 20)
        Me.cmbStudent.TabIndex = 6
        Me.cmbStudent.Text = "请选择学生..."
        '
        'cmbCollege
        '
        Me.cmbCollege.Location = New System.Drawing.Point(128, 72)
        Me.cmbCollege.Name = "cmbCollege"
        Me.cmbCollege.Size = New System.Drawing.Size(248, 20)
        Me.cmbCollege.TabIndex = 7
        Me.cmbCollege.Text = "请选择学院..."
        '
        'cmbProfession
        '
        Me.cmbProfession.Location = New System.Drawing.Point(128, 112)
        Me.cmbProfession.Name = "cmbProfession"
        Me.cmbProfession.Size = New System.Drawing.Size(248, 20)
        Me.cmbProfession.TabIndex = 8
        Me.cmbProfession.Text = "请选择专业..."
        '
        'cmbCurriculum
        '
        Me.cmbCurriculum.Location = New System.Drawing.Point(128, 152)
        Me.cmbCurriculum.Name = "cmbCurriculum"
        Me.cmbCurriculum.Size = New System.Drawing.Size(248, 20)
        Me.cmbCurriculum.TabIndex = 9
        Me.cmbCurriculum.Text = "请选择课程..."
        '
        'txtClassroom
        '
        Me.txtClassroom.Location = New System.Drawing.Point(128, 192)
        Me.txtClassroom.Name = "txtClassroom"
        Me.txtClassroom.Size = New System.Drawing.Size(248, 21)
        Me.txtClassroom.TabIndex = 10
        Me.txtClassroom.Text = ""
        Me.txtClassroom.ReadOnly = True
        '
        'txtClassTime
        '
        Me.txtClassTime.Location = New System.Drawing.Point(128, 232)
        Me.txtClassTime.Name = "txtClassTime"
        Me.txtClassTime.Size = New System.Drawing.Size(248, 21)
        Me.txtClassTime.TabIndex = 12
        Me.txtClassTime.Text = ""
        Me.txtClassTime.ReadOnly = True
        '
        'txtTeacher
        '
        Me.txtTeacher.Location = New System.Drawing.Point(128, 272)
        Me.txtTeacher.Name = "txtTeacher"
        Me.txtTeacher.Size = New System.Drawing.Size(248, 21)
        Me.txtTeacher.TabIndex = 14
        Me.txtTeacher.Text = ""
        Me.txtTeacher.Text = ""
        Me.txtTeacher.ReadOnly = True
        '
        'lblTeacher
        '
        Me.lblTeacher.AutoSize = True
        Me.lblTeacher.Location = New System.Drawing.Point(72, 280)
        Me.lblTeacher.Name = "lblTeacher"
        Me.lblTeacher.Size = New System.Drawing.Size(54, 17)
        Me.lblTeacher.TabIndex = 13
        Me.lblTeacher.Text = "上课教师"
        '
        '
        '
        AddControl()
        '
        'FormSelectCourse
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(648, 445)
        Me.Name = "FormSelectCourse"

    End Sub#End Region    '将控件加入到GroupBox1中    Private Sub AddControl()        Me.GroupBox1.Controls.Add(Me.lblStudent)
        Me.GroupBox1.Controls.Add(Me.lblCollege)
        Me.GroupBox1.Controls.Add(Me.lblProfession)
        Me.GroupBox1.Controls.Add(Me.lblCurriculum)
        Me.GroupBox1.Controls.Add(Me.lblClassroom)
        Me.GroupBox1.Controls.Add(Me.lblClassTime)
        Me.GroupBox1.Controls.Add(Me.cmbStudent)
        Me.GroupBox1.Controls.Add(Me.cmbCollege)
        Me.GroupBox1.Controls.Add(Me.cmbProfession)
        Me.GroupBox1.Controls.Add(Me.cmbCurriculum)
        Me.GroupBox1.Controls.Add(Me.txtClassroom)
        Me.GroupBox1.Controls.Add(Me.txtClassTime)
        Me.GroupBox1.Controls.Add(Me.txtTeacher)
        Me.GroupBox1.Controls.Add(Me.lblTeacher)
    End Sub    Private Sub cmbCurriculum_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmbCurriculum.SelectedIndexChanged
        '改变课程选项时改变上课地点、上课时间、教师文本框的内容
        Dim dtCurriculum As DataTable = DbBase.DataInterface.Execute4DS("select classroom,class_daytime,teacher_name from v_curriculum2 where id = " & cmbCurriculum.SelectedValue).Tables(0)
        '在文本框中显示课程相关信息
        txtClassroom.Text = dtCurriculum.Rows(0)(0)
        txtClassTime.Text = dtCurriculum.Rows(0)(1)
        txtTeacher.Text = dtCurriculum.Rows(0)(2)
    End Sub

    '初始化窗体
    Protected Overrides Sub Init()
        Me.pnlLeft.Width = 0
        Me.lblCaption.Text = "学生选课 Select Course"
        Me.btnOk.Text = "选课"
        Me.btnCancel.Text = "重置"
        '初始化各ComboBox
        cmbStudent.ValueMember = "stu_num"
        cmbStudent.DisplayMember = "name"
        cmbStudent.DataSource = DbBase.DataInterface.Execute4DS("select stu_num,name from student").Tables(0).DefaultView

        cmbCollege.ValueMember = "id"
        cmbCollege.DisplayMember = "name"

        cmbProfession.ValueMember = "id"
        cmbProfession.DisplayMember = "name"

        cmbCurriculum.ValueMember = "id"
        cmbCurriculum.DisplayMember = "course_name"
        'cmbCurriculum.DataSource = DbBase.DataInterface.Execute4DS("select id,course_name from v_curriculum2").Tables(0).DefaultView

        cmbCollege.DataSource = DbBase.DataInterface.Execute4DS("select id,name from college").Tables(0).DefaultView

    End Sub

    '单击选课按钮的处理方法，将选课信息更新到数据库
    Protected Overrides Sub OK()
        If Student.SelectCurriculum(cmbCurriculum.SelectedValue, cmbStudent.SelectedValue) = 0 Then
            MessageBox.Show("选课成功！")
        End If
        Cancel()
    End Sub

    '单击“重置”按钮的处理方法
    Protected Overrides Sub Cancel()
        cmbStudent.Text = "请选择学生..."
        cmbCollege.Text = "请选择学院..."
        cmbProfession.Text = "请选择专业..."
        cmbCurriculum.Text = "请选择课程..."
        txtClassroom.Text = ""
        txtClassTime.Text = ""
        txtTeacher.Text = ""
    End Sub

    '改变学校时，在cmbProfesion中显示该学校下的专业
    Private Sub cmbCollege_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmbCollege.SelectedIndexChanged
        If cmbCollege.Items.Count > 0 Then
            cmbProfession.DataSource = DbBase.DataInterface.Execute4DS("select id,name from profession where college_id = " & cmbCollege.SelectedValue).Tables(0).DefaultView
        End If
    End Sub

    ' 改变专业时，在cmbCurriculum中显示该专业开的课程
    Private Sub cmbProfession_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmbProfession.SelectedIndexChanged
        If cmbProfession.Items.Count > 0 Then
            cmbCurriculum.DataSource = DbBase.DataInterface.Execute4DS("select id,course_name from v_curriculum2 where profession_id = " & cmbProfession.SelectedValue).Tables(0).DefaultView
        End If
    End Sub
End Class
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -