AGENDA EM MSFLEGRID
Olá Pessoal, sou novato aqui, estou com um dúvida e gostaria de saber se vocês podem me ajudar.
Estou desenvolvendo um software para uma clinica médica, quando abro o software carrega no MSFLEXGRID as horas de 8:00 até as 18:00 intercalando de 15 em 15 minutos.
Até ai tudo bem, mas quando faço uma busca por Data, para saber as consultas que teria nesse dia aparecem só as consultas marcaras, gostaria que aparece os horarios que nao tem consultas tbm.
Por exemplo.
Hoje aparece assim no flex
8:00 João
8:15 Maria
9:00 Pedro.
e gostaria de aparecesse deste modo.
8:00 João
8:15 Maria
8:30
8:45
9:00 Pedro.
Será que alguém tem idéia de como fazer?
Muito Obrigado!
Estou desenvolvendo um software para uma clinica médica, quando abro o software carrega no MSFLEXGRID as horas de 8:00 até as 18:00 intercalando de 15 em 15 minutos.
Até ai tudo bem, mas quando faço uma busca por Data, para saber as consultas que teria nesse dia aparecem só as consultas marcaras, gostaria que aparece os horarios que nao tem consultas tbm.
Por exemplo.
Hoje aparece assim no flex
8:00 João
8:15 Maria
9:00 Pedro.
e gostaria de aparecesse deste modo.
8:00 João
8:15 Maria
8:30
8:45
9:00 Pedro.
Será que alguém tem idéia de como fazer?
Muito Obrigado!
Mostre o seu codigo para vermos Amigo.
Obrigado pela resposta.
Segue abaixo
consultasql = [Ô]SELECT * FROM Tblagenda [Ô] & _
[Ô]WHERE Data LIKE [ô][Ô] & Text3 & [Ô]%[ô] Order by Horario_Inicio asc[Ô]
Set tbsql = con.Execute(consultasql)
X = 0
msfgrade.Clear
Dim a As String
Dim b As String
a = 0
Call Form_Activate
Do Until tbsql.EOF
X = X + 1
msfgrade.Rows = X + 1
msfgrade.TextMatrix(X, 0) = tbsql([Ô]Horario_Inicio[Ô])
msfgrade.TextMatrix(X, 1) = tbsql([Ô]Horario_Fim[Ô])
msfgrade.TextMatrix(X, 2) = tbsql([Ô]Nome[Ô])
msfgrade.TextMatrix(X, 3) = tbsql([Ô]RG[Ô])
msfgrade.TextMatrix(X, 4) = tbsql([Ô]Data[Ô])
msfgrade.TextMatrix(X, 5) = tbsql([Ô]Tipo_Consulta[Ô])
End If
tbsql.MoveNext
Loop
End Sub
Segue abaixo
consultasql = [Ô]SELECT * FROM Tblagenda [Ô] & _
[Ô]WHERE Data LIKE [ô][Ô] & Text3 & [Ô]%[ô] Order by Horario_Inicio asc[Ô]
Set tbsql = con.Execute(consultasql)
X = 0
msfgrade.Clear
Dim a As String
Dim b As String
a = 0
Call Form_Activate
Do Until tbsql.EOF
X = X + 1
msfgrade.Rows = X + 1
msfgrade.TextMatrix(X, 0) = tbsql([Ô]Horario_Inicio[Ô])
msfgrade.TextMatrix(X, 1) = tbsql([Ô]Horario_Fim[Ô])
msfgrade.TextMatrix(X, 2) = tbsql([Ô]Nome[Ô])
msfgrade.TextMatrix(X, 3) = tbsql([Ô]RG[Ô])
msfgrade.TextMatrix(X, 4) = tbsql([Ô]Data[Ô])
msfgrade.TextMatrix(X, 5) = tbsql([Ô]Tipo_Consulta[Ô])
End If
tbsql.MoveNext
Loop
End Sub
Primeiro você precisa cadastrar os horários no banco. Então insira todos os horários disponÃveis. AÃ vai aparecer no grid. Quando precisar inserir um paciente, selecione o horario e atualize para inclusão deste paciente.
Entendi, é uma saÃda, porém são vários dias, ou seja, marco uma consulta pra hoje, outra pra daqui a duas semanas, outra pra daqui a um mês, partindo deste princÃpio não teria que ter várias tabelas com horários cadastrados?
Não necessariamente.
você pode fazer uma tabela só, um exemplo:
Tabelas Consultas
Consulta_id
Consulta_dia
Consulta_hora
Consulta_idcliente
você pode fazer uma tabela só, um exemplo:
Tabelas Consultas
Consulta_id
Consulta_dia
Consulta_hora
Consulta_idcliente
Tópico encerrado , respostas não são mais permitidas