第一格為起始號碼，第二格為增加數量，如圖怎么寫都出錯，高手求幫助！
uj5u.com熱心網友回復：
鏈接SQL Server資料庫uj5u.com熱心網友回復：
哥們你真神, 這個問題沒人回答的了uj5u.com熱心網友回復：
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;
給段代碼，自己修改一下。獲取已有編號的后續號。
uj5u.com熱心網友回復：
SQL SERVER 用序號自動遞增，ORACLE 用欄位名 與 序列 SEQUENCE1.NEXTVAL 關聯。
uj5u.com熱心網友回復：
高手們寫東西比較深奧，還是看我這業余選手寫的吧，比較簡單，哈哈：設定起始日期，形成日歷，你簡單的換一下就行。
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;
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/41288.html
標籤：數據庫相關