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

W

wjshh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-17

• #1

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

 

A

angleli1981

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-18

• #2

你装Quickreport企业版就有一个转换成Excel的控件，使用方法同fastreport 的差不多
建议你用fastreport好一点

 

Z

zhang_yz6666

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-18

• #3

gz

 

W

wjshh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-19

• #4

调入的QRP文件保存后内容为空。

fastreport是什么？

 

T

tiger_520

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-20

• #5

fastreport也是做报表的

 

W

wjshh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-20

• #6

fastreport能打开QRP文件并另存成Excel或TXT吗？
哪 里能下载？

 

N

nansha

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-22

• #7

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查询一下你想要在报表中显示的数据，将其导出就可以了！

 

W

wjshh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-23

• #8

nansha:
你好!
我是想对*.QRP文件进行处理。就是在别人的程序中用quickreport作的打印预览时，
选择另存后生成的QRP格式的文件。

 

I

ice1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-23

• #9

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;

 

墙

墙头草

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-09

• #10

看看

 

S

snb_ywx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-10

• #11

果然好用！nansha 谢谢！[]

 

K

kingswang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-29

• #12

都快一年了，还不结贴！！！

 

W

wjshh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-10

• #13

kingswang:
你能解答我的问题吗？

 

江

江西的delphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-30

• #14

用QREPD5增强过滤.EXE就搞定了,要的话给我email

 

W

wjshh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-02

• #15

江西的delphi:
我Email的是：delphi1@0451.com

 

江

江西的delphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-03

• #16

已发！

 

F

fly2003

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-03

• #17

路过！

 

W

wjshh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-03

• #18

江西的delphi:
我没有收到，请你再发一次，谢谢。

 

江

江西的delphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-04

• #19

再发了一次！

 

R

redant

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-04

• #20

开创网络营销的先锋，超级兼职等你加盟！


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