117
Ssquare:=ArraySquare[i];
for j:=i+1 to n+1 do
begin
if (ArrayData[i]=ArrayData[j]) and (ArrayData[i]<>'') then
begin
Sdata:=Sdata+1;
ArrayData[j]:='';
Scost:=Scost+ArrayCost[j];
Ssquare:=Ssquare+ArraySquare[j];
end;
end;
table31CostKvm.Value:=Scost/(Ssquare);
table31.Post;
table31.Next;
end;
end;
DbChart1.Series[0].Clear;
with Series1 do
begin
table31.First;
for i:=1 to table31.recordCount do
begin
DBChart1.Series[0].Add( table31CostKvm.Value,table31Data.AsString,
clRed);
,
table31.Next;
end;
end;
table31.Last;
for i:=table31.RecordCount downto 1 do table31.Delete;
end;
1:begin
groupbox81.Caption:='Домa';
Query10.SQL.Clear;
Query10.SQL.Add('SELECT Data,Cost,TotalSquare FROM Домa WHERE
(Operation=''Продaжa'')and (City=''Невинномысск'') ');
Query10.Open;
Query10.First;
n:=Query10.recordCount;
for i:=1 to Query10.recordCount do
begin
ArrayData[i]:=DateToStr(query10Data.Value);
ArrayCost[i]:=query10Cost.Value;
ArraySquare[i]:=query10TotalSquare.Value;
query10.Next;
end;
118
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];
Ssquare:=ArraySquare[i];
for j:=i+1 to n+1 do
begin
if (ArrayData[i]=ArrayData[j]) and (ArrayData[i]<>'') then
begin
Sdata:=Sdata+1;
ArrayData[j]:='';
Scost:=Scost+ArrayCost[j];
Ssquare:=Ssquare+ArraySquare[j];
end;
end;
table31CostKvm.Value:=Scost/(Ssquare);
table31.Post;
table31.Next;
end;
end;
DbChart1.Series[0].Clear;
with Series1 do
begin
table31.First;
for i:=1 to table31.recordCount do
begin
DBChart1.Series[0].Add( table31CostKvm.Value,table31Data.AsString,
clRed);
table31.Next;
end;
end;
table31.Last;
for i:=table31.RecordCount downto 1 do table31.Delete;
end;
2:begin
groupbox81.Caption:='Гaрaжи';
Query11.SQL.Clear;
Query11.SQL.Add('SELECT Data,Cost,Square FROM Гaрaжи WHERE
(Operation=''Продaжa'') and (City=''Невинномысск'') ');
Query11.Open;
119
Query11.First;
n:=Query11.recordCount;
for i:=1 to Query11.recordCount do
begin
ArrayData[i]:=DateToStr(query11Data.Value);
ArrayCost[i]:=query11Cost.Value;
ArraySquare[i]:=query11Square.Value;
query11.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];
Ssquare:=ArraySquare[i];
for j:=i+1 to n+1 do
begin
if (ArrayData[i]=ArrayData[j]) and (ArrayData[i]<>'') then
begin
Sdata:=Sdata+1;
ArrayData[j]:='';
Scost:=Scost+ArrayCost[j];
Ssquare:=Ssquare+ArraySquare[j];
end;
end;
table31CostKvm.Value:=Scost/(Ssquare);
table31.Post;
table31.Next;
end;
end;
DbChart1.Series[0].Clear;
with Series1 do
begin
table31.First;
for i:=1 to table31.recordCount do
begin
DBChart1.Series[0].Add( table31CostKvm.Value,table31Data.AsString,
clRed);
table31.Next;
end;
end;
table31.Last;
120
for i:=table31.RecordCount downto 1 do table31.Delete;
end;
3:begin
groupbox81.Caption:='Коммерческaя недвижимость';
Query12.SQL.Clear;
Query12.SQL.Add('SELECT Data,Cost,Square FROM Комм WHERE
(Operation=''Продaжa'')and (City=''Невинномысск'') ');
Query12.Open;
Query12.First;
n:=Query12.recordCount;
for i:=1 to Query12.recordCount do
begin
Продолжение приложения 5
ArrayData[i]:=DateToStr(query12Data.Value);
ArrayCost[i]:=query12Cost.Value;
ArraySquare[i]:=query12Square.Value;
query12.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];
Ssquare:=ArraySquare[i];
for j:=i+1 to n+1 do
begin
if (ArrayData[i]=ArrayData[j]) and (ArrayData[i]<>'') then
begin
Sdata:=Sdata+1;
ArrayData[j]:='';
Scost:=Scost+ArrayCost[j];
Ssquare:=Ssquare+ArraySquare[j];
end;
end;
table31CostKvm.Value:=Scost/(Ssquare);
table31.Post;
table31.Next;
end;
end;
DbChart1.Series[0].Clear;
with Series1 do
121
begin
table31.First;
for i:=1 to table31.recordCount do
begin
DBChart1.Series[0].Add( table31CostKvm.Value,table31Data.AsString,
clRed);
table31.Next;
end;
end;
table31.Last;
for i:=table31.RecordCount downto 1 do table31.Delete;
end;
end;
end.