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
