有关打印序列号的问题。高分等待...

Question

想做一个按要求打印产品序列号标签的小程序。序列号如GXT1000001，GXT1000002等，每个号码都是唯一的（前三位字母固定不便），每次打印都有序列号的其实和截止范围。我想通过报表打印来实现，但又不想通过调用数据库中的数据来实现，该怎样做最好呢？我是新手，请XDJM们帮个忙。

Answer 1

動態生成QRlable吧。
有多少個标签要打印﹐就生成多少個QRlable。

Answer 2

Function IncStr(str:string;Len2:integer):string;
var
   sOlds :string;
   stmp:string;
   stmp2:string;
   j,i:integer;
   frmstr:string;
begin
   if str <>'' then
   begin
     sOlds:= copy(str,1,Length(str) - Len2);
     stmp := copy(str,Length(str) - Len2 + 1,Len2);
     for j:=1 to Length(stmp) do
       if not (Stmp[j] in ['0'..'9']) then
         Stmp[j] := '0';
     i := strtoint(stmp) +1 ;
     stmp :=inttostr(i);
     frmstr := '%0'+inttostr(Len2)+'s';
     stmp2 := Format(frmstr,[stmp]);
     while Pos(' ', stmp2) > 0 do
       stmp2[Pos(' ', stmp2)] := '0';     result := sOlds+stmp2;
   end
   else
     result :='';
end;

Answer 3

再问一个，那要是要求答应出来的序列号标签如下面这样的格式有如何实现呢：
产品序列号：      产品序列号：     产品序列号：      产品序列号：       
GXMT30620030210   GXMT30620030211  GXMT30620030210   GXMT30620030210
 （不得撕毁）      （不得撕毁）     （不得撕毁）      （不得撕毁）  ...
.
.
.