自动产生序列号.txt

来自「是一部详细介绍了DELPHI的经典著作」· 文本 代码 · 共 29 行

自动产生序列号:
procedure Tnesfrm.autono(const stype:string);//用过程产生序列号
var
  q:tquery;
  s:string;
begin
  q:=Tquery.create(nil);
  q.databasename:=dbname;//指定数据库名称
  q.sql.add('select 图书编号 from book_info where 类别='''+stype+'''+'order by 图书编号');
  q.open;
  q.last;
  s:=q.fieldbyname('图书编号').asstring;
  q.close;
  q.free;
  nobox.text:=nextbookno(s);//nextbookno是另外的一个函数

function Tnesftm.nextbookno(const str:string):string;
var 
  s,s1:string;
  i,j,k:integer;
begin
  s:=str;
  s1:=copy(s,1,1);    //取前一个非数字字符
  delte(s,1,1);       //截掉非数字字符
  i:=length(s);       //再求字符串长度
  j:=lenght(inttostr(strtoint(s)));//求该字符串转成数字后的位数
  for k:=1 to i-j do s1:s1+'0';
    result:=s1+inttostr(strtoint(s)+1);
end;