[firebase-br] Trocar o Uso do Like por Containing....

[Zottis]

Bom Dia Turma....

Estou com uma dúvida.

tenho formulários de Pesquisa que ainda usam o comando "LIKE", mas estou 
trocando pelo uso  de CONTAINING e STARTING WITH

mas aí a dúvida....

             With Busca do
               Begin
                   Close;
                   sql.Clear;
                   sql.Add('select ............');
                   sql.Add ('from CtaPag,Fornecedores');
                   sql.Add ('where');
                   sql.Add ('CtaPag.FornecedorNo = Fornecedores.FornecedorNo 
and CtaPag.DELETADO = ''N''and');

                   sql.Add ('(CtaPag.Pago) Like(:VarPago) and');    /// 
<<<<======== AQUI A DÚVIDA


                   sql.Add ('(Vencimento Between :VarDataI and :VarDataF) 
and');
                   sql.Add ('Upper(Fornecedores.razaoSocial) CONTAINING 
Upper(:VarNome) or Upper(Fornecedores.NomeFantasia) CONTAINING 
Upper(:VarNome)');
                   sql.Add ('order by 
Vencimento,CTAPAG.FORNECEDORNO,contano');
                   ParamByName('VarDataI').AsDate    := Data1.Date;
                   ParamByName('VarDataF').AsDate    := Data2.Date;
                   ParamByName('VarNome').AsString   := MaskEdit1.Text;

                      if radioGroup1.ItemIndex=0 then
                        begin
                        ParamByName('VarPago').AsString  := '%';  <<===== 
COMO PASSAREI A OPÇÃO QUANDO SÃO OS DOIS TIPOS("S" e "N")?
                        end else
                      if radioGroup1.ItemIndex=1 then
                        begin
                        ParamByName('VarPago').AsString:='S';
                        end else
                      if radioGroup1.ItemIndex=2 then
                        begin
                        ParamByName('VarPago').AsString:='N';
                        end;
                   Prepare;
                   Open;
               End;


valeu


Zottis

USO DElphi7 FB 2.0 e MDO