4. Разработка приложения, работающего с бд
Теперь создадим непосредственно приложение, которое будет работать с нашей БД. Запускаем Delphi. Размещаем на форме следующие компоненты и настраиваем их свойства:
Table (Вкладка BDE): DatabaseName – PR1, TableName – записная_книжка.db, Active – True.
DataSource (Вкладка Data Access): DataSet – Table1.
DBGrid (Вкладка Data Controls): DataSource – DataSource1.
Сохраняем проект и запускаем приложение на исполнение. Если вы всё правильно сделали, то должны получить вот такое окно (рис. 11):
Рис. 10. Готовое приложение БД «Записная книжка»
Лабораторная работа №39.
Тема: Работа с удалёнными БД.
Цель: Ознакомить с основными операторами и их использование в программе.
Создание каталога и псевдонима
1. Создайте рабочую папку и назовите её Семья. 2. Откройте утилиту BDE Administrator, создайте псевдоним Familiy, укажите путь к только что созданной папке Семья.
Создание таблицы
1. Откройте утилиту Database Desktop. 2. Создайте таблицу со следующими полями:
|
№ |
Field Name |
Type |
Size |
Key |
|
1 |
Роль в семье |
Alpha (A) |
15 |
* |
|
2 |
Фамилия |
Alpha (A) |
10 |
|
|
3 |
Имя |
Alpha (A) |
15 |
|
|
4 |
Отчество |
Alpha (A) |
15 |
|
|
5 |
Возраст |
Long Integer |
|
|
|
6 |
Фотография |
Graphic (G) |
|
|
3. Сохраните таблицу под именем Familiy.db в папку Семья. 4. Заполните таблицу следующими данными:
|
Роль в семье |
Фамилия |
Имя |
Отчество |
Возраст |
Фотография |
|
Папа |
Пупкин |
Фёдор |
Вениаминович |
45 |
<BLOB Graphics> |
|
Мама |
Пупкина |
Федора |
Поликарповна |
42 |
<BLOB Graphics> |
|
Сын |
Пупкин |
Василий |
Фёдорович |
16 |
<BLOB Graphics> |
|
Старшая дочь |
Пупкина |
Дульсинея |
Фёдоровна |
20 |
<BLOB Graphics> |
|
Младшая дочь |
Пупкина |
Дарья |
Фёдоровна |
1 |
<BLOB Graphics> |
Создание формы
1.
Запустите Delphi 7.
2. На форме разместите
компоненты, как показано на рис. 2.
Рис.
2.
Форма приложения в процессе проектирования
интерфейса.
3. Настройте компоненты
формы:
|
Имя компонента |
Свойство |
Значение свойства |
|
Table1 |
DatabaseName |
Familiy |
|
Table1 |
TableName |
Familiy.db |
|
Table1 |
Active |
True |
|
DataSource1 |
DataSet |
Table1 |
|
DBText1 |
DataSource |
DataSource1 |
|
DBText1 |
DataField |
Семья |
|
DBText2 |
DataSource |
DataSource1 |
|
DBText2 |
DataField |
Фамилия |
|
DBText3 |
DataSource |
DataSource1 |
|
DBText3 |
DataField |
Имя |
|
DBText4 |
DataSource |
DataSource1 |
|
DBText4 |
DataField |
Отчество |
|
DBText5 |
DataSource |
DataSource1 |
|
DBText5 |
DataField |
Возраст |
|
DBImage1 |
DataSource |
DataSource1 |
|
DBImage1 |
DataField |
Фотография |
|
DBImage1 |
Stretch |
True |
|
DBNavigator1 |
DataSource |
DataSource1 |
4. Сохраните проект. Запустите программу на исполнение. Все данные отобразились, кроме фотографий членов семьи.