<%
' **********************************************************
' 行の編集
' **********************************************************
Function UpdateData(  )

	Dim strKey,strMeisyo

	' MyDataの中から値を取得
	strKey = MyData("KEY")
	strMeisyo = MyData("MEISYO")
	
	' 更新
	Query = "update 商品分類マスタ set " & _
			" 名称 = " & Ss(strMeisyo) & _
			" where 商品分類 = " & Ss(strKey)
	on error resume next		
	Cn.Execute( Query )
	if Err.Number <> 0 then
		ErrMessage = "更新に失敗しました<br>" & _
		vbCrLf & Err.Description
	end if
	on error goto 0

End Function

' **********************************************************
' データ読出し
' **********************************************************
Function GetData( )

	Query = "select * from 商品分類マスタ"

	if MyData("In1Meisyo") <> "" then
		Query = Query & " where 名称 like '%" & MyData("In1Meisyo") & "%'"
	end if

	Call DBGet( Cn, Rs, Query, false )

	Do While not Rs.EOF
		Call EditQueryData( )
		Rs.MoveNext
	Loop

End Function

' **********************************************************
' データベースデータの編集
' **********************************************************
Function EditQueryData(  )

	OutData = OutData & "<TR>" & vbCrLf

	OutData = OutData & "   <TD class=MyCell>"
	OutData = OutData &  Rs.Fields("商品分類").Value
	OutData = OutData & "</TD>"

	OutData = OutData & "<TD class=MyCell>"
	OutData = OutData & "<INPUT type=text size=50 value="""
	OutData = OutData &  Rs.Fields("名称").Value
	OutData = OutData & """ name=Val"
	OutData = OutData &  Rs.Fields("商品分類").Value
	OutData = OutData & ">"
	OutData = OutData & "</TD>" & vbCrLf

	OutData = OutData & "   <TD class=MyCell align=center>"
	OutData = OutData & "<INPUT type=button value=""更新"" name=btn"
	OutData = OutData &  Rs.Fields("商品分類").Value
	OutData = OutData & " onClick='Call SetKey("""
	OutData = OutData & Rs.Fields("商品分類").Value & """)'>" & vbCrLf

	OutData = OutData & "</TR>" & vbCrLf

End Function

' **********************************************************
' VIEW の編集
' **********************************************************
Function EditDataHead( )


End Function

' **********************************************************
' VIEW2 の編集
' **********************************************************
Function EditDataBody( )


End Function

%>