F�rum Selecionar dados de outra tabela #134784

13/04/2010

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

Curtir t�pico

+ 0

Responder

Posts

13/04/2010

Wesley Yamazack

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

Responder

Gostei + 0

13/04/2010

Lucas Souza

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

Responder

Gostei + 0

13/04/2010

Wesley Yamazack

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

Responder

Gostei + 0

13/04/2010

Lucas Souza

Fiz o que voc� disse, outro erro apareceu. http://www.dolci.com.br/devmedia/tela3.gif

Responder

Gostei + 0

13/04/2010

Lucas Souza

Desconsidere a ultima intera��o o erro � essa tela a�: http://www.dolci.com.br/devmedia/tela4.gif

Responder

Gostei + 0

13/04/2010

Wesley Yamazack

Esta imagem que voc� mandou, basta voc� apagar esta linha,

Um abra�o

Wesley Y

Responder

Gostei + 0

13/04/2010

Lucas Souza

� 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.

Responder

Gostei + 0

13/04/2010

Wesley Yamazack

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

Responder

Gostei + 0

19/04/2010

Wesley Yamazack

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

Responder

Gostei + 0

19/04/2010

Lucas Souza

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.

Responder

Gostei + 0

19/04/2010

Wesley Yamazack

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

Responder

Gostei + 0

27/04/2010

Wesley Yamazack

Ol� amigo,

Consegui baixar o exemplo ? Estamos aguardando para dar continuidade com o chamado.

Att,

Wesley Y

Responder

Gostei + 0

27/04/2010

Lucas Souza

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.

Responder

Gostei + 0

27/04/2010

Wesley Yamazack

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

Responder

Gostei + 0