Hallo zusammen!
Ich versuche eine Suche zu programmieren. Dazu folgende Vorgeschichte: Ich habe ein Formular "Rechnung erstellen" mit dem ein Anwender eine Rechnung erstellen kann (wie der Name schon sagt
). Die Rechnungsnr ist Primärschlüssel und wird automatisch vergeben.
Wenn ich dann in dem Formular auf den Button Rechnung anzeigen klicke wird mir die Rechnung als Bericht angezeigt.
Jetzt möchte ich aber in einem anderen Formular nach einer Rechnungsnr suchen können und mir dann die Rechnung anzeigen lassen.
Dazu habe ich bis jetzt Folgendes:
Ein Query mit folgedem SQL Code:
Delphi-Quelltext
1:
2:
3:
| select *
from Rechnungsdaten
where Rechnungsnr = :eingabeRechnungsnr; |
Als Datasource Eigenschaft hat das Query die Tabelle Rechnung (nicht Rechnungsdaten!).
Der Button Suchen führt folgenden Code aus:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
| procedure Tf_suche.Button_rechnungssucheClick(Sender: TObject);
var hilfe:double;
begin
Query_rechnungssuche.Close;
hilfe:=strtofloat(edit_rechnr.Text);
Query_rechnungssuche.ParamByName('eingabeRechnungsnr').AsFloat:=hilfe;
Query_rechnungssuche.Open;
f_rechnungbericht.QuickRep_Rechnung.preview;
end; |
Leider funktioniert es nicht. Es wird mir zwar eine Rechnung angezeigt aber leider nicht die, die ich im Edit Feld eingegeben habe. Es wird immer die Rechnung angezeigt, die ich momentan im Formular "Rechnung erstellen" ausgewählt habe.
Was mache ich denn falsch? Stimmt der SQL Code nicht? Stehe total im Wald...
Tim
Moderiert von 
AXMD: Code- durch Delphi-Tags ersetzt
Vielleicht hat ja der ein oder andere ein ähnliches Problem und bekommt so wenigstens den Hinweis, dass es nicht geht oder noch besser: findet eine Lösung und kann sie dann hier reinstellen.