pesquisa de cliente no form cadastro de cliente

Question

No form cadastro de cliente gostaria de colocar um componente ao qual quando o usuario clicar nele vai abrir uma tela de pesquisa onde a medida q se digita o nome do cliente vai os nomes q se inicia c...

Lucas Silva · Answer

Usa um DBGrid.....e para aparecer todos os nomes com a letra que o usuario digitar � s� fazer uma consulta Sql usando like, e colocar esta consulta no evento KeyPress (ou onChange) do componente que o usuario vai digitar..( te aconselho a usar um edit)Espero Ter Ajudado!Lucas!...

Murilo · Answer

Obrigado pela ajuda Lucas  :D...

Wolverine · Answer

:lol:

Amigo no form que vc faz o cadastro inclua um botao, nele insira este codigo (onclick!!!) abaixo.

procedure TFormClientes.ButtonProcurarClick(Sender: TObject);
var
Nome: String;
begin
Nome := ��;
if InputQuery(�Procurar�, �Raz�o Social/Nome�, Nome) then
if not TableClientes.Locate(�RazaoSocial�, Nome,
[loCaseInsensitive, loPartialKey]) then
ShowMessage(�Raz�o Social/Nome n�o encontrado!�);

end;

ou vc pode fazer oq o amigo Lucas Alves Silva disse, porem tem outro metodo:

inclua um edit e um button
no no evento KeyPress (ou onChange) do button digite:

(lembro q deve haver um Query e o dbgrid)

query.close;
query.sql.clear;
Query.SQL.Add(�select * from clientes where RazaoSocial >= ��+Edit.Text+��);
query.open;

lembro tb q se os cliente foram cadastrados com Caps Lock teram q ser pesquisados em caps lock

qquer coisa, e-mail : marcioviniciusdias@bol.com.br

Wolverine · Answer

[quote:63c8c0302e=�Wolverine�]:lol: Amigo no form que vc faz o cadastro inclua um botao, nele insira este codigo (onclick!!!) abaixo.procedure TFormClientes.ButtonProcurarClick(Sender: TObject);varNome: String;beginNome := ��;if InputQuery(�Procurar�, �Raz�o Social/Nome�, Nome) thenif not TableClientes.Locate(�RazaoSocial�, Nome,[loCaseInsensitive, loPartialKey]) thenShowMessage(�Raz�o Social/Nome n�o encontrado!�);end;ou vc pode fazer oq o amigo Lucas Alves Silva disse, porem tem  outro metodo:inclua um edit no no evento KeyPress (ou onChange) do edit digite:(lembro q deve haver um Query e o dbgrid)query.close;query.sql.clear;Query.SQL.Add(�select * from clientes where RazaoSocial >= ��+Edit.Text+���);query.open;lembro tb q se os cliente foram cadastrados com Caps Lock teram q ser pesquisados em caps lockqquer coisa, e-mail : marcioviniciusdias@bol.com.br[/quote:63c8c0302e]...

Murilo · Answer

Me interessei pela sua primeira op��o q acredito n�o precisar usar um dbgrid ao qual n�o sou muito f� pois acredito q deixa o form muito carregado e tb pelo q entindi esta n�o precisa digitar em caps lock mesmo se tenha sido cadastrado em caps lock porem s� tem um problema o banco q estou usando eh o interbase ao qual n�o aceita comandos do tipo boleano como o loCaseInsensitive e o loPartialKey, vc sabe q comandos posso usar para substituir estes dois?

Wagner · Answer

Cara eu uso dessa forma para pesquisa simples, na minha opni�o � bem mais pratica.

No formul�rio cadastro de cliente crie um bot�o pesquisa que direcione para outro formulario (tipo f_pesquisa.showmodal) no formulario pesquisa (diminua o formulario para atras voce veja o formulario cliente) coloque um edit e um botao no evento onkeyup do edit digite:

procedure Form.Edit1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin

Form_clientes.Tb_cliente.findnearest([edit1.text]);

dessa forma a medida que voce for digitando e ele pesquisando e mudando atras ate para no nome que voce deseja

Espero ter ajudado

Murilo · Answer

Estou usando o interbase q n�o aceita fun��es do tipo boleana como findnearst porem com sua dica consegui implementar uma fun��o com o locate q ficou blz, obrigado pela ajuda....

F�rum pesquisa de cliente no form cadastro de cliente #203443