Delphi 中操作MS SQL Server 返回刚插入的自增ID列值

在开发数据库的应用的时候，经常需要写入日志，比如某个日志需要记录用户打开程序的时间和用户关闭程序的时间，显然这是两个动作，因为用户打开程序可能需要使用一段时间才会关闭。那么当用户打开程序时，我们首先就需要插入一条日志记录，记录下当前用户打开的时间，同时需要返回当前日志的ID值（自增），以方便用户关闭程序时使用该ID更新日志记录的关闭时间字段。

在Delphi中可以使用如下简单方法直接获取到当前对话的ID值：

       var
         ID : integer;   
       
       FDConnection := TFDConnection.Create(nil);
       try
         FDConnection.ConnectionDefName := Get_DBConnectionStr;  //数据库连接参数串
         ID := FDConnection.ExecSQLScalar('INSERT INTO 表名 (name,age) VALUES(:A1,:A2); SELECT scope_identity()',['sensor',42]);
         
       finally
         FDConnection.Free;
       end;
       

说明：

1. SELECT scope_identity() 语句是重点；

2. FDConnection 会把整个 ExecSQLScalar 中的语句整体作为一个事务（会话），所以即便是多账户操作插入，返回的ID也是正确的。

3. ExecSQLScalar中是可以输入写多条SQL语句的。