Ich habe mal schnell Code aus einem meiner Projekte kopiert & kommentiert.
Ein paar der Methoden der Zeos-kompos werden sich von DOA unterscheiden, aber anhand der
OH solltest du es übersetzen können.
ProtocolCmb ist eine Combobox in deren OnChange-Event dieser Code steht
PanelCmb ist die Combobox, die mit Daten gefüllt wird.
Delphi-Quellcode:
// gibt eine Meldung incl. Unit & Codezeile, wenn die Session nicht angemeldet ist
Assert(MainSession.Connected, '
ProtocolCMBChange: Mainsession not connected');
With Query Do
Begin
SQL.Text :=
'
SELECT DISTINCT PANEL' + #10 +
'
FROM CTSdd.PANEL' + #10 +
'
WHERE PROTOCOL = :i_Protocol';
// die 2 Zeilen werden sich von den Zeos unterscheiden...
// suche in der OH nach "Parametern", "Bind-Variablen" oder "SQL-Variablen" in Verbindung mit einer ZeosQuery
DeclareVariable('
i_Protocol', otString);
SetVariable('
i_Protocol', ProtocolCMB.Text);
Execute;
PanelCmb.Items.Clear;
While Not (Eof)
Do
Begin
PanelCmb.Items.Add(Field('
Panel'));
Next;
End;
If RowCount > 0
Then
PanelCmb.ItemIndex := 0;
Close;
End;
Ich hoffe du kannst es soweit abwandeln, dass es bei dir läuft...