TComboBox und TEdit!
Delphi-Quellcode:
procedure TL_aendern.FormCreate(Sender: TObject);
begin
Query1.Close;
Query1.DatabaseName:='
.\DB\';
ComboBox1.Style := csDropDownList;
With Query1
do begin
Active := False;
SQL.Add('
Select L_Name FROM Lieferanten Group by L_Name');
Open;
While Not EOF
do
begin
ComboBox1.Items.Add(FieldByName('
L_Name').AsString);
Next;
end;
Active := False;
end;
end;
procedure TL_aendern.ComboBox1Change(Sender: TObject);
begin
Edit1.Text:=
//Liefernaten ID aus DB
Edit2.Text:=
//Lieferanten Name aus DB = L_Name(nur zur Kontrolle:))
end;
Welche Infos benötigt Ihr noch?
Eine Steigerung des Problemchens ist mir inzwischen auch schon eingefallen.
Lieferant wird über TCombobox ausgesucht.
Alle Artikel dieses Lieferanten werden in Listbox angezeigt.
Bei Klick auf einen Artikel werden die TEdit Felder gefüllt und können bearbeitet werden.