[Resolvido]odontograma..

gracymary 9/11/2010, 15:43

gracymary: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 192
Registrado : 16/10/2010

Mensagem nº1

odontograma..

Mensagem gracymary 9/11/2010, 15:43

Boa tarde!!

Estou precisando criar um odontograma.. onde possa pintar o lugar no dente (azul=serviço feito E vermelho=serviço a fazer)... Aguardo muitas sugestões.. porque não sei exatamente "como fazer"...
Desde já agradeço....
gracy mary

criquio 9/11/2010, 15:53

criquio

criquio: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009

Mensagem nº2

Re: [Resolvido]odontograma..

Mensagem criquio 9/11/2010, 15:53

Existe uma boa quantidade de maneiras de se fazer tal procedimento. Uma delas seria você ter, em um formulário, pequenas caixas representando cada dente. Essas caixas poderiam ter nomes como Dente1Sup, Dente2Sup..., Dente1Inf, Dente2Inf... Você teria uma tabela com registros dos pacientes e uma tabela procedimentos vinculada pelo ID do cliente. Nessa tabela teria um campo para cada dente. Dente arrumado teria gravado em seu campo o valor "Feito" e dente por arrumar teria "A fazer". No form, nos eventos adequados, você colocaria algo assim:

If DLookup("Dent1Sup", "TabelaProcedimentos", "ID=" & Me!ID") = "Feito" Then
Me.Dente1Sup.BackColor = vbBlue
ElseIf DLookup("Dent1Sup", "TabelaProcedimentos", "ID=" & Me!ID") = "A fazer" Then
Me.Dente1Sup.BackColor = vbRed
End If

Pode tambem colocar a imagem de uma boca no formulário com as imagens dos dentes pintados de vermelho e azuis e condicionar da mesma forma para mostrar a imagem do dente azul ou vermelho dependendo do caso.
São enes possibilidades.

.................................................................................

Meu novo site: www.vcssistemas.com.br

Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.

DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
1 - faça uma cópia do aplicativo
2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
3 - use o Compactar/Reparar
4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)

Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
Positive as mensagens que achar útil, no canto superior direito delas.

**JPaulo** 9/11/2010, 16:49

JPaulo

JPaulo: Moderador; Respeito às regras :

Sexo :
Localização :
Mensagens : 11016
Registrado : 04/11/2009

Mensagem nº3

Re: [Resolvido]odontograma..

Mensagem JPaulo 9/11/2010, 16:49

Ola Gracy;

Um exemplo pronto a utilizar, do Grande Marciano.

http://dl.dropbox.com/u/771097/Odontograma2000.rar

.................................................................................
Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

Pay-Pal R$ Aqui
Pay-Pal € Aqui

Ou ainda: Aqui (Novo)

Sucesso e Bons Estudos
Success and Good Studies

[Resolvido]odontograma.. Folder_announce_new