Вот из-за таких выеживаний с датасетом, на ровном месте, забил на идеологию DB-Aware полностью.
Сделал себе некий аналог датасета, который больше напоминает динамический массив записей. Поначалу вообще так и было, но оказалось неудобным подгонять методы по разные имена полей. В итоге поля создаются динамически.
Для визуализации данных использую VirtualTreeView в режиме грида.
Связывает грид и мой датасет некое подобие DS, но понятие "текущей записи" есть только для самого грида. Все что ниже никакой такой ограниченности не имеет. Соответственно бегать по этому "датасету" легко и просто.
В данном случае вместо
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
QRegistration.First;
while not QRegistration.Eof do
begin
lines:='';
for i:=0 to GRegisration.Columns.Count-1 do
lines:=lines+GRegisration.Columns[i].Field.Text+#9;
writeln (f,lines);
QRegistration.Next;
end;
Было бы нечто вроде
1.
2.
3.
4.
5.
6.
for i := 0 to CDS_Reg.Count-1 do begin
s := '';
for j := 0 to CDS_Reg.FieldsWorl.Count-1 do begin
s := s + CDS_Reg.ReadString(i, j) + #9;
end;{for j}
end;{for i}
Заполняется данными этот буфер вот таким кодом:
1.
2.
3.
4.
5.
6.
CDV.RowSavePosition;
QSel1.ParamByName('id').AsInteger := Fid;
CDS.ExecSelect(QSel1);
CDV.Sync;
CDV.RowRestorePositionID;
QSel - это компонент выполняющий запрос но имеющий буфер только на одну запись.
В FibPlus это TpFIBQuery
CDV.Sync в частности синхронизирует поля грида с датасетом, приводит количество записей в дереве к количеству записей в CDS и дергает перерисовку у дерева. После чего дерево, если ему нужно отрисовать ячейку, просто запрашивает ее значение в CDS.
Так же через CDV привязан StatusBar - после выполнения запроса в него автоматом пишется количество записей в CDS и время выполнения запроса.
Из удобных моментов - эти компоненты по сути не имеют никакой прривязки к базам.
Есть например такой метод
CDS.DirList('c:\DATA\*.txt');
Получит список файлов по маске и создаст на каждый файл по записи в CDS.
Какую информацию при этом он запишет - зависит от наличия в CDS полей.
Предопределенные имена
FILE_NAME
FILE_SIZE
FILE_DATE
есть поле - соответственная инфа запишется. Нет поля - не запишется.
Или, создаем поле CHECK_BOX - в первой колонке появляется галка чекбокса. Установка\снятие меняет значение в поле CHECK_BOX которое Integer. Потом легко пробегаемся по буферу выбирая записи с чеком или без.
Поле ROW_FONTSTYLE отвечает за стиль шрифта в соответствующей строке.
Поле ROW_FONTSTYLE - цвет шрифта в строке. Пишем туда например "RED" - и строка красная.
В контекстное меню грида автоматически привязываются пункты меню "поиск по подстроке" и "сохранить в файл", сделано несколько форматов сохранения - XLS, CSV, TXT, INI, DBF - и они автоматические есть в любом гриде который прицеплен к этой системе.
Ну и т.д.
Конечно, это один из колхозных велосипедов, и он не допилен в должной степени что бы его можно было без стестения показывать другим :) но вот уже более 10 лет я радуюсь что теперь не связан с парадигмой DB-Aware, в том виде какой заложен в Delphi.
