ГЛАВНАЯ ФОРМА ПРОЕКТА

Далее на примере создания несложной программы рассматриваются основные этапы и приемы программирования для БД в технологии BDE. Вид окна работающей программы показан на рисунке 3.1.

Как видно из рисунка, программа содержит окно просмотра накладных и связанных с ними списков книг.

Рисунок 3.4 – Окно программы на этапе выполнения

Рассмотрим процесс создания главной формы проекта. Для пустой формы установите следующие свойства:

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

Name = 'fmNakls'

В папке Source сохраните модуль под именем fmNaklsU, а проект - под именем BiblosPrg.

Для последующей работы потребуется 3-ри панели TPanel. Ниже приводится последовательность их создания.

В начале поместите на форму 2-ве панели ТPаnel (вкладка TStandart). Поместите в их свойства Align значения alBottom (рисунок 3.4).

Верхняя панель предназначена для размещения сетки DBGrid2 компонента TDBGrid, в которой будет отображаться список книг для каждого партнера.

Нижняя панель предназначена для размещения набора кнопок навигатора БД и кнопки закрытия программы.

Кроме того, потребуется еще одна – 3-тья панель, расположеная выше панели со списком книг. Эта панель предназначена для размещения сетки DBGrid1, в которой будут отображаться данные о накладных.

Желательно, чтобы пользователь мог менять высоту панелей для списка накладных и для списка книг для каждой накладной. Поэтому, прежде чем создать панель для списка партнеров, поместите на пустую часть формы полосу разбивки (рисунок 3.5) TSplitter (вкладка Additional), в ее свойство Align поместите значение alBottom, в свойство Beveled - True и в свойство Неight - 5.

Рисунок 3.5 – Подготовка главного окна программы

После этого поместите на форму 3-тью панель и установите в ее свойство Align значение alClient.

Поместите на верхнюю и среднюю панели формы по компоненту TDBGrid (вкладка Data Controls) и в их свойство Align установите значение alClint (рисунок 3.6). Обратите внимание на то, что поле DataSourse у этих компонент пока не имеет значения. Это поле будет использовано в дальнейшем для связи таблиц DBGrid1 и DBGrid2 с соответствующими источниками данных DataSourse1 и DataSourse2 (см. ниже)

Рисунок 3.6 – Окно инспектора объектов компонента DBGrid1

Очистите свойство Caption у самой нижней панели и поместите на нее кнопки навигатора БД - TDBNavigator (вкладка Data Controls), и кнопку TBitBtn (вкладка Additional). Навигатор расположите у левого края панели, а кнопку - у правого.

Раскройте список свойства Anchors кнопки TBitBtn и выровняйте ее по правому краю: поместите False в свойство akLeft и True в свойство akRight. В свойство Kind кнопки поместите значение bkClose. Вид окна к этому моменту показан на рисунке 3.7.

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

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