delphi - 报告自动编号

Question

我正在寻找 Delphi 7 中的代码，它有助于在用户打印或查看报告时生成快速报告的自动编号。我的主要想法是将报告中的代码用作收据，以显示已使用或打印了多少收据。我将不胜感激有关如何使用快速报告编写代码的任何信息。

Answer 1

QuickReports 不支持您要求的自动编号。（它支持自动页码编号，但不跟踪诸如收据或发票编号等下次使用的打印的最后编号。）

您需要跟踪自己在某个地方、数据库、INI 文件或最适合您需要的任何地方使用的最后一个数字。

打印收据时，您会读取该存储中使用的最后一个值，对其进行更新，将其写回存储，然后将该新编号分配给收据上的标签（您可以QRLabel.OnPrint为此使用事件 - 只需使用Value := IntToStr(NewReceiptNumber);,其中NewReceiptNumber是保存收据编号的变量）。