作者：未知 来源：月光软件站 加入时间：2005-2-28　月光软件站

其实AutoInc字段很有价值，它提供了一个没有意义的唯一ID，在很多场合都需要。
（注意，通常的物料代码，身份证号，卡号等等现实属性都有意义，可能需要修改，不能用来做主键！最好采用无意义主键）

但是Delphi用ADO(DBExpress我没有试过)连接关系数据库，在Insert/Apend Post后，AutoInc字段的值总为0(连Access可以获得新值)，这样在界面上不好看，而且不能刷新数据集，会出错，因为它与数据库不一致。
特别是需要主从关系的情况下，这样无法插入子表记录。若你真要这样，可以看John Kaster
的一篇文章：How to use AutoInc fields with DataSnap

而且MS SQL的AutoInc字段有两种选择：复制的时候自增，复制的时候不自增。

我希望Delphi有个开关，可以让开发者选择在Post后立即用select @@Identity 来填充新值。
但目前还不行，所以只有不用数据库提供的AutoInc字段，自己写了。

一般一个数据库中会有多个AutoInc ID字段。


建一个表AutoIncID
两个字段：
IDName varchar(16)   --  主键，存放其他各表AutoInc ID字段的字段名
 IDValue Int         -- 当前ID 值， 初始化为0

获取当前的某个AutoInc字段的 ID值

 
// GetAutoInc_Q.SQL.Text :=  select * from AutoIncID where IDName = :IDName

function TDM.GetAutoIncID(const IDName: string): Integer;
var OldID : Integer;
begin
  Result := -1;
  GetAutoInc_Q.Active := False;
  GetAutoInc_Q.Parameters.ParamByName('IDName').AsString := IDName;
  GetAutoInc_Q.Active := True;
  if GetAutoInc_Q.RecordCount>0 then
  begin
    OldID := GetAutoInc_Q.FieldByName('IDValue').AsInteger ;
    GetAutoInc_Q.Edit;
    GetAutoInc_Q.FieldByName('IDValue').AsInteger := OldID +1 ;
    GetAutoInc_Q.Post;
    Result := OldID + 1;
  end;
end;


也可以用存储过程来实现。

相关软件：