Sz:=FCedit1.Text; if (Length(TrimRight(TrimLeft(FCEdit1.Text))) = 0) or (Length(TrimRight(TrimLeft(FCEdit1.Text))) < 8) then Showmessage('代號為 空白或小於８碼') else if (Length(TrimRight(TrimLeft(FCEdit1.Text))) = 8 ) and (Cinsert='T') then begin 第一使用:輸入[12345678]結果答案告訴我代號以存在(companyno為key值) data 跟本沒有代號[12345678] ? CompADOQuery2.Locate('companyno',FCedit1.Text,[loPartialkey]); if CompADOQuery2.Eof then showmessage('111'); 第二使用:輸入[12345678]結果答案告訴我代號不存在 CompADOQuery2.SQL.Clear; CompADOQuery2.SQL.Add('select * from hcompany where companyno=fcedit1.Text'); if CompADOQuery2.Eof then showmessage('111'); 霧薩薩?

CompADOQuery2.SQL.Add('select * from hcompany where companyno=fcedit1.Text'); 改成: CompADOQuery2.SQL.Add('select * from hcompany where companyno = ''' fcedit1.Text ''''); --- Have you ever wondered what it would be like?

改為這樣...

  if CompADOQuery2.Locate('companyno',FCedit1.Text,[loPartialkey]) then
     showmessage('111')
   else
     showmessage('無資料');

TRY TRY SEE

引言: 第一使用:輸入[12345678]結果答案告訴我代號以存在(companyno為key值) data 跟本沒有代號[12345678] ? CompADOQuery2.Locate('companyno',FCedit1.Text,[loPartialkey]); if CompADOQuery2.Eof then showmessage('111');

引言: Sz:=FCedit1.Text; if (Length(TrimRight(TrimLeft(FCEdit1.Text))) = 0) or (Length(TrimRight(TrimLeft(FCEdit1.Text))) < 8) then Showmessage('代號為 空白或小於８碼') else

1. 由於所有空白的代號必定小於8碼，所以不需要空白條件只留 < 8 條件即可。 2. 既然定議了 Sz , 為何不用呢? <>< face="Verdana, Arial, Helvetica">引言: if (Length(TrimRight(TrimLeft(FCEdit1.Text))) = 8 ) and (Cinsert='T') then begin 第一使用:輸入[12345678]結果答案告訴我代號以存在(companyno為key值) data 跟本沒有代號[12345678] ? CompADOQuery2.Locate('companyno',FCedit1.Text,[loPartialkey]); if CompADOQuery2.Eof then showmessage('111'); 1. 你用 Locate(...[loPartialKey]) 最後會去到最接近你輸入的下一筆記錄，例如若檔案沒 12345678 但有 12345679，就會去到 12345679 而不是 Eof。 2. 建議使用 Chih 兄提議的方法直接讀取 Locate 的回傳值 (成功與否) 來判別。不過，建議別用 loPartialKey，因為若你的資料沒有 12345678 但有 123456789 時，若用了 loPartialKey ，會判別為成功。

引言: 第二使用:輸入[12345678]結果答案告訴我代號不存在 CompADOQuery2.SQL.Clear; CompADOQuery2.SQL.Add('select * from hcompany where companyno=fcedit1.Text'); if CompADOQuery2.Eof then showmessage('111'); 霧薩薩?

1. SQL 裡的文字是直接傳給數據庫的，你的數據庫又甚會知道甚麼是 fcedit1.Text 呢? 另外，你有 open CompADOQuery2 罷。 總合建議程式碼如下 :

  Sz:=FCedit1.Text;
  if Length(Trim(Sz) < 8 then
    Showmessage('代號為 空白或小於８碼') 
  else if (Length(Trim(Sz)) = 8 ) and (Cinsert='T') then 
  begin
    if not CompADOQuery2.Locate('companyno',Sz,[]) then
      showmessage('111');
  end;    第二使用:  
  CompADOQuery2.SQL.Text := 'select * from hcompany where companyno='''   Sz   '''';
  CompADOQuery2.Active := true;
  if CompADOQuery2.isEmpty then
    showmessage('111');

修正:加上紅色部份因為應是找不到時 ShowMessage 發表人 - Justmade 於 2003/03/28 09:00:34

引言: 請問使用 adoquery1.Locate('companyno',FCedit1.Text,[]); 與 CompADOQuery1.SQL.Text := 'select * from hcompany where companyno=''' Sz ''''; 比較之下何種速度較快?謝謝Hagar,Chih,Justmade

Locate, 因為不用重新載入資料。

引言: 謝謝大家