Imports AppCommon
Imports AppVariable

Partial Class EvalClass
    Inherits System.Web.UI.Page

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

    Protected Sub gv_成績_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles gv_成績.RowDataBound
        If e.Row.RowType = DataControlRowType.Footer Then
            pnl_button.Visible = True
            gv_成績.Visible = True
        ElseIf e.Row.RowType = DataControlRowType.EmptyDataRow Then
            If IsNothing(Session(S_COM_Selected_Kouza_CD)) Then
                gv_成績.Visible = False
            End If
        End If
    End Sub

    Protected Sub btn_更新_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btn_更新.Click
        '成績編集ページへ遷移
        Response.Redirect(Com_Get_Content("menu_km_004"))
    End Sub

    Protected Sub sql_成績_Init(sender As Object, e As EventArgs) Handles sql_成績.Init
        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))
            .SelectParameters.Add("教員CD", Session(S_COM_UserCD))
        End With
    End Sub

#End Region

End Class
