Imports AppVariable

Partial Class uc_InfoClass
    Inherits System.Web.UI.UserControl

#Region "***************** コントロールイベント *****************"

    Protected Sub sql_授業_Init(sender As Object, e As EventArgs) Handles sql_授業.Init
        'SqlDataSourceをセット
        sql_授業_SET()
    End Sub

#End Region

#Region "******************* Sub及びFunction ********************"

    Private Sub sql_授業_SET()
        Dim sds As SqlDataSource = sql_授業
        WebControlsUtil.DeclareSP(sds, "出欠_授業評価_個別_SELECT")
        With sds
            .SelectParameters.Add("履修年度", Session(S_COM_Selected_Risyu_Nendo))
            .SelectParameters.Add("成績年度", Session(S_COM_Selected_Seiseki_Nendo))
            .SelectParameters.Add("分野CD", Session(S_COM_Selected_Bunya_CD))
            .SelectParameters.Add("科目CD", Session(S_COM_Selected_Kamoku_CD))
            .SelectParameters.Add("講座CD", Session(S_COM_Selected_Kouza_CD))
        End With
    End Sub

#End Region

End Class
