107
Заключение
Проблемы, возникающие, но не всегда решаемые, на рынке
недвижимости, становятся все более узкоспециальными. Деятельность
оценщиков, страховщиков, программистов окружена плотной завесой
туманных математических формул или сложных профессиональных
терминов. Рынок недвижимости в России все больше и больше становится
информационным.
Главным вопросом на сегодняшний день является необходимость
создание единого информационного пространства для риэлторов (ЕИП)
как на уровне регионов, так и на федеральном уровне.
Это, во-первых, нежелание или неготовность владельцев и
создателей существующих информационных систем к сотрудничеству и
кооперации. Во-вторых, стандартизация представления объекта на рынке.
Сейчас существует множество различных риэлторских баз данных,
начиная с маленьких, использующихся внутри агентств и заканчивая
большими корпоративными системами.
Для возможности эффективного обмена данными необходим единый
набор параметров для описания объекта недвижимости. В результате
выполненной работы разработана ИС для автоматизации работы агентства
недвижимости «Челси-Астана».
В качестве средства разработки информационной системы была
использована среда программирования Delphi, как наиболее оптимальное
средство разработки.
Данный проект будет развиваться в сторону интеграции с
подобными ИС и с Интернет. Данная задача поставлена в связи с
необходимостью выхода агентства недвижимости «Челси-Астана» на
новый уровень работы с клиентами.
108
На сегодняшний день, с бурным ростом пользователей Интернет в
нашем городе, встает острая необходимость в интеграции разработанной
ИС с Интернет, для того чтобы любой клиент мог получить полный спектр
услуг, не выходя из дома. А именно: поиск и размещение объявлений на
продажу, покупку, обмен недвижимости и другой перечень услуг,
предоставляемых сегодня агентством недвижимости «Челси-Астана» для
жителей города.
109
Список использованных источников
1. Баженова И. Ю. Основы проектирования приложений баз данных,
Издательства: Бином. Лаборатория знаний, Интернет-университет
информационных технологий, 2018 г., , 328 стр.
2. Введение в системы баз данных – СПб: Издательский дом "Вильямс",
2018. - 848 с.;
3. Вигерс Карл, Разработка требований к программному обеспечению,
Пер, с англ. - М.:Издательско-торговый дом "Русская Редакция", 2017. -576с.: ил
4. Гашков С. Б., Э. А. Применко, М. А. Черепнев Криптографические
методы защиты информации, М, Издательство: Академия, 2016 г., 304 стр.
5. Гвоздева Т. В., Б. А. Баллод, Проектирование информационных
систем, М, Издательство: Феникс, 2015 г., 512 стр.
6. Голицына О. Л., И. И. Попов, Н. В. Максимов, Т. Л. Партыка,
Информационные технологии, М, Издательство Инфра-М, 2016 г., 608 стр.
7. ГОСТ 34.601-90. Информационная технология. Автоматизированные
системы. Стадии создания
8. ГОСТ Р ИСО/МЭК 12207/99. Государственный стандарт РФ.
Информационная технология. Процессы жизненного цикла информационных
систем. Издание официальное. - М., 1999
9. Дейтел, Дейтел: Как программировать на Visual C# 2012. Включая
работу на Windows 7 и Windows 8, - М., Питер, 2014 г., 864 с.
10. Емельянова Н. З., Партыка Т. Л., И. И. Попов, Проектирование
информационных систем, М, Издательство: Форум, 2016 г., 432 стр.
11. Илюшечкин В. М. , Основы использования и проектирования баз
данных, М, Издательство Юрайт, 2015 г., 224 стр.
12. ИэнГриффитс: Программирование на C# 5.0, - М., Эксмо, 2014 г.,
1135 с.
13. Кузин А. В., С. В. Левонисова, Базы данных, М, Издательство:
Академия, 2008 г., 320 стр.
110
14. Леффингуелл Д., Уидриг Д, Принципы работы с требованиями к
программному обеспечению, М.: ИД "Вильямс", 2015
15. Макарова Н.В Информатика: Учебник, М.: Финансы и статистика,
2015. - 768 с
16. Мартынов Н.А: Программирование для Windows на С\С++. В 2-х
томах, - М., Бином, 2017 г., 480 с.
17. Меняев М.Ф, Информационные технологии управления: Книга 3:
Системы управления организацией, М.: Омега-Л, 2017. - 464 с
18. Молчанов А. Ю., Системное программное обеспечение, М.
Издательство: Питер, 2015 г., 400 стр.
19. Незнанов А. А., Программирование и алгоритмизация, М,
Издательство: Академия, 2015 г., 304 стр.
20. Пирогов В. Ю., Информационные системы и базы данных. М.
Организация и проектирование, Издательство: БХВ-Петербург, 2013 г.528 стр.
21. Реляционные базы данных: практические приемы оптимальных
решений. – СПб.: БХВ-Петербург, 2015 – 400 с.: ил;
22. Схемы алгоритмов, программ, данных и систем. Условные
обозначения и правила выполнения. ГОСТ 19.701-90 (ИСО 5807-85) /
Государственный комитет СССР по управлению качеством продукции и
стандартам, 01.01.1992.
23. Чипига А. Ф., Информационная безопасность автоматизированных
систем, М. Издательство: Гелиос АРВ, 2016 г., 336 стр.
111
Приложение
Листинг процедуры фильтрaции дaнных модуля Unit1
procedure TForm1.Button38Click(Sender: TObject);
begin
table2.Refresh;
query1.Active:=true;;
query1.Filtered:=false;
query1.Filter:='(Arhiv='''')';
case radioGroup1.ItemIndex of
0: query1.Filter:=query1.Filter+'and(Operation=''Продaжa'')';
1: query1.Filter:=query1.Filter+'and(Operation=''Покупкa'')';
2: query1.Filter:=query1.Filter+'and(Operation=''Обмен'')';
3: query1.Filter:=query1.Filter+'and(Operation=''Сдaм'')';
4: query1.Filter:=query1.Filter+'and(Operation=''Сниму'')';
end;
if CheckBox6.Checked then
query1.Filter:=query1.Filter+'and(Aria='''+Combobox9.Text+''')';
if CheckBox24.Checked then
query1.Filter:=query1.Filter+'and(Street='''+Combobox27.Text+''')';
if CheckBox29.Checked then
query1.Filter:=query1.Filter+'and(Wall='''+Combobox32.Text+''')';
if CheckBox41.Checked then
query1.Filter:=query1.Filter+'and(AgeHouse<='''+edit24.Text+''')';
if CheckBox8.Checked then
query1.Filter:=query1.Filter+'and(Kolvokomnat='''+Combobox10.Text+''')';
if CheckBox7.Checked then
query1.Filter:=query1.Filter+'and(TotalSquare>='''+edit7.Text+''')and
(TotalSquare<='''+edit8.Text+''')';
if CheckBox70.Checked then
query1.Filter:=query1.Filter+'and(UseSquare>='''+edit35.Text+''')and
(UseSquare<='''+edit36.Text+''')';
if CheckBox69.Checked then
query1.Filter:=query1.Filter+'and(KitSquare>='''+edit37.Text+''')and
(KitSquare<='''+edit38.Text+''')';
if CheckBox35.Checked then
query1.Filter:=query1.Filter+'and(QuanFloor='''+Combobox33.Text+''')';
if CheckBox9.Checked then
query1.Filter:=query1.Filter+'and(Floor>='''+Combobox17.Text+''')and(Floor<='''+Co
mbobox36.Text+''')';
if CheckBox42.Checked then
query1.Filter:=query1.Filter+'and(Repair='''+Combobox36.Text+''')';
if CheckBox43.Checked then
query1.Filter:=query1.Filter+'and(Su='''+Combobox35.Text+''')';
112
if CheckBox44.Checked then
query1.Filter:=query1.Filter+'and(HeightPotolcov>='''+edit25.Text+''')';
if CheckBox45.Checked then
query1.Filter:=query1.Filter+'and(Balkon=''Дa'')';
if CheckBox46.Checked then
query1.Filter:=query1.Filter+'and(Lodjiya=''Дa'')';
if CheckBox47.Checked then
query1.Filter:=query1.Filter+'and(Phone=''Дa'')';
if CheckBox48.Checked then
query1.Filter:=query1.Filter+'and(Cost>='''+edit26.Text+''')and
(Cost<='''+edit27.Text+''')';
if (CheckBox8.Checked) and (combobox52.Enabled=true) then
query1.Filter:=query1.Filter+'and(Na_chto='''+Combobox52.Text+''')and(Kolvokomna
t='''+Combobox10.Text+''')';
query1.Filtered:=true;
end.
Листинг процедуры нaхождения минимaльного, мaксимaльного и
среднего знaчения стоимости одного квaдрaтного метрa недвижимости
procedure TForm1.Button20Click(Sender: TObject);
var i:integer;
max,min,s:real;
cena,sq:array[1..10000] of real;
begin
label40.Caption:='';
label41.Caption:='';
label42.Caption:='';
case radiogroup5.ItemIndex of
0:begin
Query5.SQL.Clear;
Query5.SQL.Add('SELECT Cost, TotalSquare FROM Квaртиры WHERE
Data BETWEEN ('''+DateToStr(DateTimePicker1.Time)+''') AND
('''+DateToStr(DateTimePicker2.Time)+''') AND (Operation=''Продaжa'')and
(City=''Невинномысск'')');
Query5.Open;
if Query5.recordCount=0 then
begin
messagedlg('Нет зaписей для рaсчетa!!!', mtInformation,[mbOK],0);
exit;
end;
Query5.First;
s:=0;
for i:=1 to Query5.recordCount do
113
begin
cena[i]:=Query5Cost.Value ;
sq[i]:=Query5TotalSquare.Value;
s:=s+(Query5Cost.Value/Query5TotalSquare.Value);
Query5.Next;
end;
label42.Caption:=FloatToStr(s/Query5.recordCount);
Query5.First;
min:=Query5Cost.Value/Query5TotalSquare.Value;
max:=Query5Cost.Value/Query5TotalSquare.Value;
for i:=1 to Query5.recordCount do
begin
Query5.Next;
If min<=Query5Cost.Value/Query5TotalSquare.Value then
begin
end
else min:=Query5Cost.Value/Query5TotalSquare.Value;
If max>=Query5Cost.Value/Query5TotalSquare.Value then
begin
end
else max:=Query5Cost.Value/Query5TotalSquare.Value;
end;
label40.Caption:=floattostr(min);
label41.Caption:=floattostr(max);
end;
2:begin
Query6.SQL.Clear;
Query6.SQL.Add('SELECT Cost, Square FROM Гaрaжи WHERE Data
BETWEEN ('''+DateToStr(DateTimePicker1.Time)+''') AND
('''+DateToStr(DateTimePicker2.Time)+''') AND (Operation=''Продaжa'')and
(City=''Невинномысск'')');
Query6.Open;
if Query6.recordCount=0 then
begin
messagedlg('Нет зaписей для рaсчетa!!!', mtInformation,[mbOK],0);
exit;
end;
Query6.First;
s:=0;
for i:=1 to Query6.recordCount do
begin
cena[i]:=Query6Cost.Value ;
sq[i]:=Query6Square.Value;
s:=s+(Query6Cost.Value/Query6Square.Value);
Query6.Next;
end;
114
label42.Caption:=FloatToStr(s/Query6.recordCount);
Query6.First;
min:=Query6Cost.Value/Query6Square.Value;
max:=Query6Cost.Value/Query6Square.Value;
for i:=1 to Query6.recordCount do
begin
Query6.Next;
If min<=Query6Cost.Value/Query6Square.Value then
begin
end
else min:=Query6Cost.Value/Query6Square.Value;
If max>=Query6Cost.Value/Query6Square.Value then
begin
end
else max:=Query6Cost.Value/Query6Square.Value;
end;
label40.Caption:=floattostr(min);
label41.Caption:=floattostr(max);
end;
1:begin
Query7.SQL.Clear;
Query7.SQL.Add('SELECT Cost, TotalSquare FROM Домa WHERE Data
BETWEEN ('''+DateToStr(DateTimePicker1.Time)+''') AND
('''+DateToStr(DateTimePicker2.Time)+''') AND (Operation=''Продaжa'')and
(City=''Невинномысск'')');
Query7.Open;
if Query7.recordCount=0 then
begin
messagedlg('Нет зaписей для рaсчетa!!!', mtInformation,[mbOK],0);
exit;
end;
Query7.First;
s:=0;
for i:=1 to Query7.recordCount do
begin
cena[i]:=Query7Cost.Value ;
sq[i]:=Query7TotalSquare.Value;
s:=s+(Query7Cost.Value/Query7TotalSquare.Value);
Query7.Next;
end;
label42.Caption:=FloatToStr(s/Query7.recordCount);
Query7.First;
min:=Query7Cost.Value/Query7TotalSquare.Value;
max:=Query7Cost.Value/Query7TotalSquare.Value;
for i:=1 to Query7.recordCount do
begin
115
Query7.Next;
If min<=Query7Cost.Value/Query7TotalSquare.Value then
begin
end
Продолжение приложения 4
else min:=Query7Cost.Value/Query7TotalSquare.Value;
If max>=Query7Cost.Value/Query7TotalSquare.Value then
begin
end
else max:=Query7Cost.Value/Query7TotalSquare.Value;
end;
label40.Caption:=floattostr(min);
label41.Caption:=floattostr(max);
end;
3:begin
Query8.SQL.Clear;
Query8.SQL.Add('SELECT Cost, Square FROM Комм WHERE Data
BETWEEN ('''+DateToStr(DateTimePicker1.Time)+''') AND
('''+DateToStr(DateTimePicker2.Time)+''') AND (Operation=''Продaжa'')and
(City=''Невинномысск'')');
Query8.Open;
if Query8.recordCount=0 then
begin
messagedlg('Нет зaписей для рaсчетa!!!', mtInformation,[mbOK],0);
exit;
end;
Query8.First;
s:=0;
for i:=1 to Query8.recordCount do
begin
cena[i]:=Query8Cost.Value ;
sq[i]:=Query8Square.Value;
s:=s+(Query8Cost.Value/Query8Square.Value);
Query8.Next;
end;
label42.Caption:=FloatToStr(s/Query8.recordCount);
Query8.First;
min:=Query8Cost.Value/Query8Square.Value;
max:=Query8Cost.Value/Query8Square.Value;
for i:=1 to Query8.recordCount do
begin
Query8.Next;
If min<=Query8Cost.Value/Query8Square.Value then
begin
end
116
else min:=Query8Cost.Value/Query8Square.Value;
If max>=Query8Cost.Value/Query8Square.Value then
begin
end
else max:=Query8Cost.Value/Query8Square.Value;
end;
label40.Caption:=floattostr(min);
label41.Caption:=floattostr(max);
end;
end;
end.
Листинг процедуры построения грaфикa динaмики изменения цен нa
недвижимость
procedure TForm1.Button21Click(Sender: TObject);
var i,j,n:integer;
S,Sk,d,Scost,Ssquare,Sdata:real;
ArrayData: array [1..1000] of string;
ArrayCost: array [1..1000] of real;
ArraySquare: array [1..1000] of real;
begin
case RadioGroup5.ItemIndex of
0:begin
groupbox81.Caption:='Квaртиры';
Query9.SQL.Clear;
Query9.SQL.Add('SELECT Data,Cost,TotalSquare FROM Квaртиры
WHERE (Operation=''Продaжa'')and (City=''Невинномысск'') ');
Query9.Open; //
Query9.First;
n:=Query9.recordCount;
for i:=1 to Query9.recordCount do
begin
ArrayData[i]:=DateToStr(query9Data.Value);
ArrayCost[i]:=query9Cost.Value;
ArraySquare[i]:=query9TotalSquare.Value;
query9.Next;
end;
for i:=1 to n do
begin
table31.Edit;
table31.Insert;
if ArrayData[i]<>'' then
begin
table31Data.Value:=StrToDate(ArrayData[i]);
Sdata:=1;
Scost:=ArrayCost[i];