Структурная схема базы данных
Структурная схема базы данных представлена на рисунке 1.
Рисунок 1 — Структурная схема базы данных.
Описание разработки базы данных
Проект программы состоит из 4 Таблиц (1-комнатные квартиры, 2- комнатные, 3-комнатные, комнаты), которые показаны на рисунках 2 — 5.
Рисунок 2 — 1-комнатные квартиры.
Рисунок 3 — 2-комнатные квартиры.
Рисунок 4 — 3-комнатные квартиры.
Рисунок 5 — Комнаты Проект программы состоит из шести форм и одного модуля:
- — DataModule4;
- — Avtorization, Agenstvo1, odno_komn, dve_komn, tri_komn, komn, Razrabotchik.
В модуле DataModule4, который изображен на рисунке 6, подключаются компоненты для работы с данными. Данная форма предназначена исключительно для размещений на ней не визуальных компонентов для доступа к данным.
Рисунок 6 — DataModule4.
Подключение к базе данных выполняется с помощью компонента ADOConnection, используя технологию Microsoft.Jet.OLEDB.4.0.
Компонент DataSource обеспечивает связь между набором данных и компонентами отображения и редактирования данных.
ADOTable1 отвечает за считывание, обновление, удаление данных из таблицы «1-комнатные».
ADOTable2 отвечает за считывание, обновление, удаление данных из таблицы «2-комнатные».
ADOTable3 отвечает за считывание, обновление, удаление данных из таблицы «3-комнатные».
ADOTable4 отвечает за считывание, обновление, удаление данных из таблицы «комнаты».
На первой форме, которая изображена на рисунке 7, расположены поля для ввода логина и пароля. Код формы представлен в приложении А.
Рисунок 7 — Авторизация Во второй форме, которая изображена, находится главное меню. Код формы представлен в приложении А.
На третьей форме, которая изображена на рисунке 9, находится таблица «1-комнатные квартиры». Код формы представлен в приложении А.
Рисунок 9 — 1-комнатные квартиры На каждой из форм присутствует фильтрация и сортировка (Рисунок 10).
Поиск.
procedure Todno_komn.Button4Click (Sender: TObject);
begin.
DataModule4.ADOTable1.Filtered:=false;
DataModule4.ADOTable1.Filter:='Улица LIKE '+#39+Edit1.Text+'%'+#39;
if length (edit1.text)>0 then DataModule4. ADOTable1.Filtered:=true;
end;
Сортировка.
procedure Todno_komn.Button7Click (Sender: TObject);
begin.
Case RadioGroup1. ItemIndex of.
- 0:DataModule4.ADOTable1.Sort:='Планировка';
- 1:DataModule4.ADOTable1.Sort:='Улица';
- 2:DataModule4.ADOTable1.Sort:='Цена';
end;
end;
Отменить сортировку.
procedure Todno_komn.Button8Click (Sender: TObject);
begin.
DataModule4.ADOTable1.Sort:=''.
end;
Рисунок 10 — Фильтрация и сортировка На четвертой форме, которая изображена на рисунке 10, находится таблица «2-комнатные квартиры». Код формы представлен в приложении А.
Рисунок 10 — 2-комнатные квартиры.