procedure TForm1.FormCreate(Sender: TObject);
begin
  //目的是希望一執行表單時,dbgrid內容是空白的(當然資料庫中是有資料的)
  //S1、S2為時0時表條件不成立
  with Query1 do
  begin
    Close;
    ParamByName('S1').AsInteger := 0;
    ParamByName('S2').AsInteger := 0;
    Open;
  end;
end;    //查詢鈕
procedure TForm1.Button1Click(Sender: TObject);
begin
  //目的利用Query1查詢
  //S1、S2為時1時表條件成立
  with Query1 do
  begin
    Close;
    ParamByName('S1').AsInteger := 1;
    ParamByName('PFieldName1').AsString := 'xxx';
    ParamByName('S2').AsInteger := 1;
    ParamByName('PFieldName2').AsString := 'xxx';
    Open;
  end;
end;