新手求解：号码自动递增

[qq_37067263]

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

[qq_37067263]

链接SQL Server数据库

[lyhoo163]

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;

给段代码，自己修改一下。获取已有编号的后续号。

[fansfantasy]

哥们你真神, 这个问题没人回答的了

[whb00120012]

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

[秋天之落叶]

高手们写东西比较深奥，还是看我这业余选手写的吧，比较简单，哈哈： 设置起始日期，形成日历，你简单的换一下就行。 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;