Создание модуля данныхTDataModule
Выберите команду File>New>Others, чтобы открыть окно хранилища объектов, и на вкладке New открывшегося окна дважды щелкните на значке Data Module.
В свойство Name модуля данных поместите значение DM и сохраните модуль в файле dmNaklsUnit. Чтобы связать модуль с проектом, щелкните на копкеAdd file to progect панели инструментов и выберите только что созданный файл dmNaklsU.
Создание компонента tDatabase
Для связи таблиц программы (5-ть компонентов TTable) с таблицами БД воспользуемся компонентом TDatabase на вкладке BDE палитры компонентов Delphi.
Щелкните на компоненте TDatabase, а затем - на имени модуля DM в окне дерева объектов. В окне дерева объектов слева от компонента TDatabase появится красный знак вопроса, означающий, что компонент TDatabase еще не готов к работе.
Рисунок 3.17 –Компонент TDatabase не готов к работе
В окне инспектора объектов раскройте список свойства AliasName (имя пседонима) и выберите созданный ранее псевдоним БД, например BiblDataPgSQL. В строке свойства DatabaseName напишите произвольное имя например, BblDat, так называемого локального псевдонима приложения, который создает компонент TDatabase. Использование в программе локального псевдонима приложения является средством BDE обеспечения независимости текста программы от имени БД. Локальный псевдоним приложения доступен только в той программе, в которой используется компонент TDatabase.
В поле Name компонента TDatabase задайте имя DB.
Рисунок 3.18 –Окно инспектора объектов компонента DB
После определения псевдонима БД на уровне BDE и создания локального псевдонима БД для создаваемой программы исчезнет красный знак вопроса слева от компонента в окне дерева объектов, что свидетельствует о готовности компонента к работе.
Рисунок 3.19- Окно дерева объектов модуля DM и компонента DB
Компонент TDatabase выполняет множество полезных функций, обеспечивающих связь программы с БД. В локальных и клиент-серверных системах только с его помощью можно реализовать транзакции - специальный механизм доступа к данным, повышающий их достоверность и непротиворечивость. Кроме того он способен передать серверу БД имя пользователя, его пароль и ряд других параметров, оптимизирующих связь с сервером и избавляющих пользователя программы от обязательной регистрации на сервере.
Создание компонента tTable
Перенесите в окно дерева объектов компонент TTable (вкладка BDE) и "положите" его на псевдоним ААА.
В окне инспектора объектов в свойстве DatabaseName нового компонента автоматически появится имя локального псевдонима ААА. Слева от компонента в окне дерева объектов появится красный знак вопроса, означающий, что компонент TTable еще не готов к работе.
Компонент TTable является набором данных (НД). Он преимущественно используется в файл-серверных системах для доступа к данным из какой-либо одной таблицы БД, когда таблица копируется на машину клиента и там обрабатывается.
Нами компонент TTable будет использован для создания первого варианта программного проекта с клиент-серверной системой, который затем будет модифицирован и вместо компонента TTable будет использован компонент TQuery.
В клиент-серверных системах копирование всей таблицы БД на машину клиента выполняется редко. Чаще всего выбирается часть таблицы, удовлетворяющая некоторому условию. Для получения требуемого набора данных обычно используется компонент TQuery, с помощью которого формирутся SQL-запросы (см. раздел 8). В общем случае, этот компонент позволяет получать связанные данные из нескольких таблиц.
Чтобы подготовить компонент TTable к работе, необходимо определить имя соответствующей таблицы. Для этого раскройте список его свойства TableName. На экране появится окно входа в БД с локальным псевдонимом ААА (рисунок 3.11).
Рисунок 3.20 –Окно входа в БД с локальным псевдонимом ААА
Введите пароль и логин и нажмите кнопку OK. В окне инспектора объектов выберите таблицу NAKLS обрабатываемой БД. В строке свойства Name таблицы Table1 введите tbNakls (рисунок 3.12).
Примечание. Имеет смысл называть именаНДименами связанных с ними таблиц физическойБДс соответствующим префиксом. Например, для таблицыNAKLS физическойБДимя компонентаTTable следует дополнить префиксомtbNakls и т.п.
Рисунок 3.21 –Окно инспектора объектов для таблицы tbNakls
После определения имени НД исчезнет красный знак вопроса слева от компонента в окне дерева объектов, что свидетельствует о готовности компонента к работе (рисунок 3.13).
Рисунок 3.22 –Окно дерева объектов
Примечание. При с оздании первых проектов, во избежание неясностей, для определяемых наборов данных рекомендуется сразу в поле Active задавать True.
Рисунок 3.23 –Окно инспектора объектов для таблицы tbNakls