自动编号例子

Question

 with dm.adoquery1 do
 //-----------自动编号------
   //---s:= 'G'+cu_id.text+FormatDateTime('yyMMdd',Now());--为参数S的取值格式
   //- cu_id.text -为客户编码
   //---s:=G1032090420 -为编号的前11位,序号为3位数,即编码为14位数.
     begin
  close;
  sql.text:='select max(in_id)as ss  from in_h where in_id like '''+s+'%''';
  //选择最大号码
  open;
  if FieldByName('ss').Value=null  then
  s:=s+'001'
    else
  begin
      m:=copy(trim(FieldByName('ss').Value),12,3);  //从十二位开始向后复制三位数
      i:=strtoint(m)+1;
      m:=inttostr(i);
      m:=copy('000',1,3-length(m))+m;//补零
    end;
      s:=s+m;  //合并为自动编号