DBGrid- und TLabel-Anzeige nicht identisch

[LOMBI]

Hi,

mit folgendem Code möchte ich die gespeicherten Daten in TLabels anzeigen:

Delphi-Quellcode:

procedure TDemoForm.DBGridDemoDrawColumnCell (Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState;)
begin
  LabelTel.Caption := FAdr.EditTel.Text;
  LabelFax.Caption := FAdr.EditFax.Text;
  LabelMob.Caption := FAdr.EditMob.Text;
  ...
end;

Problem:

Die Anzeige der Labels paßt nicht zu der aktuell markierten Adresse im
DBGrid. Es werden die Daten des vorherigen Datensatzes gezeigt.

Wer hilft mir bitte? Vielen Dank schon mal!

Gruß Lombi

[marabu]

Hallo Lombi,

die Ausgangskomponenten auf deiner Form FAdr enthalten wahrscheinlich noch nicht die richtigen Daten. Übrigens würde ich die Anzeigewerte immer direkt aus dem DataSet holen. Das passende Ereignis wäre TTable.OnAfterScroll() und nicht DbGrid.OnDrawColumnCell().

Grüße vom marabu

[LOMBI]

Guten Morgen marabu,

leider auch mit OnAfterScroll keine Veränderung. Bei den Adressen
sind die korrekten Tel./Fax-Nummern gespeichert. Also, wenn im
DBGrid zwei Adressen stehen, dann werden dazu die passenden Tel./Fax-
Nummern vertauscht in den Labels ausgegeben. AdrA erhält die Nummern
von AdrB.

Grüße
Lombi

[mkinzler]

Morgen Lombi,

du holst die werte aber aus irgend welchen Editfeldern und nicht aus dem DataSet (wie dir marabu vorgeschlagen hat). Anhand des wenigen Codes, den du uns gezeigt hast, kann man nicht abschätzen, ob und wie die Editfelder über den aktuellen Datensatnd bzw. ob die Vertauschung in dieser Zuweisung entstanden ist. Am Besten ist die Labelbeschriftung aus dem DataSet ( TTable, TQuery) zu setzen.

[dfried]

Wenn du nur die identischen Werte wie im Grid als Label anzeigen willst, dann nimm doch einfach ein DBLabel und häng es an das entsprechende DB-Feld.

[LOMBI]

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

[mkinzler]

Zitat:

Im Forum lese ich häufiger auch "ParamByName". Was hat es damit auf sich?

Dies benutzt man bei parametrisierten Abfragen.

Wenn man öfters die gleichen Abfragen mit verschiedenen Werte durchführt.

SQL-Code:

select * from tabelle where id = :id;

Dann reicht

Delphi-Quellcode:

Query.sql.Text = 'select * from tabelle where id = :id;';
...
Query.Close;
Query.ParamByName('id').value := 4711;
Query.Open;
...
Query.Close;
Query.ParamByName('id').value := 247;
Query.Open;

[LOMBI]

Hallo mkinzler,

und was ist Deine Meinung zu meinen Codes?

Gruß
Lombi

[mkinzler]

Meine Antwort bezog sich auf die Frage bezüglich Parameter ( habe meinen letzten Beitrag in diese Richtung abgeändert).

Zitat:

und was ist Deine Meinung zu meinen Codes?

Ich bevorzuge halt Query-Komponenten und keine Tables.
Zu was brauchst du das Edit in der Fkt DBGridAdrListeCellClick? Du liest doch Werte aus der Tabelle aus.

[shmia]

Zitat:

Zitat von LOMBI

mit folgendem Code möchte ich die gespeicherten Daten in TLabels anzeigen:

Delphi-Quellcode:

procedure TDemoForm.DBGridDemoDrawColumnCell (Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState;)
begin
  LabelTel.Caption := FAdr.EditTel.Text;
  LabelFax.Caption := FAdr.EditFax.Text;
  LabelMob.Caption := FAdr.EditMob.Text;
  ...
end;

Das ist GANZ falsch! OnDrawColumnCell wird 1. extrem oft aufgerufen und 2. für alle
im DBGrid sichtbaren Datensätze aufgerufen.
Richtig:
Das Event [TTable].AfterScroll benützen:

Delphi-Quellcode:

procedure TForm1.Table1AfterScroll(Dataset:TDataset);
begin
   LabelTel.Caption := Dataset.FieldByName('Tel').AsString;
   ...
end;

[LOMBI]

Guten Morgen,

habe das schon wie von marabu empfohlen auf OnAfterScroll geändert.
Aber was ist mit meinen Codes Insert,Edit,Speichern von gestern?
Da scheint etwas nicht in Ordnung zu sein.

Gruß
Lombi

[mkinzler]

Ich vermut mal, das hier der Fehler liegt, da hier was zu fehlen scheint:

Du versuchst in .BtnSpeichernClick was in die Datenbank zurückzuschhreiben hat aber in Table1AfterScroll nur die Werte des aktuellen DS in die Editfelder kopiert. Wenn du nun Änderungen zurückschreiben willst, mußt du zuerst die werte der Edits wieder in das DS zurückschreiben.

[marabu]

Hallo Lombi.

Ich vermute FAdrListe ist die Form mit der mittels DBGrid realisierten Listenansicht und FAdr ist die Form mit den Detailinformationen zu einem Datensatz. Vermutlich hast du das DBGrid auf ReadOnly gesetzt, um den Datensatz auf deine Weise bearbeiten zu können. Du benutzt das DBGrid dann nur zum verschieben des Satzzeigers. Für das Einfügen eines neuen Datensatzes hast du einen Button, wie für das Speichern.

Das Ändern eines Datensatzes über das klicken in eine Zelle zu beginnen halte ich für keine gute Idee. Ich verwende dazu oft ein Kontextmenü. In deiner Detailform könntest du eine Methode zum Bearbeiten des aktuellen Datensatzes bereit halten:

Delphi-Quellcode:

function TFAdr.UpdateRecord(ds: TDataSet): Boolean;
begin
  CBAnrede.Text := ds['Anrede'];
  EditName.Text := ds['Name'];
  Result := ShowModal = mrOK;
  if Result then
  begin
    ds.Edit;
    ds['Anrede'] := CBAnrede.Text;
    ds['Name'] := EditName.Text;
    ds.Post;
  end;
end;

Wenn du dann eine EditAction auf deiner Listenform hast, dann würde folgendes funktionieren:

Delphi-Quellcode:

procedure TFadrListe.EditAction(Sender: TObject);
begin
  with TFadr.Create(nil) do
    if UpdateRecord(TableAdr) then
      TableAdr.Refresh;
end;

Getippt und nicht getestet.

Grüße vom marabu