ADO, Grid und SQL mit JOIN

[jensw_2000]

Zitat:

wie funktioniert diese Unbound-Mode?

Im Unbound Mode arbeitet das Grid nicht datensensitiv (hängt also nicht an einer Datasource).
Dadurch, das du den ganzen "Datenbank-Steuerungs-Krams" von Grid fernhälst, sparst du eine Menge Overhaed (und somit Zeit). Der größte Vorteil ist, das du allein entscheiden kannst, welche Datensätze wann und wie aktualisiert werden.

Im Unbound Mode musst du allerdings etwas mehr Programmieraufwand betreiben.

Um das Grid im Unbound- Mode zu betreiben, musst du anstatt des TcxDBTableView's einen TcxTableView verwenden. Dieser ist nicht datensensitiv.

Leider habe ich grade kein Delphi vor der Nase, aber hier mal das grobe Arbeitsprinzip

- Nimm dir eine Datenquelle aus der du die anzuzeigenden Daten beziehen möchtest
(z.B. eine TAdoQuery "SELECT Nummer, Vorname, Name From Adressen)

- Erstelle dir in deinem cxTableView drei Spalten (tvsNummer, tvsVorname, tvsName) mit den entsprechenden Datentypen (Nummer (integer), Vorname und Name (String) )

- öffne deine Datenquelle

- so werden die Daten eingelesen (s.unten)

Delphi-Quellcode:

  
Procedure TForm1.Irgendwas;
  var i, oldRecordCount :integer; 
begin

    // OldRecordCount auf die Anzahl der bereits vorhandenen Datensätze in TableView (tv) setzen   
    oldRecordCount := tv.DataController.RecordCount;
   
    with tv.DataController do
    begin
      // Grid in den "Bearbeitungsmodus" versetzen, das verhindert unnötiges neuzeichnen
      BeginUpdate;

      // Datenquelle durchlaufen und die Daten in den TableView übernehmen 
      MyAdoQuery.first;

      i:=0;
      While not  MyAdoQuery.eof do
      begin
        // RecNo des internen Datencontrollers des TableViews um 1 erhöhen
        i:=i+1; // besser inc(i)
        recno := OldrecordCount + i;
        
        // leeren Datensatz zum internen Datencontroller des TV's hinzufügen
        Appendrecord;
        
        // Werte füllen 
        Values[recno, tvsNummer.Index]  := MyAdoQuery.Fieldbyname('Nummer').asInteger;
        Values[recno, tvsVorname.index] := MyAdoQuery.Fieldbyname('Vorname').asinteger;
        Values[recno, tvsName.index]    := MyAdoQuery.Fieldbyname('Name').asinteger;
         
        // nächster Datensatz
        MyAdoQuery.Next;
      end; // while

      // TV wieder aus dem Bearbeitungsmodus herausnehmen   
      tv.DataController.EndUpdate;
    end; //with
end;

Jetzt werden die Daten im TableView deines cxGrids angezeigt.

Einen einzelnen Datensatz kannst du die jetzt ja wieder über die TAdoQuery holen
(Select vorname, name from Adressen Where Nummer = 1234)

aktualisiert wird der eine Datensatz im Grid so ...

Delphi-Quellcode:

tv.datacontroller.beginUpdate;
if tv.datacontroller.locate(Nummer,'1234') then
begin
  CurrentRecno = TV.Datacontroller.recno;
  Values[recno, tvsVorname.index] := MyAdoQuery.Fieldbyname('Vorname').asinteger;
  Values[recno, tvsName.index]    := MyAdoQuery.Fieldbyname('Name').asinteger;  
end;
tv.datacontroller.EndUpdate;

Schon fertig und das arbeitet rattenschnell ...

Zitat:

wo baue ich das BeginFullUpdate und EndFullUpdate am besten ein?

Die Frage sollte mit dem o.A. Code schon beantwortet sein.
Immer, bevor du Daten in das Grid einliest (egal ob datensensitiv oder unbound) ein Datacontroller.BeginUpdate.
Immer, wenn du Daten komplett in das Grid eingelesen hast (egal ob datensensitiv oder unbound) ein Datacontroller.EndUpdate.

Damit vermeidest du unzählige sonnlose Repaints usw.

Schau dir am Besten mal die Beispiele zum Quamtum-Grid an. Die sind echt lehrreich ...

Bin mit grade nicht sicher ob es nicht BeginFullUpdate und EndFullUpdate heißen muss, aber das siehst du dann ja schon ...

Schöne Grüße,
Jens