Zitat von
plautzer:
Wie gibt man die daten einer Tabelle mittels einer
Query auf EDITfeldern aus?
Also wie weist man einem einfachen Editfeld die daten aus der Tabelle zu?
Plautzer
Wenn Du keine
DB-Komponenten verwenden willst wie z.B. TDbEdit, dann mach das entweder über den OnAfterScroll Event des Dataset oder erzeuge einen TFieldDataLink, der die Events von DataSet und Control verbindet.
Beispiel AfterScroll (Du kannst da natürlich was beliebiges machen, z.b. Edit1.Text := ...):
Delphi-Quellcode:
//------------------------------------------------------------------------
procedure TfrmSendKopfListe.tblSendKopfAfterScroll(DataSet: TDataSet);
//------------------------------------------------------------------------
// Aktivieren oder deaktivieren bestimmter Buttons
//------------------------------------------------------------------------
begin
with dsSendKopf.DataSet do
begin
if FieldByName('Status').AsString = '' then
begin
// Bei leerem Status ist Fertig aktiv
btnBuchen.Enabled := true;
end
else
begin
btnBuchen.Enabled := false;
end;
end;
end;
Beispiel DataLink:
Delphi-Quellcode:
// Deklaration
// -----------
DataLink : TFieldDataLink;
// Erzeugung & Initialisierung
// ---------------------------
DataLink := TFieldDataLink.Create;
DataLink.Control := edtFrmEingabe;
// Der Event wird aufgerufen, wenn sich an DataSource.FieldName was ändert
DataLink.OnDataChange := edtFrmEingabeEnter;
if DataSource <> nil then
begin
DataLink.DataSource := Datasource;
DataLink.FieldName := DataFieldName;
end
else
begin
DataLink.DataSource := ListSource;
DataLink.FieldName := ListDataName;
end;
// Löschen !!!
// -----------
DataLink.Free;
DataLink := nil;