Código fuente del sistema de centro de intercambio médico basado en web.
Aquí presentamos el diseño de la aplicación del sistema de gestión hospitalaria HIS, incluidas las ideas, ejemplos de diseño e instrucciones detalladas del sistema de consulta en línea de horarios para pacientes ambulatorios del hospital y del sistema de registro de citas hospitalarias en línea, para que Puede diseñar rápidamente varias aplicaciones de sitios web de hospitales.
Aplicaciones de la base de datos del sitio web del hospital
Utilizando la base de datos del sitio web, el hospital puede proporcionar las siguientes aplicaciones a través de Internet o intranet:
*Consulta en línea del horario de atención ambulatoria del hospital *
*Registro de citas hospitalarias en línea*
Para las aplicaciones marcadas con * en la esquina superior derecha, esta sección proporcionará un ejemplo de diseño y lo explicará en detalle.
Para ejecutar los ejemplos de bases de datos de este capítulo, la base de datos utilizada puede ser Microsoft Access, Microsoft SQL Server o un archivo de texto (los lectores pueden modificarlo a otras bases de datos que admitan ODBC; consulte la Sección 1-5 para obtener más detalles). ), IIS 3.0 debe estar instalado en NT y la base de datos debe estar instalada en "ODBC" en el panel de control. Cree una nueva fuente de datos llamada BookSamp, el controlador es el controlador de Microsoft Access, SQL Server o Microsoft Text. Consulte el Apéndice Ejemplo de disquete para obtener más detalles.
1
Sistema de consulta online de horarios ambulatorios del hospital
El sistema de consulta online de horarios ambulatorios del hospital puede consultar el horario ambulatorio del hospital a través de Internet.
El hospital general dispone de un nuevo horario de consulta externa cada mes. Las personas que visitan a un médico pueden conectarse al "Sistema de consulta en línea sobre horarios de pacientes ambulatorios del hospital" del hospital a través de Internet y luego pueden consultar en línea el nuevo horario de pacientes ambulatorios del hospital.
Ejemplo de diseño
Implementemos un ejemplo.
(Ejemplo de consulta en línea de data7.asp del horario de pacientes ambulatorios del hospital
Si desea consultar el horario de pacientes ambulatorios, utilice el navegador del cliente para explorar el data7.asp adjunto a este libro e instálelo en el sitio web En el servidor, los resultados de la consulta se muestran de la siguiente manera, incluidos los nombres de los médicos ambulatorios en diferentes departamentos y de lunes a sábado:
Descripción detallada del ejemplo de diseño
Cree la tabla
Primero, use Microsoft Access, Microsoft SQL Server, archivos de texto o cualquier base de datos que admita ODBC para crear una tabla HospitalSchedule
Ingrese los diferentes departamentos y médicos ambulatorios a partir del lunes a sábado en la clase de nombre y las columnas A1~A6
Utilice Microsoft Access para crear una tabla HospitalSchedule, como se muestra a continuación:
O utilice Microsoft SQL Server para crear una tabla. HospitalSchedule, como se muestra a continuación:
O use El archivo de texto crea una tabla HospitalSchedule, como se muestra a continuación:
Consulta la base de datos
Luego, el servidor del sitio web ejecuta el archivo data7.asp, usa "Server.CreateObject" para crear el objeto conectado y usa "Abrir" para abrir la base de datos de consulta BookSamp a la que se accederá.
Luego usa el comando SQL SELECT para consultar la base de datos. datos, configure el comando SQL para consultar los datos del horario del hospital y luego haga clic en el comando "Ejecutar" para iniciar el acceso y la consulta y guardar los resultados de la consulta en el objeto RecordSets RS. es el siguiente:
Establecer Conn = Servidor
Conn.
Abra "Almacén de libros", "sa"
SQL = "Seleccionar* del plan hospitalario
Establecer RS = Conn.Execute(SQL)
A continuación, el Los resultados de la consulta se mostrarán primero, comenzando con "If RS. EOF entonces..." Si se ha encontrado la información del horario del hospital. Si RS.EOF es verdadero, se mostrará "No hay clínicas ambulatorias este mes".
El código es el siguiente:
Resultados de la consulta:
ltIF RS. EOF THEN gt
ltFONT COLOR="#FF0000 " >No hay consultorios ambulatorios este mes
Si el Si se encuentra la información del horario del hospital, mostrará los nombres de los médicos ambulatorios en diferentes departamentos y de lunes a sábado, obtenidos respectivamente de RS(0) y RS(1) ~RS(6) del objeto RecordSets
<. p>RS. El número de campos, los datos de cada campo de RS (i) se obtienen mediante "for I = 0 to rs.fields.count-1". siguiente ubicaciónEl código es el siguiente:
lt ELSE gt
ltFONT COLOR = "#0000ff" gtEl horario de atención ambulatoria para este mes es el siguiente:
ltTABLE COLSPAN = relleno de 8 celdas = 5 BORDER = 1 gt;
ltTR gt
ltTD ALIGN=CENTER BGCOLOR="#800000 " >.
ltTR gt
p>
ltTD ALIGN=CENTER BGCOLOR="#800000 " >. ltFONT gtLunes
ltTD ALIGN=CENTER BGCOLOR="#. 800000 " >. ltFONT gtTuesday
ltTD ALIGN=CENTER BGCOLOR="#800000 " >. ltFONT gtWednesday
ltTD ALIGN=CENTER BGCOLOR="#800000 " >. ltFONT gtThursday
ltTD ALIGN=CENTER BGCOLOR= "#800000 " >.ltFONT gtViernes
ltTD ALIGN=CENTER BGCOLOR="#800000 " >.ltFONT gtSábado
lt/TR gt;
lt Hacer en lugar de EOF gt
ltTR gt
lt para i = 0 a los campos RS. >
lt si se va (Rs(I)). Nombre, 1) = " W " Luego gt;
ltTD BGCOLOR = " F7 efde " ALIGN = CENTRO gt.
ltFONT COLOR="#0000 " > lt = RS(I) gt; FONT gt/TD gt;
lt Else gt
ltTD ALIGN=CENTRO BGCOLOR="#800000" >.
ltFONT gt lt = RS(I) gt; lt/FONT gt; lt/TD gt
lt END IF gt
lt Siguiente gt
p> p>lt/TR gt;
lt
RS. Siguiente
Anillo
RS. Cerrar
Cerrar sala de control
gt
lt/TABLE gt;
lt END IF gt
Finalmente , utilice RS. Close cierra el conjunto de registros y Conn.Close cierra la base de datos.
El código completo es el siguiente:
ltHTML gt
ltHEAD gt
ltTITLE gtSistema de consulta online de horarios ambulatorios del hospital
ltMETA HTTP-EQUIV = " CONTENIDO-tipo " CONTENIDO = " texto/html; charset=big5 "
lt/HEAD gt
ltcentergt
ltBODY BGCOLOR=#FFFFFFgt.
ltFONT TAMAÑO = 2 COLOR="#0000FF " >Sistema de consulta en línea de horarios ambulatorios del hospital
lt
Establecer Conn = servidor. CreateObject("ADODB.Connect")
Conexión. Abra "Almacén de libros", "sa"
SQL = "Seleccionar* del plan hospitalario
Establecer RS = Conn.Execute(SQL)
gt< / p>
ltHR gt
Resultados de la consulta:
ltIf RS. THEN gt
ltFONT COLOR="#FF0000 " >Nada este mes. clinic
lt ELSE gt
ltFONT COLOR = " # 0000ff " gtEl horario ambulatorio para este mes es el siguiente:
ltTABLE COLSPAN = 8 celdas de relleno = 5 BORDER = 1 > " >. ltFONT gtLunes
ltTD ALIGN=CENTER BGCOLOR="#800000 " >. ltFONT gtMartes
ltTD ALIGN=CENTER BGCOLOR="#800000 " >. ltFONT gt miércoles
ltTD ALIGN=CENTER BGCOLOR="#800000 " >. ltFONT gtJueves
ltTD ALIGN=CENTER BGCOLOR="#800000 " >. > ltTD ALIGN=CENTER BGCOLOR="#800000" >. ltFONT gtSaturday
lt/TR gt;
lt Do en lugar de RS.
EOF gt
ltTR gt
lt para i = 0 a RS. campos .Count-1 gt;
ltif dejar(rupia(i)). Nombre, 1) = " W " Luego gt;
ltTD BGCOLOR = " F7 efde " ALIGN = CENTRO gt.
ltFONT COLOR="#0000 " > lt = RS(I) gt; FONT gt/TD gt;
lt Else gt
ltTD ALIGN=CENTRO BGCOLOR="#800000" >.
ltFONT gt lt = RS(I) gt; lt/FONT gt; lt/TD gt
lt END IF gt
lt Siguiente gt
p> p>lt/TR gt;
lt
RS. Siguiente
Anillo
RS. Cerrar
Cerrar sala de control
gt
lt/TABLE gt;
lt END IF gt
ltHR gt
lt/CENTRO gt;
lt/CUERPO gt;
lt/HTML gt; p>Sistema de registro de citas hospitalarias en línea
El sistema de registro de citas hospitalarias en línea puede completar los procedimientos de registro de citas hospitalarias a través de Internet.
Los hospitales generales ofrecen una variedad de métodos de registro de citas, como colas, respuesta manual del teléfono o sistema de voz. A través de Internet, ahora podemos ofrecer una forma rica y vívida de realizar reservas e inscripciones.
Los visitantes pueden conectarse al sistema de registro de citas hospitalarias en línea del hospital a través de Internet, ingresar el número de registro médico (o número de identificación) en la computadora y luego ingresar la disciplina, el médico, la fecha de la cita, la mañana y la tarde. , y por la tarde, completar los trámites de registro de citas.
El sistema de registro te indicará el orden del número de pacientes y contabilizará automáticamente el número de citas de cada consulta externa. Si la cantidad excede el límite, automáticamente te notificará y te pedirá otro horario.
Al realizar una reserva, el sistema de reservas proporciona las funciones de añadir, cancelar y consultar reservas.
Los visitantes también pueden consultar horarios de pacientes ambulatorios, perfiles de médicos, instrucciones de medicamentos, nuevos conocimientos de salud, actividades hospitalarias, direcciones de hospitales y otra información en línea.
El sistema de registro imprimirá automáticamente los comprobantes de registro diarios para que los departamentos pertinentes del hospital preparen registros médicos.
Ejemplo de diseño
Implementemos un ejemplo.
(Ejemplo de registro de citas hospitalarias en línea data12.asp
Para programar una cita hospitalaria en línea, use el navegador del cliente para explorar los datos 12.asp adjuntos a este libro e instalados en el servidor del sitio web, seleccione un departamento como medicina interna en el departamento, ingrese el número de registro médico como 123456 en el número de registro médico e ingrese la fecha de tratamiento como 870701 en la fecha de tratamiento
Cuándo. Al programar una cita en el hospital, si ya programó una cita, programe la misma cita nuevamente. La cita mostrará "Cita de registro" de la siguiente manera:
Al programar una cita para el registro en el hospital, si el número. de plazas supera las 65.438.000, el "Registro de Cita Completa" se mostrará de la siguiente manera:
Cancelar Registro de Cita
Después de concertar una cita en el hospital, podrá cancelar la cita. curso electivo que se cancelará, como matrimonio, seleccione el tema del curso electivo, como neurología, ingrese el número de registro médico, como 123456, e ingrese la fecha de tratamiento, como 870701. Luego presione la tecla.
Si no existe cita para cancelar la consulta, al cancelar el registro de cita se mostrará la siguiente información:
Consultar registro de cita
Después de realizar una cita en el hospital, puede consultar Todas las citas. Simplemente ingrese el número de registro médico en "Número de registro médico", como 123456, y presione el botón "Consultar registro de citas" para mostrar los siguientes resultados de consulta de registro de citas:
Al consultar el registro de citas, si no hay cita Aún no se ha realizado el registro, se mostrará la siguiente información al consultar el registro de citas:
Horario de pacientes ambulatorios
Haga clic en el botón "Horario de pacientes ambulatorios" para mostrar el siguiente horario de pacientes ambulatorios:
Instrucciones detalladas para el ejemplo de diseño
Cree la tabla
Primero, use Microsoft Access, Microsoft SQL Server, un archivo de texto o cualquier base de datos que admita ODBC para crear un HospitalCount. tabla que almacena el número de citas registradas para consultas y el orden de la última consulta.
Esta tabla de datos se utiliza para registrar el número de personas registradas y el número de secuencia de la última visita al momento de concertar una cita o cancelar una cita. Cree los campos TOTAL, CUENTA0, FECHA0 y CLASE, que representan respectivamente el número de inscripciones, el número de serie de la última visita, la fecha de la cita y el nombre del departamento. Cuando crea un formulario, no es necesario ingresar datos.
Utilice Microsoft Access para crear una tabla HospitalCount, como se muestra a continuación:
O utilice Microsoft SQL Server para crear una tabla HospitalCount, como se muestra a continuación:
O use un archivo de texto Cree la tabla HospitalCount de la siguiente manera:
Es necesario crear otra tabla de datos HospitalReserve para almacenar los registros de registro de citas y crear los campos ID, COUNT0, DATE0 y CLASS, que representan el registro médico. número y orden del médico de los registros de registro de citas, respectivamente.
Esta tabla de datos se utiliza para registrar el número de citas y la secuencia de citas, consultar citas y cancelaciones.
Cuando creas un formulario, no es necesario introducir datos.
Utilice Microsoft Access para crear una tabla Hospital Services, como se muestra a continuación:
O utilice Microsoft SQL Server para crear una tabla HospitalReserve, como se muestra a continuación:
O utilice un archivo de texto. Cree la tabla de servicios del hospital como se muestra a continuación:
Diseñe el formulario de entrada
Luego, diseñe el formulario de entrada. Cuando el paciente selecciona CLASE1, ingresa el ID1 del registro médico, la fecha de visita 1 y presiona el botón "Registro de cita" para enviar, los datos ingresados se envían al servidor del sitio web a través de POST y se ejecutan en los datos 65438 establecidos en "Acción del formulario". =...". .
Ingrese la siguiente información para el registro de la cita (los pacientes nuevos usan el número de identificación en lugar del número de registro médico): < br gt
ltform action = " data 12 . ASP " método = " publicación " >>p>
ltFONT COLOR="#FF8080 " >■ lt;/FONT gt;No:
ltselect name="CLASS1 "
ltSeleccione opción gtMedicina interna
ltoptiongtNeurología
ltoptiongtTrucos infantiles
ltoptiongtCirugía
ltoptiongt Ginecología y obstetricia
ltoptiongtOtorrinolaringología
ltoptiongtOftalmología
ltoptiongtDermatología
lt/ select gt；
ltbr gt
ltFONT COLOR="#FF8080 " >■ lt；/FONT gt; Número de registro médico (como 123456):
ltTIPO DE ENTRADA = VALOR DE TEXTO = " 123456 " NOMBRE = " id 1 " TAMAÑO = 10 > Julio de 2018):
ltTIPO DE ENTRADA = VALOR DE TEXTO = " 870701 " NOMBRE = " fecha 1 " TAMAÑO = 6 gt. ltBR gt
ltINPUT TYPE=enviar VALUE= "Registro de cita" nombre="Acción "
ltINPUT TYPE=enviar VALUE= "Cancelar registro de cita" nombre = " Acción " gt ltbr gt
ltINPUT TYPE=enviar VALUE= "Consultar registro de cita" nombre = " Acción " gtSolo número de registro médico
lt/form gt
ltForm gt
ltINPUT TYPE=botón VALOR= "Horario de pacientes ambulatorios" onclick = " ubicación . href = ' datos 7 . ASP ' " >>p>
lt/form gt; Si hace clic en el botón "Horario para pacientes ambulatorios", se ejecutará data7.asp para mostrar el horario para pacientes ambulatorios.
Cuando el servidor del sitio web ejecuta el archivo data12.asp, primero obtiene el valor de texto que se muestra en el botón de enviar a través de una solicitud. form("Action"), left(request.form("Action") solo toma los dos primeros caracteres chinos. Si request.form("action") no está vacío, significa que la ejecución se llama mediante la entrada del formulario.
Al "seleccionar caso a la izquierda (solicitar juicio. formulario ("acción"), 2)", qué botón se presionó si las dos primeras palabras del botón son "Reservar", ejecute AddReserve(). subrutina; si es "Cancelar", ejecute la subrutina DeleteReserve(); si es "consulta", ejecute la subrutina CheckReserve()
lt
Seleccione el lado izquierdo de. el caso (solicitud.
Formulario("Acción"), 2)
Caso "Reserva"
AgregarReserva()
Caso "Cancelar"
Eliminar Reserva ()
Caso "Consulta"
CheckReserve()
Finalizar selección
gt
Registro de cita
Cuando se hace clic en el botón "Registro de reserva", se ejecutará la subrutina AddReserve().
Primero, use "Server.CreateObject" para crear un objeto de conexión y use "Abrir" para abrir la base de datos de consultas BookSamp a la que se accederá.
Luego busque el registro de registro de cita que se agregará, verifique si la cita se ha realizado, use el comando SELECT SQL para consultar los datos en la base de datos, configure el comando SQL en la tabla de datos de HospitalReserve, consulte el ID de campo del número de registro médico y satisfaga la solicitud de entrada. formulario("ID1"). La fecha 0 del campo de fecha de acceso coincide con la solicitud de entrada. El formulario ("FECHA1") y la clase de campo de categoría coinciden con los datos solicitados seleccionados. formulario(" CLASE1 "). Cuando se emite el comando "ejecutar", puede comenzar la operación de acceso a la base de datos de consulta y los resultados de la consulta se pueden almacenar en el objeto de conjunto de registros RS.
El código es el siguiente:
SubAddReserve()
Establecer Conn = Servidor. CreateObject("ADODB.Connect")
Conexión. Abra "Almacén de libros", "sa"
SQL = " SELECT * FROM reserva del hospital WHERE ID = ' " solicitud. formulario(" id 1 ") & FECHA0 = ' " & solicitud. formulario( " fecha 1 ") & CLASE = ' " & izquierda( solicitud. Formulario( " CLASE1 "), 2) & "
Establezca RS = Conn.Execute(SQL)
A continuación, es hora de mostrar los resultados de la ejecución.
Primero, busque el registro de citas en la tabla de registros de datos de citas del hospital, a través de. "si RS. EOF entonces... "¿El campo ID del número de registro médico coincide con la solicitud de entrada? Formulario (" ID1 "), y el campo de fecha DATE0 de la visita al médico coincide con la solicitud de entrada. El formulario ("DATE1") y el asunto La clase de campo coincide con la solicitud seleccionada.
Si RS. Los datos coincidentes. El formulario ("FECHA1") y la clase de campo de asunto coinciden con la solicitud seleccionada. Si RS.EOF es verdadero, lo que indica que nadie se ha registrado para esta consulta, entonces inserte en .." a la tabla HospitalCount, el número total de personas registradas de los nuevos datos y el último campo de número de secuencia de tratamiento médico COUNT0 se establecen en 1, el campo de asunto CLASS se establece en Formulario de solicitud ("CLASS1") y el campo de fecha DATE0 se establece en Solicitud. formulario ("FECHA1").
Luego use el comando "Insertar en..." para agregar un dato en la tabla de servicios del hospital. En estos datos recién agregados, el número de secuencia de visita COUNT0. El ID de campo del número de registro médico es Formulario de solicitud ("ID1"), el campo de categoría CLASE se establece en Solicitud (" CLASE1 ") y el campo de fecha FECHA0 se establece en Solicitud (" FECHA1 ").
Al mostrar el resultado de la ejecución, haga coincidir
ltFONT COLOR = " # 0000FF " gtResultado del registro de reserva:
lt
Si RS. Entonces EOF
RS. Cerrar
SQL = " SELECCIONAR * DEL recuento de hospitales DONDE fecha 0 = ' " y solicitud. form(" fecha 1 ") & CLASS = ' " & left(request. Form("CLASS1 "), 2) & "
Establecer RS = Conn.Execute(SQL)
Si RS. Entonces EOF
¡Nadie ha concertado una cita para registrarse en este curso! Agregue una nueva cantidad a HospitalCount.
SQL = " INSERTAR EN recuento de hospitales (recuento 0, TOTAL, FECHA0, CLASE) valor (1, 1, ' " amp solicitud. formulario (" fecha 1 ") amp;, ' " amp izquierda ( Request. Form("CLASS1 "), 2) & ')"
Establecer RS = Conn.Execute(SQL)
El servicio hospitalario agrega una cantidad de dinero.
SQL = " INSERT INTO hospital reserve(count 0, ID, DATE0, CLASS) value (1, ' " amp request. form ( " id 1 ") amp;, ' " amp request. form ( " fecha 1 ") & ' " & left(request. Form("CLASS1 "), 2) & ')"
Establecer RS = Conn.Execute(SQL)
gt
ltFONT COLOR = " # 0000FF " gt ¡Solo haz una cita y regístrate! El orden de consulta es No. 1
ltTABLE COLSPAN = relleno de 8 celdas = 1 BORDE = 1 gt;
ltTR gt
ltTD ALIGN=CENTER BGCOLOR="#800000 " > ltFONT gtNúmero de registro médico
ltTD ALIGN=CENTER BGCOLOR="#800000 " >. ltFONT gtFecha médica
ltTD ALIGN=CENTER BGCOLOR="#800000 " > ltFONT gtNo
ltTD ALIGN=CENTER BGCOLOR="#800000 " >. p . form(" id 1 ") gt; lt/FONT gt; lt/TD gt;
ltTD BGCOLOR = "F7 efde" ALINEAR = CENTRO ltFONT COLOR="#0000" > lt = pedido .
form(" fecha 1 ") gt; lt/FONT gt; lt/TD gt;
ltTD BGCOLOR = " F7 efde " ALINEAR = CENTRO gt. ltFONT COLOR="#0000" >lt=left(request.Form("CLASS1",2) gt;lt/FONT gt;lt/TD gt;
ltTD BGCOLOR="F7 efde" ALIGN= CENTRO gt; ltFONT COLOR="#0000 " >1 lt;/FONT gt;
lt/TR gt;
lt/TABLE gt;
Si RS.EOF es falso, significa que esta consulta ha sido reservada.
Haga clic en "NIIF (0)"
Si no, utilice "Actualizar". .." suma 1 al número total de personas registradas y al número de serie de la última consulta COUNT0 en la tabla de datos HospitalCount.
Luego, en la tabla de servicios del hospital, utilice el comando "Insertar..." para agregar un dato Este El campo de número de tratamiento médico COUNT0 de los datos recién agregados es el nuevo valor después de agregar 1 a la tabla HospitalCount. El ID del campo de número de registro médico es Formulario de solicitud ("ID1"), la clase de campo de asunto. está configurado en Formulario de solicitud (" CLASE1 "), y el campo de fecha DATE0 está configurado para el formulario de Solicitud (" FECHA1 ")
Luego, al mostrar los resultados de la ejecución, el código es el siguiente: <. /p>
lt De lo contrario
Si RS(0) lt; entonces 100
¡Esta consulta ha sido reservada! El número total de hospitales ha aumentado en uno. >
TotalNo = RS(0) 1
CountNo = RS(1) 1
SQL = "ACTUALIZAR recuento hospitalario SET TOTAL = "&TotalNo&", COUNT0 = "&Count0&" donde Fecha 0="&request. " fecha 1 ") & CLASS = ' " left(request.Form("CLASS1 "), 2) & "
Establecer RS = Conn.Execute(SQL)
El servicio hospitalario agregó una cantidad de dinero.
SQL = "INSERT INTO hospital reserve(count 0, ID, DATE0, CLASS) value(" ampCountNo amp", "" amp request. form(" id 1 ") amp;, ' " solicitud de amp. form("fecha 1")&'"&left(request. Form("CLASS1"),2)&')"
Establecer RS = Conn.Execute(SQL)
gt
ltFONT COLOR = " # 0000FF " gt ¡Simplemente programe una cita para registrarse! El orden del tratamiento médico es
ltTABLE COLSPAN = 8 cell padding = 1 BORDER = 1 gt
ltTR gt
ltTD ALIGN=CENTER BGCOLOR="#; 800000 " >.
ltFONT gtNúmero de registro médico
ltTD ALIGN=CENTER BGCOLOR="#800000 " >. ltFONT gtFecha del tratamiento médico
ltTD ALIGN=CENTER BGCOLOR="#800000 " >. ltFONT gtNo
ltTD ALIGN=CENTER BGCOLOR="#800000 " >. ltFONT gtvisit order
lt/TR gt;
ltTR gt
ltTD BGCOLOR = " F7 efde " ALIGN = CENTRO gt. ltFONT COLOR="#0000" >lt=solicitud. form(" id 1 ") gt; lt/FONT gt; lt/TD gt;
ltTD BGCOLOR = " F7 efde " ALINEAR = CENTRO gt. ltFONT COLOR="#0000" >lt=solicitud. form(" fecha 1 ") gt; lt/FONT gt; lt/TD gt;
ltTD BGCOLOR = " F7 efde " ALINEAR = CENTRO gt. ltFONT COLOR="#0000" >lt=left(request.Form("CLASS1",2) gt;lt/FONT gt;lt/TD gt;
ltTD BGCOLOR="F7 efde" ALIGN= CENTRO gt ltFONT COLOR="#0000 " > lt = CountNo gt lt/FONT gt;
lt/TR gt; p>
Si el número total de inscripciones para el curso supera las 100 plazas, se mostrará "¡Inscripción completa! ¡Por favor programe otra cita para consulta!".
Luego, se mostrarán los resultados de la ejecución. y
El código es el siguiente:
lt ELSE gt
lt '100 registros de reserva están completos
ltFONT COLOR=" #FF0000 " >Apologylt/ FONT > 1 BORDER = 1 gt; ltTR gt
ltTD ALIGN=CENTER BGCOLOR="#800000 " >. ="#800000 " >. ltFONT gt Fecha de tratamiento médico
ltTD ALIGN=CENTER BGCOLOR="#800000 " > ltFONT gtNo
lt/TR gt;
ltTR gt
ltTD BGCOLOR = ". F7 efde " ALINEAR = CENTRO gt.
ltFONT COLOR="#0000" >lt=solicitud. form(" id 1 ") gt; lt/FONT gt; lt/TD gt;
ltTD BGCOLOR = " F7 efde " ALINEAR = CENTRO gt. ltFONT COLOR="#0000" >lt=solicitud. form(" fecha 1 ") gt; lt/FONT gt; lt/TD gt;
ltTD BGCOLOR = " F7 efde " ALINEAR = CENTRO gt. ltFONT COLOR="#0000" >lt=left(request.Form("CLASS1",2) gt; lt/FONT gt; lt/TD gt;
lt/TR gt;
lt/TABLE gt;
lt END IF gt
lt END IF gt
Cuando se usa "si RS.EOF entonces..." para juzgar si se ha registrado una cita en la tabla de datos de citas del hospital, si es así, el EOF es FALSO, lo que indica que esta consulta ha sido reservada y "¡Lo siento! ¡Ya programé una cita! El orden del tratamiento médico es... "
Luego, muestra el resultado de la ejecución y
el código es el siguiente:
lt ELSE gt
lt ""Registrado gt
ltFONT COLOR="#FF0000 " >Disculpalt/FONT gt; ltbr gt
ltFONT COLOR="#FF0000 " >¡He concertado una cita! el orden del tratamiento médico es
ltTABLE COLSPAN = 8 cell padding = 1 BORDER = 1 gt
ltTR gt
ltTD ALIGN=CENTER BGCOLOR="#800000 " >. ltFONT gtNúmero de registro médico
p>ltTD ALIGN=CENTER BGCOLOR="#800000 " >. ltFONT gtFecha médica
ltTD ALIGN=CENTER BGCOLOR="#800000 " >. ltFONT gtNo
ltTD ALIGN=CENTER BGCOLOR="#800000 "> ltFONT gtVisit Order
lt/TR gt;
ltTR gt
ltTD BGCOLOR=" F7 efde " ALIGN = CENTRO gt. ltFONT COLOR="#0000 " > lt = solicitud.
ltTD BGCOLOR = " F7 efde " ALIGN = CENTRO gt. ltFONT COLOR="#0000 " > lt = Solicitud. form(" fecha 1 ") gt; lt/FONT gt; lt/TD gt;
ltTD BGCOLOR = " F7 efde " ALINEAR = CENTRO gt.
ltFONT COLOR="#0000" >lt=left(request.Form("CLASS1",2) gt;lt/FONT gt;lt/TD gt;
ltTD BGCOLOR="F7 efde" ALIGN= CENTRO gt.FONT COLOR="#0000 " > lt = RS(1) lt/FONT gt;
lt/TR gt; TABLE gt;
lt END IF
Cerrar sala de control
end Sub >;
Finalmente, use Conn.Close para cerrar la base de datos
Cancelar registro de reserva
Cuando se hace clic en el botón "Cancelar registro de reserva", se ejecutará la subrutina DeleteReserve()
Primero, busque el archivo. la reserva se cancelará para registrar registros, use "Server.CreateObject" para crear el objeto de conexión y use "Abrir" para abrir la base de datos de consulta BookSamp para acceder.
Luego use el comando SELECT SQL para realizar la consulta. los datos en la base de datos en HospitalReserve. Configure el comando SQL en la tabla de datos para consultar si el ID del campo del número de registro médico cumple con los requisitos de entrada. El formulario ("ID1") consulta el campo de fecha médica 0. El formulario ("DATE1") es coherente con los datos solicitados seleccionados. Match. Form("CLASS1"), el siguiente comando "Ejecutar" puede comenzar a acceder a la base de datos de la consulta y los resultados de la consulta se pueden almacenar en el objeto RecordSets RS <. /p>
Se determina mediante "Si RS.EOF entonces..." si se encuentra el registro de registro de cita a cancelar. Si RS.EOF es verdadero, significa que no se ha realizado ningún registro de cita para esta consulta. y "¡No encontrado! ¡Aún no registrado!"
El código es el siguiente:
lt
Sub DeleteReserve()
Establezca Conn = Servidor CreateObject("ADODB.Connection")
Abra "Almacén de libros", "sa"
SQL = " SELECCIONAR * DE la reserva del hospital WHERE ID = ' " & formulario(" id 1 ") & FECHA0 = ' " & solicitud. formulario(" fecha 1 ") & CLASE = ' " & left(request.Form("CLASS1 "), 2) & "
Establecer RS = Conn.Execute(SQL)
gt
ltHR gt
ltFONT COLOR = " # 0000FF " gtCancelar resultado del registro de reserva:
lt
Si RS. ¡Entonces EOF
no se puede encontrar! ¡Aún no registrado!
gt
ltFONT COLOR="#FF0000 " >¡No encontrado! ¡Aún no registrado! lt/FONT gt;
Si encuentra registros de registro de reservas que desea cancelar, utilice el comando "Eliminar de..." para eliminar estos datos.
Luego, en la tabla HospitalCount, utilice el comando "Actualizar..." para reducir el número total de inscripciones al curso en una persona.
Luego, muestra el resultado de la ejecución y
el código es el siguiente:
ltotherwise
¡Cancela el registro de la reserva!
Los servicios hospitalarios eliminan un importe.
SQL = " BORRAR DE la reserva del hospital WHERE ID = ' " & Solicitud. formulario(" id 1 ") & FECHA0 = ' " & solicitud. formulario( " fecha 1 ") & CLASE = ' " & izquierda( solicitud. Formulario( " CLASE1 "), 2) & "
Establecer RS = Conn.Execute(SQL)
Restar 1 del "Total de hospitales"
Cerrar
SQL = " SELECCIONAR * DEL recuento de hospitales DONDE fecha 0 = ' " & request.form(" fecha 1 ") & CLASS = ' " & left(request.Form("CLASS1 "), 2) & "
Establecer RS = Conn.Execute(SQL)
Si RS. Entonces EOF
gt
ltFONT COLOR="#FF0000 " >¡No se encontró información de registro de reserva! p> lt
Otros
TotalNo = RS(0)-1
SQL = " ACTUALIZAR recuento de hospitales SET TOTAL = "&TotalNo &" donde fecha 0 = "request.form("fecha 1") & CLASS = '" left(request.form("CLASS1"), 2) & ;"
Establecer RS = Conn.Execute(SQL)
gt
ltFONT COLOR="#FF0000 " >¡El registro ha sido cancelado lt/FONT gt ;
ltTABLE COLSPAN = relleno de 8 celdas = 1 BORDE = 1 gt;
ltTR gt
ltTD ALIGN=CENTER BGCOLOR="#800000" > gtNúmero de registro médico
ltTD ALIGN=CENTER BGCOLOR="#800000 " >. ltFONT gtFecha médica
ltTD ALIGN=CENTER BGCOLOR="#800000 " >. ltFONT gtNo
p>
lt/TR gt;
ltTR gt
ltTD BGCOLOR="f7efde" ALIGN