新手求解：号码自动递增

Question

第一格为起始号码，第二格为增加数量，如图怎么写都出错，高手求帮助！

Answer 1

链接SQL Server数据库

Answer 2

var SQL,S:string;
    I,j:integer;
begin
  SQL:='select 档案号 from 老人基本信息';
  DataModule1.ClientDataSet6.Active:=False;
  DataModule1.ClientDataSet6.DataRequest(SQL);
  DataModule1.ClientDataSet6.Active:=True;
  with DataModule1.ClientDataSet6 do
  begin
    while Not Eof do
    begin
      S:=FieldByName('档案号').AsString;
      if StrYesInt(S) then
      begin
        i:=StrToInt(S);
        if j<i then J:=i;
      end;
      Next;
    end;
  end;
  S:=Inttostr(J+1);
  while Length(S)<4 do S:='0'+S;
  DBEdit6.DataSource.DataSet.Edit;
  DBEdit6.Text:=S;
  DBEdit6.DataSource.DataSet.Post;
end;
给段代码，自己修改一下。获取已有编号的后续号。

Answer 3

SQL SERVER   用序号自动递增，
ORACLE    用字段名 与 序列  SEQUENCE1.NEXTVAL 关联。

Answer 4

高手们写东西比较深奥，还是看我这业余选手写的吧，比较简单，哈哈：
设置起始日期，形成日历，你简单的换一下就行。      t := DaysBetween(DBDateTimeEditEh1.Value, DBDateTimeEditEh2.Value);    //两个日期的天数差
      ks := DBDateTimeEditEh1.Value;    //开始日期      for i := 0 to t do
      begin
        rq := incday(ks, i);        xq := DayOftheWeek(rq).tostring;            if (xq = '6') or (xq = '7') then
          jr := '休息日'
        else
          jr := '工作日';        dm1.ADOQuery1.Close;
        dm1.ADOQuery1.sql.Clear;
        dm1.ADOQuery1.sql.Add('insert into 日期表(日期,星期,假日) values(:日期,:星期,:假日)');
        dm1.ADOQuery1.Parameters.ParamByName('日期').Value :=  FormatDateTime('yyyymmdd', rq);
        dm1.ADOQuery1.Parameters.ParamByName('星期').Value := xq;
        dm1.ADOQuery1.Parameters.ParamByName('假日').Value := jr;
        dm1.ADOQuery1.ExecSQL;
      end;