//换了数据库后台就肯定失败
function   MaxVal(TableName:   string)   :   integer;  
  var  
  ADOQMax:TADOQuery;  
  begin  
  ADOQMax   :=   TADOQuery.Create(nil);  
  ADOQMax.ConnectionString:=connstr;  
  with   ADOQMax   do  
        begin  
            //取编号的最大值  
              Close;  
              SQL.Clear;  
              SQL.Add('declare   @GetMax   int'   +   #13);  
              SQL.Add('exec   @GetMax   =   SET_MAX   '+''''+TableName+''''+','+'1'+#13);  
              SQL.Add('select   @GetMax   as   fname');  
              Open;  
              MaxVal   :=   FieldByName('fname').AsInteger;  
   
        end;  
  end;    


本文来源：http://blog.csdn.net/houyichong/archive/2007/09/06/1774998.aspx