Problema combusca de dados

[marcos-rj 0]

Boa tarde.

Tenho um form onde seleciono alguns parametros e realizo uma busca no bd.

Os valores retornam num dbgrid. no dbgrid seleciono o que quero imprimir. ate aqui beleza!

 

Só q estou com o seguinte problema.

Ex.: faço uma busca no banco pelo nome MARCOS. ok, lista todos os marcos.

So que depois quero buscar pelo nome MARIA no banco, ai da o problema. não lista nada, para fazer uma nova busca, eu preciso fechar o form e abrir denovo.

o código:

 

procedure TFCartCTarja.SbBuscarClick(Sender: TObject);Beginif MaskEdit1.Text='' thenbeginApplication.MessageBox('O CAMPO NÃO PODE FICAR EM BRANCO', 'ATENÇÃO !',mb_ok + MB_ICONASTERISK);end;beginFRelCarCTarja:=TFRelCarCTarja.create(self);with FRelCarCTarja.QrPF dobegin If RgFiltro.ItemIndex=0 thenbegin FRelCarCTarja.QrPF.Close; FRelCarCTarja.QrPF.SQL.Clear; FRelCarCTarja.QrPF.SQL.Add('SELECT * FROM BDPF'); If RgCarteira.ItemIndex = 0 then FRelCarCTarja.QrPF.SQL.Add('WHERE TARJA = "S"') else FRelCarCTarja.QrPF.SQL.Add('WHERE TARJA = "N"'); end; FRelCarCTarja.QrPF.SQL.Add('AND NOME LIKE:P1'); FRelCarCTarja.QrPF.SQL.Add('ORDER BY NOME'); FRelCarCTarja.QrPF.ParamByName('P1').Value:='%' + MaskEdit1.Text + '%'; FRelCarCTarja.QrPF.Open;If FRelCarCTarja.QrPF.RecordCount < 1 thenShowmessage ('NÃO EXISTE DADOS PARA: '+MaskEdit1.Text +'!');MaskEdit1.Enabled:=True;endend;end;

alguem pode dar uma luz?

 

Obrigado

[marcos-rj 0]

fucei bastante aqui e descobri que:qquando eu realizo uma 2º busca, os valores q não estão sendo atualizado no dbgrid.Ja tentei da update, refresh no dbgrid mas nada funciona. alguem tem alguma ideia?

[marcio.theis 3]

Pq você sempre cria o form FRelCarCTarja? Onde você da um Show nele ou algo do tipo ?

 

if MaskEdit1.Text='' then	begin	Application.MessageBox('O CAMPO NÃO PODE FICAR EM BRANCO','ATENÇÃO !',mb_ok + MB_ICONASTERISK);	MaskEdit1.SetFocus;	Exit;	end;FRelCarCTarja:=TFRelCarCTarja.create(self);If RgFiltro.ItemIndex = 0 then	begin	FRelCarCTarja.QrPF.Close;	FRelCarCTarja.QrPF.SQL.Clear;	FRelCarCTarja.QrPF.SQL.Add('SELECT * FROM BDPF');	If RgCarteira.ItemIndex = 0 then		FRelCarCTarja.QrPF.SQL.Add('WHERE TARJA = "S"')	else		FRelCarCTarja.QrPF.SQL.Add('WHERE TARJA = "N"');	end;FRelCarCTarja.QrPF.SQL.Add('AND NOME LIKE:P1');FRelCarCTarja.QrPF.SQL.Add('ORDER BY NOME');FRelCarCTarja.QrPF.ParamByName('P1').Value:='%' + MaskEdit1.Text + '%';FRelCarCTarja.QrPF.Open;If FRelCarCTarja.QrPF.IsEmpty then	Showmessage ('NÃO EXISTE DADOS PARA: ' + MaskEdit1.Text + '!');MaskEdit1.Enabled:=True;

É retornado algum erro, alguma mensagem ?