 |
ActiveDelphi
.: O site do programador Delphi! :.
|
| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
marcosbaixista
Profissional
Registrado: Quinta-Feira, 18 de Março de 2010
Mensagens: 594
Localização: Maringá/PR
|
 Enviada: Qui Abr 01, 2010 8:09 pm Assunto: Tela de consulta |
 |
|
Olá galera.
To com uma duvida aqui, e nao tenho nem ideia de como resolver.
Seguinte
Criei uma tela de consulta de cliente, onde lista os clientes cadastrados no sistema.
Essa tela será usada para selecionar o cliente na tela de venda, orçamento, e em meus relatorios.
Como faço pra usar o mesmo form nessas telas?
No caso dos relatorios, eu tenho a opção de limitar os clientes.
Por exemplo.
Cliente 0001 ate o cliente 0005.
Eu queria usar essa mesma tela de consulta pra buscar esses clientes tbm nos edits.,
Alguem tem uma luz pra minha cabecinha fechada?
Obrigado a todos. |
|
| Voltar ao Topo |
|
 |
johnny-walker
Moderador
Registrado: Sábado, 4 de Outubro de 2003
Mensagens: 10653
Localização: Contagem/MG - BRAZIL
|
| Enviada: Qui Abr 01, 2010 8:32 pm Assunto: |
|
|
Amigo de uma olhada no demo do delphi o mastapp e o ibmastapp, lá vc poderá ter uma ideia de como reaproveitar telas de pesquisa e adaptar para uso com dbexpress, no meu fiz uma ideia semelhante, mas com código todo reestruturado para o uso com dbexpress, contendo várias melhorias no código original...
geralmente estes demos ficam em:
drive:\Arquivos de programas\Borland\Delphi7\Demos\Db
Há outros métodos, inclusive nos demos das revistas activedelphi tem alguns demonstrando reaproveitamento de pesquisa, de uma procurada tb que vale a pena.
bye
_________________
P.O.W.E.R B.Y D.E.L.P.H.I |
|
| Voltar ao Topo |
|
|
leostyles
Aprendiz
Registrado: Quarta-Feira, 7 de Janeiro de 2009
Mensagens: 193
Localização: Brasilia - Distrito Federal
|
| Enviada: Qui Abr 01, 2010 8:50 pm Assunto: Re: Tela de consulta |
|
|
| marcosbaixista escreveu: | Olá galera.
To com uma duvida aqui, e nao tenho nem ideia de como resolver.
Seguinte
Criei uma tela de consulta de cliente, onde lista os clientes cadastrados no sistema.
Essa tela será usada para selecionar o cliente na tela de venda, orçamento, e em meus relatorios.
Como faço pra usar o mesmo form nessas telas?
No caso dos relatorios, eu tenho a opção de limitar os clientes.
Por exemplo.
Cliente 0001 ate o cliente 0005.
Eu queria usar essa mesma tela de consulta pra buscar esses clientes tbm nos edits.,
Alguem tem uma luz pra minha cabecinha fechada?
Obrigado a todos. |
Cara eu uso assim.... nao sei se é a maneira certa mais atende ao que eu quero. no formulario principal eu declarei uma variavel chamada Formulario. ae por exemplo se eu estou no formulario de Pesquisa Cliente no onshow desse Form a minha variavel recebe o nome do Form.... ja no cadastro de Servico ou no Duplicata quando eu clico no botao novo ele abre o formulario de Pesquisa Cliente mas com a variavel global recebendo o nome do Form que chamou e entrando nos ifs abaixo.
espero que ajude.
| Código: | var PegaNomeCliente: String;
begin
PegaNomeCliente:= (DBGrid1.Columns[1].Field.AsString);
if Formulario = 'FrmPesquisaCLiente' then
begin
if Application.MessageBox(Pchar ('Deseja Visualizar ou Alterar os dados de ' + PegaNomeCliente),
'Pesquisa de Cliente' , MB_YESNO) = idYes then
FrmCadastroCliente.ShowModal
end
else if Formulario = 'FrmConcertos' then
begin
if Application.MessageBox(Pchar('Deseja Incluir '+ PegaNomeCliente + ' neste Conserto?'),
'Pesquisa de Cliente' , MB_YESNO) = idYes then
begin
With DM.Tabela_Cliente do
begin
Filter := 'CdCliente = ' + QuotedStr(IntToStr (ID));
Filtered := True;
end;
Dm.Tabela_Cliente.Open;
Dm.Tabela_Conserto.Open;
DM.Tabela_Conserto.Insert;
FrmConcertos.DataPedido.SetFocus;
Close;
end;
end
else if Formulario = 'FrmCadastroDuplicata' then
begin
if Application.MessageBox( Pchar ('Deseja Incluir o Cliente '+ PegaNomeCliente +' nesta Duplicata?'),
'Pesquisa de Cliente' , MB_YESNO) = idYes then
begin
With DM.Tabela_Cliente do
begin
Filter := 'CdCliente = ' + QuotedStr(IntToStr (ID));
Filtered := True;
end;
end;
Dm.Tabela_Cliente.Open;
DM.Tabela_Duplicata.Open;
DM.Tabela_Duplicata.Insert;
FrmCadastroDuplicata.NumeroOS.SetFocus;
Close;
end;
end; |
|
|
| Voltar ao Topo |
|
|
marcosbaixista
Profissional
Registrado: Quinta-Feira, 18 de Março de 2010
Mensagens: 594
Localização: Maringá/PR
|
| Enviada: Sex Abr 02, 2010 1:06 pm Assunto: |
|
|
Olá galera
Não consegui entender direito os demos do delphi.
Também nao consegui entender o exemplo da nossa amiga ai.
E onde vc coloca, em qual evento, os comandos listados ai?
Fiquei na duvida onde colocar.
Mais minha duvida maior é o seguinte.
Imagine que eu tenho um filtro de um relatorio certo.
Onde eu quero filtrar do cliente x ate o cliente y.
No caso, onde farei o filtro do relatorio, terei dois edits para incluir os clientes.
Em cada edit, eu quero chamar o formulario de consulta de cliente para buscar o cliente certo.
Ai nao to conseguindo incluir o codigo do cliente no edit1 e depois no edit2. |
|
| Voltar ao Topo |
|
|
johnny-walker
Moderador
Registrado: Sábado, 4 de Outubro de 2003
Mensagens: 10653
Localização: Contagem/MG - BRAZIL
|
| Enviada: Sáb Abr 03, 2010 5:22 pm Assunto: |
|
|
Amigo sugiro vc dar uma olhada nos arquivos da activedelphi de número 39, lá vc encontrará um exemplo de como aproveitar pesquisas...
bye
_________________
P.O.W.E.R B.Y D.E.L.P.H.I |
|
| Voltar ao Topo |
|
|
|
|
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
