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

	Query = "select * from 商品分類マスタ"
	Query = Query & " where 商品分類 = " & Ss(MyData("In1Bunrui"))

	if DBGet( Cn, Rs, Query, false ) then
		Call EditQueryData(  )
	end if

End Function

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

	MyData("In2Meisyo") = Rs.Fields("名称").Value & ""

End Function

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


End Function

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


End Function

' **********************************************************
' データベースへの更新
' **********************************************************
Function UpdateData(  )

	Query = "select * from 商品分類マスタ"
	Query = Query & " where 商品分類 = " & Ss(MyData("In1Bunrui"))

	if DBGet( Cn, Rs, Query, false ) then

		Query = "update 商品分類マスタ"
		Query = Query & " set "
		Query = Query & "名称 = " & Ss(MyData("In2Meisyo"))
		Query = Query & ",更新日 = CURDATE() "
		Query = Query & " where 商品分類 = " & Ss(MyData("In1Bunrui"))

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

	else
	
		Query = "insert into 商品分類マスタ"
		Query = Query & " (商品分類,名称,作成日,更新日) "
		Query = Query & " values("
		Query = Query & Ss(MyData("In1Bunrui"))
		Query = Query & "," & Ss(MyData("In2Meisyo"))
		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

End Function

' **********************************************************
' 行の削除
' **********************************************************
Function DeleteData(  )

	Query = "delete from 商品分類マスタ"
	Query = Query & " where 商品分類 = " & Ss(MyData("In1Bunrui"))

	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 CheckDataHead( )

	if  Trim( MyData("In1Bunrui") ) = "" then
		ErrMessage = "商品分類は必須入力です"
	end if

End Function

' **********************************************************
' エラーチェック
' **********************************************************
Function CheckDataBody( )
	
	if Trim( MyData("In2Meisyo") ) = "" then
		ErrMessage = "名称は必須入力です"
	end if

End Function
%>