Отчет «Поставки»
Задание: нужно создать отчет
«Поставки» по базе данных «Optovaya baza.gdb»,
используя набор компонентов «Rave»
в системе разработки «Дельфи 7». Сама база «Optovaya baza.gdb» создана в СУБД «Interbase 6.5» и имеет следующий набор таблиц: Edinici_Izmereniya,
Kategorii,
Postavki,
Postavshiki,
Tovari.
Запускаем «Дельфи 7», создаем новый проект, на форму приложения перетаскиваем компоненты для подключения к базе данных: IBDataBase, IBTransAction, IBQuery. Конфигурируем компоненты между собой. В Компонент «IBQuery1», в свойство «SQL» помещаем запрос.
|
SELECT
P1.Data, T.Nazvanie, P1.Kolichestvo,
P2.Organizaciya FROM Postavki P1 LEFT JOIN Tovari T ON
P1.Kod_Tovara=T.Kod_Tovara LEFT JOIN Postavshiki
P2 ON
P1.Kod_Postavshika=P2.Kod_Postavshika |
Далее для создания отчета
перетаскиваем с закладки «Rave»
следующие компоненты: RvProject, RvSystem, RvDataSetConnection. Последний связываем с компонентом «IBQuery1».
После этого идем в главное меню программы «Дельфи 7» и вызываем редактор отчетов, выбрав в главном меню «Tools – Rave Designer». Затем создаем отчет.
Рис. 1. Отчет в редакторе отчетов
Далее, для вызова отчета из приложения, нужно в обработчике события кнопки прописать код.
|
Procedure
TForm1.Button1Click(Sender: TObject); Begin IBQuery1.Active:=True;
RvProject1.ProjectFile:='C:\RAVE\Поставки.rav';
RvProject1.Open; Try
RvProject1.Execute; Finally
RvProject1.Close; End; End; |
Теперь
можно запустить приложение и проверить отчет.
Рис. 2. Отчет «Поставки»
База данных, компании и юр. лица г. Орел
База данных предприятий Бор (1376 адресов)