83

Индексные поля

На основе поля или группы полей в таблице может быть построен индекс. Если поле входит в состав установленного в настоящий момент индекса набора данных свойство:

property IsIndexField: Boolean;

возвращает значение true.

Отображение данных

Класс TField и его потомки не вооружены методами, позволяющими визуализировать своё содержимое. Однако компоненты линейки Data Controls палитры компонентов Delphi, отвечающие за отображение информации вполне способны узнать у класса

TField каким образом он хотел бы представлять свои данные на экране. Данные, предназначенные для вывода на экран, хранятся в свойстве:

property DisplayText: String; //только для чтения

Все компоненты (DBText, DBEdit, DBGrid, и т.д.) при отображении данных обратятся именно к этому свойству поля.

Если поле находится в режиме редактирования, то все изменения (до момента их сохранения) аккумулируются в свойстве.

property Text: String;

В период редактирования содержимое свойств DisplayText и Text различается.

При назначении имён заголовков колонок сетка TDBGrid обязательно проверит содержимое свойства объекта Field. В этом свойстве по умолчанию хранится физическое имя поля, сетка DBGrid “подхватит” это имя и с его помощью определит заголовок колонки. Альтернативный способ назначения подписей полей обеспечивает свойство:

property DisplayLabel : String;

В этом свойстве по умолчанию находится имя физическое имя поля, однако программист имеет право вместо невразумительного “FieldCity” написать “Город”. И тогда имена колонок сразу получат осмысленные названия.

Ещё одно свойство, связанное с отображением данных, называется: property DisplayName: String; //только для чтения

Содержимое этого свойства используется Delphi, при выводе сообщения об ошибке, возникшей при редактировании данных в поле.

Задание

1.Разработайте функцию, на вход которой поступает имя любой таблицы вашей БД.

Врезультате выполнения функция возвратит все строки из заданной таблицы в

многострочный редактор TMemo.

2.Разработайте функцию, на вход которой поступает имя любой таблицы вашей БД.

Врезультате выполнения функции вы должны получить сведения о составе полей этой таблицы, включая: имя поля, тип поля, размер данных поля.

© 2011 г. Д.Л. Осипов

85

волов FIO для хранения фамилии сотрудника; поле денежного типа SALARY с данными о ежемесячном жаловании и внешнего ключа DEPARTMENT_KEY целочисленного типа.

4. У поля SALARY установите значение по умолчанию равное 0.

Рисунок 14.2. Таблица SALARY в режиме конструктора

Введите в таблицу DEPARTMENT несколько записей и закрывайте программу Access, в ближайшее время она нам не понадобится. Теперь приступим к проектированию приложения Delphi. Начните новый проект. Переименуйте главную форму проекта Name:=frmMain и расположите на её поверхности следующие компоненты (см. рис. 14.3):

•Две таблицы (компоненты класса TADOTable, вы их найдёте странице dbGO). Первый компонент предназначен для взаимодействия с таблицей DEPARTMENT, поэтому переименуем его в tblDEPARTMENT. Второй компонент станет обслуживать таблицу SALARY, назовём его tblSALARY.

•Источник данных DataSource1 (страница Data Access). Компонент предназначен для взаимодействия с таблицей SALARY, переименуйте его в dsSALARY. С помощью свойства DataSet подключите источник данных к компоненту tblSALARY.

•Сетку для отображения данных DBGrid1 и компонент для управления данны-

ми DBNavigator1 (оба компонента вы найдёте на странице Data Controls). С помощью свойства DataSource присоедините оба компонента к dsSALARY.

© 2011 г. Д.Л. Осипов

86

Рисунок 14.3. Вид главного окна приложения

Сохраните проект под именем fielddemo.dpr в том же каталоге, где находится созданная ранее база данных demo.mdb. Выберите компонент tblDEPARTMENT и, воспользовавшись свойством ConnectionString, подключите его к нашей базе данных. Скопируйте эту же строку в свойство ConnectionString второго компонента– таблицы tblSALARY, ведь ему нужен доступ к этой же самой БД.

Закончив работать с соединительной строкой, подключите компоненты к соответствующим таблицам:

•компонент tblDEPARTMENT к таблице отделов и служб TableName:= 'depart-

ment.db';

• компонент tblSALARY к таблице сотрудников TableName:='salary.db'.

Проверьте корректность подключения, активировав свойства Active обеих таблиц.

Дважды щёлкните левой кнопкой мышки по компоненту tblSALARY для вызова редактора полей этой таблицы. Во всплывающем меню редактора полей выберите пункт “Add all fields” (Добавить все поля). После этого в редакторе появится все поля таблицы. В результате форма заполнится списком полей, входящими в состав нашей таблицы SALARY. Осуществлённую нами операцию называют определением статическим полей. В результате для каждого из полей таблицы SALARY среда Delphi поставила в соответствие новый объект – потомок класса TField. Класс поля определяется типом хранящихся в нём данных, например: для текстового поля создаётся объект класса TWideStringField, для денежного – TFMTBCDField; для поля счётчика – TAutoIncField, и т.д. Каждый объект-поле получает имя путём сложения имён компонента-таблицы и физического имени поля. В нашем случае поле, хранящее данные о фамилии сотрудника будет названо Ta-

ble1+FIO=tblSALARYFIO.

Редактор “New Field” не предназначен для физического добавления поля в структуру таблицы. Он лишь способен создавать экземпляры поля (потомки класса TField) на программном уровне. В качестве основных клиентов редактора выступают вычисляемые (calculated) поля и поля подстановки (lookup).

Вновь вызовите контекстное меню редактора полей и найдите пункт меню “New field…” (Новое поле). Это действие вызовет окно настройки (см. рис. 14.4) в котором следует описать характеристики поля подстановки.

© 2011 г. Д.Л. Осипов

87

•В строке “Name” (имя поля) укажем имя создаваемого поля – luDEPARTMENT.

•В списке “Type” (тип данных) определим тип данных этого поля – String.

•В группе переключателей “Field type” (тип поля) отметим переключатель

Lookup.

Заполняем четыре комбинированных списка в группе “Lookup definition”. Ввод данных производим слева направо, сверху вниз. Приступим. Выпадающий список “Key fields” определяет поле таблицы сотрудников, являющееся внешним ключом, то есть предназначенным для взаимодействия с таблицей отделов и служб. Внешним ключом в таблице сотрудников является поле DEPARTMENT_KEY, поэтому останавливаем свой выбор на нём. В выпадающем списке “Dataset” указываем имя справочного набора данных. В нашем случае это таблица tblDEPARTMENT. Во втором ряду, в списке “Lookup Keys” требуется ввести имя первичного ключа таблицы-справочника отделов и служб – поле DEPARTMENT_KEY. И,

наконец, в последнем списке “Result Field” необходимо выбрать имя поля, которое мы хотим видеть в результирующем наборе данных – это название отдела – DEPARTMENT. Закончив описание нового поля, нажимаем кнопку ОК.

Рисунок 14.4. Создание подстановочного поля

С этого момента наш проект приобретает работоспособность, но, к сожалению, нельзя сказать, что он лишён недостатков. Один из них – избыточность информации отображаемой в сетке DBGrid1. Этот компонент выводит на экран столбцы которые совсем необязательно видеть пользователю, это служебные поля первичного

(SALARY_KEY) и вторичного (DEPARTMENT_KEY) ключей таблицы tblSALARY.

Рекомендую вам найти свойства visible названных полей и присвоить им значения false, что сделает поля невидимыми. Кроме того имеет смысл настороить свойство playLabel всех оставшихся видимыми полей так, чтобы сетка DBGrid1 выводила осмысленные названия подсказывающие пользователю назначение того или иного столбца (см. рис. 14.5).

© 2011 г. Д.Л. Осипов