Von TEdit nach Grid??

[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;