Jetzt habe ich mich schon ein bisschen an die Flat-TEdits gewöhnt und möchte gerne damit weiterarbeiten, wenn möglich ohne die
DB-Komponenten.
Ich denke, dass es eher eine Edit/Post-Sache ist. Könnt Ihr bitte mal
nachsehen, wo der Fehler liegt:
Delphi-Quellcode:
procedure TFAdrListe.BtnNeuClick(Sender: TObject); //Daten eingeben
begin
FAdr.Show;
with TableAdr do
begin
Insert;
FieldByName('Anrede').AsString := FAdr.CBAnrede.Text;
FieldByName('Name').AsString := FAdr.EditName.Text;
FieldByName('Vorname').AsString := FAdr.EditVorname.Text;
FieldBaName('Strasse').AsString := FAdr.EditStrasse.Text;
...
end;
procedure TFAdrListe.DBGridAdrListeCellClick(Column: TColumn);
//Daten ändern
begin
FAdr.Show;
with TableAdr do
begin
Edit;
FAdr.CBAnrede.Text := FieldByName('Anrede').AsString;
FAdr.EditName.Text := FieldByName('Name').AsString;
FAdr.EditVorname.Text := FieldByName('Vorname').AsString;
FAdr.EditStrasse.Text := FieldByName('Strasse').AsString;
...
end;
procedure TFAdr.BtnSpeichernClick(Sender: TObject); //Speichern
begin
if FAdrListe.DataSourceAdr.DataSet.State=dsEdit then
FAdrListe.TableAdr.Post
else
if FAdrListe.DataSourceAdr.DataSet.State=dsInsert then
FAdrListe.TableAdr.Post;
FAdrListe.Show;
end;
Im Forum lese ich häufiger auch "ParamByName". Was hat es damit auf sich?
Gruß
Lombi