如何打印数据库的内容？(200分)

X

xzs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-06-26

• #1

倾巢出动！狭路相逢勇者胜！
--------------------------
1、用Quick Report如何打印、预览带有TBlob字段的记录?
要求：不要控件！应用实例+算法+语句注释(=100$)，乱弹琴者：0.00元
2、用Quick Report能否设计如下的格式，为什么？
----------------------------------------------------
|一、标题 | 七、 |
| <数据库>记录 | |
| ..... | 同左 |
| | |
|二、标题 | |
| | |
| | |
| | |
--------------------------------------------------
纸的幅面为B4;(20$)
3、用Word做个模板能否实现(2)的格式，请给出一实例说明：
算法+实例+语句注释=($200),缺一不可！乱弹琴者：0.00元

 

X

xzs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-06-26

• #2

请master将分值调到320$. aliato!

 

J

Jams

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-06-26

• #3

本人也期待“精虾”的应答！

 

X

XUQIANG

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-06-26

• #4

1.你可以在 PREVIEW 之前定义一个 DBRICHEDIT ，将其指定为你要显示的 TBLOB
字段，然后将该 DBRICHEDIT 的 LINES 加入到你的 QRRICHTEXT 中即可，
程序如下：（你首先应该定义了一个 QRRichText,并将其放在你希望它出现的位置，而且你要有一个 TTABLE，TDATASOURCE.并且DataSource 的 DataSet 为 Table）
TForm1.Button1Click(Sender : TObject);
var
DBRichEdit : TDBRichEdit;// 或者为 DBMemo 也行
begin
DBRichEdit = TDBRichEdit.Create(self);//创建
DBRichEdit.Visible := False;//不可见
DBRichEdit.Parent := self;
// 父控件
DBRichEdit.DataField := Memo;
// 假定你使用这个字段名
DBRichEdit.DataSource := DataSource;
// 假定你使用这个数据源
if not Table.Active the Table.Open;
// 打开表
QRRichText.Lines.AddStrings(DBRichEdit.Lines);//假定你使用QRRichText来显示内容
QuickRep.Preview;//预览
end;

2.我看到在 QuickRep 控件上 双击后弹出的 DIALOG 中有这么一项
Number of columns, 当你定它为2时就可以达到分两栏的目的，不知是否能
满足你的要求。
3。很抱歉.我对 Word 不熟，

 

王

王淳霞

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-06-26

• #5

1.用Quick Report如何打印、预览带有TBlob字段的记录? 要求：不要控件！应用实例+算法+语句注释(=100$)，乱弹琴者：0.00元
-> 我再想想...
2.用Quick Report能否设计如下的格式，为什么？
----------------------------------------------------
|一、标题 | 七、 |
| <数据库>记录 | |
| ..... | 同左 |
| | |
|二、标题 | |
| | |
| | |
| | |
--------------------------------------------------
纸的幅面为B4;(20$)
quickRep1.page.columns:=2 即可.

 

C

CJ

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-06-26

• #6

听不懂？什么是"$"?

 

J

Jams

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-06-26

• #7

quickRep1.page.columns:=2
我试过但，如何实现一、二等标题的设置，并如何将对应的数据库条件列入
不同的标题之下呢？

 

L

LSS

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-06-26

• #8

<pre><font size=3>
一、
procedure TForm1.QuickRep1NeedData(Sender: TObject;
var MoreData: Boolean);
begin
QRMemo1.Lines.Clear;//放一个qrmemo控件
QRMemo1.Lines.Add(table1.fieldbyname('blob').value);//bolb字段名叫&amp;quot;blob&amp;quot;
table1.next;
MoreData:=not Table1.Eof;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
QuickRep1.Preview;
end;
二、略（已经有人答了）
三、请参阅tqz关于大富翁b计划制作的将数据库内容直接转换成word文档的程序，
该问题在<A HREF="http://www.gislab.ecnu.edu.cn/delphibbs/DispQ.asp?LID=115734">这里</A>
我有最新的例子，如果你要看，可以<a href="mailto:harbinlss@21cn.com">告诉我</a>，看这个程序，你一定会满意的
</font></pre>
刚才的问题用NeedData事件

 

J

Jams

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-07-01

• #9

诸位还有何高见？
以上诸位的方法，本人试了，但问题依然存在！是否还有什么奥妙没有掌握！？

 

C

CJ

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-07-01

• #10

who's q?

 

V

volan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-07-01

• #11

我也来听听,长点见识!呵呵呵....

 

X

xmboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-07-01

• #12

不知报表中是否可用多个QRRichText?

 

X

xzs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-07-03

• #13

答案不能令人满意！

 

X

xzs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-07-03

• #14

多人接受答案了。