Public Class frmCourse    Inherits 教務管理系統.frmBase    Private dtList As DataTable#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 窗體設計器修改此過程。    '不要使用代碼編輯器修改它。    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()        '
        'frmCourse
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(608, 277)
        Me.Name = "frmCourse"

    End Sub#End Region    Public Overrides Sub Prepare()
        Me.Text = "課表查詢"
        Me.dgdList.Dock = DockStyle.Fill
        Me.ToolBar1.Visible = False
        Me.Label1.Text = "  學號"
        Me.Label2.Text = "  姓名"
        Me.Label3.Text = "  班級"
        Me.txbTwo.ReadOnly = True
        Me.txbThree.ReadOnly = True
        InitDataTable()
    End Sub    Private Sub InitDataTable()        dtList = New DataTable
        dtList.Columns.Add("星期一")
        dtList.Columns.Add("星期二")
        dtList.Columns.Add("星期三")
        dtList.Columns.Add("星期四")
        dtList.Columns.Add("星期五")
        Dim dr As DataRow
        For i As Integer = 0 To 9
            dr = dtList.NewRow
            dtList.Rows.Add(dr)
        Next
    End Sub    Public Overrides Sub LoadData()
        Dim strFilter As String = ""
        If txbOne.Text.Trim.Length = 0 Then
            Return
        Else
            strFilter = " and 學號='" + txbOne.Text.Trim + "'"
        End If

        Dim db As DataBase = New DataBase
        Dim strSQL As String = "select 姓名, 班級名稱 from 學生信息 as a, 班級信息 as b where a.班級編號=b.班級編號 and 學號='" + Me.txbOne.Text.Trim + "'"
        Dim dv As DataView = db.RunSelectSQL(strSQL)
        If dv.Count = 0 Then
            MessageBox.Show("學號錯誤！")
            Exit Sub
        End If
        Me.txbTwo.Text = dv(0)(0).ToString.Trim
        Me.txbThree.Text = dv(0)(1).ToString.Trim
        strSQL = "select b.課程名稱,a.上課時間天,a.上課時間節,a.上課地點 from 選課表 as c, 課程表 as a, 課程信息 as b where a.課程編號=b.課程編號 and c.課序號=a.課序號"
        dtData = db.RunSelectSQL(strSQL + strFilter + " order by a.課序號 ").Table
        db.Dispose()
            For m As Integer = 0 To 4
                For n As Integer = 0 To 9
                    dtList.Rows(n)(m) = ""
                Next
            Next
        Dim col, line As Integer
        For i As Integer = 0 To dtData.Rows.Count - 1
            col = CInt(dtData.Rows(i)(1).ToString) - 1
            line = CInt(dtData.Rows(i)(2).ToString) - 1
            dtList.Rows(line)(col) = dtData.Rows(i)(0).ToString.Trim + ControlChars.CrLf + dtData.Rows(i)(3).ToString.Trim
        Next
    End Sub    Public Overrides Sub SetDataGrid()
        LoadData()
        '定義一個DataGrid表樣式
        Dim ts As New DataGridTableStyle
        Dim aColumnTextColumn As DataGridTextBoxColumn
        Dim numCols As Integer = dtList.Columns.Count
        Dim i As Integer
        For i = 0 To numCols - 1
            aColumnTextColumn = New DataGridTextBoxColumn
            aColumnTextColumn.MappingName = _
            dtList.Columns(i).ColumnName
            aColumnTextColumn.HeaderText = _
            dtList.Columns(i).ColumnName
            aColumnTextColumn.NullText = ""
            aColumnTextColumn.ReadOnly = True
            aColumnTextColumn.Width = 130
            ts.GridColumnStyles.Add(aColumnTextColumn)
        Next
        ts.PreferredRowHeight = 30
        ts.AlternatingBackColor = Color.LightGray
        ts.AllowSorting = False
        ts.MappingName = dtList.TableName
        dgdList.TableStyles.Clear()
        dgdList.TableStyles.Add(ts)
        Dim dv As DataView = dtList.DefaultView
        dv.AllowNew = False
        dv.AllowDelete = False
        dv.AllowEdit = False
        '設置數據源
        dgdList.DataSource = dtList.DefaultView
    End Sub
    Private Sub txbOne_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txbOne.KeyDown
        If e.KeyCode = Keys.Enter Then
            SetDataGrid()
        End If
    End Sub
End Class