SUB Data2Save(oEvent AS OBJECT)
	DIM oDatasource AS OBJECT
	DIM oConnection AS OBJECT
	DIM oSQL_Command AS OBJECT
	DIM oDlg AS OBJECT
	DIM loID AS LONG
	DIM stForename AS STRING
	DIM stSurname AS STRING
	DIM inMsg AS INTEGER
	DIM loRow AS LONG
	DIM loRowMax AS LONG
	DIM stSql AS STRING
	oDlg = oEvent.Source.getContext()
	loID = oDlg.getControl("NumericField1").Value
	stForename = oDlg.getControl("TextField1").Text
	stSurname = oDlg.getControl("TextField2").Text
	IF loID > 0 AND stSurname <> "" THEN
		oDatasource = thisDatabaseDocument.CurrentController
		If NOT (oDatasource.isConnected()) THEN
			oDatasource.connect()
		END IF
		oConnection = oDatasource.ActiveConnection()
		oSQL_Command = oConnection.createStatement()
		loRow = oDlg.getControl("NumericField2").Value
		loRowMax = oDlg.getControl("NumericField3").Value
		IF loRowMax < loRow THEN
			IF loRowMax > 0 THEN
				stSql = "SELECT ""ID"" FROM ""name"" WHERE ""ID"" = '"+loID+"'"
				oResult = oSQL_Command.executeQuery(stSql)
				WHILE oResult.next
					inMsg = MsgBox ("The value for field 'ID' already exist." & CHR(13) & "Should the row be updated?",20,"Duplicate Value")
					IF inMsg = 6 THEN
						stSql = "UPDATE ""name"" SET ""forename""='"+stForename+"', ""surname""='"+stSurname+"' WHERE ""ID"" = '"+loID+"'"
						oSQL_Command.executeUpdate(stSql)
						DataLoad(loID)	' With update a row has been rewritten. Rowcount must be resetted
					END IF
					EXIT SUB
				WEND
			END IF
			stSql = "INSERT INTO ""name"" (""ID"", ""forename"", ""surname"") VALUES ('"+loID+"','"+stForename+"','"+stSurname+"')"
			oSQL_Command.executeUpdate(stSql)
			oDlg.getControl("NumericField3").Value = loRowMax + 1	' After instert one row is added
			Datafields2Clear	' After instert would be moved to next insert
		ELSE
			stSql = "UPDATE ""name"" SET ""forename""='"+stForename+"', ""surname""='"+stSurname+"' WHERE ""ID"" = '"+loID+"'"
			oSQL_Command.executeUpdate(stSql)
		END IF
	END IF
END SUB

SUB Datafields2Clear
	loRowMax = oDialog2.getControl("NumericField3").Value	' All rows
	oDialog2.getControl("NumericField1").Text = ""	' ID
	oDialog2.getControl("TextField1").Text = ""	' forename
	oDialog2.getControl("TextField2").Text = ""	' surname
	oDialog2.getControl("NumericField2").Value = loRowMax + 1	' this row
	oDialog2.getControl("CommandButton4").Model.enabled = True	' previous row
	oDialog2.getControl("CommandButton5").Model.enabled = False	' next row
	oDialog2.getControl("CommandButton2").Model.enabled = False	' new row
	oDialog2.getControl("CommandButton6").Model.enabled = False	' delete
END SUB

SUB DataLoad(loID AS LONG)
	DIM oDatasource AS OBJECT
	DIM oConnection AS OBJECT
	DIM oSQL_Command AS OBJECT
	DIM stForename AS STRING
	DIM stSurname AS STRING
	DIM loRow AS LONG
	DIM loRowMax AS LONG
	DIM inStart AS INTEGER
	loRow = 1 ' Startvalue first row, without data new row at position 1
	oDatasource = thisDatabaseDocument.CurrentController
	If NOT (oDatasource.isConnected()) THEN
		oDatasource.connect()
	END IF
	oConnection = oDatasource.ActiveConnection()
	oSQL_Command = oConnection.createStatement()
	IF loID < 1 THEN
		stSql = "SELECT MIN(""ID"") FROM ""name"""
		oResult = oSQL_Command.executeQuery(stSql)
		WHILE oResult.next
			loID = oResult.getInt(1)
		WEND
		inStart = 1
	END IF
	IF loID > 0 THEN
		stSql = "SELECT * FROM ""name"" WHERE ""ID"" = '"+loID+"'"
		oResult = oSQL_Command.executeQuery(stSql)
		WHILE oResult.next
			loID = oResult.getInt(1)
			stForename = oResult.getString(2)
			stSurname = oResult.getString(3)
		WEND
		stSql = "SELECT COUNT(""ID"") FROM ""name"""
		oResult = oSQL_Command.executeQuery(stSql)
		WHILE oResult.next
			loRowMax = oResult.getInt(1)
		WEND
		stSql = "SELECT COUNT(""ID"") FROM ""name"" WHERE ""ID"" <= '"+loID+"'"
		oResult = oSQL_Command.executeQuery(stSql)
		WHILE oResult.next
			loRow = oResult.getInt(1)
		WEND
		oDialog2.getControl("NumericField1").Value = loID
		oDialog2.getControl("TextField1").Text = stForename
		oDialog2.getControl("TextField2").Text = stSurname
	END IF
	oDialog2.getControl("NumericField2").Value = loRow
	oDialog2.getControl("NumericField3").Value = loRowMax
	IF loRow = 1 THEN
		oDialog2.getControl("CommandButton4").Model.enabled = False	' previous row
	ELSE
		oDialog2.getControl("CommandButton4").Model.enabled = True	' previous row
	END IF
	IF loRow <= loRowMax THEN	
		oDialog2.getControl("CommandButton5").Model.enabled = True	' next row
		oDialog2.getControl("CommandButton2").Model.enabled = True	' new row
		oDialog2.getControl("CommandButton6").Model.enabled = True	' delete
	ELSE
		oDialog2.getControl("CommandButton5").Model.enabled = False	' next row
		oDialog2.getControl("CommandButton2").Model.enabled = False	' new row
		oDialog2.getControl("CommandButton6").Model.enabled = False	' delete	
	END IF
	IF inStart = 1 THEN
		oDialog2.Execute()
	END IF
END SUB

SUB Dialog0Start
	DialogLibraries.LoadLibrary("Standard")
	oDialog0 = createUnoDialog(DialogLibraries.Standard.Dialog0)	'Sometimes direct starting of the dialog seems to be impossible ...
	oDialog0.Execute()
END SUB

SUB Dialog1Start
	DialogLibraries.LoadLibrary("Standard")
	oDialog1 = createUnoDialog(DialogLibraries.Standard.Dialog1)
	oDialog1.Execute()
END SUB

SUB Dialog2Start
	DialogLibraries.LoadLibrary("Standard")
	oDialog2 = createUnoDialog(DialogLibraries.Standard.Dialog2)
	DataLoad(0)
END SUB