OpenOffice.info

Code: Alles auswählen

SUB Eingabekontrolle(oEvent AS OBJECT)
	REM Dieses Makro sollte an die folgenden Ereignisse des Formulars gebunden werden: 'Vor der Datensatzaktion'
	REM Jedes Eingabefeld muss mit einem Beschriftungsfeld verbunden sein. Im Tabellenkontrollfeld ist dies über die Spaltenbeschriftung geregelt.
	REM Die Beschriftungen der Felder werden benannt, bei denen ein Eintrag fehlt.
	REM Ob das Feld tatsächlich einen Inhalt hat lässt sich nicht ohne Probleme ermitteln. Checkboxen und Radiobutttons speichern Statuswerte,
	REM Zahlenfelder sgeben als Wert '0' aus, wenn sie leer sind ...
	DIM Inputfeld()
	DIM inAnzahl AS INTEGER
	DIM oDocCtl AS OBJECT
	DIM stText AS STRING
	DIM oForm AS OBJECT
	IF InStr(oEvent.Source.ImplementationName,"ODatabaseForm") THEN
		oForm = oEvent.Source
		oDocCtl = oForm.Parent.Parent.CurrentController
		stText = ""
		inAnzahl = 0
		Inputfeld = array("NumericField","ListBox","CheckBox","TextField","DateField","TimeField","CurrencyField","FormattedControl","ComboBox","RadioButton", "PatternField", "GridControl")
		REM Die Überprüfung von CheckBox und RadioButton ist eigntlich sinnlos. Sollen sie immer einen Wert abspeichern, so ist die Eingabe immer gleich
		FOR i=0 TO UBound(oForm.ControlModels())
			FOR k = 0 TO UBound(Inputfeld())
				IF InStr(oForm.ControlModels(i).DefaultControl,Inputfeld(k)) > 0 THEN
					IF (InStr(oForm.ControlModels(i).DefaultControl,"GridControl") > 0) THEN
						FOR n = 0 TO oForm.ControlModels(i).Count() - 1
							IF oForm.ControlModels(i).getByIndex(n).InputRequired = True AND IsEmpty(oForm.ControlModels(i).getByIndex(n).CurrentValue) THEN
								IF stText = "" THEN 
									stText = oForm.ControlModels(i).getByIndex(n).Label
								ELSE				
									stText = stText + ", " + oForm.ControlModels(i).getByIndex(n).Label
								END IF
								inAnzahl = inAnzahl + 1
							END IF
						NEXT
					ELSE
						IF oForm.ControlModels(i).InputRequired = True THEN
							IF (InStr(oForm.ControlModels(i).DefaultControl,"CheckBox") > 0) OR (InStr(oForm.ControlModels(i).DefaultControl,"RadioButton") > 0) THEN	
								IF (oDocCtl.getControl(oForm.ControlModels(i)).peer.State = 0) THEN			
									IF stText = "" THEN
										stText = oForm.ControlModels(i).Label
									ELSE				
										stText = stText + ", " + oForm.ControlModels(i).Label
									END IF
									inAnzahl = inAnzahl +1
								END IF
							ELSEIF (InStr(oForm.ControlModels(i).DefaultControl,"ListBox")) THEN
								IF (oDocCtl.getControl(oForm.ControlModels(i)).peer.selectedItem = "") THEN
									IF stText = "" THEN
										stText = oForm.ControlModels(i).LabelControl.Label
									ELSE				
										stText = stText + ", " + oForm.ControlModels(i).LabelControl.Label
									END IF
									inAnzahl = inAnzahl +1
								END IF
							ELSEIF  (oDocCtl.getControl(oForm.ControlModels(i)).peer.Text = "") THEN
								IF stText = "" THEN
									stText = oForm.ControlModels(i).LabelControl.Label
								ELSE				
									stText = stText + ", " + oForm.ControlModels(i).LabelControl.Label
								END IF
								inAnzahl = inAnzahl +1
							ELSE
							END IF
						END IF
					END IF
				END IF
			NEXT
		NEXT
		IF inAnzahl > 0 THEN	
			IF inAnzahl = 1 THEN
				msgbox "Im Feld "+stText+" ist ein Eintrag erforderlich."
			ELSE
				msgbox "In den Feldern "+stText+" sind Einträge erforderlich."
			END IF
			oForm.cancelRowUpdates
		END IF
	END IF
END SUB

Code: Alles auswählen

oForm.cancelRowUpdates

Code: Alles auswählen

oForm.cancelRowUpdates

Code: Alles auswählen

com.sun.star.sdb.XSQLErrorListener

Code: Alles auswählen

global oSQLErrorListener

Sub initializeSQLErrorListener
    oSQLErrorListener = CreateUnoListener( "SQLErrorListener_", "com.sun.star.sdb.XSQLErrorListener" )
    oform = ThisComponent.drawpage.forms.MainForm
    oform.addSQLErrorListener(oSQLErrorListener)
End Sub

Sub RemoveSQLErrorListener
    oform = ThisComponent.drawpage.forms.MainForm
    oform.removeSQLErrorListener(oSQLErrorListener)
End Sub 

Sub SQLErrorListener_errorOccured(oEvent)
    xray oEvent
End Sub

Sub SQLErrorListener_disposing
end sub