<%
' **********************************************************
' 条件文字列の処理
' **********************************************************
Function SetCond( strCond )

	if strCond = "" then
		strCond = strCond & " where "
	else
		strCond = strCond & " and "
	end if

End Function

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

	Query = "select * from 商品分類マスタ "
	strCond = ""
	strOrder = " order by 商品分類"

	Call DBGet( Cn, Rs, Query & strCond & strOrder, false )

	Dim nRow

	nRow = 0
	Do While not DBEof( Rs )
		nRow = nRow + 1
		Call EditQueryData( nRow )
		Rs.MoveNext
	Loop

End Function

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

	OutData = OutData & "<TR>"

	OutData = OutData & "<TD class=MyCell>"
	OutData = OutData & "<SPAN style='cursor:hand;color:blue;text-decoration:underline'"
	OutData = OutData & " onClick='Call TransferData(" & nRow & ")'"
	OutData = OutData & ">"
	OutData = OutData &  Rs.Fields("商品分類").Value
	OutData = OutData & "</SPAN>"
	OutData = OutData & "</TD>"

	OutData = OutData & "<TD class=MyCell>"
	OutData = OutData &  Rs.Fields("名称").Value
	OutData = OutData & "</TD>"

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

End Function

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


End Function

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


End Function

' **********************************************************
' 更新
' **********************************************************
Function UpdData( )

	if MyData( "send" ) = "新規" then
		Query = "select * from 商品分類マスタ"
		Query = Query & " where 商品分類 = "
		Query = Query & Ss( MyData("In1CodeNew") )
		if DBGet( Cn, Rs, Query, false ) then
			ErrMessage = "入力されたデータは既に存在します"
			Exit Function
		end if

		Query = "insert into 商品分類マスタ"
		Query = Query & "(商品分類,名称,作成日,更新日)"
		Query = Query & " values("
		Query = Query & Ss(MyData("In1CodeNew"))
		Query = Query & "," & Ss(MyData("In1NameNew"))
		Query = Query & ",CURDATE(),CURDATE()"
		Query = Query & ")"

		on error resume next		
		Cn.Execute( Query )
		if Err.Number <> 0 then
			ErrMessage = "登録に失敗しました<br>" & vbCrLf & Err.Description
		end if
		on error goto 0
	end if

	if MyData( "send" ) = "修正" then
		Query = "update 商品分類マスタ"
		Query = Query & " set "
		Query = Query & "名称 = " & Ss(MyData("In1NameUpd"))
		Query = Query & ",更新日 = CURDATE() "
		Query = Query & " where 商品分類 = " & Ss(MyData("In1CodeUpd"))

		on error resume next		
		Cn.Execute( Query )
		if Err.Number <> 0 then
			ErrMessage = "更新に失敗しました<br>" & vbCrLf & Err.Description
		end if
		on error goto 0
	end if

End Function

%>