請問一下要是系統中有一個欄位是訂單編號那我要如何當使用者輸入編號後判斷這個編號有存在資料庫中 然後當他輸入的編號有存在資料庫中才允許在往下一個欄位進行編輯的動做謝謝!! 我用的資料庫是bde 連access2000!!請大大教一下

在 TDBEdit 的 OnExit 事件中,

procedure TForm1.DBEdit1Exit(Sender: TObject);
begin
  Query1.Close;
  Query1.SQL.Text := 'Select ID From Table1 Where ID = '   DBEdit1.Text;
  Query1.Open;
  if not Query1.IsEmpty then begin
    ShowMessage(DBEdit1.Text   ' 編號已存在');
    DBEdit1.SetFocus;
  end;
end;

--- 歡迎光臨 KTop 研究院

procedure TPLU4115F.quT10MPRDPrd_IdValidate(Sender: TField); begin with TQuery.Create(nil)do begin DataBaseName:='jxcdb'; SQL.Add('select prd_id,scn_id from t10mprd where prd_id=:prd_id or scn_id=:prd_id'); ParamByName('prd_id').AsString:=Trim(quT10MPRDPrd_Id.Value); Open; if RecordCount>0 then raise Exception.Create('商品编码重复！') else begin quT10MPRDScn_Id.Value:=quT10MPRDPrd_Id.Value; end; end; end;