不用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;