Разработка главной формы

Начните новый проект и измените следующие свойства пустой формы, заданные по умолчанию:

Caption = 'Накладные на книги¹ Name = 'fmNakls'

После изменения свойств сразу сохраните модуль в специально отведенной для этого папке под именем fmNaklsU, а проект — под именем Nakls.

Поместите на форму две панели TPanel, поместите в их свойства Align значения alBottom: самая нижняя из них предназначена для размещения кнопок навига­тора и кнопки закрытия программы, а расположенная над ней — для размещения сетки DBGrid, в которой будет отображаться список книг. Чтобы пользователь программы мог менять высоту этой панели, поместите на пустую часть формы веш­ку разбивки TSplitter (вкладка Additional палитры компонентов), в ее свойство Align поместите значение alBottom, в свойство Beveled — True и в свойство Height — 5. Поместите на форму еще одну панель и установите в ее свойство Align значение alClient — на этой панели будет расположена сетка DBGrid с данны­ми о накладных.

Поместите на верхнюю и среднюю панели по компоненту TDBGrid (вкладка Data Controls) и в их свойство Align установите значение alClint.

Рис. 1.12. Главное окно программы на этапе разработки

Очистите свойство Caption у самой нижней панели и поместите на нее кнопки навигатора БД TDBNavigator (вкладка Data Controls) и кнопку TBitBtn (вклад­ка Additional). Навигатор расположите у левого края панели, а кнопку — у правого. Раскройте список свойства Anchors кнопки и выровняйте навигатор по правому краю: поместите False в свойство akLef t и True в свойство akRight. В свой­ство Kind кнопки поместите значение bkClose. Вид окна к этому моменту пока­зан на рис. 1.12.

Сохраните все сделанные вами изменения модуля главной формы на диске.

Создание псевдонима бд

Создадим псевдоним для нашей учебной БД. Псевдоним БД — это просто имя БД. Для файл-серверных БД псевдоним определяет путь доступа к файлам базы данных. В дальнейшем мы, возможно, захотим изменить его. В этом случае нам не придется исправлять этот путь в многочисленных компонентах доступа к данным — достаточно изменить его в псевдониме, и все ссылающиеся на псевдоним компоненты будут связаны с новым местом размещения данных. Роль псевдонимов особенно велика в клиент-серверных БД, в которых он содержит многочисленные дополнительные свойства, управляющие доступом к серверу.

С помощью команды Database ► Explorer из среды Delphi запустите утилиту SQL Explorer, на вкладке Databases открывшегося окна щелкните правой кнопкой мыши на узле Database и выберите команду New в контекстном меню. Утилита предложит выбрать тип вновь создаваемого псевдонима. Согласитесь с вариантом Standard, предлагаемым по умолчанию, — псевдонимы именно этого типа предназначены для обслуживания файл-серверных БД с таблицами Paradox (рис. 1.13).

Рис. 1.13. Определение псевдонима

Сразу после этого появится имя псевдонима STANDARD 1, предлагаемое по умол­чанию, и на вкладке Definition будут перечислены его свойства. Воспользуемся тем, что выделено имя STANDARD 1, и сразу заменим его именем BIBLDATA. Теперь перейдите на вкладку Definition и в пустом поле справа от свойства PATH введите путь доступа к файлам БД: С: \BIBLDATA. Щелкните на вновь созданном псевдониме на вкладке Databases правой кнопкой мыши и выберите команду Apply в контекст­ном меню. В появившемся после этого диалоговом окне подтвердите необходи­мость запомнить вновь созданный псевдоним.

Если теперь на вкладке Databases щелкнуть на значке свернутого узла слева от имени псевдонима, а затем — на значке свернутого узла Tables, вы увидите все таблицы БД «Книголюб». Щелкнув на любой из них и открыв вкладку Data, вы сможете уви­деть содержимое выбранной таблицы (рис. 1.14).

Рис. 1.14. Отображение содержимого таблицы в окне SQL Explorer