Einzelnen Beitrag anzeigen

LOMBI
(Gast)

n/a Beiträge
 
#6

Re: DBGrid- und TLabel-Anzeige nicht identisch

  Alt 30. Mär 2006, 16:03
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
  Mit Zitat antworten Zitat