
Partial Class MstVariable
    Inherits System.Web.UI.Page

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

    ''' <summary>
    ''' ページロード時
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
        '更新ボタンに確認ダイアログをハンドル
        btn_更新.Attributes("onclick") = "return Dialog_YN(""更新してもよろしいですか？"")"
    End Sub

#End Region

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

    ''' <summary>
    ''' 更新ボタン押下時
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Protected Sub btn_更新_Click(sender As Object, e As EventArgs) Handles btn_更新.Click
        'マスタ一覧の行数分、ループ処理
        For Each lv As ListViewItem In lv_Mst.Items
            'マスタ更新処理
            Mst更新(lv)
        Next

        'ページを再読み込み
        Response.Redirect(Request.RawUrl.ToString)
    End Sub

#End Region

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

    ''' <summary>
    ''' マスタ更新処理
    ''' </summary>
    ''' <param name="lv"></param>
    ''' <remarks></remarks>
    Private Sub Mst更新(ByVal lv As ListViewItem)
        '画面項目より値を取得
        Dim str変数 As String = CType(lv.FindControl("lb_変数"), Label).Text
        Dim str内容_Before As String = CType(lv.FindControl("lb_内容_Before"), Label).Text
        Dim str内容_After As String = CType(lv.FindControl("txt_内容_After"), TextBox).Text
        Dim strCD As String = CType(lv.FindControl("txt_CD"), TextBox).Text
        Dim strSORT As String = CType(lv.FindControl("txt_SORT"), TextBox).Text

        Using spm As New StoredProcedureManager("SA_マスタ_変数_UPDATE")
            spm.AddPrmIn("@変数", Data.SqlDbType.VarChar, str変数)
            spm.AddPrmIn("@内容_Before", Data.SqlDbType.VarChar, str内容_Before)
            spm.AddPrmIn("@内容_After", Data.SqlDbType.VarChar, str内容_After)
            spm.AddPrmIn("@CD", Data.SqlDbType.VarChar, strCD)
            Dim intWork As Integer
            Dim objSORT As Object
            If Integer.TryParse(strSORT, intWork) Then
                objSORT = intWork
            Else
                objSORT = DBNull.Value
            End If
            spm.AddPrmIn("@SORT", Data.SqlDbType.Int, objSORT)
            spm.Exec()
        End Using
    End Sub

#End Region

End Class