你們好 ，因我之前用兩個edit做為查詢條件，程式碼如下: procedure TForm1.SpeedButton3Click(Sender: TObject); begin if not query1.Locate ('LBPDID',edit1.Text ,[locaseinsensitive, lopartialkey])then begin IF not query1.Locate ('LBPRTY',edit2.Text ,[locaseinsensitive, lopartialkey]) then else showmessage('找不到資料!'); end; end; 那麼，如何將這一段程式改成SQL語法呢?

您好﹗

procedure TForm1.Button1Click(Sender: TObject);
begin
  Query1.Close;
  Query1.SQL.Clear;
  Query1.SQL.Add('Select * From 您的資料表名稱 Where ');
  Query1.SQL.Add('LBPDID='''+Edit1.Text+''' and ');
  Query1.SQL.Add('LBPRTY='''+Edit2.Text+'''');
  //以上皆為單引號
  Query1.Open;
  if Query1.IsEmpty then
    ShowMessage('找不到相符合的資料');
end;
以上為不分大小寫的SQL查詢﹐如果需要再加上部分符合條件就算符合的話（功能相同于Locate方法的loPartialkey參數﹐請參考如下﹕
procedure TForm1.Button1Click(Sender: TObject);
begin
  Query1.Close;
  Query1.SQL.Clear;
  Query1.SQL.Add('Select * From 您的資料表名稱 Where ');
  Query1.SQL.Add('LBPDID Like ''%'+Edit1.Text+'%'' and ');
  Query1.SQL.Add('LBPRTY Like ''%'+Edit2.Text+'%''');
  Query1.Open;
  if Query1.IsEmpty then
    ShowMessage('找不到相符合的資料');
end;

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

------
忻晟

恩…我試出來了，謝謝你!