procedure TForm1.Button3Click(Sender: TObject);
begin
//檢測輸入的身份證字號是否重複
 if ADOTable1.Locate('身份證字號',DBEdit3.Text,[loCaseInsensitive]) then
 ShowMessage('身份證字號已存在，請不要重複輸入！')
end; 

引言: 呵呵 順便跟大家說一下 我們老師跟我們說了 白箱跟黑箱的測試 白箱是指個人的測試 程式是你所設計的 所以每個細節 你都很清楚 你測試時 需測試每以個指令 迴圈 看看有沒有bug 如果沒有 你的程式就會減少 70% ~ 80% 的錯誤 剩下的錯誤 就要用黑箱測試 黑箱測試 是指讓別人測試你的程式 因為你自己設計的程式有些地方是錯誤的 只是你自己並不知道 因為以你的觀點認為是對的 所以這時 就要讓別人測試 別在測試時 會用亂數輸入進去 如@!$%^HFhdhgdgh一些奇怪的符號 輸入進去 看你的電腦會不會當機 另外 還可一些軟體進行測試 如果你做了以上這兩項 的測試後 這樣你的軟體就會 非常Perfect了 我目前正在做白箱測試 哀 沒想到我的bug 還滿多的ㄋ

根據「[url="http://delphi.ktop.com.tw/pop_profile.asp?mode=display&id=3241"]包子 神[/url]」官方說法：多寫Bug程式，是一定要的拉！ 網海無涯，學無止境!

引言: 1. 建議您不要用dbedit感知元件, 因為它一輸入就己存檔, 無從再行處理, 您可以先用edit, 然後行檢查後, 再進行存檔動作

引言: 0. 不要用資料感知元件, 因為它會直接寫入資料庫, locate會找到自己, 如果堅持要用dbedit那畫面上的”存檔”要作什麼用？ 1."車牌號碼","車證號碼","學號"全部改用Tedit(作為暫存用，當使用者按”存檔”驗證後才寫入一筆資料) 2."車牌號碼","車證號碼","學號"全部建立索引 3."車牌號碼","車證號碼","學號"全部在Tedit onExit 內執行locate, 如果存 在的話,則產生一個例外 4. 然後秀出一個錯誤訊息表示資料重複 5. "車牌號碼".setfocus 請使用者修改或取消登錄 6. 你也可以在”存檔”按下時再一次找尋三個欄位是否重複，再決定要不要寫入資料庫 7. 以上的觀念得自dbaseIII , 我在寫Clipper, foxpro, delphi都是這樣處理的 努力會更接近成功

引言: Sorry 小弟在此附加一點 我是用ADOConnections 對Access做連結的

var dt:tadoquery;
begin
  dt:=tadoquery.create(self);
  dt.connection:=你的connection
  dt.sql.text:='select ....';
  dt.open;
  //判斷取回值,
  if dt.fields[i].value=
  ...
  dt.free;
end;

var dt:tadoquery;
begin
  //只在新增模式判斷
  if adotable1.state=dsinsert then begin
    dt:=tadoquery.create(self);
    dt.connection:=你的connection
    dt.sql.text:='select count(車牌號碼) from moto where 車牌號碼=' quotedstr(adotable1.fieldbyname('車牌號碼').asstring;
    dt.open;
    if dt.fields[0].value > 0 then begin
       showmessage ('已有此車牌號碼');
       abort;  
    end;
    dt.free;
  end;
end;