TDBGridEh и вертикальный scrollbar

При работе разными типами dataset'ов можно обратить внимание, что для одних типов dataset'ов DBGrid отображает вертикальный scrollbar правильно, а для других имеет только 3 позиции независимо от числа записей в dataset'е. Для согласования scrollbar'а DBGrid использует свойства RecordCount и RecNo компонента DataSet. Некоторые dataset'ы и даже некоторые dataset'ы при определенных условиях возвращают -1 в качестве значения RecordCount и RecNo. Функция DataSet IsSequenced показывает, использует ли таблица базы данных номера записей для отображения порядка записей. Когда IsSequenced возвращает True приложения могут использовать свойство RecNo для перемещения по записям dataset'а и DBGrid использует свойство RecNo для отображения положения ползунка на вертикальном scrollbar'е. Но когда IsSequenced возвращает False, DBGrid не может определить позицию текущей записи и отображает ползунок scrollbar'а в 3-х позициях. Компонент DBGridEh имеет возможность показывать пропорциональный scrollbar даже для неупорядоченных dataset'ов. Для этого нужно активизировать свойство SumList. Установите SumList.Active в True и SumList.VirtualRecords в True. SumList создаст список bookmar'ов записей. Если вы используете технологию клиент-сервер для доступа к базе данных, SumList вынудит dataset вернуть все записи, и эта операция займет некоторое время. Обратите внимание, что VirtualRecords будут работать только с full relationship bookmarks, т.е. DataSet.ComapreBookmark должен возвращать > 0 если bookmark1 > bookmark2 (т.е. запись, на которую указывает bookmark1 идет после записи, на которую указывает bookmark2), = 0 если bookmark1 = bookmark2, < 0 если bookmark1< bookmark2. TBDEDataSet в большинстве случаев поддерживает full relationship bookmarks.

Настройка линеек прокрутки.

Для настройки линеек прокрутки используюйте подсвойства свойств HorzScrollBar и VertScrollBar для настройки вертикальной и горизонтальной линейки прокрутки соответсвенно.

Tracking: Boolean Свойство определяет обновлять ли положение грида до того как кнопка мышки над бегунком линейки прокрутки будет отпущена.

SmoothStep: Boolean Задает плавную прокрутку бегунка линейки прокрутки, так что грид будет прокручиваться не по границам ячеек по попиксельно. Для HorzScrollBar SmoothStep по умолчанию True.

ExtScrollBar: TScrollBar; Задает внешнюю линейку прокрутки. Для управления позиции прокручиваемой области грида вы можете задать внешнюю линейку прокрутки.

Visible: Boolean; Свойство задает видимость линейки прокуртки.

VisibleMode: TScrollBarVisibleModeEh; Свойство задает, в каком режиме отображения работает линейка прокрутки и может содержать следующие значения:

sbAlwaysShowEh Выводить всегда.

sbNeverShowEh Не выводить никогда.

sbAutoShowEh Выводить или скрывать в зависисмости от видимой области грида.

Когда грид подключен к DataSet’у типа TMemTableEh, то при вертиакльной прокрутки грид не сдвигает текущую запись, а только видимую область записей.

Использование DBGridEh для сортировки и фильтрации данных в DataSet.

DBGridEh не может сортировать или фильтровать данные самостоятельно. Но он может послать команду для сортировки или фильтрации специальному объекту, который сделает это в DataSet'е. Вы можете выбрать 2 типа сортировки (локальная и серверная) используя свойство SortLocal и два типа фильтрации (также локальная и серверная), но реальная возможность применения каждого типа операции зависит от типа DataSet'а. Например TBDEDataSet - не поддерживает локальную сортировку (внутри DataSet'а), так что вы не сможете сортировать данные локально, когда grid присоединен к TQuery или TTable. Библиотека имеет набор специальные объекты для сортировки/фильтрации стандартных типов DataSet'ов постовляемых вместе с Delphi.

Ниже вы можете видеть таблицу специальных объектов и DataSet'ов в которых объекты могут сортировать или фильтровать данные.

Unit	DataSet	Local sorting	Server sorting	Local filtering	Server filtering
EhLibBDE	TQuery, TTable	N	Y	Y	Y
EhLibADO	TADOQuery, TADODataSet	Y	Y	Y	Y
EhLibCDS	TClientDataSet	Y	Y	Y	Y
EhLibDBX	TSQLQuery, TSQLDataSet	N	Y	N	Y
EhLibIBX	TIBQuery, TIBDataSet	N	Y	Y	Y

Когда grid настроен для сортировки на Сервере, специальный объект строит SQL-выражение ORDER BY и заменяет строку ORDER BY в свойстве Command или SQL DataSet'а и переоткрывает его.

Когда grid настроен для локальной сортировки специальный объект производит сортировку учитывая специфику конкретного типа DataSet'а.

Когда grid настроен для Локальной фильтрации, специальный объект строит выражение и присваивает его свойству Filter DataSet'а. Перед этим нужно заранее выставить значение Filtered в True.

Когда grid настроен для фильтрации на сервере, специальный объект строит выражение для предложения 'WHERE' SQL-строки DataSet'а. Он пытается найти строку, начинющуюся с ключевого выражения '/*Filter*/' (Вы можете изменять это ключевое выражение используя глобальную переменную SQLFilterMarker) в SQL-выражении и добавляет выражение для фильтрации после ключа в той же строке. Так что, SQL-запрос должен содержать строку, начинающуюся с '/*Filter*/'. Например:

' select *

from table1

where

/*Filter*/ 1=1 '

Для автоматической фильтрации/сортировки данных в dataset'е требуется добавить один из модулей EhLibXXX (EhLibADO, EhLibBDE, EhLibCDS... в зависимости от dataset'а, подключенного к grid') в раздел 'uses' любого модуля вашего проекта. Эти EhLibXXX модули содержат код для регистрации класса который наследуется от TDatasetFeaturesEh (специальный объект) и осуществляет фильтрацию/сортировку в DataSet'е. Для DataSet'ов сторонних разработчиков можно написать и зарегестрировать свой собственный класс или написать обработчики событий OnApplyFilter и/или OnSortMarkingChanged для каждого требуемого grid'а. Кроме того можно написать OnApplyFilter и/или OnSortMarkingChanged для глобальной переменной DBGridEhDataService. Эти события имеют тип TNotifyEvent, где в качестве Sender'а выступает TCustomDBGridEh.

Настройка сетки для сортировки данных:

TDBGridEh позволяет отображать специальные sortmarking bitmaps (маленькие треугольники) в правой части заголовков столбцов. Для отображения sortmarking bitmaps добавьте dghAutoSortMarking в свойство OptionsEh. Добавьте также dghMultiSortMarking в OptionsEh для обеспечения одновременной пометки сортировки по нескольким столбцам. Установите Column.Title.TitleButton в True для заголовков, у которых вы хотите изменять sortmarkers в run-time. Вы можете установить свойство сетки ColumnDefValues.Title.TitleButton чтобы позволить метки сортировки для всех столбцов, у которых не менялось свойство Column.Title.TitleButton. В run-time клик на заголовке изменяет порядок сортировки. При нажатом Ctrl можно отметить насколько столбцов одновременно. После клика на заголовке, если событие OnSortMarkingChanged не пусто то оно вызывается, иначе дейсвие передается на выполнение специальному объекту, если тот зарегистрирован. Специальный объект использует свойство Grid.SortLocal для определения типа сортировки данных: локально либо на сервере. Если вы пишете обработчик события OnSortMarkingChanged вы можете использовать свойство TDBGrid.SortMarkedColumns для доступа к сортируемым столбцам и свойство TColumnEh.Title.SortMarker для получения состояния маркера сортировки.

Настройка grid'а для фильтрации данных:

TDBGridEh позволяет отображать специальную строку под заголовком, где пользователь вводит в ячейки текст для фильтрации записей в dataset'е.

(Значения в ячейке могут выглядеть как: "1", ">=1", ">1 AND <=5", "%TestStr%"). Установите STFilter.Visible в True для отображения специальной строки. Во run-time, когда курсор находится в ячейке фильтрации, пользователь может нажать ENTER для применения фильтра. Grid проанализирует выражения в каждой непустой ячейке фильтрации и вызовет метод TDBGridEh.ApplyFilter, далее вызывается событие OnApplyFilter либо осуществляется передача действия специальному объекту, если тот зарегистрирован.

Текст выражения в ячейке фильтра должен иметь следующий формат:

[Operator1] Operand1 [)] [AND|OR Operator2 Operand2 [)] ]

Где OperatorX - один из [ = | <> |!= | > | < | >= | <= | ~ |!~ | in (]

OperandX - число, дата, строковое выражение, либо, для оператора 'IN', - список значений, разделенных запятыми.

Например:

'1'

'>=1'

'>1 AND <=5'

'~ TestStr%'

'!~ TestStr_'

'in (1,2,3,4,5,6) and >100'

'in (Str1,Str2,Str3)'

Грид также позволяет отображать выпадающий список STFilter’а в ячейках заголовка. Для активизации этого режима уставовите свойство STFilter.Location в stflInTitleFilterEh. Чтобы сформировать строку фильтрации используйте пункт меню выпадающего списка ‘(Custom…)’ или отметьте галочками необходимые значения. Глобальная переменная DBGridEhShowInTitleFilterBox содержит комбинацию клавиш для открытия выпадающего списка значений фильтрации. По умолчанию оно содержит комбинацию клавишь 'Ctrl-T'.

Когда грид поключен к MemTableEh, то список уникальных значений в столбе формируется автоматически. Кроме того, список формируется с учетом наложенного фильтра в других колонках. Чтобы сформировать список значений и команд для фильтрации для других типов DataSet’ов используйте следующие события и методы: События - TDBGridEh.OnFillSTFilterListValues, TColumnEh.OnFillSTFilterListValues, TDBGridEhCenter.OnFillSTFilterListValues или перепешите медот TDatasetFeaturesEh.FillSTFilterListDataValues и зарегистрируйте новый класс зваимодействия грида и датасета TMyDatasetFeaturesEh.

Каждый раз при необходимости заполнить выпадающий список StFilter’а грид вызыват событие OnFillSTFilterListValues, которое имеет тип

TDBGridEhFillSTFilterListValuesEvent = procedure(Sender: TCustomDBGridEh; Column: TColumnEh; Items: TStrings; var Processed: Boolean) of object;

Это событие обявленно в классах TDBGridEh, TColumnEh, TDBGridEhCenter.

Каждый элемент списка Items должен состоять из двух значений: Строки Items[i] и объекта Items.Objects[i]. Элементы объектного типа должны наследоваться от типа TPopupListboxItemEh и должны быть созданы глобально. В модуле DBGridEh уже предопределены следующие глобальные переменные

PopupListboxItemEhSortAsc: TPopupListboxItemEhSort;

// Элемент списка отображает значок сортировки Asc и выполняет сортировку по возрастанию.

PopupListboxItemEhSortDes: TPopupListboxItemEhSort;

// Элемент списка отображает значок сортировки Des и выполняет сортировку по убыванию.

PopupListboxItemEhLine: TPopupListboxItemEhLine;

// Элемент списка отображает горизонтальную линию. При выборе не выполняет никаких действий.

PopupListboxItemEhClearFilter: TPopupListboxItemEhSpec;

PopupListboxItemEhAll: TPopupListboxItemEhSpec;

PopupListboxItemEhEmpties: TPopupListboxItemEhSpec;

PopupListboxItemEhNotEmties: TPopupListboxItemEhSpec;

PopupListboxItemEhDialog: TPopupListboxItemEhSpec;

PopupListboxItemEhApplyFilter: TPopupListboxItemEhSpec;

PopupListboxItemEhData: TPopupListboxItemEhData;

// Элемент списка отображает текст, определяющий значение для фильтрации. При выборе, помечает текущий элемент галочкой и добавляет в список элементов, которые задают значения для фильтрации.

В событии вы можете вызвать обработчик события по умолчанию TDBGridEh.DefaultFillSTFilterListValues(Column: TColumnEh; Items: TStrings)

TDBGridEh.DefaultFillSTFilterListCommandValues(Column: TColumnEh; Items: TStrings)

TDBGridEh.DefaultFillSTFilterListDataValues (Column: TColumnEh; Items: TStrings)

В следующем примере в коде события грида OnSTFilterListValues удаляются элементы выпадающего списка, выполняющие сортировку:

procedure TForm1.DBGridEh1FillSTFilterListValues(Sender: TCustomDBGridEh;

Column: TColumnEh; Items: TStrings; var Processed: Boolean);

var

Index: Integer;

begin

Sender.DefaultFillSTFilterListValues(Column, Items);

Index:= Items.IndexOfObject(PopupListboxItemEhSortAsc);

if Index >= 0 then

Items.Delete(Index);

Index:= Items.IndexOfObject(PopupListboxItemEhSortDes);

if Index >= 0 then

Items.Delete(Index);

Processed:= True;

end;

На текущий момент библиотека умеет заполнять список уникальных значений колонки только для датасета типа TMemTableEh. Для заполнения уникальных значений при подключении грида к другокму датасету перепишите функцию TDatasetFeaturesEh.FillSTFilterListDataValues и по необходимости зарегистрируйте новый класс, наследуемый от TDatasetFeaturesEh. Читайте про класс TDatasetFeaturesEh в документации к EhLib и EhLibMTE.Pas.

В TDBGridEhCenter добавлены свойства STFilterDefaultStringOperator, STFilterDefaultNumberOperator, STFilterDefaultDateTimeOperator, STFilterDefaultBooleanOperator. Используйте эти свойства, чтобы задать оператор по умолчанию, который будет использоваться, когда в строке фильтрации STFilter явно не прописывается оператор. Операторы можно задать отдельно для строковых полей, числовых полей, полей типа DateTime и логических полей.

Настройка заголовков grid'а.