DB Grid: welche Informationen lassen sich aus den selected-Zeilen ziehen?

[Uwe Raabe]

EIn TDataSet verkleidet sich manchmal und tritt unter einem anderen Namen auf. Im Allgemeinen kann man aber über ein TDBGrid an das DataSet kommen, wenn man das DataSource-Property des TDBGrid nimmt und dessen DataSet-Property untersucht. Das damit verbundene Objekt ist ziemlich sicher ein Abkömmling von TDataSet.

[himitsu]

Jupp, man kann sich an das DataSet wenden, aber nur wenn das Grid im DataSet das DataSet zur aktiven Row scrollt. (bei MultiSelect praktisch für alle gewählten Zeilen unmöglich)

Die Grids vieler Hersteller haben ja Controler/DataControler, über welche man an die aktiven Daten/Felder/Records drankommt.

[sx2008]

Hier ein kleines Beispiel, wie man für alle selektierten Datensätze im DBGrid
eine bestimmte Aufgabe ausführt:

Delphi-Quellcode:

Query1.DisableControls;  // evtl. weglassen, damit man bei der Arbeit zuschauen kann
try
  for i := 0 to DBGrid1.SelectedRows.Count-1 do
  begin
    Query1.GotoBookmark(TBookMark(DBGrid1.SelectedRows[i]));
    Query1.Edit;
    Query1['Preis'] := Query1['Preis'] + versicherungspauschale;
    Query1.Post;
    Progressbar1.Stepit;
  end;
finally
  Query1.EnableControls;
end;

[messie]

Moin,

das DataSet hat sich tatsächlich in der Query versteckt. Über GotoBookmark funzt der Zugriff, der Cast war nicht nötig.
Damit kann ich mir den Spaltenindex der Projektinformation über Query.FieldList.IndexOf besorgen und die Projektnummer aus Zeile/Spalte auslesen.
Leider muss Multiselect eingestellt sein, das muss ich noch abfangen.

Danke!

[Sir Rufo]

Zitat von messie:

Damit kann ich mir den Spaltenindex der Projektinformation über Query.FieldList.IndexOf besorgen und die Projektnummer aus Zeile/Spalte auslesen.

Ähm, du hast doch eine DatenMenge (DataSet) und diese DatenMenge hat Felder.

Diese Felder können

• in irgendeiner Spalte im DBGrid angezeigt werden, die Reihenfolge im Grid muss nicht mit der Reihenfolge der Felder übereinstimmen. Aber jede Spalte im Grid kennt den zugehörigen Feldnamen, sonst wüsste die Komponente nicht, was in der SPalte angezeigt werden soll
• direkt mit Namen abgefragt werden. Wenn also die Projekt-ID in dem Feld "project_id" liegt, dann ist es doch völlig wumpe, ob diese ID im Grid angezeigt wird oder nicht.

Vom Grid holst du dir nur die Informationen, welche Datensätze gemeint sind und von der DatenMenge holst du dir die Information die du brauchst "project_id".

So mache ich das wenigstens

[p80286]

habe ich da etwas falsch verstanden?

Im allgemeinen sollte so ein Grid durch das Egebnis einer Query gefüllt werden/sein.
Wenn ich also die Datenmenge beschränken will, nach ID oder Uhrzeit des Sonnenaufgangs, dann bekommt die Ürsprüngliche Query einen weiteren Parameter /anderen Parameter und gut ist.

Gruß
K-H

[Sir Rufo]

Zitat von p80286:

habe ich da etwas falsch verstanden?

Im allgemeinen sollte so ein Grid durch das Egebnis einer Query gefüllt werden/sein.

Wenn du das so schreibst, dann hast du das falsch verstanden

Ein DBGrid wird durch ein DataSet gefüllt, welches über eine DataSource mit diesem DataSet verbunden wird (TDBGrid <-> TDataSource <-> TDataSet).
Ein DataSet kann eine Query, Table, StoredProcedure (oder was immer irgendwie von TDataSet abgeleitet ist) sein.

(Es ist Haarspalterei, ich weiß)

Der Rest deiner Aussage ist völlig korrekt

[messie]

Zitat von Sir Rufo:

Vom Grid holst du dir nur die Informationen, welche Datensätze gemeint sind und von der DatenMenge holst du dir die Information die du brauchst "project_id".

Eigentlich war ich der Meinung, dass ich das genau so mache. Aber wer weiß...

Code:

if CRDBGrid1.SelectedRows.Count > 0 then
  begin
    DM.Gridquery.GotoBookmark(CRDBGrid1.SelectedRows[0]);
    k := DM.Gridquery.FieldList.IndexOf('INTERNAL_ORDER');
    s := DM.Gridquery.fields[k].AsString;
    if s <> '' then
    begin
      if not LoadJobFromDB(s) then
      begin
        MessageDlg(Format(ReadJobFailed,[s]),mterror, [mbOK],0);
      end;
    end;
  end;

Jedenfalls funktioniert es bis zur eigentlichen Funktion. Da streikt allerdings bisher die Query .

Grüße, Messie

[Sir Rufo]

Zitat von messie:

Zitat von Sir Rufo:

Vom Grid holst du dir nur die Informationen, welche Datensätze gemeint sind und von der DatenMenge holst du dir die Information die du brauchst "project_id".

Eigentlich war ich der Meinung, dass ich das genau so mache. Aber wer weiß...

Code:

if CRDBGrid1.SelectedRows.Count > 0 then
  begin
    DM.Gridquery.GotoBookmark(CRDBGrid1.SelectedRows[0]);
    k := DM.Gridquery.FieldList.IndexOf('INTERNAL_ORDER');
    s := DM.Gridquery.fields[k].AsString;
    if s <> '' then
    begin
      if not LoadJobFromDB(s) then
      begin
        MessageDlg(Format(ReadJobFailed,[s]),mterror, [mbOK],0);
      end;
    end;
  end;

Jedenfalls funktioniert es bis zur eigentlichen Funktion. Da streikt allerdings bisher die Query .

Grüße, Messie

Ja, das geht so auch, aber das geht auch so
s := DM.Gridquery.FieldByName( 'INTERNAL_ORDER' ).AsString; Oder sogar so:

Delphi-Quellcode:

if CRDBGrid1.SelectedRows.Count > 0 then
  begin
    CRDBGrid1.DataSource.DataSet.GotoBookmark( CRDBGrid1.SelectedRows[0] );
    s := CRDBGrid1.DataSource.DataSet.FieldByName( 'INTERNAL_ORDER' ).AsString;
    if s <> '' then
    begin
      if not LoadJobFromDB(s) then
      begin
        MessageDlg(Format(ReadJobFailed,[s]),mterror, [mbOK],0);
      end;
    end;
  end;