以QUICKREPORT為例

頁面設(shè)置如下：

其中ID為編號(hào)。

設(shè)置為表的ID字段。

QUICKREPORT所在的FORM添加一個(gè)變量：

var
FprnT6: TFprnT6;
Vxh:integer; //編號(hào)變量

公開一個(gè)方法，用以設(shè)置變量的初始值：

public
{ Public declarations }
procedure Setxh(Axh:integer);

procedure TFprnT6.Setxh(Axh:integer);
begin
Vxh:=Axh;
end;

在ID的ONPRINT方法添加如下代碼：
procedure TFprnT6.QRPDBText1Print(sender: TObject; var Value: string);
begin
Vxh:=Vxh+1;
Value:=inttostr(Vxh);
end;

控制打印主程序如下：

procedure TFCountMain.DoCountT6(Gtitle,GTdate:string);
var
sqlstr:string;
begin

Application.CreateForm(TFprnT6, FprnT6);
FprnT6.QRLtitle.Caption:=Gtitle;
FprnT6.QRLreportdate.Caption:=GTdate;
FprnT6.Setxh(0); //序號(hào)清零
sqlstr:='select * from Tperson ';
dm.LoadPersonBySql(sqlstr);//提取數(shù)據(jù)記錄
FprnT6.QuickRep1.Print;

end;