Реализация пользовательского интерфейса

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

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

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

Первая форма предназначен для отображения и поиска данных.

Форма содержит главное меню, при выборе команд которого содержимое окна изменяется. Меню состоит из следующих пунктов (рис.7):

Рис. 7. Меню программы.

Рис. 8. Реализация главной формы системы

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

После двойного щелка на компонент Edit можно его запрограммировать для поиска и просмотра сведений о жилье.

procedure TForm1. Edit1Change (Sender: TObject);

begin.

if Length (Edit1.Text)>0 then.

ADOTable1.Filtered:=true.

else.

ADOTable1.Filtered:=false;

ADOTable1.Filter:='АДРЕС>'''+Edit1.Text+'''';

Adotable1.IndexFieldNames:='адрес';

end;

procedure TForm1. Edit2Change (Sender: TObject);

begin.

if Length (Edit2.Text)>0 then.

ADOTable1.Filtered:=true.

else.

ADOTable1.Filtered:=false;

ADOTable1.Filter:='Площадь>'''+Edit2.Text+'''';

Adotable1.IndexFieldNames:='Площадь';

end;

procedure TForm1. Edit3Change (Sender: TObject);

begin.

if Length (Edit3.Text)>0 then.

ADOTable1.Filtered:=true.

else.

ADOTable1.Filtered:=false;

ADOTable1.Filter:='город>'''+Edit3.Text+'''';

Adotable1.IndexFieldNames:='город';

End;

С помощью меню «Сортировать» можно осуществлять сортировку по номеру, городу, площади и ФИО.

procedure TForm1. N7Click (Sender: TObject);

begin.

Adotable1.IndexFieldNames:='Код';

end;

procedure TForm1. N8Click (Sender: TObject);

begin.

Adotable1.IndexFieldNames:='ГОРОД';

end;

procedure TForm1. N9Click (Sender: TObject);

begin.

Adotable1.IndexFieldNames:='ПЛОЩАДЬ';

end;

procedure TForm1. N10Click (Sender: TObject);

begin.

Adotable1.IndexFieldNames:='ФИО';

end;

При выборе пункта меню «Регистрация клиентов» открывается соответствующее окно, которое содержит в себе все данные о клиенте (рис.9).

Рис. 9. Окно «Регистрация клиентов»

При нажатии на кнопку «Добавить» можно ввести в базу данных нового клиента. Кнопки «Сохранить», «Отменить», «Удалить» и «Печать» выполняют соответствующие действия.

Выбор подходящих вариантов осуществляется с помощью запросов на языке SQL. Для работы с базами данным через SQL-запросы в VCL Delphi используются, как правило, два вида компонентов:

• -TQuery — взаимодействует с базой данных посредством драйверов BDE;
• -TADOQuery — работает с базой данных с использованием технологии ADO.

Компонент TADOQuery обеспечивает работу с базами данных посредством SQL-запросов через драйверы ADO. Он не имеет принципиальных отличий от класса TQuery, поскольку оба этих класса происходят от общего предка — TDataSet. Поэтому все основные свойства, которые используются при взаимодействии с базой данный через SQL-запрос, для этих двух компонентов аналогичны. В классе TADOQuery имеется ряд дополнительных свойств, отсутствующих в классе TQuery-компонент ТМеmо, который будет использоваться для отображения и редактирования текста запроса;

• -компонент отображения данных TDBGrid — для отображения результатов выполнения запроса;
• -кнопка TButton — применяется для подачи команды на выполнение запроса (рис.10).

Рис. 10. Запрос вариантов

Последняя кнопка нашего меню «Выход». Для того чтобы при нажатии на нее, пользователь выходил из программы необходимо дважды нажав на нее записать программный код: application. terminate;.