procedure Tyd.Label4Click(Sender: TObject); 
var
s,s1,s2,s3,L:string;
m:integer;
begin
s:=FormatDateTime('yyyymmdd',now());
s1:='A' copy(s,4,1);
with ADOQuery2 do
begin
close;
sql.Clear;
sql.Add('select max([yd_no]) as 異動單號 from yd_list ');
ADOQuery2.Active:=True;
ADOQuery2.open;
end;
if ADOQuery2.FieldByName('異動單號').isnull then
begin
s2:=s1 '0001'; //無法新增此單號，如: A60001
Edit11.Text:=s2;
end
else
begin
L:=trim(ADOQuery2.FieldByName('異動單號').value);
m:=strtoint(trim(copy(L,3,5)));
if m<10 then
s3:=s1 '000' inttostr(m 1)
else if m<100 then
s3:=s1 '00' inttostr(m 1)
else if m<1000 then
s3:=s1 '0' inttostr(m 1);

end;
Edit11.Text:=s3;

end;
以上代號可以自動產生異動單號，但是當yd_list表的yd_no好段為空時或跨年份時不能產生
新單號（如：A70001）;
如:
2006年第一張單單號為:A60001;
2007年第一張單單號為:A70001;
鑒于以上原因,現修正後代碼如下(但是在點擊Label4時沒有任何反應,所以不知如何修正,請高手指教~~!):
procedure Tyd.Label4Click(Sender: TObject);
var
s,s1,s2,s3,L1,L2:string;
n,p,m:integer;
begin
s:=FormatDateTime('yyyymmdd',now());
s1:='A' copy(s,4,1);
with ADOQuery2 do
begin
close;
sql.Clear;
sql.Add('select max([yd_no]) as 異動單號 from yd_list ');
ADOQuery2.Active:=True;
ADOQuery2.open;
end;
L1:=trim(ADOQuery2.FieldByName('異動單號').value);
n:=strtoint(trim(copy(L1,2,1)));
p:=strtoint(copy(s,4,1));
if n

begin
s2:=s1 '0001';
Edit11.Text:=s2;
end
else
begin
L2:=trim(ADOQuery2.FieldByName('異動單號').value);
m:=strtoint(trim(copy(L2,3,5)));
if m<10 then
s3:=s1 '000' inttostr(m 1)
else if m<100 then
s3:=s1 '00' inttostr(m 1)
else if m<1000 then
s3:=s1 '0' inttostr(m 1);

end;
Edit11.Text:=s3;

end;

此是下面那代碼，有一個地方在上面沒有顯示出來：
( if n< P then //在這裡，這句語句是否有問題？？？？)
procedure Tyd.Label4Click(Sender: TObject);
var
s,s1,s2,s3,L1,L2:string;
n,p,m:integer;
begin
s:=FormatDateTime('yyyymmdd',now());
s1:='A' copy(s,4,1);
with ADOQuery2 do
begin
close;
sql.Clear;
sql.Add('select max([yd_no]) as 異動單號 from yd_list ');
ADOQuery2.Active:=True;
ADOQuery2.open;
end;
L1:=trim(ADOQuery2.FieldByName('異動單號').value);
n:=strtoint(trim(copy(L1,2,1)));
p:=strtoint(copy(s,4,1));
if n

begin
s2:=s1 '0001';
Edit11.Text:=s2;
end
else
begin
L2:=trim(ADOQuery2.FieldByName('異動單號').value);
m:=strtoint(trim(copy(L2,3,5)));
if m<10 then
s3:=s1 '000' inttostr(m 1)
else if m<100 then
s3:=s1 '00' inttostr(m 1)
else if m<1000 then
s3:=s1 '0' inttostr(m 1);

end;
Edit11.Text:=s3;

end;

這個問題也己經解決了，方法是：讓下面的if語句上下倒過來，即可以了，也希望各位提提建議，看看還有什麼好的方法沒有？
if n
begin
s2:=s1 '0001';
Edit11.Text:=s2;
end
else
begin
L2:=trim(ADOQuery2.FieldByName('異動單號').value);
m:=strtoint(trim(copy(L2,3,5)));
if m<10 then
s3:=s1 '000' inttostr(m 1)
else if m<100 then
s3:=s1 '00' inttostr(m 1)
else if m<1000 then
s3:=s1 '0' inttostr(m 1);

end;