能否用Delphi與SQL Server來實現記錄的自動編號功能﹖

Question

CREATE TABLE [dbo].[TableName] (
[ID] [SMALLINT] IDENTITY NOT NULL ,
...
)
GO

Answer 1

可以的    procedure SelQAfterInsert(DataSet:TDataSet);
    procedure SelQBeforePost(DataSet:TDataSet);
    procedure SelQAfterPost(DataSet:TDataSet);
procedure THelpdjFm.FormClose(Sender:TObject;var Action:TCloseAction);
begin
  with RDM do begin
    SelQ.BeforePost:=nil;
    SelQ.AfterInsert:=nil;
    SelQ.AfterPost:=nil;
  end;
  Release;
end;
procedure THelpdjFm.FormCreate(Sender:TObject);
begin
  BuildHelpTree;
  with RDm do begin
    SelQ.BeforePost:=SelQBeforePost;
    SelQ.AfterInsert:=SelQAfterInsert;
    SelQ.AfterPost:=SelQAfterPost;
  end;
end;
procedure THelpdjFm.SelQAfterInsert(DataSet:TDataSet);
begin
  if TreeView.Selected<>nil then begin
    OpenSQL(RDM.TmpQ,'select max(bm)+1 from rs.rshelp where lb = "'+TreeView.Selected.Text+'"');
    DataSet.Edit;
    DataSet.FieldByName('lb').AsString:=TreeView.Selected.Text;
    DataSet.FieldByName('bm').AsInteger:=RDM.TmpQ.Fields[0].AsInteger;
    RDM.TmpQ.Close;
  end;
end;procedure THelpdjFm.SelQBeforePost(DataSet:TDataSet);
begin
  if Trim(DataSet.FieldByName('bm').AsString)='' then begin
    MessageDlg('编码不能为空,请输入编码值',mtWarning,[mbOK],0);
    Abort;
  end;
end;procedure THelpdjFm.SelQAfterPost(DataSet:TDataSet);
begin
  DataSet.Close;
  DataSet.Open;
  DataSet.Last;
end;

Answer 2

MS SQL 本身就支持呀! 如：上面火鸟定义字段即可!