?? 自動產生序列號.txt
字號:
自動產生序列號:
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;
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -