Imports System.Data
Imports AppVariable

Partial Class student_infoLearning
    Inherits System.Web.UI.Page

#Region "******************** ページイベント ********************"

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        gv_成績.DataSource = GetData()
        gv_成績.DataBind()
    End Sub

#End Region

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

    Function GetData() As DataSet
        Using spm As New StoredProcedureManager("成績_授業評価_学生_SELECT")
            spm.AddPrmIn("@USERCD", Data.SqlDbType.VarChar, 20, Session(S_COM_UserCD))
            spm.Fill()

            Return spm.ds
        End Using
    End Function

#End Region

End Class
