Public Class s_class_infor
    Inherits System.Web.UI.Page

#Region " Web 窗體設計器生成的代碼 "

    '該調用是 Web 窗體設計器所必需的。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub
    Protected WithEvents Label1 As System.Web.UI.WebControls.Label
    Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid
    Protected WithEvents Label2 As System.Web.UI.WebControls.Label
    Protected WithEvents HyperLink10 As System.Web.UI.WebControls.HyperLink
    Protected WithEvents HyperLink11 As System.Web.UI.WebControls.HyperLink
    Protected WithEvents HyperLink9 As System.Web.UI.WebControls.HyperLink
    Protected WithEvents HyperLink13 As System.Web.UI.WebControls.HyperLink
    Protected WithEvents HyperLink14 As System.Web.UI.WebControls.HyperLink
    Protected WithEvents HyperLink15 As System.Web.UI.WebControls.HyperLink
    Protected WithEvents HyperLink8 As System.Web.UI.WebControls.HyperLink
    Protected WithEvents HyperLink1 As System.Web.UI.WebControls.HyperLink
    Protected WithEvents HyperLink5 As System.Web.UI.WebControls.HyperLink
    Protected WithEvents LinkButton1 As System.Web.UI.WebControls.LinkButton
    Protected WithEvents Image1 As System.Web.UI.WebControls.Image
    Protected WithEvents spWelMessage As System.Web.UI.HtmlControls.HtmlGenericControl
    Protected WithEvents Button3 As System.Web.UI.WebControls.Button
    Protected WithEvents RadioButton1 As System.Web.UI.WebControls.RadioButton
    Protected WithEvents RadioButton2 As System.Web.UI.WebControls.RadioButton
    Protected WithEvents DropDownList2 As System.Web.UI.WebControls.DropDownList
    Protected WithEvents DropDownList3 As System.Web.UI.WebControls.DropDownList
    Protected WithEvents Button2 As System.Web.UI.WebControls.Button
    Protected WithEvents Button1 As System.Web.UI.WebControls.Button
    Protected WithEvents DropDownList1 As System.Web.UI.WebControls.DropDownList

    '注意: 以下占位符聲明是 Web 窗體設計器所必需的。
    '不要刪除或移動它。
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: 此方法調用是 Web 窗體設計器所必需的
        '不要使用代碼編輯器修改它。
        InitializeComponent()
    End Sub

#End Region
    Dim dsn As String
    Dim conn As New SqlClient.SqlConnection
    Dim cmd As New SqlClient.SqlCommand
    Dim ds1 As DataSet = New DataSet
    Dim mydap1 As New SqlClient.SqlDataAdapter
    Dim student_id As String '取出學生登錄s_id
    Dim class_student_num As Integer '計算班級中學生人數
    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在此處放置初始化頁的用戶代碼
        '顯示歡迎信息
        student_id = Request.Cookies("userInf").Values("userID")
        If DateTime.Now.Hour >= 6 And DateTime.Now.Hour < 12 Then
            spWelMessage.InnerHtml = "早上好，" & Request.Cookies("userInf").Values("userID") & Request.Cookies("userInf").Values("userIdent")
        ElseIf DateTime.Now.Hour >= 12 And DateTime.Now.Hour < 18 Then
            spWelMessage.InnerHtml = "下午好，" & Request.Cookies("userInf").Values("userID") & Request.Cookies("userInf").Values("userIdent")
        Else
            spWelMessage.InnerHtml = "晚上好，" & Request.Cookies("userInf").Values("userID") & Request.Cookies("userInf").Values("userIdent")
        End If
        '連接數據庫()
        dsn = ConfigurationSettings.AppSettings("DSN_student")
        conn.ConnectionString = dsn
        cmd.Connection = conn
        mydap1.SelectCommand = cmd
        '初始化label2控件的text屬性
        Label2.Text = ""
        If RadioButton1.Checked Then
            DropDownList2.Enabled = True
            DropDownList3.Enabled = True
            Button2.Enabled = True
            Button3.Enabled = False
        ElseIf RadioButton2.Checked Then
            DropDownList2.Enabled = False
            DropDownList3.Enabled = False
            Button2.Enabled = False
            Button3.Enabled = True
        End If
    End Sub

    Private Sub LinkButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LinkButton1.Click
        Response.Redirect("../login.aspx")
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        datagrid1_bind() ' 此函數完成的功能：將數據在datagrid1中顯示出來
        '計算該班的人數
        cmd.CommandText = "select * from class_student where class_id='" + DropDownList1.SelectedItem.Value + "'"
        Try
            conn.Open()
            mydap1.Fill(ds1, "class_student_count")
            Label1.Text = ds1.Tables("class_student_count").Rows.Count
            class_student_num = ds1.Tables("class_student_count").Rows.Count
        Catch
            Label2.Text = "讀取班級學生表失敗，可能是服務器出現錯誤，請稍后再試！非常抱歉影響了您的工作！"
        Finally
            conn.Close()
        End Try
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        '加入該班,
        '步驟為：首先判斷該學生是否已經選擇了班級，如果是的話，就提示她不能在選擇或者先退出原來的班級在進行選擇，
        '如果還沒有選擇班級，則可以選擇組號和座號，如果選擇的組號和座號已經存在，則無法加入該班；
        '如果選擇的組號和座號沒有存在，則可以加入該班
        Dim bool1 As Boolean = False '記錄學生是否已經選擇過班級
        Dim bool2 As Boolean = False '記錄學生選擇的組號和座號是否已經存在
        Dim bool3 As Boolean = False '記錄是否已經將學生選班信息添加到班級學生表中

        '下面代碼判斷該學生是否已經加入某個班級
        cmd.CommandText = "select * from student_login where s_id='" + student_id + "'and sl_ifclass='1'"
        Try
            conn.Open()
            Dim reader As IDataReader
            reader = cmd.ExecuteReader()
            If reader.Read Then '如果此學生已經加入某個班級
                Label2.Text = "您已經加入了某個班級，無法再次添加！"
                bool1 = False
            Else
                '如果此學生還沒有加入任何班級，判斷該班級人數是否已經超過上限64人
                If class_student_num < 64 Then
                    bool1 = True
                Else
                    bool1 = False
                    Label2.Text = "該班級人數已經超過64人，您無法再次加入！"
                End If
            End If
        Catch
            Label2.Text = "讀取學生登錄表失敗，可能是服務器出現錯誤，請稍后再試！非常抱歉影響了您的工作！"
        Finally
            conn.Close()
        End Try

        '如果該學生沒有選擇班級，則下面代碼判斷該學生選擇的組號和座號是否已經存在
        If bool1 Then
            cmd.CommandText = "select * from class_student where class_id='" + DropDownList1.SelectedItem.Value + "' and group_id='" + DropDownList2.SelectedItem.Value + "' and seat_id='" + DropDownList3.SelectedItem.Value + "'"
            Try
                conn.Open()
                Dim reader2 As IDataReader
                reader2 = cmd.ExecuteReader()
                If reader2.Read Then '如果此學生選擇的組號座號已經存在
                    Label2.Text = "您選擇的組號和座號已經存在，無法再次添加！"
                    bool2 = False
                Else