GetSerialNoSuccessful := False;
TryCount := 0;
while (not GetSerialNoSuccessful) and (TryCountBeginTrans;
  try
    UPDATE〈TABLE〉SET serial_no=MAX(serial_no)＋1 WHERE....
    SELECT MAX(serial_no) FROM〈TABLE〉WHERE.... 
    CommitTrans;
    GetSerialNoSuccessful := True;
  except
    RollBackTrans;
    inc(TryCount);
    Sleep(50);
  end;
end;

 
begin
  BeginTrans;
try
  adotable1.open;
  adotable1.frist;
  票据号:=adotable1.findbyname('id').asingeter;
 adotable1.delete;
adotable1.append;
adotalbe1.intest;
adotable1.findbyname('编号查询').asstring:='xxx';
adotable1.post
CommitTrans;
except
    RollBackTrans;
end;     

 
var
GetSerialNoSuccessful:Boolean;
TryCount:integer ;
begin
GetSerialNoSuccessful := False;
TryCount := 0;
while (not GetSerialNoSuccessful) and (TryCount<5) do
begin
 datamoduleform.ADOConnection1.BeginTrans;
  try
    adoquery1.close;
  adoquery1.sql.clear;
  adoquery1.sql.add(' UPDATE tb_pjh SET pjh=pjh 1 ') ;
  adoquery1.execsql;
     datamoduleform.ADOConnection1.CommitTrans;
    GetSerialNoSuccessful := True;
  except
     datamoduleform.ADOConnection1.RollBackTrans;
    inc(TryCount);//这句没能理解意思，是不是写下试验的次数，如果大于5后就不等了？
    Sleep(50);//这句是不是等待下一次尝试开始的间隔时间？单位是千分之一秒？
  end;
end;
end;

引言: 一天可能有N张处方的，我能没理解和周或者月的最大号有什么关系..

var
  GetSerialNoSuccessful:Boolean;
  TryCount:integer ;
begin
  GetSerialNoSuccessful := False;
  TryCount := 0;
  while (not GetSerialNoSuccessful) and (TryCount<5) do
  begin
    datamoduleform.ADOConnection1.BeginTrans;
    try
      adoquery1.close;
      adoquery1.sql.clear;
      adoquery1.sql.add('UPDATE tb_pjh SET pjh=pjh 1') ;
      adoquery1.execsql;
      
      adoquery1.sql.clear;
      adoquery1.sql.add('SELECT pjh FROM tb_pjh') ;
      adoquery1.execsql;
      //因為只有ㄧ筆, 應該可以直接取值
      result := adoquery1.Fields[0].AsInteger;
      //用 Open 比較正統, 也可以檢查是否有取到資料
      //adoquery1.Open;
      //if adoquery1.RecordCount<>1 then
      //  result := adoquery1.Fields[0].AsInteger
      //else
      //  出狀況了...不過既然有 except 就跳過去再試吧
      datamoduleform.ADOConnection1.CommitTrans;
      GetSerialNoSuccessful := True;
    except
      datamoduleform.ADOConnection1.RollBackTrans;
      inc(TryCount); 
      //inc(X) 是函數 相當於 X := X＋1; 
      //就是累積失敗重試次數, 會走到這裡通常都是Update 碰上了
      Sleep(50); // 等0.05秒再試 
    end;
  end;
end;

流水號就是 Format('%s%d',[adoquery1.Fields[1].AsString,adoquery1.Fields[0].AsInteger]);