请问如何将quickreport生成的报表文件*.qrp文件转换成Excel或TXT(200分)

W

wjshh

Unregistered / Unconfirmed
GUEST, unregistred user!
请问如何将quickreport生成的报表文件*.qrp文件转换成Excel或TXT
 
你装Quickreport企业版就有一个转换成Excel的控件，使用方法同fastreport 的差不多
建议你用fastreport好一点
 
gz
 
调入的QRP文件保存后内容为空。

fastreport是什么？
 
fastreport也是做报表的
 
fastreport能打开QRP文件并另存成Excel或TXT吗？
哪 里能下载？
 
procedure TForm1.Button1Click(Sender: TObject);
var
i,j,row,column:integer;
begin
Try
ExcelApplication1.Connect;
Except
MessageDlg('Excel 没有安装',mtError, [mbOk], 0);
Abort;
End;
ExcelApplication1.Visible[0]:=true;
ExcelApplication1.Caption:='Excel Not Istalled!';
ExcelApplication1.Workbooks.Add(Null,0);
ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks[1]);
ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Worksheets[1] as _Worksheet);
query1.Open;
row:=1;
column:=1;
for j:= 0 to Query1.FieldCount-1 do
begin
ExcelWorksheet1.Cells.Item[row,column]:=query1.fields[j].FieldName;
column:=column+1;
end;
row:=2;
While Not(query1.Eof) do
begin
column:=1;
for i:=1 to query1.FieldCount do
begin
ExcelWorksheet1.Cells.Item[row,column]:=query1.fields[i-1].AsString;
column:=column+1;
end;
query1.Next;
row:=row+1;
end;
query1.first;
ExcelWorkbook1.Disconnect;
ExcelWorksheet1.Disconnect;
ExcelApplication1.DisConnect;
end;
你先用query查询一下你想要在报表中显示的数据，将其导出就可以了！
 
nansha:
你好!
我是想对*.QRP文件进行处理。就是在别人的程序中用quickreport作的打印预览时，
选择另存后生成的QRP格式的文件。
 
procedure TForm1.button(Sender:Tobject);
Listbox1:TListBox ;
i:Integer;
Str:String;
Begin
If SaveDialog1.Excute Then
Begin
Try
ListBox1:=TlistBox.Create(Self);

With Query1 DO
Begin
While not Eof dO
Begin
For I:=0 to FieldCount-1 do
Str:=Str+Char(09)+Fields[1].value;
ListBox1.Add(Str);
Next;
End;
End;

Listbox1.Save(SaveDialog1.Filename+'.xls');
Finally
ListBox1.Free;
End;
End;
END;
 
看看
 
果然好用！nansha 谢谢！[:D]
 
都快一年了，还不结贴！！！
 
kingswang:
你能解答我的问题吗？
 
用QREPD5增强过滤.EXE就搞定了,要的话给我email
 
江西的delphi:
我Email的是：delphi1@0451.com
 
已发！
 
路过！
 
江西的delphi:
我没有收到，请你再发一次，谢谢。
 
再发了一次！
 
开创网络营销的先锋，超级兼职等你加盟！


..现在国内最具实力的中文网站,加入黄金之地，注册后所有书籍全部免费下载，所有电影全部免费观看，应有尽有！除此之外，最为关键的是你还可以开始你的赚钱事业，努力发展回报难以想象啊。爽到家为止！与其他收费赚钱网站相比突破了单一赚钱的功能，娱乐功能更是无一能及！发展潜力巨大，强烈推荐！小投资大回报！看了之后你才明白原来也可以这么轻松赚钱！感兴趣者请登陆看看吧你一定会有收获的！月赚3000根本不是梦！比打工更强！请登陆：http://redantem.yeah.net或：http://www.ad-book.com/reg.asp?user=redant登陆后按“新会员注册”就可以！你也可以先看看“发展理念”后再注册,看看怎么赚钱。注册时请一定要写真实姓名哦，不然系统将自动删除注册帐号并不再给予注册！ 请大家千万不要相信利网和终生月薪的，本人以前做过根本赚不到！看看里面的细则就知道了，谢谢！欢迎去我的网站看看。http://redanthj.yeah.net
 
您必须登录或注册才可回复。

Similar threads

Ray
[转]终于可以发布Delphi下收点OSGI精髓皮毛而设计的插件框架WisdomPluginFramework
回复
4
查看
4K
chlkuei
C
K
怎样将DBGRID中的数据转换成excel或文本文件,急急急!!!!!!! (100分)
回复
19
查看
55
karxios
K
C
如何将word、excel、html、图形文件转换pdf(300分)
回复
13
查看
107
bashan
B
Q
将sql server转换为excel表格 (30分)
回复
0
查看
92
qzzwg
Q
S
在dephi6的quickrep中﹐如何編成將多個已存成文件的報表（.qrp）匯成一個報表文件（.qrp）?(100分)
回复
2
查看
113
lichaogang
L
顶部