Режим формы

Для того чтобы обеспечить просмотр базы данных в режиме формы, в форму приложения нужно добавить компоненты, обеспечивающие просмотр и, если нужно, редактирование содержимого полей записи, причем по одному компоненту для каждого поля.

Компонент DBText позволяет только просматривать содержимое поля, а компоненты DBEdit и DBMеmо — просматривать и редактировать. В табл. 17.9 перечислены некоторые свойства этих компонентов. Свойства перечислены в том порядке, в котором следует устанавливать их значения после добавления в форму приложения.

Таблица 17.9. Свойства компонентов DBText, DBEdit и DBMеmо

	Свойство	Определяет
	Name DataSource DataField	Имя компонента. Используется для доступа к свойствам компонента Компонент-источник данных Поле базы данных, для отображения или редактирования которого используется компонент

В качестве примера использования компонентов DBEdit и овмето рассмотрим программу, которая обеспечивает работу с базой данных "Архитектурные памятники Санкт-Петербурга". Вид формы приложения приведен на рис. 17.9.

Рис. 17.9.Форма приложения Архитектурные памятники Санкт-Петербурга

Создается форма следующим образом. Сначала в пустую форму надо добавить компоненты Tаblе и Datasource и установить значения их свойств (табл. 17.10). Значения свойств следует устанавливать в том порядке, в котором они следуют в таблице.

Таблица 17.10. Значения свойств компонентов Tablel И DataSourcel

	Свойство	Значение	Комментарий
	Tablel. DatabaseName	Peterburg	Псевдоним базы данных (создается утилитой BDE Administrator)
	Tablel. TableName	monuments. db	Таблица базы данных (создается утилитой Database Desktop)
	Tablel. Active	True
	DataSource1. Dataset	Tablel

После настройки компонентов Table и Datasource в форму нужно добавить три компонента DBEdit и компонент овмето. Компоненты DBEdit предназначены для просмотра и редактирования полей Name, Architect и Photo,

компонент овмето — для просмотра и редактирования поля Note. Значения свойств компонентов просмотра-редактирования полей базы данных приведены в табл. 17.11.

Таблица 17.11. Значения свойств компонентов DBEdit1 -DBEdit3 и DBMemo1

	Свойство	Компонент
	DBEdit1	DBEdit2	DBEdit3	DBMemo1
	DataSource	DataSource1	DataSource1	DataSource1	DataSource1
	DataFieid	Monument	Architect	Photo	Note

Так как значению свойства Active компонента Tаblе1 присвоено значение True, то сразу после того, как будет присвоено значение свойству DataFieid, в поле компонента DBEdit появится содержимое соответствующего поля первой записи таблицы базы данных. Если таблица не содержит данных, поле остается незаполненным. Если значение свойства Active компонента Tabiei равно False, то в поле компонента DBEdit появляется его имя, значение свойства Name.

Кроме компонентов просмотра-редактирования полей базы данных, в форму нужно добавить компонент image, который используется для просмотра иллюстраций, и четыре компонента Label для вывода пояснительного текста. свойству Visible компонентов Image1, Label4 и DBEdit3 следует присвоить значение False.

Теперь, если откомпилировать и запустить программу, на экране появится форма, в полях которой будет находиться содержимое первой записи файла данных.

Для того чтобы иметь возможность просматривать другие записи файла данных, в форму приложения нужно добавить компонент DBNavigator, значок которого находится на вкладке Data Controls (рис. 17.10). Компонент DBNavigator (рис. 17.11) представляет собой набор кнопок, при щелчках на которых во время работы программы происходит перемещение указателя текущей записи к следующей, предыдущей, первой или последней записи базы данных, а также добавление к файлу данных новой записи, удаление текущей записи.

Рис. 17.10.Значок компонента DBNavigator находится на вкладке Data Controls

Рис. 17.11. Компонент DBNavigator

Табл. 17.12 содержит описания действий, которые выполняются в результате щелчка на соответствующей кнопке компонента DBNavigator.

Свойства компонента DBNavigator перечислены в табл. 17.13.

Таблица 17.12. Кнопки компонента DBNavigator

Кнопка	Обозначение	Действие
К первой	nbFirst	Указатель текущей записи перемещается к первой записи файла данных
К предыдущей	nbPrior	Указатель текущей записи перемещается к предыдущей записи файла данных
К следующей	nbNext	Указатель текущей записи перемещается к следующей записи файла данных
К последней	nbLast	Указатель текущей записи перемещается к последней записи файла данных
Добавить	nblnsert	В файл данных добавляется новая запись
Удалить	nbDelete	Удаляется текущая запись файла данных
Редактирование	nbEdit	Устанавливает режим редактирования текущей записи
Сохранить	nbPost	Изменения, внесенные в текущую запись, записываются в файл данных
Отменить	Cancel	Отменяет внесенные в текущую запись изменения
Обновить	nbRefresh	Записывает внесенные изменения в файл

Таблица 17.13. Свойства компонента DBNavigator

	Свойство	Определяет
	VisibleButton3	Видимые командные кнопки
	Name DataSource	Имя компонента. Используется для доступа к свойствам компонента Имя компонента, являющегося источником данных. В качестве источника данных может выступать база данных (компонент Database), таблица (компонент Table) или результат выполнения запроса (компонент Query)

Следует обратить внимание на свойство visibieButtons. Оно позволяет скрыть некоторые кнопки компонента DBNavigator и тем самым запретить выполнение соответствующих операций над файлом данных. Например, присвоив значениеFalse свойствуVisibieButtons.nbDelete можно скрыть кнопку nbDelete и тем самым запретить удаление записей.

На рис. 17.12 приведен вид формы приложения Архитектурные памятники Санкт-Петербурга после добавления компонента DBNavigator. Свойству DataSource компонента DBNavigator1 следует присвоить значение Table1.

Рис. 17.12.Окончательный вид формы приложения Архитектурные памятники Санкт-Петербурга

В принципе, после добавления в форму компонента DBNavigator простейшая программа управления базой данных готова. Эта программа обеспечивает просмотр, редактирование, добавление новых и удаление ненужных записей.

Теперь рассмотрим, что надо сделать, чтобы в поле imagei появилось изображение памятника, информация о котором выведена в форме. Разрабатываемое приложение предполагает, что изображения (фотографии) архитектурных памятников находятся в файлах в том же каталоге, что и таблица базы данных. Во время добавления информации в базу данных пользователь вводит в поле Photo имя файла фотографии, а во время просмотра фотография автоматически появляется в поле image 1.

В листинге 17.1 приведен текст модуля программы Архитектурные памятники Санкт-Петербурга.

Листинг 17.1. База данных "Архитектурные памятники Санкт-Петербурга";

unit peter_;
interface

Uses

Windows, Messages, SysUtils,

Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls,

DBCtrls, Mask, Db, DBTables,
jpeg; // чтобы можно было выводить JPG-иллюстрации;

Type

TForml = class (TForm)

Tablel: TTable;. // база данных — таблица

DataSourcel: TDataSource; // источник данных для полей

// редактирования-просмотра

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

DBEditl: TDBEdit;

DBEdit2: TDBEdit;

DBMemo1: TDBMemo;

Image1: ТImage;

DBEdit3: TDBEdit;

DBNavigatorl: TDBNavigator;

Label4: TLabel;

procedure TablelAfterScroll(DataSet: TDataSet);

procedure DBEdit3KeyPress(Sender: TObject; var Key: Char);

procedure DBNavigatorlClick(Sender: TObject; Button: TNavigateBtn)