Relatório QuickRep???

Delphi

07/02/2004

Olá,

Gostaria de saber como faço para quando o cliente pedir o relatório através do QuickRep, o relatório abra com as informações do registro onde o usuário está atualmente? ou seja, onde o cursor estiver indicando?

Precisso!
Obrigado!
Marcus


Marcao1000

Marcao1000

Curtidas 0

Respostas

Fabio.hc

Fabio.hc

07/02/2004

Tente assim:

var
  Form1: TForm1;
  Selecionado:integer;

procedure TForm1.FormActivate(Sender: TObject);
begin
   Selecionado:=ADOTable1Codigo.Value;
end;

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
   Selecionado:=ADOTable1Codigo.Value;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   QuickRep1.Preview;
end;

procedure TForm1.DetailBand1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
   PrintBand:=selecionado = ADOTable1Codigo.Value;
end;


Neste exemplo coloquei o ADOTable, o DBgrid e o QuickRep no mesmo form.


GOSTEI 0
POSTAR