Создание формы приложения
В качестве примера рассмотрим форму приложения, с помощью которого можно перемещаться по записям таблицы БД, просматривать и редактировать поля записей, вставлять в таблицу новые записи, а также удалять из таблицы записи.
На форме расположены следующие компоненты: Table1, DataSource1, DBGrid1 и DBNavigator1.
Компонент Table1 обеспечивает взаимодействие с таблицей БД. Для связи с требуемой таблицей необходимо установить соответствующие значения свойств DataBaseName, которое указывает путь к БД, и TableName, которое задает имя таблицы. После задания таблицы БД свойству Active должно быть установлено значение True.
Компонент DataSource1 является промежуточным звеном между компонентом Table1, который соединен с реальной таблицей БД, и управляющими компонентами DBGrid1 и DBNavigator1, с помощью которых пользователь взаимодействует с этой таблицей. На компонент Table1, с которым связан компонент DataSource1, указывает свойство DataSet последнего.
Компонент DBGrid1 отображает содержимое таблицы БД в виде сетки, в которой столбцы соответствуют полям, а строки — записям. По умолчанию пользователь может просматривать и редактировать данные. Компонент DBNavigator1 предоставляет возможность перемещаться по таблице, редактировать, вставлять и удалять записи. Компоненты DBGrid1 и DBNavigator1 связываются со своим источником данных — компонентом DataSource1 через свои свойства DataSource.
Рисунок 6.2 – Связь компонентов
Взаимосвязь компонентов приложения и таблицы БД и используемые пpи этом свойства компонентов показаны на рисунке 6.2.
При разработке приложения значения всех свойств компонентов можно задать с помощью Инспектора объектов. При этом требуемые значения можно набрать в поле значений или выбрать из раскрывающихся списков. В последнем случае приложение создается с помощью мыши и не требует набора каких-либо символов с клавиатуры. В таблице 2 приведены компоненты, используемые для работы с таблицей БД, а также основные свойства и их значения.
Таблица 6.2 - Значения свойств компонентов
Компонент |
Свойства |
Значение |
Table1
DataSource1 DBGrid1 DBNavigator1 |
Active TableName DataBaseName DataSet DataSource DataSource |
True Clients.dbf Dbdemos Table1 DataSource1 DataSource1 |
Практические занятия:
Часть 1
Рассмотрим пример создания БД, которая включает сведения о сотрудниках предприятия: фамилию сотрудника, его пол, дату рождения и адрес. Для того чтобы создать такую БД, необходимо выполнить следующее:
Выбрать в меню Tools\DataBase Desktop;
В появившемся окне выбрать пункт меню File\New\Table…
В диалоговом окне Create Table выбрать тип таблицы Paradox7. Заполнить поля таблицы. Первое поле сделать ключевым. Для этого в колонке Field Name написать название поля (например Code), Type – тип +(Autoincrement), колонку Size – размер оставить пустой, в колонке Key – ключ нажать любую значащую клавишу.
Для создания базы данных сотрудников добавить поля Name – имя, Pol – пол, Date – дата рождения, Adress – адрес, заполняя все колонки, кроме последней.
Чтобы впоследствии можно было произвести сортировку данных, необходимо установить индексы. Для этого в комбинированном списке Table Properties выбрать строку Secondary Indexes. Нажать кнопку Define.
В появившемся окне выбрать для индексирования поля Pol и Name и ввести название индекса indPol и indName.
Сохранить таблицу в папке Base.
Изменить путь рабочего каталога на путь к нашей базе данных (File | Working Directory)
Создать псевдоним для нашей базы данных. Выбрать Tools|Alias Manager, нажать кнопку New, указать имя псевдонима Clients и кнопкой Browse выбрать рабочий каталог. Сохранить Keep New. На запрос подверждения сохранения от среды разработки ответить положительно. Закрыть DataBase Desktop.
Создать форму приложения
Выбрать из Палитры компонентов закладку DataControls и добавить к форме компоненты DBGrid и DBNavigator. Компонент DBGrid выровнять по верху (Align:=alTop).
Выбрать закладку DataAccess и BDE и добавить к форме компоненты DataSource1 и Table1.
Выделить компонент Table1 и указать в поле DatabaseName путь к таблице базы данных (или созданный алиас), в поле TableName – имя таблицы, в поле Active установить параметр True.
Выделить компонент DataSource и в поле DataSet двойным щелчком ЛКМ установить связь с компонентом Table1.
Выделить DBGrid1 и DBNavigator1 и в поле DataSource двойным щелчком ЛКМ установить связь с компонентом DataSource1.
Выделить таблицу Table1, щелкнуть два раза, в появившемся окне щелкнуть правой кнопкой мыши и в меню выбрать Add All Fields. Удалить колонку Code, выделить Name, выбрать Свойство DisplayLabel и ввести «Фамилия», аналогично ввести название колонок «Пол», «Дата рождения» и «Адрес». DisplayWidth позволяет задать ширину отображаемого поля. Закрыть окно.
Сохранить проект в папке Base.
Запустить проект на выполнение и заполнить таблицу (ввести данные о 3- 4 сотрудниках). После того, как данные будут внесены, нажать на кнопку подтверждение данных в DBNavigator (кнопка с галочкой) и закрыть программу.