不用SQL給打印記錄編號，SQL打印記錄編號

不用SQL給打印記錄編號，SQL打印記錄編號

以QUICKREPORT為例

頁面設置如下：

其中ID為編號。

設置為表的ID字段。

QUICKREPORT所在的FORM添加一個變量：

var
FprnT6: TFprnT6;
Vxh:integer; //編號變量

公開一個方法，用以設置變量的初始值：

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); //序號清零
sqlstr:='select * from Tperson ';
dm.LoadPersonBySql(sqlstr);//提取數據記錄
FprnT6.QuickRep1.Print;

end;