Размещено на http://www.allbest.ru/

МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ РОССИЙСКОЙ ФЕДЕРАЦИИ

БРАТСКИЙ ЦЕЛЛЮЛОЗНО-БУМАЖНЫЙ КОЛЛЕДЖ

ФЕДЕРАЛЬНОГО ГОСУДАРСТВЕННОГО БЮДЖЕТНОГО ОБРАЗОВАТЕЛЬНОГО УЧЕРЕЖДЕНИЯ

ВЫСШЕГО ПРОФЕССИОНАЛЬНОГО ОБРАЗОВАНИЯ

«БРАТСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ»

Энергетический факультет

Кафедра Информационных систем программирования и автоматизации

КУРСОВОЙ ПРОЕКТ

ПМ 02 «Разработка и администрирование баз данных»

МДК 02.02 «Технология разработки и защиты баз данных»

Студент

А.А.Туров

Руководитель

О.А. Селезнёва

Братск 2016



Содержание

Введение

1. Организационный раздел

1.1 Постановка задачи

1.2 Требования к аппаратным и программным средствам для создания программного продукта

1.3 Обоснование выбора и принципы работы с программным средством

2. Специальный раздел

2.1 Структурная схема базы данных

2.2 Описание разработки базы данных

2.3 Защита информации в базе данных

Заключение

Список использованных источников

Приложение



Введение

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

База данных (БД) -- представленная в объективной форме совокупность самостоятельных материалов, систематизированных таким образом, чтобы эти материалы могли быть найдены и обработаны с помощью электронной вычислительной машины.

Для управления и использования баз данных существуют системы управления базами данных (СУБД) - важнейший компонент информационной системы. Для создания и управления информационной системой СУБД необходима в той же степени, как для разработки программы на алгоритмическом языке необходим транслятор.

Курсовое проектирование посвящено разработке базы данных «Агентство недвижимости» на основе инструментов ADO и BDE , а также освещению методов построения форм и отчетов.

Решение задания подразумевает использование программной среды, позволяющей осуществлять создание и обработку БД с дальнейшим использованием ее в качестве независимой программы. Для решения данной задачи подходит среда разработки приложений Delphi 7 и редактор баз данных Microsoft Access 2013.

В данном курсовом проекте приведено решение задания по дисциплине «Технология разработки и защиты баз данных» по разработке базы данных «Агентство Недвижимости».



1. Организационный раздел

1.1 Постановка задачи

а) Общие сведения

Полное наименование темы: Разработка базы данных «Агентство недвижимости».

б) Цель и назначение программы

Для реализации проблемы можно сформулировать задачи:

1.Ведение и поддержка базы данных. Задача состоит в актуализации базы данных - редактирование, добавление, изменение записей.

2. Цели создания приложения «Агентство недвижимости»:

- накопление, хранение и обработка информации;

- улучшение качества учета обрабатываемой информации;

- уменьшение затрат времени на обработку информации.

в) Для создания приложения выбрана программа Borland Delphi 7.

Создание программы разделяется на этапы:

- создание форм;

- добавление объектов и компонентов на формы;

- написание программного кода;

- тестирование и отладка;

- компилирование программного кода;

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

1.2 Требования к аппаратным и программным средствам для создания программного продукта

Основным требованием при разработке на Borland Delphi 7 является работа в среде операционной системы: Windows XP, Windows 7, Windows 8, Windows 10.

Borland Delphi 7 - дает возможность быстро создавать полнофункциональные высокопроизводительные приложения для Windows.

Для корректной работы среды программирования необходимы следующие минимальные аппаратные требования:

- Pentium III 1 ГГц (или аналог от AMD);

- 256 Мб ОЗУ;

- 500 Мб свободного места на HDD;

- видеокарта с 64 Mб;

- 32х CD-ROM;

- клавиатура, мышь.

Минимальная конфигурация средств Системы:

- система: Windows 98/ME/2000/XP.

Программа была разработана на компьютере следующей конфигурации:

- процессор AMD A4-6210;

- 6000 Мб ОЗУ;

- видеокарта с 2096 Мб видеопамяти;

- Windows 10.

1.3 Обоснование выбора и принципы работы с программным средством

Для создания приложения был выбрана программа Borland Delphi 7. Так как программа имеет дружелюбный интерфейс, является многооконной, а также обладает достаточным количеством функций, требуемых для решения поставленной задачи. Процесс разработки программ в Delphi сильно упрощён. Это относится к созданию интерфейса. Вы просто помещаете нужные компоненты на поверхность Windows-окна и настраиваете их свойства с помощью специального инструмента (Object Inspector). Основной плюс заключается в том, что Delphi самостоятельно создает код. Благодаря этому, даже новичок сможет справиться с данной программой.

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

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

Богатство визуальных возможностей Windows связано с так называемым дескриптором контекста графического устройства DC и тремя входящими в него инструментами - шрифтом, пером и кистью. В Delphi созданы специализированные классы-надстройки, существенно упрощающие использование графических инструментов Windows: для контекста - класс TCanvas, для шрифта - TFont, для пера - ТРеn и для кисти - TBrush. Связанные с этими классами объекты автоматически создаются для всех видимых элементов и становятся доступны программе через свойства Canvas, Font, Pen и Brush.

Для создания базы данных использовалось программное средство Microsoft Access.

Microsoft Access - система управления базами данных, которую фирма Microsoft неизменно включает в состав профессиональной редакции Microsoft Office. СУБД Access занимает одно из ведущих мест среди систем для проектирования, создания и обработки баз данных.

Достоинства Microsoft Access:

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

- хранит все данные в одном файле, хотя и распределяет их по разным таблицам, как и положено реляционной СУБД. К этим данным относится не только информация в таблицах, но и другие объекты базы данных;

- предлагает большое количество Мастеров, которые выполняют основную работу за пользователя при работе с данными и разработке приложений, помогают избежать рутинных действий и облегчают работу неискушенному в программировании пользователю;

- распространенность, которая обусловлена тем, что Access является продуктом компании Microsoft;

- широкие возможности по импорту/экспорту данных в различные форматы, от таблиц Excel и текстовых файлов, до практически любой серверной СУБД через механизм ODBC;

- наличие развитых встроенных средств разработки приложений. Большинство приложений, распространяемых среди пользователей, содержит тот или иной объем кода VBA (Visual Basic for Applications).



2. Специальный раздел

2.1 Структурная схема базы данных

Структурная схема базы данных представлена на рисунке 1.

Рисунок 1 - Структурная схема базы данных

2.2 Описание разработки базы данных

Проект программы состоит из 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-комнатные квартиры

2.3 Защита информации в базе данных

К основным средствам защиты информации можно отнести следующие средства:

- парольная защита;

- шифрование данных и программ;

- установление прав доступа к объектам БД;

- защита полей и записей таблиц БД.

Парольная защита представляет простой и эффективный способ защиты БД от несанкционированного доступа. Пароли устанавливаются конечными пользователями или администраторами БД. Учет и хранение паролей производится самой СУБД. Обычно пароли хранятся в определенных системных файлах СУБД в зашифрованном виде. Поэтому просто найти и определить пароль невозможно. После ввода пароля пользователю СУБД предоставляются все возможности по работе с защищенной БД.

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

В целях контроля использования основных ресурсов СУБД во многих системах имеются средства установления прав доступа к объектам БД. Права доступа определяют возможные действия над объектами. Владелец объекта (пользователь, создавший объект), а также администратор БД имеют все права. По отношению к таблицам в общем случае могут предусматриваться следующие права доступа:

– просмотр (чтение) данных;

– изменение (редактирование) данных;

– добавление новых записей;

– все операции, в том числе изменение структуры таблицы.

К данным, имеющимся в таблице, могут применяться меры защиты по отношению к отдельным полям и отдельным записям. В реляционных СУБД отдельные записи специально не защищаются.

Применяются к защите данных в полях таблиц можно выделить следующие уровни прав доступа:

– полный запрет доступа;

– только чтение;



Заключение

Среда разработки приложений Delphi позволяет создавать полноценные приложения, работающие в OC Windows.

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

В проделанной работе были опробованы и использованы основные методы и объекты системы управления базами данных Microsoft Access.

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



Список использованных источников

Алфавитный порядок

1. Баженова И.Ю. «Delphi 7. Самоучитель программиста». 2003г с.448

2. Воройский Ф.С. Основы проектирования автоматизированных библиотечно-информационных систем

3. Введение в среду визуального программирования Delphi: Методические указания-Ч.3 /С.ВБорисов, С.С.Комалов, И.Л.Серебрякова и др.; Под ред.Б.Г.Трусова. - М.:Изд-во МГТУ им.Н.Э.Баумана, 2007.-79 с.: ил.

4. Уилсон С., Мэйплс Б., Лэндгрейв Т. Принципы проектирования и разработки программного обеспечения.

5. Маклаков С.В. Создание информационных систем с All Fusion Modeling Suite.

6. Смирнова Г.Н., Сорокин А.А., Тельнов Ю.Ф. Проектирование экономических информационных систем.

7. Емельянов и др. «Основы программирования на Delphi». 2005г. с.232

8. Керман Митчелл К. «Программирование и отладка в Delphi. Учебный курс». 2004г. с.720

9. Колтунова Е. Требования к информационной системе и модели жизненного цикла.

10. Культин Н. «Основы программирования в Turbo Delphi». 2007г. с.384

11. Рубенкинг Н.Д. «Delphi для «чайников»». 2007г. с.336

12. Фаронов В.В. «Delphi. Программирование на языке высокого уровня: Учебник для вузов». 2004г. с.640

13. Фаронов В.В. «Система программирования Delphi. В подлиннике». 2003г. с.912

14. Дик В.В. Информационные системы в экономике: учебник

Фленов М.Е. «Библия Delphi». 2011г. с.880 (3-е издание)

15. 

Приложение

Код программы

DataModule4

unit Unit8;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TAvtorization = class(TForm)

Button1: TButton;

Button2: TButton;

Edit1: TEdit;

Edit2: TEdit;

procedure Button2Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Avtorization: TAvtorization;

implementation

uses Unit1, Unit2, Unit3, Unit4, Unit5, Unit6, Unit7;

{$R *.dfm}

procedure TAvtorization.Button2Click(Sender: TObject);

begin

Application.Terminate;

end;

procedure TAvtorization.Button1Click(Sender: TObject);

var

login, pass: string;

begin

login:='admin';

pass:='12345';

if (Edit1.Text=login) and (Edit2.Text=pass) then Agenstvo1.show else MessageBox(0, 'Пароль введен неверно!', 'Информация',MB_OK);

end;

procedure TAvtorization.FormCreate(Sender: TObject);

begin

end;

end.

Agenstvo1 - агентство недвижимости (Главное меню)

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Menus, StdCtrls, jpeg, ExtCtrls, ShellAPI;

type

TAgenstvo1 = class(TForm)

Image1: TImage;

Label1: TLabel;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

MainMenu1: TMainMenu;

N1: TMenuItem;

N11: TMenuItem;

N21: TMenuItem;

N31: TMenuItem;

N7: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

procedure Button5Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure N11Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure N21Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure N31Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure N7Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Agenstvo1: TAgenstvo1;

implementation

uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7;

{$R *.dfm}

procedure TAgenstvo1.Button5Click(Sender: TObject);

begin

Application.Terminate;

end;

procedure TAgenstvo1.N2Click(Sender: TObject);

begin

Application.Terminate;

end;

procedure TAgenstvo1.N5Click(Sender: TObject);

begin

MessageBox(0, 'Версия 0.1', 'Версия программы',MB_OK);

end;

procedure TAgenstvo1.N6Click(Sender: TObject);

begin

ShellExecute(0,'open','http://metr88.ru',nil,nil,Sw_Show);

end;

procedure TAgenstvo1.N4Click(Sender: TObject);

begin

Razrabotchik.Show;

end;

procedure TAgenstvo1.Button1Click(Sender: TObject);

begin

odno_komn.Show;

Agenstvo1.Hide;

end;

procedure TAgenstvo1.N11Click(Sender: TObject);

begin

odno_komn.Show;

Agenstvo1.Hide;

end;

procedure TAgenstvo1.Button2Click(Sender: TObject);

begin

dve_komn.Show;

Agenstvo1.Hide;

end;

procedure TAgenstvo1.N21Click(Sender: TObject);

begin

dve_komn.Show;

Agenstvo1.Hide;

end;

procedure TAgenstvo1.Button3Click(Sender: TObject);

begin

tri_komn.Show;

Agenstvo1.Hide;

end;

procedure TAgenstvo1.N31Click(Sender: TObject);

begin

tri_komn.Show;

Agenstvo1.Hide;

end;

procedure TAgenstvo1.Button4Click(Sender: TObject);

begin

komn.Show;

Agenstvo1.Hide;

end;

procedure TAgenstvo1.N7Click(Sender: TObject);

begin

komn.Show;

Agenstvo1.Hide;

end;

end.

Odno_komn 1-комнатные квартиры

unit Unit3;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids;

type

Todno_komn = class(TForm)

Button1: TButton;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

Button7: TButton;

RadioGroup1: TRadioGroup;

Button8: TButton;

Edit1: TEdit;

Button4: TButton;

Button5: TButton;

Button6: TButton;

procedure Button1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure Button7Click(Sender: TObject);

procedure Button8Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

odno_komn: Todno_komn;

implementation

uses Unit1, Unit2, Unit4;

{$R *.dfm}

procedure Todno_komn.Button1Click(Sender: TObject);

begin

odno_komn.Hide;

Agenstvo1.Show;

end;

procedure Todno_komn.FormCreate(Sender: TObject);

begin

DBGrid1.Columns[0].Width:=50;

DBGrid1.Columns[1].Width:=100;

DBGrid1.Columns[2].Width:=100;

DBGrid1.Columns[3].Width:=100;

DBGrid1.Columns[4].Width:=100;

DBGrid1.Columns[5].Width:=150;

DBGrid1.Columns[6].Width:=100;

end;

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.Button5Click(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.Button6Click(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;

end.

dve_komn 2-комнатные квартиры

unit Unit5;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls;

type

Tdve_komn = class(TForm)

Button1: TButton;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

Button7: TButton;

RadioGroup1: TRadioGroup;

Button8: TButton;

Edit1: TEdit;

Button4: TButton;

Button5: TButton;

Button6: TButton;

procedure Button1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure Button7Click(Sender: TObject);

procedure Button8Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

dve_komn: Tdve_komn;

implementation

uses Unit1, Unit2, Unit3, Unit4;

{$R *.dfm}

procedure Tdve_komn.Button1Click(Sender: TObject);

begin

Agenstvo1.show;

dve_komn.Hide;

end;

procedure Tdve_komn.FormCreate(Sender: TObject);

begin

DBGrid1.Columns[0].Width:=50;

DBGrid1.Columns[1].Width:=100;

DBGrid1.Columns[2].Width:=100;

DBGrid1.Columns[3].Width:=100;

DBGrid1.Columns[4].Width:=100;

DBGrid1.Columns[5].Width:=150;

DBGrid1.Columns[6].Width:=100;

end;

procedure Tdve_komn.Button4Click(Sender: TObject);

begin

DataModule4.ADOTable2.Filtered:=false;

DataModule4.ADOTable2.Filter:='Улица LIKE '+#39+Edit1.Text+'%'+#39;

if length(edit1.text)>0 then DataModule4.ADOTable2.Filtered:=true;

end;

procedure Tdve_komn.Button5Click(Sender: TObject);

begin

DataModule4.ADOTable2.Filtered:=false;

DataModule4.ADOTable2.Filter:='Телефон LIKE '+#39+Edit1.Text+'%'+#39;

if length(edit1.text)>0 then DataModule4.ADOTable2.Filtered:=true;

end;

procedure Tdve_komn.Button6Click(Sender: TObject);

begin

DataModule4.ADOTable2.Filtered:=false;

DataModule4.ADOTable2.Filter:='Планировка LIKE '+#39+Edit1.Text+'%'+#39;

if length(edit1.text)>0 then DataModule4.ADOTable2.Filtered:=true;

end;

procedure Tdve_komn.Button7Click(Sender: TObject);

begin

Case RadioGroup1.ItemIndex of

0:DataModule4.ADOTable2.Sort:='Планировка';

1:DataModule4.ADOTable2.Sort:='Улица';

2:DataModule4.ADOTable2.Sort:='Цена';

end;

end;

procedure Tdve_komn.Button8Click(Sender: TObject);

begin

DataModule4.ADOTable2.Sort:=''

end;

end.

tri_komn 3-комнатные квартиры

unit Unit6;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids;

type

Ttri_komn = class(TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

Button1: TButton;

Button7: TButton;

RadioGroup1: TRadioGroup;

Button8: TButton;

Edit1: TEdit;

Button4: TButton;

Button5: TButton;

Button6: TButton;

procedure Button1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure Button7Click(Sender: TObject);

procedure Button8Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

tri_komn: Ttri_komn;

implementation

uses Unit1, Unit2, Unit3, Unit4, Unit5, Unit7;

{$R *.dfm}

procedure Ttri_komn.Button1Click(Sender: TObject);

begin

Agenstvo1.Show;

tri_komn.Hide;

end;

procedure Ttri_komn.FormCreate(Sender: TObject);

begin

DBGrid1.Columns[0].Width:=50;

DBGrid1.Columns[1].Width:=100;

DBGrid1.Columns[2].Width:=100;

DBGrid1.Columns[3].Width:=100;

DBGrid1.Columns[4].Width:=100;

DBGrid1.Columns[5].Width:=150;

DBGrid1.Columns[6].Width:=100;

end;

procedure Ttri_komn.Button4Click(Sender: TObject);

begin

DataModule4.ADOTable3.Filtered:=false;

DataModule4.ADOTable3.Filter:='Улица LIKE '+#39+Edit1.Text+'%'+#39;

if length(edit1.text)>0 then DataModule4.ADOTable3.Filtered:=true;

end;

procedure Ttri_komn.Button5Click(Sender: TObject);

begin

DataModule4.ADOTable3.Filtered:=false;

DataModule4.ADOTable3.Filter:='Телефон LIKE '+#39+Edit1.Text+'%'+#39;

if length(edit1.text)>0 then DataModule4.ADOTable3.Filtered:=true;

end;

procedure Ttri_komn.Button6Click(Sender: TObject);

begin

DataModule4.ADOTable3.Filtered:=false;

DataModule4.ADOTable3.Filter:='Планировка LIKE '+#39+Edit1.Text+'%'+#39;

if length(edit1.text)>0 then DataModule4.ADOTable3.Filtered:=true;

end;

procedure Ttri_komn.Button7Click(Sender: TObject);

begin

Case RadioGroup1.ItemIndex of

0:DataModule4.ADOTable3.Sort:='Планировка';

1:DataModule4.ADOTable3.Sort:='Улица';

2:DataModule4.ADOTable3.Sort:='Цена';

end;

end;

procedure Ttri_komn.Button8Click(Sender: TObject);

begin

DataModule4.ADOTable3.Sort:=''

end;

end.

komn Комнаты

unit Unit7;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids;

type

Tkomn = class(TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

Button1: TButton;

Button7: TButton;

RadioGroup1: TRadioGroup;

Button8: TButton;

Edit1: TEdit;

Button4: TButton;

Button5: TButton;

Button6: TButton;

procedure Button1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure Button7Click(Sender: TObject);

procedure Button8Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

komn: Tkomn;

implementation

uses Unit1, Unit2, Unit3, Unit4, Unit5, Unit6;

{$R *.dfm}

procedure Tkomn.Button1Click(Sender: TObject);

begin

Agenstvo1.Show;

komn.Hide;

end;

procedure Tkomn.FormCreate(Sender: TObject);

begin

DBGrid1.Columns[0].Width:=50;

DBGrid1.Columns[1].Width:=100;

DBGrid1.Columns[2].Width:=100;

DBGrid1.Columns[3].Width:=100;

DBGrid1.Columns[4].Width:=100;

DBGrid1.Columns[5].Width:=150;

DBGrid1.Columns[6].Width:=100;

end;

procedure Tkomn.Button4Click(Sender: TObject);

begin

DataModule4.ADOTable4.Filtered:=false;

DataModule4.ADOTable4.Filter:='Улица LIKE '+#39+Edit1.Text+'%'+#39;

if length(edit1.text)>0 then DataModule4.ADOTable4.Filtered:=true;

end;

procedure Tkomn.Button5Click(Sender: TObject);

begin

DataModule4.ADOTable4.Filtered:=false;

DataModule4.ADOTable4.Filter:='Телефон LIKE '+#39+Edit1.Text+'%'+#39;

if length(edit1.text)>0 then DataModule4.ADOTable4.Filtered:=true;

end;

procedure Tkomn.Button6Click(Sender: TObject);

begin

DataModule4.ADOTable4.Filtered:=false;

DataModule4.ADOTable4.Filter:='Планировка LIKE '+#39+Edit1.Text+'%'+#39;

if length(edit1.text)>0 then DataModule4.ADOTable4.Filtered:=true;

end;

procedure Tkomn.Button7Click(Sender: TObject);

begin

Case RadioGroup1.ItemIndex of

0:DataModule4.ADOTable4.Sort:='Планировка';

1:DataModule4.ADOTable4.Sort:='Улица';

2:DataModule4.ADOTable4.Sort:='Цена';

end;

end;

procedure Tkomn.Button8Click(Sender: TObject);

begin

DataModule4.ADOTable4.Sort:='';

end;

end.

Razrabotchik О разработчике

unit Unit2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, jpeg, ExtCtrls;

type

TRazrabotchik = class(TForm)

Image1: TImage;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Razrabotchik: TRazrabotchik;

implementation

{$R *.dfm}

procedure TRazrabotchik.Button1Click(Sender: TObject);

begin

Razrabotchik.Hide;

end;

end.

Размещено на Allbest.ru

...