求救：＊＊自动编码问题＊＊

Question

比如我想当点击'新增'按钮时，在Edit里自动产生类似于：PQ200310280001 而每次新增一笔单据时会自动增加如：PQ200310280002？感谢！！

Answer 1

试试下面的，“基本”解决问题var
  counter: Integer;
  ID: String;
begin
  with Q_str do   //SQL：select count(ID) from TABLE
  begin
    open;
      counter := FieldValues['count']  //获取数据库中的字段编号
    close;
  end;
  ID := '000' + IntToStr(counter);
  ID := Copy(ID,length(ID)-3,4);
  ID := 'PQ' + FormatDateTime('yyyymmdd',now) + ID;
end;