formachievement.vb

学生信息管理系统

Imports CommonDB

Public Class FormAchievement
    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 lblCurriculum As System.Windows.Forms.Label
    Friend WithEvents dgAchievement As System.Windows.Forms.DataGrid
    Friend WithEvents dgtsAchievement As System.Windows.Forms.DataGridTableStyle
    Friend WithEvents dgcPoint As System.Windows.Forms.DataGridTextBoxColumn
    Friend WithEvents cmbCurriculum As System.Windows.Forms.ComboBox
    Friend WithEvents dgcStudentName As System.Windows.Forms.DataGridTextBoxColumn
    Friend WithEvents dgcId As System.Windows.Forms.DataGridTextBoxColumn
    Friend WithEvents dgcStuNum As System.Windows.Forms.DataGridTextBoxColumn
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.lblCurriculum = New System.Windows.Forms.Label
        Me.cmbCurriculum = New System.Windows.Forms.ComboBox
        Me.dgAchievement = New System.Windows.Forms.DataGrid
        Me.dgtsAchievement = New System.Windows.Forms.DataGridTableStyle
        Me.dgcStudentName = New System.Windows.Forms.DataGridTextBoxColumn
        Me.dgcPoint = New System.Windows.Forms.DataGridTextBoxColumn
        Me.dgcId = New System.Windows.Forms.DataGridTextBoxColumn
        Me.dgcStuNum = New System.Windows.Forms.DataGridTextBoxColumn
        CType(Me.dgAchievement, System.ComponentModel.ISupportInitialize).BeginInit()
        '
        'lblCurriculum
        '
        Me.lblCurriculum.AutoSize = True
        Me.lblCurriculum.Location = New System.Drawing.Point(48, 24)
        Me.lblCurriculum.Name = "lblCurriculum"
        Me.lblCurriculum.Size = New System.Drawing.Size(54, 17)
        Me.lblCurriculum.TabIndex = 1
        Me.lblCurriculum.Text = "课程名称"
        '
        'cmbCurriculum
        '
        Me.cmbCurriculum.Location = New System.Drawing.Point(128, 16)
        Me.cmbCurriculum.Name = "cmbCurriculum"
        Me.cmbCurriculum.Size = New System.Drawing.Size(264, 20)
        Me.cmbCurriculum.TabIndex = 5
        Me.cmbCurriculum.Text = "请选择..."
        '
        'dgAchievement
        '
        Me.dgAchievement.CaptionVisible = False
        Me.dgAchievement.DataMember = ""
        Me.dgAchievement.HeaderForeColor = System.Drawing.SystemColors.ControlText
        Me.dgAchievement.Location = New System.Drawing.Point(16, 48)
        Me.dgAchievement.Name = "dgAchievement"
        Me.dgAchievement.Size = New System.Drawing.Size(416, 280)
        Me.dgAchievement.TabIndex = 6
        Me.dgAchievement.TableStyles.AddRange(New System.Windows.Forms.DataGridTableStyle() {Me.dgtsAchievement})
        '
        'dgtsAchievement
        '
        Me.dgtsAchievement.DataGrid = Me.dgAchievement
        Me.dgtsAchievement.GridColumnStyles.AddRange(New System.Windows.Forms.DataGridColumnStyle() {Me.dgcStuNum, Me.dgcStudentName, Me.dgcPoint, Me.dgcId})
        Me.dgtsAchievement.HeaderForeColor = System.Drawing.SystemColors.ControlText
        Me.dgtsAchievement.MappingName = ""
        '
        'dgcStudentName
        '
        Me.dgcStudentName.Format = ""
        Me.dgcStudentName.FormatInfo = Nothing
        Me.dgcStudentName.HeaderText = "学生姓名"
        Me.dgcStudentName.MappingName = ""
        Me.dgcStudentName.ReadOnly = True
        Me.dgcStudentName.Width = 50
        '
        'dgcPoint
        '
        Me.dgcPoint.Format = ""
        Me.dgcPoint.FormatInfo = Nothing
        Me.dgcPoint.HeaderText = "分  数"
        Me.dgcPoint.MappingName = ""
        Me.dgcPoint.Width = 50
        '
        'dgcId
        '
        Me.dgcId.Format = ""
        Me.dgcId.FormatInfo = Nothing
        Me.dgcId.MappingName = ""
        Me.dgcId.ReadOnly = True
        Me.dgcId.Width = 0
        '
        'dgcStuNum
        '
        Me.dgcStuNum.Format = ""
        Me.dgcStuNum.FormatInfo = Nothing
        Me.dgcStuNum.HeaderText = "学号"
        Me.dgcStuNum.MappingName = ""
        Me.dgcStuNum.ReadOnly = True
        Me.dgcStuNum.Width = 75
        '
        AddControl()
        '
        'FormAchievement
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(648, 461)
        Me.Name = "FormAchievement"
        CType(Me.dgAchievement, System.ComponentModel.ISupportInitialize).EndInit()

    End Sub

#End Region

    '自定义方法，添加控件到FormBase.GroupBox1.Controls集合中
    Private Sub AddControl()
        Me.GroupBox1.Controls.Add(Me.lblCurriculum)
        Me.GroupBox1.Controls.Add(Me.cmbCurriculum)
        Me.GroupBox1.Controls.Add(Me.dgAchievement)
    End Sub

    '初始化各窗体控件
    Protected Overrides Sub Init()
        '初始化继承控件
        Me.Width = 460
        Me.pnlLeft.Width = 0
        Me.lblCaption.Text = "成绩录入"
        Me.btnOk.Text = "录入"
        Me.btnOk.Enabled = False
        Me.btnCancel.Text = "放弃"
        '初始化课程下拉框
        Me.cmbCurriculum.ValueMember = "id"
        Me.cmbCurriculum.DisplayMember = "course_name"
        Me.cmbCurriculum.DataSource = DbBase.DataInterface.Execute4DS("select id,course_name from v_curriculum2").Tables(0).DefaultView

        '设置数据网格Style
        Me.dgtsAchievement.MappingName = "Table"
        Me.dgcId.MappingName = "id"
        Me.dgcPoint.MappingName = "point"
        Me.dgcStudentName.MappingName = "student_name"
        Me.dgcStuNum.MappingName = "stu_num"
    End Sub

    '课程下拉框选项改变，改变成绩录入网格DataSource
    Private Sub cmbCurriculum_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmbCurriculum.SelectedIndexChanged
        Me.dgAchievement.DataSource = DbBase.DataInterface.Execute4DS("select id,point,student_name,stu_num from v_curriculum_schedule where curriculum_id = " & cmbCurriculum.SelectedValue).Tables(0) '.DefaultView
        Me.dgAchievement.Enabled = True
        Me.btnOk.Enabled = True
    End Sub

    '“录入”按钮单击事件
    Protected Overrides Sub OK()
        'Me.dgAchievement.Update()
        Dim dtAchievement As DataTable = CType(dgAchievement.DataSource, DataTable)
        'For Each drTemp As DataRow In dtAchievement.Rows
        If Achievement.LogginAchievement(dtAchievement) = 0 Then
            MessageBox.Show("成绩录入成功！")
        End If
        Cancel()
        'Next
    End Sub

    '“放弃”按钮单击事件
    Protected Overrides Sub Cancel()
        Me.cmbCurriculum.Text = "请选择课程..."
        Me.dgAchievement.Enabled = False
        Me.btnOk.Enabled = False
    End Sub
End Class