請問一下，如果我做了一個訂單的程式 在新增訂單時，訂單編號如何才會自動出現(自動 1)

小弟建議如下 1)開一個單號專用檔,欄位有 KEY,訂單號,出貨號,採購號.. KEY 可為日,月,或年, 看您單號之流水號特性 2)單據開立確定後,才依此單據之日期去單號專用檔取得某單據特性之現已用號 並將單號專用檔加 ,(當然是對有關之單據欄位) PS. 主檔未確定前先隨便給個暫時編號,post 前取得正確號以後才POST 身檔也要注意處理單據號.

不知道你是用的什么数据库，在 SQL SERVER 中你可以这样创建一个表就可以实现你的要求。 CREATE TABLE tab1 ( [ID] [INT] NOT NULL IDENTITY (1, 1), // 让此之自动加1 mc varchar(10) NULL, sl int NOT NULL DEFAULT (0) PRIMARY KEY (ID) )

對不起，我不懂你們說的，能否再說詳細一點。     每次當我新增一筆訂單時，訂單編號就會自動加1. ex:目前訂單編號是i432，新增一筆訂單時，訂單編號會自動出現i433. (如果不能有英文字母才能加1的話也可以) 謝謝

procedure TForm1.Button1Click(Sender: TObject); var n : integer; begin n := ADOTable1.FieldByName('bh').asinteger; //取当前值 n := n 1; ADOTable1.Append; ADOTable1.FieldByName('bh').asinteger := n; ... end;

您好﹗    在新增時﹐先查出目前資料表中訂單編號欄位最大的值﹐然后取出欄位值的后三位數字再加1即可﹒範例如下﹕

在ADOTable資料集元件的AfterInsert事件中﹕
Var
  Str: String;
begin
  //新增一個ADOQuery元件﹐此處以ADOQuery1為名
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('Select Max(訂單編號) From 資料表');
  ADOQuery1.Open;
  Str := Copy(ADOQuery1.FieldByName('訂單編號').AsString, 2, 3);
  Str := Format('%4.4d', [StrToInt(Str)+1]);
  ADOTable1.FieldByName('訂單編號').AsString := Str;
end;

================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================

------
忻晟