Selecionar dados de outra tabela
Estou desenvolvendo uma aplicação onde no cadastro de exames tenho um campo de paciente, quero colocar um botão de busca do lado do DBEdit que quando clicado abra um form com a lista de pacientes, dando um duplo clique sobre o paciente desejado, fecha-se o form da lista de pacientes e o DBEdit anterior seja preenchido com os dados do paciente selecionado.
Além do DBEdit, quero também preencher automaticamente outros compos do cadastro de exames também com dados da tabela paciente, por exemplo, o número do Cartão Sus do paciente que seria também trazido do form de busca.
Aguardo retorno urgente.
Lucas Souza
Curtidas 0
Respostas
Wesley Yamazack
13/04/2010
Olá amigo,
Eu fiz um exemplo aqui para ilustrar esta situação, a forma que fiz é mais ou menos como eu trabalho no meu dia-a-dia. Veja o link do exemplo http://video.devmedia.com.br/discovirtual/192388/ConsultaPaciente.rar
Obs : Fiz uma aplicação com XML, então basta você abrir que já estará funcionando sem banco de dados, ok ?
Abaixo tenho as descrições das funções..
Tela de Paciente
Tela básica de cadastro
Tela de ConsultaMedica
Observe que temos dois DataSource, o DSPaciente esta apontando para o CDSPaciente, automaticamente quando é selecionado um paciente pelo ClientDataSet todos os DataSources ligados a eles são alterados para o registro corrente.
DSConsultaMedica, é um datasource normal, ok ?
Tela de Pesquisa
Possui um método de pesquisa bem simples para localizar os dados do cliente.
Um abraço
Wesley Y
GOSTEI 0
Lucas Souza
13/04/2010
Wesley
Não consegui nem abrir a sua aplicação, lembrando que uso o Delphi 7.
Segue abaixo os links das telas de erros, dá uma olhada:
http://www.dolci.com.br/devmedia/tela1.gif
http://www.dolci.com.br/devmedia/tela2.gif
http://www.dolci.com.br/devmedia/tela3.gif
GOSTEI 0
Wesley Yamazack
13/04/2010
Olá amigo,
Irá aparecer diversos erros de propriedades que tem no Delphi 2010, e não tem no Delphi 7, mas da forma que fiz, basta você ignorar todos os erros, e salvar o projeto, depois compilar novamente, qnd a 3 imagem,basta você apagar esta linha, e salvar.
Um abraço
Wesley Y
Irá aparecer diversos erros de propriedades que tem no Delphi 2010, e não tem no Delphi 7, mas da forma que fiz, basta você ignorar todos os erros, e salvar o projeto, depois compilar novamente, qnd a 3 imagem,basta você apagar esta linha, e salvar.
Um abraço
Wesley Y
GOSTEI 0
Lucas Souza
13/04/2010
Fiz o que você disse, outro erro apareceu.
http://www.dolci.com.br/devmedia/tela3.gif
GOSTEI 0
Lucas Souza
13/04/2010
Desconsidere a ultima interação o erro é essa tela aí:
http://www.dolci.com.br/devmedia/tela4.gif
GOSTEI 0
Wesley Yamazack
13/04/2010
Esta imagem que você mandou, basta você apagar esta linha,
Um abraço
Wesley Y
Um abraço
Wesley Y
GOSTEI 0
Lucas Souza
13/04/2010
é que o link saiu errado, o certo é:
http://www.dolci.com.br/devmedia/tela4.gif
se sair a tela 3 novamente, digite isso acima no navegador.
GOSTEI 0
Wesley Yamazack
13/04/2010
Olá amigo, tenta resolver desta forma vá ao formulário principal, e de uses em midaslib, veja se isso ira resolver o problema, estou preparando um ambiente com delphi 7 para poder lhe ajudar melhor, caso não consiga. Olhando o código você não consegue entender o que foi feito e tentar traduzir para seu problema?
Um abraço
Wesley Y
Um abraço
Wesley Y
GOSTEI 0
Wesley Yamazack
13/04/2010
Olá amigo, consegui montar o ambiente com Delphi 7, retirei os erros que lhe falei, e funcionou, você consegui algum progresso ? Caso não tenha conseguido me mande os fontes do seu projeto, um protótipo/exemplo que vou analisar melhor.
Um abraço
Wesley Y
Um abraço
Wesley Y
GOSTEI 0
Lucas Souza
13/04/2010
Fiz as alterações aue você disse, mas quando mando compilar, abre a aplicação e em seguida fecha.
Se tem o modelo em Delphi 7, me passa pra gente finalizar esse atendimento, aguardo.
Grato.
GOSTEI 0
Wesley Yamazack
13/04/2010
Olá amigo, veja o link abaixo onde fiz em delphi 7 com XML.
http://video.devmedia.com.br/discovirtual/192388/ExemploConsultaPaciente.rar
Um abraço
Wesley Y
http://video.devmedia.com.br/discovirtual/192388/ExemploConsultaPaciente.rar
Um abraço
Wesley Y
GOSTEI 0
Wesley Yamazack
13/04/2010
Olá amigo,
Consegui baixar o exemplo ? Estamos aguardando para dar continuidade com o chamado.
Att,
Wesley Y
Consegui baixar o exemplo ? Estamos aguardando para dar continuidade com o chamado.
Att,
Wesley Y
GOSTEI 0
Lucas Souza
13/04/2010
Amigo
Estou pra desistir disso, se eu contratei esse serviço é pra ganhar tempo e aprender algo, mas está ficando pior, se for pra mim usar como exemplo esse seu, eu pegaria grátis na internet e estudava.
Acho melhor deixar quieto, pois estamos é perdendo tempo.
http://www.dolci.com.br/devmedia/tela5.gif
Erros e erros.
GOSTEI 0
Wesley Yamazack
13/04/2010
Olá amigo,
Observe esta video aula que eu gravei, veja que no meu ambiente funciona, agora o problema esta no seu ambiente.
Eu postei o exemplo para você no dia 19/04, o serviço não é lento o problema é que seu ambiente deve estar com algum problema, pois somente hoje que você foi responder o chamado.
Veja o link abaixo da video
http://www.4shared.com/file/iEyHNcYL/videopaciente.html
Solução, tente reinstalar o seu Delphi, senão der certo, faça um exemplo com as tabelas envolvidas, e um formulário e eu altero o teu exemplo para fazer a busca que você quer.
Att,
Wesley Y
Observe esta video aula que eu gravei, veja que no meu ambiente funciona, agora o problema esta no seu ambiente.
Eu postei o exemplo para você no dia 19/04, o serviço não é lento o problema é que seu ambiente deve estar com algum problema, pois somente hoje que você foi responder o chamado.
Veja o link abaixo da video
http://www.4shared.com/file/iEyHNcYL/videopaciente.html
Solução, tente reinstalar o seu Delphi, senão der certo, faça um exemplo com as tabelas envolvidas, e um formulário e eu altero o teu exemplo para fazer a busca que você quer.
Att,
Wesley Y
GOSTEI 0