Курсовая работа: Информационно-аналитическая система "MTTS"

dd.Query2.Filtered:=false;

end;

end;

if pole.ItemIndex=2 then

begin

dd.Query2.Filtered:=false;

dd.Query2.Filter:='TARprice'+ysl.Text+''''+text.Text+'''';

dd.Query2.Filtered:=true;

if dd.Query2.RecordCount=0 then

begin

showmessage('Не найдено ни одной записи'+#13+'Нет смысла фильтровать');

dd.Query2.Filtered:=false;

end;

end;

sp.Panels[0].Text:='Результат фильтрации: '+floattostr(dd.Query2.RecordCount)+' зап.';

end;

end;

2.8. Создание отчета

По данной таблице создан отчет «Список абонентов». Для создания отчета нужно выбрать вкладку Rave компоненты RVProject, RTF и RVDataSetConection. На компоненте RVDataSetConection свойство DataSet нужно выбрать ту таблицу, которая должна быть представлена в виде отчета. После этого: Tools – RaveDesigner – File – NewDataObject – DirectDataNiew – Finish. Tools – Report Wieardz – Simple Table – Next – All – Next – Geniered. Нужно изменить шрифт, форматировать отчет, сохранить. RVProject – ProjectFile – название отчета.

В меню «Сервис» можно просмотреть отчет.

Программадлязапускаотчета:

procedure Tdd.N32Click(Sender: TObject);

begin

dd.RvProject1.Execute;

end;

2.9. Изменение цвета формы и изменение шрифта

В меню «Формат» можно изменить цвет формы и изменить шрифт.

Программа для выполнения изменений цвета формы: