Fastreport3 怎样传递参数 ( 积分: 50 )

Z

zhixding

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-11-17

• #1

Fastreport3 有谁知道怎样传递参数值?
象:
Qickreport1:=TQickreport.create(self);
Qickreport1.lb_date.caption:='从2007-11-1 至2007-11-15';

try
Qickreport1.repoert1.preview;
finally
Qickreport1.free;

 

P

piaoping

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-11-17

• #2

我做的报表代码如下
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from tPCStyle where PO=O');
ADOQuery1.Parameters.ParamByName('PO').Value :='003';
ADOQuery1.Prepared ;
ADOQuery1.Open ;
frxDBDataset1.DataSet :=ADOQuery1;
frxReport1.DataSet := frxDBDataset1;
frxReport1.ShowReport;

 

Z

zhixding

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-11-18

• #3

这是数据联接与提供,不成问题.
我遇到的是在报表上标明诸如印上制表单位/制表人员/印表时间等信息,
希望通过一定方式传递这些信息给表头/表尾.
还请高手指教?

 

0

007vivi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-11-18

• #4

procedure TForm1.frReport1GetValue(ParName: String;
var ParValue: Variant);
begin
if ParName = 'MyField' then
ParValue := Table1MyField.Value;
end;

 

0

007vivi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-11-18

• #5

使用全局对象frVariables(在FR_Class单元定义):
frVariables['My variable'] := 10;

 

0

007vivi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-11-18

• #6

通过编程在字典中定义变量:
with frReport1.Dictionarydo
begin
Variables['MyVariable'] := 'CustomerData.Customers."CustNo"';
Variables['Another Variable'] := '10';
end;

 

0

007vivi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-11-18

• #7

procedure Tfmfee1.frReport1BeforePrint(Memo: TStringList;
View: TfrView);
begin
frVariables['begin
date1']:=FormatDateTime('yyyy-mm-dd',DateTimePicker1.Date);
frVariables['enddate1']:=FormatDateTime('yyyy-mm-dd',DateTimePicker2.Date);
frVariables['customer']:=cmbcust.Text;
end;

 

0

007vivi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-11-18

• #8

你自己看看适合哪种了。

 

隐

隐士山人

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-11-19

• #9

//传递两个变量S Y到报表,在报表中这样 [Y] 呵呵~
procedure TForm1.frxReport1GetValue(const VarName: String;
var Value: Variant);
begin
if VarName='s' then
Value:='在报表中S随便用';//给S赋值
if VarName='Y' then
Value:='在报表中Y随便用';//给Y赋值
end;

 

Z

zhixding

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-11-19

• #10

接受答案了.