En un
Hospital se desea controlar la atención que se brinda a los pacientes en
consultas externas. Un paciente puede requerir atención médica en varias
especialidades y en una especialidad se atienden muchos pacientes. De cada
paciente se conoce su DNI, su nombre, apellidos, fecha nacimiento y su sexo. De
cada especialidad se tiene un código, que la identifica, su descripción, precio
y la cantidad de médicos de esa especialidad que laboran en consultas externas.
Un médico atiende sólo una especialidad, aunque en una especialidad laboran
muchos médicos. Un médico atiende a muchos pacientes y un paciente es atendido
por varios médicos. De cada médico se sabe su DNI, su nombre, apellidos, el año
de su graduación y el grado que tiene como médico (especialista de 1er. grado,
de 2do. grado, etc.). Se conoce para un paciente, atendido por un médico, el
diagnóstico, fecha de atención y el tratamiento indicado, así como la
especialidad en que fue tratado. Se sabe también que, en una especialidad, a un
paciente lo atiende un solo médico.
Public Class cPaciente
Private dnipaciente
As String
Private nompaciente
As String
Private apepaciente
As String
Private fechanacpaciente As Date
Private sexopaciente
As String
Public Sub setdnipaciente(dni As String)
dnipaciente = dni
End Sub
Public Sub setnompaciente(nom As String)
nompaciente = nom
End Sub
Public Sub setapepaciente(ape As String)
apepaciente = ape
End Sub
Public Sub setfechanacpaciente(fecha As Date)
fechanacpaciente = fecha
End Sub
Public Sub setsexopaciente(sexo As String)
sexopaciente = sexo
End Sub
Public Function getdnipaciente() As String
Return dnipaciente
End Function
Public Function getnompaciente() As String
Return nompaciente
End Function
Public Function getapepaciente() As String
Return apepaciente
End Function
Public Function getfechanacpaciente() As Date
Return fechanacpaciente
End Function
Public Function getsexopaciente() As String
Return sexopaciente
End Function
End Class
Solicitar codigo fuente a:
cgprognet@gmail.com
cgprognet@hotmail.com
Costo del codigo fuente: 80 soles
