各位大大你們好: 我有一個DBedit1的元件,然後它是主鍵.我今天如果按新增時 DBedit1要自動編號,我的dbedit1現在是空的, 想第一個編000001已此類推... 請問各位大大要怎麼做....謝謝各位大大...感謝你們;;;

對不起..補充一下 我是用ADOquery...謝謝

您好﹗    在Form中再加一個ADOQuery2元件﹐在對應資料表的ADOQuery1元件新增后（AfterInsert事件）﹐先用ADOQuery2元件來查詢當前的資料表中有無資料﹐若無資料就將000001值指定給DBEdit1﹐如果有值的話﹐就使用ADOQuery2查詢當前資料表中DBEdit1對應主鍵的最大值﹐將此值再加1﹐指定給DBEdit1即可﹒ 另外需要注意的一個問題是DBEdit1對應的主鍵欄位是字串型態﹐在取得當前最大值并做+1的動作時需要將其轉為Integer形態﹐然后再在指定給新增筆資料時轉為原來的字串形態﹐範例如下﹕

將ADOQuery2正确連結到上游的ADOConnection元件﹐設定与ADOQuery1相同﹐在ADOQuery1的AfterInsert事件中﹕
Var
  MaxField : String;
begin
  ADOQuery2.Close;
  ADOQuery2.SQL.Clear;
  ADOQuery2.SQL.Add('Select * From 資料表');
  ADOQuery2.Open;
  if Not ADOQuery2.IsEmpty then
    begin
      ADOQuery2.Close;
      ADOQuery2.SQL.Clear;
      ADOQuery2.SQL.Add('Select Max(主鍵欄位名) From 資料表');
      ADOQuery2.Open;
      MaxField := ADOQuery2.Fields.Fields[0].Value;
      DBEdit1.Text := Format('%6.6d', [StrToInt(MaxField)+1]);
    end
  else
    begin
      DBEdit1.Text := '000001';
    end;
end;

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

------
忻晟

你好 cashxin2002大大的程式碼可以再減少一點喔!!這樣就不用跟資料庫要兩次資料

  MaxField : String;
begin
  ADOQuery2.Close;
  ADOQuery2.SQL.Clear;
  ADOQuery2.SQL.Add('Select Max(主鍵欄位名) as maxno From 資料表');
  ADOQuery2.Open;
  if ADOQuery2maxno.asstring <> '' then
  begin
    MaxField := ADOQuery2.Fields.Fields[0].Value;
    DBEdit1.Text := Format('%6.6d', [StrToInt(MaxField) 1]);
  end
  else
  begin
    DBEdit1.Text := '000001';
  end;
end;

Pillar Wang

------
Pillar Wang