Delphi: Как создать отчет по таблице

Есть компонент Ttable2
Надо вывести инфу с некоторых полей по всей базе.
Rave Выдает тока два поля а на самом деле в таблице 4 Во как и в проекте не хочет выводить форму отчета....
Что делать подскажите ?????
Delphi7!!

Сообщение отредактировано: vot - 10.02.03, 07:52

Что такое Rave ?
Какие поля и по какому условию хочешь получить в отчете ?
Отчет на принтер ?

Homker
1. раз уже начал тему дак продолжай ее а не создавай новые -)) ..... вот ....
мне то конечно по-барабану.........но все равно ...
2.давай код .... на слух тяжело восприять ...

Цитата lamachok, 09.02.03, 18:36:55

Homker
1. раз уже начал тему дак продолжай ее а не создавай новые -)) ..... вот ....
мне то конечно по-барабану.........но все равно ...
2.давай код .... на слух тяжело восприять ...

ЛОвите

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, Grids, DBGrids, ToolWin, ComCtrls, ImgList, DB, DBTables,
 StdCtrls, ExtCtrls, RpDefine, RpCon, RpConDS, RpRave, RpConBDE;

type
 TForm1 = class(TForm)
   ImageList1: TImageList;
   ToolBar1: TToolBar;
   Table1: TTable;
   DBGrid1: TDBGrid;
   DataSource1: TDataSource;
   Label1: TLabel;
   Label2: TLabel;
   Label3: TLabel;
   Label4: TLabel;
   Label5: TLabel;
   Label7: TLabel;
   Label6: TLabel;
   ComboBox1: TComboBox;
   Button1: TButton;
   Button2: TButton;
   Button3: TButton;
   Edit1: TEdit;
   Edit2: TEdit;
   Label8: TLabel;
   Label9: TLabel;
   Timer1: TTimer;
   Label10: TLabel;
   Label11: TLabel;
   Timer2: TTimer;
   Table2: TTable;
   DBGrid2: TDBGrid;
   DataSource2: TDataSource;
   Table2ID: TAutoIncField;
   Table2BDEDesigner: TStringField;
   Table2BDEDesigner2: TCurrencyField;
   Label12: TLabel;
   Label13: TLabel;
   Label14: TLabel;
   Table2KOD: TIntegerField;
   Label15: TLabel;
   Button4: TButton;
   RvTableConnection1: TRvTableConnection;
   RvProject1: TRvProject;
   procedure FormShow(Sender: TObject);
   procedure Button2Click(Sender: TObject);
   procedure Timer1Timer(Sender: TObject);
   procedure Button3Click(Sender: TObject);
   procedure Button1Click(Sender: TObject);
   procedure Timer2Timer(Sender: TObject);
   procedure DBGrid1KeyDown(Sender: TObject; var Key: Word;
     Shift: TShiftState);
   procedure FormCreate(Sender: TObject);
   procedure FormClose(Sender: TObject; var Action: TCloseAction);
   procedure DBGrid2KeyDown(Sender: TObject; var Key: Word;
     Shift: TShiftState);
   procedure Button4Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
type lol=record
     num:integer;
     date:string[9];
end;
var f:file of lol;
   dat:lol;
   inf:string[50];
begin
label7.Caption:=timetostr(time);
label3.Caption:=datetostr(now);
assignfile(f,'C:\cafe\dat\num.inf');
reset(f);
if not eof(f) then
begin
read(f,dat);
closefile(f);
inf:=inttostr(dat.num);
showmessage('Последний заказ №'+inf+' '+'Было это:'+dat.date);
if label3.Caption=dat.date then
begin
dat.num:=dat.num+1;
label5.Caption:=inttostr(dat.num)
end
else
label5.Caption:='1';
end
else
begin
closefile(f);
showmessage('Первый запуск');
label5.Caption:='1';
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
type chel=record
    kod:string[6];
    name:string[20];
end;
var f:file of chel;
   inf:chel;
begin
if edit1.Text=''  then
showmessage('Проверте код!!! Поле не должно быть пустым.')
else
begin
assignfile(f,'C:\cafe\dat\chel.inf');
reset(f);
read(f,inf);
closefile(f);
if edit1.Text=inf.kod then
begin
label8.Caption:=inf.name;
label11.Caption:='00,00 руб.';
edit1.Text:='';
end
else
 begin
  showmessage('Необходимо вводить правильные данные!!!');
  edit1.Text:='';
 end;
end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
label8.Caption:='Введите персональный код';
label9.Caption:='Введите код карты';
end;

procedure TForm1.Button3Click(Sender: TObject);
type chel=record
    kod:string[6];
    name:string[20];
    skid:string[4];
end;
var f:file of chel;
   inf:chel;
begin
if edit2.Text=''  then
showmessage('Проверте код!!! Поле не должно быть пустым.')
else
begin
assignfile(f,'C:\cafe\dat\skidka.inf');
reset(f);
read(f,inf);
closefile(f);
if edit2.Text=inf.kod then
begin
label9.Caption:=inf.name+' - '+inf.skid+'\%';
edit2.Text:='';
end
else
 begin
  showmessage('Необходимо вводить правильные данные!!!');
  edit2.Text:='';
 end;
end;

end;

procedure TForm1.Button1Click(Sender: TObject);
type lol=record
     num:integer;
     date:string[9];
     kod:integer;
     stol:1..50;
end;
var f:file of lol;
   inf:lol;
begin
inf.stol:=strtoint(combobox1.Text);
inf.kod:=Dbgrid2.Fields[3].AsInteger;
inf.date:=label3.Caption;
inf.num:=strtoint(label5.Caption);
label11.Caption:=label13.Caption+'р.';
assignfile(f,'C:\Cafe\dat\num.inf');
reset(f);
write(f,inf);
closefile(f);
if label3.Caption=inf.date then
begin
inf.num:=inf.num+1;
label5.Caption:=inttostr(inf.num);
end
else
label5.Caption:='1';
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
label7.Caption:=timetostr(time);
end;

procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word;
 Shift: TShiftState);
begin
if (key=107) then
begin
if (dbgrid1.Fields[2].AsString<>'') and
(dbgrid1.Fields[3].AsCurrency<>0) then
begin
Table2.Insert;
table2.Fields[1].AsString:=dbgrid1.Fields[2].AsString;
table2.Fields[2].AsCurrency:=dbgrid1.Fields[3].AsCurrency;
table2.Fields[3].AsInteger:=dbgrid1.Fields[1].AsInteger;
table2.post;
label12.Caption:=currtostr(strtocurr(label13.Caption)+dbgrid1.Fields[3].AsCurrency);
label13.Caption:=label12.Caption;
end
else showmessage('Попросите установить Меню ВАШЕГО Кафе');
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
table1.Active:=true;
table2.Active:=true;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
table1.Active:=false;
table2.Active:=false;
end;

procedure TForm1.DBGrid2KeyDown(Sender: TObject; var Key: Word;
 Shift: TShiftState);
begin
if (key=109) then
begin
label12.Caption:=currtostr(dbgrid2.Fields[2].AsCurrency);
label13.Caption:=currtostr(strtocurr(label13.Caption) - strtocurr(label12.Caption));
table2.Delete;
end;
end;


procedure TForm1.Button4Click(Sender: TObject);
begin
rvproject1.ExecuteReport('Project1');
end;

end
надо короче из второй табл вывести на принтер инфу...

Homker
блин ... а я думал тебе чета заумное надо ...... (удаляй код а то он
большой очень ....) ... а на ответ на свой вопрос  можно поглядеть
тута ...... чего там только нет ....

Сообщение отредактировано: lamachok - 09.02.03, 20:20

lamchok ляпнул.... и стрелки перевел.... ;-)

2homker:
Цепляй QuickReport какой-нибудь, да выводи... В чем проблема ?
Какие поля не выводятся ? Если проблема в Rave - ничем помочь не смогу... У меня D5...

Сообщение отредактировано: repairman - 10.02.03, 11:40

repairman
как в десятку попал ..... только стрелки не переводил ...
просто зачем чета объяснять если уже кто-то объяснил :-/...
да и вообще так был вопрос задан .... ты вчитайся там
нет даже намека на принтер не считая

Цитата

Надо вывести инфу с некоторых полей по всей базе

вот я и думал что он даст код 10X10 ... а он ... ;D

Всем биг сенкс все работает РАЗОБРАЛСЯ ,,,,,,,,,,,,,,,,,,,,,,УХ.......