其实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;
也可以用存储过程来实现。
|
本类阅读TOP10