自動產生序列號:
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;