Von TEdit nach Grid??

[marciboy]

Ja der Query ist auf true. Die Hersteller im Grid werden angezeigt. Klicke ich jetzt auf Opel werden im Grid Modell alle Modelle (zumindest die die ich schon in der DB eingepflegt habe) an. Jetzt habe ich zwei TEdits angelegt. Wenn ich nun im ersten Edit die Herstellernummer (0039 für Opel) und im zweiten Edit die Typennummer (653) eintrage, soll er mir in den Grids das zutreffende Auto anzeigen.

[mkinzler]

Wie sieht die Abfrage aus?

[marciboy]

Von den TEdits??

[haentschman]

... 2 Grids

2 x Grid -> DataSource -> Query

gleiche DataSource / Query oder verschiedene

[marciboy]

Verschiedene

Jedes Grid hat sein eigenes Query

[mkinzler]

Zitat:

Von den TEdits??

Nein die vom Query.

[marciboy]

Hersteller Query:

Delphi-Quellcode:

SQL.Strings = (
  'select * from p_hersteller(:p_khernr) order by bez')

Modell Query:

Delphi-Quellcode:

SQL.Strings = (
  'select * from p_modell(:p_khernr,:p_kmodnr)')

Hersteller DataSource:

Delphi-Quellcode:

procedure TForm1.DSHerstellerDataChange(Sender: TObject; Field: TField);
var
  sHersteller: String;
  sModell: String;
  begin
  sHersteller:= DSHersteller.DataSet.FieldByName('KHERNR').AsString;

  with DataModule1.TModell do
  begin
    Close;
    ParamByName('p_khernr').AsString:= sHersteller;
    ParamByName('p_kmodnr').AsString:= sModell;
    Open;
  end;
end;

[mkinzler]

Warum die Zwischenspeicherung und der doppelte Cast von String nach String nach String?
ParamByName('p_khernr').Value := DSHersteller.DataSet.FieldByName('KHERNR').Value; Was wird in den Edit eingegeben?

[marciboy]

In den Edits wird die Herstellernummer eingegeben aber nur im zusammenhang mit der Typennummer im Edit zwei.Ich weis aber nicht wie ich den Code schreibe.
Wie würdest du denn den Code schreiben?

[mkinzler]

Delphi-Quellcode:

DataModule1.TModell.ParamByName('p_khernr').Value := Edit.Text;
DataModule1.TModell.Refresh;