procedure TForm1.Button8Click(Sender: TObject);
var t_sql:string;
begin
   if edit1.Text ='' then
   begin
      showmessage('沒有輸入搜尋條件！');
      abort;
   end
   else
   t_sql := 'SELECT CustomerNM FROM customer WHERE CustomerNM LIKE'   '%' edit1.text '%';
      query1.Close;
      query1.SQL.Text:=t_sql;
      query1.Open;
end;

引言: 'SELECT CustomerNM FROM customer WHERE CustomerNM LIKE ''%'+edit1.text+'%''' EDatabaseERROR with message 'DBEdit1:Field'CustomerNO not found

若是由上段(紅色部份)看來，你可能是打錯欄位名稱，或是漏打了 CustomerNO 不在查詢式select 語句中 請再檢查 發表人 - ddy 於 2003/03/12 01:21:32

procedure TForm1.Button8Click(Sender: TObject);
var t_sql: string;
begin //快速搜尋
if edit1.Text = '' then
begin
showmessage('沒有輸入搜尋條件！');
abort;
end
else
t_sql := 'SELECT * FROM customer WHERE CustomerNO LIKE'   #39   '%'   edit1.text   '%'   #39;
query1.Close;
query1.SQL.Text := t_sql;
query1.Open;
end;

procedure TForm1.Button8Click(Sender: TObject);
begin //快速搜尋
if edit1.Text = '' then
begin
showmessage('沒有輸入搜尋條件！');
abort;
end
else
query1.Locate('CustomerNO', Edit1.text, [loPartialKey]);
end;

procedure TForm1.Button8Click(Sender: TObject);
begin //快速搜尋
   if edit1.Text = '' then
      begin
         showmessage('沒有輸入搜尋條件！');
         abort;
      end
      else
         query1.Locate('CustomerNM', Edit1.text, [loPartialKey]);
end;

引言: CHIH：你寫的那一段修改後可以搜尋CustomerNO，但我把相關欄位再做修改後不能搜尋CustomerNM~底下是我修改後的程式... (edit1是CustomerNM用，edit2才是CustomerNO用) 對了，像你這種不是正規(常見)的SQL語法，是要看SQL的書嗎？因為delphi和delphi資料庫的書都是寫較正規傳統的語法....

引言:1.TEXT內容是"文字" 2.TEXT的內容是CustomerNM有的東西，因為是看著dbgrid輸入的！

引言: 想請教另一個問題，若找不到資料，要跳message說明，該如何寫呢？

..
..
    query1.Open;
    if query1.isEmpty then
      showmessage('沒有附合條件的資料！');
..

begin
  query1.close;
  query1.sql.text := 'select * from customer';
  query1.open;
end;

procedure TForm1.Button12Click(Sender: TObject);
begin//重讀
   query1.Close;
   Query1.SQL.Add('SELECT * FROM "customer.DB" order by CustomerNO');
   query1.Open;
end;

引言:

procedure TForm1.Button12Click(Sender: TObject);
begin//重讀
   query1.Close;
   Query1.SQL.Add('SELECT * FROM "customer.DB" order by CustomerNO');
   query1.Open;
end;

引言: CHIH：依你的寫法作了修正了，可是只能在沒有執行過搜尋功能前"重讀"才有作用，一但執行過查詢功能，再執行重讀，就會ERROR，錯誤訊息不變。

procedure TForm1.Button8Click(Sender: TObject);
var t_sql:string;
begin//快速搜尋客戶名稱
   if edit1.Text ='' then
   begin
      showmessage('沒有輸入搜尋條件！');
      abort;
   end
   else
      t_sql :='SELECT * FROM Customer WHERE CustomerNM LIKE ' #39 '%' Edit1.Text '%' #39 ' ORDER BY CustomerNM';
      query1.Close;
      query1.SQL.Text:=t_sql;
      query1.Open;
      if query1.isEmpty then
      begin
         showmessage('沒有符合條件的資料！');
         query1.Free;
      end;
end;

引言:

      if query1.isEmpty then
      begin
         showmessage('沒有符合條件的資料！');
         query1.Free;
      end;
end;