simular evento OnChange num ImputBox...

Question

alguem sabe se teria como simular o evento OnChange para o edit de um InputBox ou inputQuery ???exemplo:o cara vai digitando no inputbox, e por traz o DBGrid vai trazendo os dados Like :pesquisaCDS_pe...

Mahdak · Answer

[quote:1e3badcea5=�mahdak�]CDS_pesquisa.CommandText := �SELECT * FROM TABELA WHERE CAMPO LIKE :pesquisa�;CDS_pesquisa.Parambyname(�pesquisa�) := pesquisa[/quote:1e3badcea5]pesquisa := inputbox.......

Rodc · Answer

Voc� teria de fazer o seu pr�prio InputBox para acessar o evento. Os componentes (incluindo o form) do InputBox do Delphi s�o criados dinamicamente pela fun��o, ou seja, n�o tem como voc� acess�-los.

Mahdak · Answer

bom ja que nao tem como fazer isso, sera que teria como acessar o Evento OnChange de um TEdit de um Tform (no caso o inputbox que eu vou criar em tempo de projeto) , estando em outro TForm?

um exemplo....

// procedure para consulta sql
procedure TFormClientes.consulta(pesquisa:string);
begin
CDS.close;
CDS.commandtext  �select * from tabela where campo LIKE :pesquisa�
CDS.parambyname(�pesquisa�).asstring := pesquisa;
CDS.open;
end;

procedure TFormClientes.Btn_PesquisarClick(Sender: TObject);
begin
FormInputbox.Edit_pesquisa.OnChange(consulta(Edit_pesquisa.text);)
end

ser� que rola algo assim, pra eu nao precisar ter que fazer um form de consulta para cada formulario relacionado a uma tabela do meu sistema....

Mahdak · Answer

[quote=�mahdak�]um exemplo....[code:1:f83931413f]procedure TFormClientes.Btn_PesquisarClick(Sender: TObject);beginFormInputbox.Edit_pesquisa.OnChange(consulta(Edit_pesquisa.text);)end[/code:1:f83931413f][quote]opssss[code:1:f83931413f]procedure TFormClientes.Btn_PesquisarClick(Sender: TObject);beginFormInputbox.Edit_pesquisa.OnChange(FormClientes.consulta(Edit_pesquisa.text);)end[/code:1:f83931413f]...

Rodc · Answer

Voc� teria que ter uma fun��o de evento para atribu�-la ao OnChange do Edit. E n�o esque�a de remover o evento do OnChange antes de fechar o Form.

//procedure para consulta sql 
procedure TFormClientes.consulta(pesquisa:string); 
begin 
  CDS.close; 
  CDS.commandtext  �select * from tabela where campo LIKE :pesquisa� 
  CDS.parambyname(�pesquisa�).asstring := pesquisa; 
  CDS.open; 
end; 

procedure TFormClientes.Btn_PesquisarClick(Sender: TObject); 
begin 
  FormInputbox.Edit_pesquisa.OnChange := MeuOnChange;
  FormInputbox.Edit_pesquisa.ShowModal;
  FormInputbox.Edit_pesquisa.OnChange := nil;
end;

procedure TFormClientes.MeuOnChange(Sender: TObject); 
begin 
  consulta(FormInputbox.Edit_pesquisa.Text);
end;

Mahdak · Answer

beleza brow, vou testar aqui... abra�ao!...

Rodc · Answer

Oppps tamb�m.... corr�ge a fun��o abaixo:

procedure TFormClientes.Btn_PesquisarClick(Sender: TObject); 
begin 
  FormInputbox.Edit_pesquisa.OnChange := MeuOnChange; 
  FormInputbox.ShowModal; 
  FormInputbox.Edit_pesquisa.OnChange := nil; 
end;

Mahdak · Answer

testei, e deu certo!!!, s� tem uma quest�o que ficou pendente... como a minha pesquisa � do tipo, o usu�rio vai digitando e o DBGrid vai mostrando os registros aproximados ao que est� sendo digitado, ou seja, �LIKE�, eu fiz o que t� no codigo abaixo, mas me pareceu que o ClientDataSet nao aceita LIKE...., ele s� me retorna os termos exatos da pesquisa, ou seja, �quando for igual a�... Como proceder nessa situa�ao para dbExpress?

Procedure TCadLogin.Consultar(pesquisa:string);
begin
    DM.CDS_Usu.Close;
    DM.CDS_Usu.CommandText := �SELECT * FROM USUARIOS WHERE LOGIN LIKE � + Quotedstr(pesquisa); 
    DM.CDS_Usu.open;
end;

OBS: tentei tambem com o SQLDataSet, e tambem nao deu....

abra�os

Djjunior · Answer

vc precisa colocar os � pra funcionar

Procedure TCadLogin.Consultar(pesquisa:string);
begin
DM.CDS_Usu.Close;
DM.CDS_Usu.CommandText := �SELECT * FROM USUARIOS WHERE LOGIN LIKE � + Quotedstr(��+pesquisa+��);
DM.CDS_Usu.open;
end;

espero ter ajudado.

F�rum simular evento OnChange num ImputBox... #329519