Imports AppVariable

Partial Class uc_InfoStudent
    Inherits System.Web.UI.UserControl

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

    Protected Sub sql_学生_Init(sender As Object, e As EventArgs) Handles sql_学生.Init
        'SqlDataSourceをセット
        sql_学生_select()
    End Sub

#End Region

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

    Private Sub sql_学生_select()
        Dim sds As SqlDataSource = sql_学生
        WebControlsUtil.DeclareSP(sds, "共通_学生_個別_SELECT")
        With sds
            .SelectParameters.Add("学籍NO", Session(S_COM_UserCD))
        End With
    End Sub

#End Region

End Class
