G
gdzscj
Unregistered / Unconfirmed
GUEST, unregistred user!
我在delphi7上安装了fastreport4,有几个问题请教一下各位高手:
1、控件栏中没有frxdbdataset这个控件,是fastreprot4取消了还是我没装好?
2、根据fastreport4提供的printtable的demo,我参照着写了一个用printadoquery的程序,
其中frxReport1BeforePrint如下:
procedure TForm1.frxReport1BeforePrint(c: TfrxReportComponent);
var
Cross: TfrxCrossView;
i, j: Integer;
begin
if c is TfrxCrossView then
begin
Cross := TfrxCrossView(c);
adoquery1.close;
adoquery1.sql.text:='select * from employee';
adoquery1.open;
adoquery1.First;
i := 0;
while not adoquery1.Eofdo
begin
for j := 0 to adoquery1.Fields.Count - 1do
Cross.AddValue(, [adoquery1.Fields[j].DisplayLabel], [adoquery1.Fields[j].AsString]);
adoquery1.Next;
Inc(i);
end;
end;
end;
但程序在 “if c is TfrxCrossView then
”这里就出现false,下面的都没执行,这是为什么呢?我看其他的DEMO都是这样写的,C这个参数是怎么定义的呢?
3、fastreport4的英文说明书的内容也不多,说得了比较简单,哪位有详细一点的说明?
请各位高手帮忙,谢谢!
1、控件栏中没有frxdbdataset这个控件,是fastreprot4取消了还是我没装好?
2、根据fastreport4提供的printtable的demo,我参照着写了一个用printadoquery的程序,
其中frxReport1BeforePrint如下:
procedure TForm1.frxReport1BeforePrint(c: TfrxReportComponent);
var
Cross: TfrxCrossView;
i, j: Integer;
begin
if c is TfrxCrossView then
begin
Cross := TfrxCrossView(c);
adoquery1.close;
adoquery1.sql.text:='select * from employee';
adoquery1.open;
adoquery1.First;
i := 0;
while not adoquery1.Eofdo
begin
for j := 0 to adoquery1.Fields.Count - 1do
Cross.AddValue(, [adoquery1.Fields[j].DisplayLabel], [adoquery1.Fields[j].AsString]);
adoquery1.Next;
Inc(i);
end;
end;
end;
但程序在 “if c is TfrxCrossView then
”这里就出现false,下面的都没执行,这是为什么呢?我看其他的DEMO都是这样写的,C这个参数是怎么定义的呢?
3、fastreport4的英文说明书的内容也不多,说得了比较简单,哪位有详细一点的说明?
请各位高手帮忙,谢谢!