Отчет Rave Report Delphi 7

@Shura_deg · Регистрация: 01.02.2015

Студворк — интернет-сервис помощи студентам

отчет rave report delphi 7, программным путём , в интернете много инфы про QuickReports (delphi 6 ), а нужно именно rave reports, может укого то есть готовый образец?? или пример хотя бы как делать?
разобрался как чисто выводить на печать данные из таблицы при помощи RvProject, RvSystem, RvDataSetConnection
Нужно что бы отчёт печатало исходя из данных талицы например DBGRID, который в свою очередь подключён к DAtaSorce которая подключена к ADOTAble - AdoConnection

@xxbesoxx · 02.11.2015, 21:28

Сообщение от Shura_deg

может укого то есть готовый образец??

Смотрите суда http://delphicode.org/database/rave_report_ado.htm

@Shura_deg · 05.11.2015, 00:04 **[ТС]**

дело в том что у меня delphi 7
на что поменять with Sender as TBaseReport do

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
procedure TfDM.RvSystem1AfterPrint(Sender: TObject);
  begin
     with Sender as TBaseReport do
      begin
        NewLine;
          SetFont('Arial',18);
          FontColor := clBlue;
          Print(' Employee - Rave Report');
          NewLine;
          NewLine;
          ClearTabs;
 
          SetTab(0.5, pjLeft, 1.0, 0, 0, 0);
          SetTab(1.0, pjLeft, 2.0, 0, 0, 0);
          SetTab(2.0, pjLeft, 2.0, 0, 0, 0);
          SetTab(3.0, pjLeft, 2.0, 0, 0, 0);
          SetTab(4.0, pjLeft, 2.0, 0, 0, 0);
          SetTab(5.0, pjLeft, 2.0, 0, 0, 0);
 
          SetFont('Arial', 10);
          Bold := True;
 
          PrintTab('IdTovara');
          PrintTab('Model');
          PrintTab('Brend');
          PrintTab('Vid');
          PrintTab('Tip');
          PrintTab('Ctoimost');
 
          Bold := False;
          NewLine;
          ADOTable1.Open;
          ADOTable1.first;
 
            while not ADOTable1.Eof do
               begin
                  Printtab(ADOTable1.FieldByName('IdTovara').Text);
                  Printtab(ADOTable1.FieldByName('Model').Text);
                  Printtab(ADOTable1.FieldByName('Brend').Text);
                  Printtab(ADOTable1.FieldByName('Vid').Text);
                  Printtab(ADOTable1.FieldByName('Tip').Text);
                  Printtab(ADOTable1.FieldByName('Ctoimost').Text);
                  newline;
                  ADOTable1.Next;
                    if (LinesLeft < 3) and (not fDM.TTovarMainData.Eof) then
                       begin
                         NewPage;
                       end;
               end;
        end;
end;

Добавлено через 2 минуты
здесь тоже предупреждение выбивает
FontColor := clBlue;

@xxbesoxx · 05.11.2015, 00:11

Сообщение от Shura_deg

на что поменять with Sender as TBaseReport do

Почему вы хотите поменять ?

@Shura_deg · 05.11.2015, 00:37 **[ТС]**

переписал код
получился вот такой

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
procedure TfDM.RvSystem1AfterPrint(Sender: TObject);
  begin
     with Sender as TBaseReport do
      begin
        NewLine;
          SetFont('Arial',18);
          //FontColor := clBlue;
          Print(' Employee - Rave Report');
          NewLine;
          NewLine;
          ClearTabs;
 
          SetTab(0.5, pjLeft, 1.0, 0, 0, 0);
          SetTab(1.0, pjLeft, 2.0, 0, 0, 0);
          SetTab(2.0, pjLeft, 2.0, 0, 0, 0);
          SetTab(3.0, pjLeft, 2.0, 0, 0, 0);
          SetTab(4.0, pjLeft, 2.0, 0, 0, 0);
          SetTab(5.0, pjLeft, 2.0, 0, 0, 0);
 
          SetFont('Arial', 10);
          Bold := True;
 
          PrintTab('IdTovara');
          PrintTab('Model');
          PrintTab('Brend');
          PrintTab('Vid');
          PrintTab('Tip');
          PrintTab('Ctoimost');
 
          Bold := False;
          NewLine;
          fDM.TTovarMainData.Open;
          fDM.TTovarMainData.first;
 
            while not fDM.TTovarMainData.Eof do
               begin
                  Printtab(fDM.TTovarMainData.FieldByName('IdTovara').Text);
                  Printtab(fDM.TTovarMainData.FieldByName('Model').Text);
                  Printtab(fDM.TTovarMainData.FieldByName('Brend').Text);
                  Printtab(fDM.TTovarMainData.FieldByName('Vid').Text);
                  Printtab(fDM.TTovarMainData.FieldByName('Tip').Text);
                  Printtab(fDM.TTovarMainData.FieldByName('Ctoimost').Text);
                  newline;
                  fDM.TTovarMainData.Next;
                    if (LinesLeft < 3) and (not fDM.TTovarMainData.Eof) then
                       begin
                         NewPage;
                       end;
               end;
        end;
end;

на строке 9

Delphi
1
 NewLine;

выдаёт такую ошибку

Скандербег · 05.11.2015, 05:25

Если внимательно присмотреться, то в статье говориться об обработчике OnPrint, а не AfterPrint.
В AfterPrint этот код, разумеется, даст ошибки.

@Shura_deg · 05.11.2015, 11:30 **[ТС]**

заработало! а можно ли как то это сделать более униврсальным (в плане из нескольких таблиц выводилось) типа как я делал по отчёту в Excel(естественно с вашей помощью) вот тот код

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
procedure TForm1.Button3Click(Sender: TObject);
var
  XLApp,Sheet,Colum:Variant;
  vertical,i,j:Integer;
begin
 //вывод отчёта
  XLApp := CreateOleObject('Excel.Application');
  XLApp.Visible:=true;
  XLApp.Workbooks.Add(-4167);
  XLApp.Workbooks[1].WorkSheets[1].Name:='Отчёт';
 
  Colum:=XLApp.Workbooks[1].WorkSheets['Отчёт'].Columns;
  Colum.Columns[1].ColumnWidth:=20;
  Colum.Columns[2].ColumnWidth:=20;
  Colum.Columns[3].ColumnWidth:=20;
  Colum.Columns[4].ColumnWidth:=20;
  Colum.Columns[5].ColumnWidth:=20;
  Sheet:=XLApp.Workbooks[1].WorkSheets['Отчёт'];
 
  Sheet.Cells[1,2] := 'Отчёт из Запроса Delphi';
  Colum.Rows[1].Font.Size := 14;
  for i:=1 to DBGrid1.Columns.Count do
    Sheet.Cells[2,i] := DBGrid1.DataSource.DataSet.Fields[i-1].FieldName;
 
  DBGrid1.DataSource.DataSet.First;
  vertical := 3;
  for i := 1 to DBGrid1.DataSource.DataSet.RecordCount do begin
    for j := 1 to DBGrid1.Columns.Count do
      sheet.Cells[vertical,j] := DBGrid1.DataSource.DataSet.Fields[j-1].AsString; //Наполнение таблицы
    DBGrid1.DataSource.DataSet.Next;
    Inc(vertical);
  end;
end;

Скандербег · 05.11.2015, 11:40

Rave - это целый пласт в программировании и нахрапом этот пласт не взять. Изучать надо.
Есть перевод руководства по Rave, сделанный в свое время Анатолием Подгорецким.
Представляю.

@xxbesoxx · 05.11.2015, 11:47

Сообщение от Shura_deg

типа как я делал по отчёту в Excel(естественно с вашей помощью) вот тот код

в Excel тоже можно , на Rave тоже работает тот пример где я выложил силку ... А так если вам интересно моего мнения , Надо забить про Delphi 7 и Rave
Установите хотя бы rad studio xe3 и в комплекте есть FastReport где это все делается проще и бистро

Новые блоги и статьи Все статьи Все блоги /
Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек SDL3 и Box2D из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия SDL 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual. . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»

@Shura_deg 83 / 19 / 5 Регистрация: 01.02.2015 Сообщений: 655

	MS Access Отчет Rave Report Delphi 7 02.11.2015, 20:50. Показов 3560. Ответов 8 Метки нет (Все метки) отчет rave report delphi 7, программным путём , в интернете много инфы про QuickReports (delphi 6 ), а нужно именно rave reports, может укого то есть готовый образец?? или пример хотя бы как делать? разобрался как чисто выводить на печать данные из таблицы при помощи RvProject, RvSystem, RvDataSetConnection Нужно что бы отчёт печатало исходя из данных талицы например DBGRID, который в свою очередь подключён к DAtaSorce которая подключена к ADOTAble - AdoConnection 0

Скандербег 1076 / 989 / 340 Регистрация: 07.08.2012 Сообщений: 2,790
	05.11.2015, 05:25
	Если внимательно присмотреться, то в статье говориться об обработчике OnPrint, а не AfterPrint. В AfterPrint этот код, разумеется, даст ошибки. 1