Dúvida Dbgrid.

[Guest - ANINHA -]

Galera é o seguinte,

em meu sisteminha, to fazendo uma pesquisa por FUNCIONARIO ou por INTERNO, selecionando o tipo da pesquisa atraves de um RADIOGROUP, mas tenho um DBGRID que preciso ligar o seu DATASOURCE de acordo aom a pesquisa, e não estou conseguindo obter sucesso em minhas tentativas, se alguém puder me ajudar agradeceriei muito.

A parte do código que está relacionada com esta dúvida, segue abaixo.

//////////////////

if RadioGroup1.ItemIndex = 0 then

begin

DMDados.QueryCrianca.Open;

DBGrid1.DataSource := DMDados.DataSourceCrianca;

with DMDados.QueryCrianca do

begin

if Active then Close;

SQL.Clear;

Filtered := False;

SQL.Add(' SELECT * FROM CRIANCA ' +

' WHERE NOME_CRI LIKE ' + '''' + '%' + Edit1.Text + '%' + '''' +

' ORDER BY COD_CRI');

Prepare;

Open;

if IsEmpty then

Begin

pnlMensagem.Caption := 'NÃO CADASTRADO.';

Edit1.SetFocus;

Edit1.SelectAll;

end

else

Begin

DBGrid1.SetFocus;

end;

end;

end;

if RadioGroup1.ItemIndex = 1 then

begin

DBGrid1.DataSource := DMDados.DataSourceFuncionario;

DMDados.QueryFuncionario.Open;

with DMDados.QueryFuncionario do

begin

if Active then

Close;

SQL.Clear;

Filtered := False;

SQL.Add(' SELECT * FROM FUNCIONARIO ' +

' WHERE NOME_FUNC LIKE ' + '''' + '%' + Edit1.Text + '%' + '''' +

' ORDER BY MATR_FUNC');

Prepare;

Open;

if IsEmpty then

Begin

pnlMensagem.Caption := 'FUNCIONÁRIO NÃO CADASTRADO.';

Edit1.SetFocus;

Edit1.SelectAll;

end

else

Begin

DBGrid1.SetFocus;

end;

end;

end;

//////////////////

BJU E OBRIGADA A TODOS.

[Kikonanet]

Olá Aninha,

Tenta fazer assim:

with Query do
 begin
  Close;
  SQL.Clear;
  SQL.Add(' SELECT * FROM CRIANCA 
  SQL.Add('WHERE NOME_CRI LIKE '+QuotedStr(Edit1.Text));
  SQL.Add('ORDER BY COD_CRI');
  Open;

qualquer coisa posta ae.

Abs.

Kiko

[bastard2003]

Oi Aninha pelo q eu pude entender na tua descrição do problema você tem duas qrys e um grid com dois selects diferentes dependendo da opção q a pessoa escolher no radio né??? se for isso faz o seguinte... coloca dois DataSource um pra cada qry..

ai tu faz o seguite no clic do botão da consulta:

if rbFUNCIONARIO.Checked then
   dbGrid1.DataSource := dtsFUNCIONARIO
else
   dbGrid1.DataSource := dtsINTERNO;

esse codigo ai deve resolver teu problema... se algo não funciona... posta ai!

[Guest - ANINHA -]

deu certo....

BRIGADIM..

bju