bool2 = True
                End If
            Catch
                Label2.Text = "讀取班級學生表失敗，可能是服務器出現錯誤，請稍后再試！非常抱歉影響了您的工作！"
            Finally
                conn.Close()
            End Try

            '如果此學生選擇的組號和座號不存在，則執行第二步：插入該班，首先在班級學生表中添加一列，再將學生登錄表中的SL_ifclass列置為1
            If bool2 Then
                cmd.CommandText = "insert into class_student (class_id,s_id,group_id,seat_id) values  ('" + DropDownList1.SelectedItem.Value + "','" + student_id + "','" + DropDownList2.SelectedItem.Value + "','" + DropDownList3.SelectedItem.Value + "')"
                Try
                    conn.Open()
                    cmd.ExecuteReader()
                    bool3 = True
                Catch
                    bool3 = False
                    Label2.Text = "插入該班級失敗，可能是服務器出現錯誤，請稍后再試！非常抱歉影響了您的工作！"
                Finally
                    conn.Close()
                End Try
            End If

            '如果成功的將學生的選課信息添加到班級課程表中，就更改學生登錄表中的字段,并重新綁定DATAGRID1的內容
            If bool3 Then
                cmd.CommandText = "update student_login set sl_ifclass='1' where s_id='" + student_id + "'"
                Try
                    conn.Open()
                    cmd.ExecuteReader()
                    bool3 = True
                    conn.Close()
                    datagrid1_bind() '此函數完成的功能：將數據在datagrid1中顯示出來
                    '計算該班的人數,在button1_click中也有這樣一段代碼，本來可以合在一起，
                    '但是這樣一來相同的數據項添加了兩次，造成計算班級人數出錯
                    '如果可以先去處這個表重內容重新添加就可以合并了，或者相同的數據項不再次添加
                    cmd.CommandText = "select * from class_student where class_id='" + DropDownList1.SelectedItem.Value + "'"
                    Try
                        conn.Open()
                        mydap1.Fill(ds1, "class_student_count2")
                        Label1.Text = ds1.Tables("class_student_count2").Rows.Count
                        class_student_num = ds1.Tables("class_student_count2").Rows.Count
                    Catch
                        Label2.Text = "讀取班級學生表失敗，可能是服務器出現錯誤，請稍后再試！非常抱歉影響了您的工作！"
                    Finally
                        conn.Close()
                    End Try
                    '提示加入班級成功信息
                    Label2.Text = "您加入該班成功！"
                Catch
                    bool3 = False
                    Label2.Text = "插入班級學生表失敗，可能是服務器出現錯誤，請稍后再試！非常抱歉影響了您的工作！"
                Finally
                    conn.Close()
                End Try
            End If
        End If
    End Sub
    Sub datagrid1_bind()
        '此函數完成的功能：將數據在datagrid1中顯示出來，并且計算該班的人數
        '選擇班級，點擊此按鈕后顯示該班的學生名單   
        cmd.CommandText = "select student_infor.s_id,student_infor.s_name,group_id,seat_id from student_infor,class_student where student_infor.s_id=class_student.s_id and class_id='" + DropDownList1.SelectedItem.Value + "'order by group_id asc"
        Try
            conn.Open()
            mydap1.Fill(ds1, "student_class_infor")
            DataGrid1.DataSource = ds1.Tables("student_class_infor")
            DataGrid1.DataBind()
        Catch
            Label2.Text = "讀取數據庫失敗，可能是服務器出現錯誤，請稍后再試！非常抱歉影響了您的工作！"
        Finally
            conn.Close()
        End Try
    End Sub


    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        '退出班級，首先判斷此學生是否屬于所選擇的班級，如果不屬于，進行提示；
        '如果屬于，則從數據庫中刪除此條記錄，并將此學生student_login表的s_iflogin字段置為0，表示沒有選擇班級；
        Dim bool4 As Boolean = False '記錄是否成功退出班級
        Dim bool5 As Boolean = False '記錄學生是否屬于該班級
        '判斷此學生是否屬于該班級
        cmd.CommandText = "select * from class_student where class_id='" + DropDownList1.SelectedItem.Value + "' and s_id='" + student_id + "'"
        Try
            conn.Open()
            Dim reader3 As IDataReader
            reader3 = cmd.ExecuteReader()
            If reader3.Read Then '如果此學生屬于這個班級
                bool5 = True
            Else
                Label2.Text = "您不屬于這個班級，無法從該班中退出！"
                bool5 = False
            End If
        Catch
            bool5 = False
            Label2.Text = "退出該班級失敗，可能是服務器出現錯誤，請稍后再試！非常抱歉影響了您的工作！"
        Finally
            conn.Close()
        End Try
        '如果學生屬于這個班級，則從class_student表中刪除此條學生記錄
        If bool5 Then
            cmd.CommandText = "delete from class_student where class_id='" + DropDownList1.SelectedItem.Value + "'and s_id='" + student_id + "'"
            Try
                conn.Open()
                cmd.ExecuteReader()
                bool4 = True
            Catch
                bool4 = False
                Label2.Text = "退出該班級失敗，可能是服務器出現錯誤，請稍后再試！非常抱歉影響了您的工作！"
            Finally
                conn.Close()
            End Try
        End If
        '如果成功的將學生的選課信息從班級課程表刪除中，就更改學生登錄表中的字段,并重新綁定DATAGRID1的內容
        If bool4 Then
            cmd.CommandText = "update student_login set sl_ifclass='0' where s_id='" + student_id + "'"
            Try
                conn.Open()
                cmd.ExecuteReader()
                bool4 = True
                conn.Close()
                datagrid1_bind() '此函數完成的功能：將數據在datagrid1中顯示出來
                '計算該班的人數,在button1_click中也有這樣一段代碼，本來可以合在一起，
                '但是這樣一來相同的數據項添加了兩次，造成計算班級人數出錯
                '如果可以先去處這個表重內容重新添加就可以合并了，或者相同的數據項不再次添加
                cmd.CommandText = "select * from class_student where class_id='" + DropDownList1.SelectedItem.Value + "'"
                Try
                    conn.Open()
                    mydap1.Fill(ds1, "class_student_count3")
                    Label1.Text = ds1.Tables("class_student_count3").Rows.Count
                    class_student_num = ds1.Tables("class_student_count3").Rows.Count
                Catch
                    Label2.Text = "讀取班級學生表失敗，可能是服務器出現錯誤，請稍后再試！非常抱歉影響了您的工作！"
                Finally
                    conn.Close()
                End Try
                '提示加入班級成功信息
                Label2.Text = "您退出該班成功！"
            Catch
                bool4 = False
                Label2.Text = "退出班級失敗，可能是服務器出現錯誤，請稍后再試！非常抱歉影響了您的工作！"
            Finally
                conn.Close()
            End Try
        End If
    End Sub
End Class