Hallo
Ich habe folgendes Problem.
Und zwar habe ich eine Tabelle mit Anlagen und eine mit IFPIumbau in der Tabelle IFPIumbau wird die Anlagen_ID gepeichert.
Nun meine Frage ich wähle über ein DBLookupComboBox eine Anlage aus in einem DBText Feld lasse ich die ANlagen_ID anzeigen nun soll ein DBGrid nur die daten der ausgewählten Anlage anzeigen.
Hier mein Code
Delphi-Quellcode:
procedure TFRM_Main.LCB_IFPI_S_AnlageClick(Sender: TObject);
begin
{sortieren von IFPI Statistik nach Anlagen_NR}
with QRY_Such_Daten.QRY_Suche_Anlagen_Layer
do
begin
close;
SQL.Clear;
SQL.Text := '
select * from Anlagen where Anlagen_NR=:Anlagen_NR';
Parameters.ParamByName('
Anlagen_NR').Value :=LCB_IFPI_S_Anlage.Text;
open;
DBT_IFPI_S_Anlagen_ID.Caption :=FieldByName('
Anlagen_ID').AsString;
begin
with QRY_Such_Daten.QRY_Suche_IBFI_ST
do
begin
close;
SQL.Clear;
SQL.Text :='
select * from IFPIUmbau where Anlagen_ID:=Anlagen_ID';
Parameters.ParamByName('
Anlagen_ID').Value := DBT_IFPI_S_Anlagen_ID.Caption;
open;
end;
end;
end;
with Print_Data.QRY_Print_IFPI
do
begin
close;
SQL.Clear;
SQL.Text := '
select * from Anlagen where Anlagen_NR=:Anlagen_NR';
Parameters.ParamByName('
Anlagen_NR').Value :=LCB_IFPI_S_Anlage.Text;
open;
end;
IFPI_Statistik.QRL_Anlage.Enabled := True;
IFPI_Statistik.QRDBT_IFPI_A_Anlage.Enabled := True;
end;
Problem ist beim ausführen dieser Aktion bekomme ich die Fehlermeldung Parameter Anlagen_ID nicht gefunden.
Kann mir jemand schreiben wo mein Fehler liegt?
MCop2001DE