***如何实现从某一基数实现编号的自动生成****

Question

现在数据库已有几百条记录，现在在此基础上对其进行添加，要求编号在原有基础上自动添加。请各位高手帮帮忙！！不胜感激！

Answer 1

我是这样的：建一个表，取名counter
var
  k:integer;
begin
  k:=counter.fieldbyname('co').asstring;//取一个值，这个值是你需要的。
  inc(k);
  counter.open;
  counter.edit;
  counter['co']:=k;
  counter.post;
  counter.close;

Answer 2

var maxv:integer; // (假设你的编号是int)
begin
  with qry_tmp do  // (建立一个query,名为qry_TMP)
  begin
    sql.close;
    sql.clear; 
    sql.add('select max(XX) as maxv from table ');  // XX是编号的字段名
    maxv:=FieldByName('maxv').Asinteger+1;  //这就是最大值了
    close;
  end;
end;