Проблемно-ориентированные программные комплексы

x:=parX;

dtCell[i]. y:=parY;

ADOQuery1.Recordset.MoveNext;

end;

cols:=cols+1; // получаем количество столбцов

rows:=rows+1; // и количество строк

except

application.MessageBox ('Не могу выполнить запрос', 'Ошибка', MB_OK);

exit;

end;

StringGrid1.RowCount:=rows+1; // устанавливаем размеры таблицы

StringGrid1.ColCount:=cols+1; // с учетом заголовков

for k:=0 to count-1 do // разворачиваем результат

begin; // в прямоугольную форму

for j:=0 to cols-1 do // находим координату по горизонтали

if dtCell[k]. x = axeX[j] then

break;

for i:=0 to rows-1 do // находим координату по вертикали

if dtCell[k]. y = axeY[i] then

break;

// вписываем данные в ячейку

StringGrid1.Cells[j+1,i+1]: =Format ('%f',[dtCell[k].data]);

end;

for i:=0 to cols-1 do // формируем заголовки столбцов

begin;

header:='';

if RadioButton7. Checked then // по горизонтали выбран период

begin; // разбираем дату

month:=axeX[i] mod 100;

quorter:=(axeX[i] div 100) mod 100;

year:=axeX[i] div 10 000;

for j:=0 to length (years)-1 do

if year = years[j]. id then // находим год

begin;

if month <> 0 then // месяц задан

begin;

for l:=0 to length (months)-1 do

if month = months[l]. id then // находим месяц

begin;

header:=header+months[l]. name+' ';

break;

end;

end

else // месяц не задан

begin;

for k:=1 to length (quorters)-1 do

if quorter = quorters[k]. id then // находим квартал

begin;

header:=header+quorters[k]. name+' ';

break;

end;

end;

header:=header+years[j]. name;

break;

end;

end

else if RadioButton8. Checked then // по горизонтали выбран адрес

begin;

if RadioButton4. Checked then // уровень детализации — улица

begin;

for j:=1 to length (streets)-1 do

if axeX[i] = streets[j]. id then // находим улицу

begin;

header:=header+streets[j]. name;

break;

end;

end

else if RadioButton5. Checked then // уровень детализации — дом

begin;

for j:=0 to length (allhouses)-1 do

if axeX[i] = allhouses[j]. id then // находим дом

begin;

for k:=1 to length (streets)-1 do // находим улицу

if allhouses[j]. parent_id = streets[k]. id then

begin;

header:=header+streets[k]. name;

break;

end;

header:=header+', д.'+allhouses[j]. name;

break;

end;

end

else // уровень детализации — квартира

begin;

for l:=0 to length (allapps)-1 do

if axeX[i] = allapps[l]. id then // находим квартиру

begin;

for j:=0 to length (allhouses)-1 do // находим дом

if allapps[l]. parent_id = allhouses[j]. id then

begin;

for k:=1 to length (streets)-1 do // находим улицу

if allhouses[j]. parent_id = streets[k]. id then

begin;

header:=header+streets[k]. name;

break;

end;

header:=header+', д.'+allhouses[j]. name;

break;

end;

header:=header+', кв.'+allapps[l]. name;

break;

end;

end;

end

else if radioButton9. Checked then // по горизонтали выбран платежный агент

begin;

for j:=1 to length (agents)-1 do

if axeX[i] = agents[j]. id then // находим агента

begin;

header:=agents[j]. name;

break;

end;

end

else // по горизонтали выбран вид платежа

for j:=1 to length (categories)-1 do

if axeX[i] = categories[j]. id then // находим вид платежа

begin;

header:=categories[j]. name;

break;

end;

StringGrid1.Cells[i+1,0]: =header; // выводим сформированный заголовок

end;

for i:=0 to rows-1 do // формируем заголовки строк

begin;

header:='';

if RadioButton11. Checked then // по вертикали выбран период

begin;

month:=axeY[i] mod 100; // разбираем дату

quorter:=(axeY[i] div 100) mod 100;

year:=axeY[i] div 10 000;

for j:=0 to length (years)-1 do

if year = years[j]. id then // находим год

begin;

if month <> 0 then // месяц задан

begin;

for l:=0 to length (months)-1 do

if month = months[l]. id then // находим месяц

begin;

header:=header+months[l]. name+' ';

break;

end;

end

else // месяц не задан

begin;

for k:=1 to length (quorters)-1 do

if quorter = quorters[k]. id then // находим квартал

begin;

header:=header+quorters[k]. name+' ';

break;

end;

end;

header:=header+years[j]. name;

break;

end;

end

else if RadioButton12. Checked then // по вертикали выбран период

begin;

if RadioButton4. Checked then // уровень детализации — улица

begin;

for j:=1 to length (streets)-1 do

if axeY[i] = streets[j]. id then // находим улицу

begin;

header:=header+streets[j]. name;

break;

end;

end

else if RadioButton5. Checked then // уровень детализации — дом

begin;

for j:=0 to length (allhouses)-1 do

if axeY[i] = allhouses[j]. id then // находим дом

begin;

for k:=1 to length (streets)-1 do // находим улицу

if allhouses[j]. parent_id = streets[k]. id then

begin;

header:=header+streets[k]. name;

break;

end;

header:=header+', д.'+allhouses[j]. name;

break;

end;

end

else // уровень детализации — квартира

begin;

for l:=0 to length (allapps)-1 do

if axeY[i] = allapps[l]. id then // находим квартиру

begin;

for j:=0 to length (allhouses)-1 do // находим дом

if allapps[l]. parent_id = allhouses[j]. id then

begin;

for k:=1 to length (streets)-1 do // находим улицу

if allhouses[j]. parent_id = streets[k]. id then

begin;

header:=header+streets[k]. name;

break;

end;

header:=header+', д.'+allhouses[j]. name;

break;

end;

header:=header+', кв.'+allapps[l]. name;

break;

end;

end;

end

else if radioButton13. Checked then // по вертикали выбран платежный агент

begin;

for j:=1 to length (agents)-1 do

if axeY[i] = agents[j]. id then // находим агента

begin;

header:=agents[j]. name;

break;

end;

end

else // по вертикали выбран вид платежа

for j:=1 to length (categories)-1 do

if axeY[i] = categories[j]. id then // находим вид платежа

begin;

header:=categories[j]. name;

break;

end;

StringGrid1.Cells[0,i+1]: =header; // выводим заголовок в таблицу

end;

for i:=0 to StringGrid1. ColCount-1 do // регулируем ширину столбцов

begin // по содержимому

MaxWidth:=0;

for j:=0 to StringGrid1. RowCount-1 do

if Canvas. TextWidth (StringGrid1.Cells[i, j]) > MaxWidth then

MaxWidth:=Canvas.TextWidth (StringGrid1.Cells[i, j]);

StringGrid1.ColWidths[i]: =MaxWidth+5;

end;

end;

end.