Сантехнические перегородки.
TDBStatusLabel Component

Unit
RxDBCtrl

Description
Компонента TDBStatusLabel представляет собой статический элемент управления, позволяющий отображать в текстовом виде текущее состояние связанного с ним через свойство DataSource набора данных. В зависимости от текущего состояния набора данных (просмотр, редактирование, поиск и т.д.) текст компоненты TDBStatusLabel изменяется, в соответствии с форматом:
<Имя_набора_данных>: <состояние_набора_данных>.

Если свойство Style установлено в значение lsRecordNo, то компонента отображает текущую позицию в наборе данных в формате:
<номер_текущей_записи>:<полное_число_записей>.
Информация о номере записи может быть отображена только для драйверов DBase и Paradox и таблиц в памяти (
TMemoryTable). В версии для Delphi 3 и выше отображение номера записи определяется возвращаемым значением метода IsSequenced соответствующего набора данных.

Если свойство Style установлено в значение lsRecordSize, то компонента отображает размер записи в наборе данных.
Если свойство SQLCount установлено в False (по умолчанию), то подсчет числа записей тоже не ведется для SQL-данных, а только для данных dBase и Paradox.
Имя набора данных задается свойством DataSetName, и может быть изменено обработчиком события OnGetDataName. Строки, задающие состояние набора данных, как и все остальные константы библиотеки RX Library, хранятся в ресурсе типа STRINGTABLE.


Примеры работы и некоторые интересные свойства и методы.

Applies to
TDBStatusLabel component

Declaration
property Style: TDBLabelStyle;

Description
Свойство задает тип отображаемого компонентой текста. Если значение этого свойства равно lsState (по умолчанию), компонента отображает состояние набора данных (вставка, редактирование и т.д.). При значении lsRecordNo компонента может отображать для таблиц DBase и Paradox (или результатов запросов на таблицах DBase и Paradox) текущую позицию в наборе данных (номер текущей записи и полное число записей). Если значение свойства равно lsRecordSize, то компонента отображает размер одной записи набора данных в байтах.


Applies to
TDBStatusLabel component

Declaration
property SQLCount: Boolean;

Description
Свойство определяет, будет ли осуществляться подсчет полного числа записей при значении свойства Style = lsRecordNo, если набор данных относится к SQL-базе данных. По умолчанию свойство равно False. При больших размерах выборки из SQL-таблиц подсчет числа записей может занять значительное время.


Applies to
TDBStatusLabel component

Declaration
property DataSetName: string;

Description
Свойство задает имя для набора данных, используемое при отображении состояния этого набора данных компонентой TDBStatusLabel. Если в режиме дизайна формы вы зададите значение этого свойства равным пустой строке, то при выполнении приложения (run time) значением этого свойства будет DataSource.DataSet.Name.


Applies to
TDBStatusLabel component

Declaration
property OnGetDataName: TGetStringEvent;

Description
Событие происходит, когда необходимо изменить текст компоненты TDBStatusLabel при изменении состояния связанного с ней набора данных. Если обработчик этого события определен, то возвращаемое им значение используется вместо значение свойства DataSetName.