因圖書室妹妹建檔錯誤造成所有書架上的書目要重新編號建檔,資料庫(MSSQL),資料表(cupboard)重點在seqno(第幾排)及seqnum(第幾號)兩個欄位,我想先找出 第幾排及第幾號的範圍,並用DBGRID show出來,想使用自動編號的方式更新剛才找出的書號(範圍為1~xxxx視查詢出來的筆數),我的問題是卡在已查詢到了,可是如和重新編號 procedure TForm1.Button1Click(Sender: TObject); begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add('select * from cupboard where'); ADOQuery1.SQL.Add('and seqno = :FSeqno'); ADOQuery1.SQL.Add('and seqnum between :F1 and :F2 ORDER BY seqnum' ); ADOQuery1.Parameters.ParamByName('FSeqno').Value:=Edit3.Text; ADOQuery1.Parameters.ParamByName('F1').Value:=Edit4.Text; ADOQuery1.Parameters.ParamByName('F2').Value:=Edit5.Text; ADOQuery1.Open; if ADOQuery1.IsEmpty then begin ShowMessage('沒有你想要找的資料'); end; end;

我就以’001’改成’A001’為例: 1 先在ADOQuery1裡建好DataSet(ADOQuery1的SQL內加入'select * from cupboard, 按右鍵 add all fields) 2 執行你所敘述 SQL Statement 3 再執行下列的敘述 while not ADOQuery1.Eof do begin ADOQuery1.edit; ADOQuery1seqnum.Value:='A' ADOQuery1seqnum.Value; ADOQuery1.Post; ADOQuery1.Next; end; 4 若要更改複雜,修改程式即可

Hi:    將 johnny2212 大大的程式稍微修改一下，即可達到自動編號功能

NextNum := 最號一號;
while not ADOQuery1.Eof do
    begin
        Inc(NextNum);
        ADOQuery1.edit;
        ADOQuery1.seqnum.Value := NextNum;
        ADOQuery1.Post;
        ADOQuery1.Next;
    end;
end;

-------------------------------- 小弟才疏學淺，若有謬誤請不吝指教 --------------------------------

------
Fishman

謝謝,johnny2212及Fishman大大 小弟有一個地方不解,為何這樣會形成自動編號的狀況 ???? 可否講解一下??? ----------------------------------------------- NextNum := 最號一號; while not ADOQuery1.Eof do     begin         Inc(NextNum);         ADOQuery1.edit;         ADOQuery1.seqnum.Value := NextNum;         ADOQuery1.Post;         ADOQuery1.Next;     end; end; -------------------------------------------- 

Hi:    關鍵在 Inc(NextNum) 這一行指令，這樣的寫法相當於 NextNum := NextNum + 1，所以迴圈每 Loop 一次，NextNum 就會遞增 1 而達到自動編號的功能     -------------------------------- 小弟才疏學淺，若有謬誤請不吝指教 --------------------------------

------
Fishman