我定义了一个frxreport,然后在程序中写
procedure TFrmMain.frxreportBeforePrint(Sender: TfrxReportComponent);
var
Cross: TfrxCrossView;
i, j: Integer;
begin
if Sender is TfrxCrossView then
begin
Cross := TfrxCrossView(Sender); ADOQuery.First;
i := 0;
while not ADOQuery.Eof do
begin
Cross.AddValue([i],['序号'],[i+1]);
for j:=0 to ADOQuery.Fields.Count do
Cross.AddValue([i],[ADOQuery.Fields[j].DisplayLabel],[ADOQuery.Fields[j-1].AsString]); DM.ADOQuery.Next;
Inc(i);
end;
end;
我在报表设计器里放了一个TfrxCrossView(Cross),用上面的代码动态添加数据到报表,但是在显示报表的时候怎么能把报表显示在中间呢
procedure TFrmMain.frxreportBeforePrint(Sender: TfrxReportComponent);
var
Cross: TfrxCrossView;
i, j: Integer;
begin
if Sender is TfrxCrossView then
begin
Cross := TfrxCrossView(Sender); ADOQuery.First;
i := 0;
while not ADOQuery.Eof do
begin
Cross.AddValue([i],['序号'],[i+1]);
for j:=0 to ADOQuery.Fields.Count do
Cross.AddValue([i],[ADOQuery.Fields[j].DisplayLabel],[ADOQuery.Fields[j-1].AsString]); DM.ADOQuery.Next;
Inc(i);
end;
end;
我在报表设计器里放了一个TfrxCrossView(Cross),用上面的代码动态添加数据到报表,但是在显示报表的时候怎么能把报表显示在中间呢
解决方案 »
- 新手:如何用多线程实现查询记录,没有等待感的效果?
- ▲▲在主窗体菜单上打开了一个Form1,在Form1关闭后让Form2显示,可Form2显示后点主窗体,Form2跑到了主窗体后面,怎么办???▲▲
- 请bobo2856(bobo)和12rain(中雨~百年孤独)来领分
- 别人要我给他看一小段程序
- 有关SQL7.0的备份恢复问题?(在线等)
- 问一个小问题,解决了马上给分!
- 请问如何让窗体控件随窗体最大化而改变,还有如何让最大化键无效?
- Dbgrid中数据长度的控制
- 谢谢zx_wang(wzx)了,能运行了,你能告诉我你的联系方法吗?
- 请问各路高手,怎样才能在DELPHI中获得硬盘序号.
- 关于在程序中调用excel的问题
- 为什么设置Form最大化时(Form.windowState:=wxMaxMized),有时可见任务栏有时又全屏连任务栏也见不着,我希望任务栏出现。可以吗?
我下载的FastReport3.03安装不了耶,就是一运行的时候要输入KEY嘛,但无论我是手KEY还是COPY,"下一步"这个按钮就是不出来.
请问老兄你的是怎么安装的啊? 你有没有KEY啊? 给我个试试吧!
谢过啦!