怎样做有字母加数字的客户编号？

Question

Table1 ---------------- 用来记录数据区的值
  Field1: Int;Table2 ---------------- 就是你要的客户编号所在的表
  Field1: Char(5)function GetCustomerID: String;
begin
  Table1.Field1.Value := Table1.Field1.Value + 1;
  Result := 'AB' + IntToStr(Table1.Field1.Value);
end;
try
  DataBase.StartTransaction;
  Table2.Field1 := GetCustomerID;
  DataBase.Commit;
except
  DataBase.RollBack;
end;//至于剩下的问题：
1、数值区是否一要到xxx的形式，另加代码
2、注意并发控制
[注]：对于作出的回复不作正确性保证
Copyright(C) 2002 CoolSlob :-)

Answer 1

建一个小表，可以只有一个整数字段，作为顺序号的种子，和一个字符串字段，作为客户编号的字母部分，每次需要新客户编号时，种子＋1后返回