Where

1,

with ClientDataModule.tbl_emp do
  begin
    Close;
    Where.Clear;
    Where.AddValueGroup('JOB',['SALESMAN','ANALYST']);
    Where.AddText(' AND EMPNO > 7600 ');
    Memo1.Text := Where.Clause;
    ShowMessage(Memo1.Text);
    MaxRecords := 100;
    Open;
  end;

说明：//一 复合条件
// Where.AddConditions(['CustomerID'],
// [cEqual],
// ['ALFKI'], opAnd);
//二 增加一段条件
// Where.AddText('CustomerID = ''ALFKI''');
//三 增加一个in条件 Where.AddValueGroup('CustomerID',['ALFKI']);
// OpenBraket 增加一个左括号，CloseBraket增加一个右括号
// Where.OpenBraket;
// Where.CloseBraket;

  with ClientDataModule.tbl_emp do
  begin
    Close;
    Where.Clear;
    Where.AddConditions(['ENAME','JOB'],[cLike,cLike],[Edit1.Text, Edit2.Text],opAND);
    Memo1.Text := Where.Clause;
    MaxRecords := 100;
    Open;
  end;

http://www.cnblogs.com/colincode/archive/2010/12/21/1912810.html