Base-Handbuch - The Document Foundation Wiki

der Erstellung der Makros über den eingefärbten Code sichtbar, falls eventuell einmal ein
doppeltes Anführungszeichen vergessen wurde. Die Anführungszeichen verändern sofort iohre
Farbgebung, wenn sie nicht durch das Makro als Begrenzung von Zeichenketten erkannt werden.
ELSE
... und wenn eine zweite Tabelle nicht existiert, wird der folgende SQL-Code erstellt:
IF Position = 2 THEN
stSql = "SELECT """ + NameTabellenFeld1 + """||'" + Feldtrenner +
"'||""" + NameTabellenFeld2 + """ FROM """ + NameTabelle1 + """ WHERE ""ID""='" +
inID + "'"
ELSE
stSql = "SELECT """ + NameTabellenFeld2 + """||'" + Feldtrenner +
"'||""" + NameTabellenFeld1 + """ FROM """ + NameTabelle1 + """ WHERE ""ID""='" +
inID + "'"
END IF
END IF
ELSE
Wenn ein zweites Tabellenfeld nicht existiert kann es auch nur eine Tabelle sein. Daraus ergibt sich
die folgende Abfrage:
stSql = "SELECT """ + NameTabellenFeld1 + """ FROM """ + NameTabelle1 + """
WHERE ""ID""='" + inID + "'"
END IF
Die in der Variablen 'stSql' abgespeicherte Abfrage wird jetzt ausgeführt und das Ergebnis
dieser Abfrage in der Variablen 'oAbfrageergebnis' gespeichert.
oAbfrageergebnis = oSQL_Anweisung.executeQuery(stSql)
Das Abfrageergebnis wird über eine Schleife ausgelesen. Hier könnten, wie in einer Abfrage aus
der GUI, mehrere Felder und Datensätze dargestellt werden. Von der Konstruktion der Abfrage her
wird aber nur ein Ergebnis erwartet. Dieses Ergebnis wird in der ersten Spalte (1) der Abfrage zu
finden sein. Es ist der Datensatz, der den anzuzeigenden Inhalt des Kombinationsfeldes
wiedergibt. Der Inhalt ist ein Textinhalt ('getString()'), deshalb hier
'oAbfrageergebnis.getString(1)'.
IF NOT IsNull(oAbfrageergebnis) THEN
WHILE oAbfrageergebnis.next
stFeldWert = oAbfrageergebnis.getString(1)
WEND
Das Kombinationsfeld muss jetzt auf den aus der Abfrage sich ergebenden Textwert eingestellt
werden. Hierzu ist ein Zugriff auf den Controller notwendig.
oDocCrl = ThisComponent.getCurrentController()
oCtlView = oDocCrl.GetControl(oFeldList)
oCtlView.setText(stFeldWert)
END IF
END IF
Falls überhaupt kein Wert in dem Feld für den Fremdschlüssel 'oFeld' vorhanden ist, ist auch die
ganze Abfrage nicht gelaufen. Das Kombinationsfeld wird jetzt auf eine leere Anzeige eingestellt.
IF IsEmpty(oFeld.getCurrentValue()) THEN
oDocCrl = ThisComponent.getCurrentController()
oCtlView = oDocCrl.GetControl(oFeldList)
oCtlView.setText("")
END IF
END SUB
Diese Prozedur erledigt jetzt also den Kontakt von dem in einem versteckten Feld abgelegten
Fremdschlüssel zu dem Kombinationsfeld. Für die Anzeige der richtigen Werte im
Kombinationsfeld würde das ausreichen. Eine Abspeicherung von neuen Werten hingegen
benötigt eine weitere Prozedur.
Makros: Bedienbarkeit verbessern 242