Du brauchst folgende Komponenten :
- 1x TZConnection
- 2x TZQuery
- 2x TDBGrid
- 2x TDataset
Nun verbindest Du im Objektinspector die beiden TZQuery mit der TZConnection. Dann verbindest Du jeweils eine TZQuery mit einer TDataSource, das gleiche machst Du nun noch mit TDataSource und TDBGrid. Im
OI der einen TZQuery1 schreibst Du in die Eigenschaft "
SQL" folgendes rein : (Tabelle1 = Kundenandressen/Tabelle2 = Hardwaretabelle)
SELECT * FROM Tabelle1;
In die zweite TZQuery2 schreibst Du ebenfalls in die Eigenschaft "
SQL" folgendes rein :
SELECT * FROM Tabelle1 where Name=:spaltename;
Nun musst Du nur noch in der Procedure, wo Du den Inhalt der Spalte Name aus DBGrid1 ausliest folgendes reinschreiben :
Delphi-Quellcode:
var
name : string;
begin
{ Auslesen des Namens der ausgewählten Zeile des DBGrid1 }
TZQuery2.ParamByName('spaltename').AsString := name;
TZQuery2.Open;
{ ... }
end;
Alles ungetestet, sollte aber funktionieren.
Edit 1 u. 4: Textkorrektur vorgenommen
Edit 2: Ich würde Dir vielleicht noch dieses
Tutorial ans Herz legen. Darin ist die Funktionsweise der Zeos Komponenten sehr gut erklärt.
Edit 3: Oder dieses
Tutorial.
Edit 5: In diesem
Beitrag findest Du noch einen Hinweis wie Du den Wert des selketierten Datensatzes und des selektierten Feldes ermittelst.