Filtros...voltar ao estado normal

Delphi

22/11/2005

tenho este código que faz busca por eliminação

   with BD_CONT_REC do
    begin
    Close;
    SQL.Clear;
    SQL.Add(´SELECT * FROM CONTAS_RECEBER´);
    SQL.Add(´WHERE UPPER(GS_COR_NOME) LIKE:GS_COR_NOME´);
    BD_CONT_REC.Params[0].AsString := UpperCase(Edit1.Text) + ´¬´;
    BD_CONT_REC.Open;
  end;


Só que quando presciso de um nova busca tenho que sair do form para relver os outros dados..em um button como ficaria este código para voltar todos os registros na tela ?

vlw


Gigatel

Gigatel

Curtidas 0

Respostas

Edilcimar

Edilcimar

22/11/2005

se for para fazer novo select, ele vai pegar o novo valor do edit1 e vai fazer nova pesquisa, se quizer mostrar tudo sem nenhum filtro basta colocar o edit em branco


GOSTEI 0
Gigatel

Gigatel

22/11/2005

se for para fazer novo select, ele vai pegar o novo valor do edit1 e vai fazer nova pesquisa, se quizer mostrar tudo sem nenhum filtro basta colocar o edit em branco


Más estava querendo colocar um buton ´´´NOVA PESQUISA´´´ e depois do comando executado ( o que estou prescisando ) dar um setfocus no edit


GOSTEI 0
POSTAR