DBGridEh新增一列可否实现其自动增1？

Question

如题。

Answer 1

如果有一field为序列号，放在dbgrideh的第一位置，怎样设置可以做到自动增1

Answer 2

Sql写select identity(int,1,1) as id,* from table

Answer 3

构造数据集：select '''''''' 序号,* From T_Table
procedure TDM.GetNo(Sender: TField; var Text: String; DisplayText: Boolean);
begin
    Text:=IntToStr(Query.RecNo);
end;
procedure TDM.QueryAfterOpen(DataSet: TDataSet);
begin
 TField(Query.FieldByName('序号')).OnGetText := GetNo;
end;