谁能提供一个自定义报表的例子 源程序.200高分

[My_first]

最好不是这个。我试过了。调试通不过。用showmodal会出错

---- 1. 新 建 一 个 窗 体， 设 置Name 为MyPreview。

---- 2. 在 窗 体 上 添 加 一Toolbar 控 件， 模 仿 默 认 预 览 窗 口 创 建 相 应 的Toolbutton， 并 设
置 各 按 钮 的Hint 提 示。

---- 3. 添 加 一Panel 控 件， 对 齐 方 式 置 为alBottom。 再 在 此Panel 上 放 一ProgressBar( 左 对 齐)
和Panel( 右 对 齐)， 分 别 显 示 报 表 装 载 进 度 和 其 他 提 示 信 息。

---- 4. 添 加QRPreview 控 件， 对 齐 方 式 置 为alClient。

---- 5. 添 加OpenDialog， 设 置Filter 属 性 为*.QR； 添 加SaveDialog， 设 置Filter 属 性 为
*.QR|*.TXT|*.HTM|*.CSV， 设 置DefaultExt 属 性 为*.QR。

---- 6. 双 击 各 个Toolbutton， 输 入 相 应 代 码。

---- 可 以 按 以 下 方 法 调 用 自 定 义 预 览 窗 口。

---- 重 载TQuickRep 的OnPreview 事 件， 输 入 如 下 代 码：




可以运行，立即放分。[e-mail]

[My_first]

up

[mars_han]

showmodal 很没谱的
用show吧

[My_first]

问题解决了。非常怪。