//换了数据库后台就肯定失败
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;
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;