Отчет 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 где это все делается проще и бистро

Новые блоги и статьи Все статьи Все блоги /
Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .	Запрет удаления строк ТЧ документа при определенном условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .	Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .
Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .

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

	MS Access Отчет Rave Report Delphi 7 02.11.2015, 20:50. Показов 3610. Ответов 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

Опции темы