医院管理系统(HIS)应用设计

这里我们介绍医院管理系统HIS的应用设计，它包括医院门诊时间表线上查询系统、线上医院预约挂号系统等应用的点子、设计实例、以及详细解说，让您快速地设计出各种医院的网站应用。

医院网站资料库应用

医院使用网站资料库，可以透过Internet、或Intranet提供以下的应用∶

* 线上查询医院门诊时间表*

* 线上医院预约挂号*

右上角标示*的应用，本节将提供设计的范例，并详加解说。

执行本章资料库的范例，所用的资料库可为Microsoft Access、Microsoft SQL Server、或Text档案（读者可修改成其他支援ODBC的资料库，详见1-5节），须於NT安装IIS 3.0，并於「控制台」中的「ODBC」，新建一个名称为「BookSamp」的资料来源，驱动程式为「Microsoft Access Driver」、「SQL Server」、或「Microsoft Text 驱动程式」。详见附录范例磁片。

医院门诊时间表线上查询系统

「医院门诊时间表线上查询系统」，可以透过Internet，查询医院门诊时间表。

一般的医院，每月会提供一张新的医院门诊时间表。看病的人可以透过Internet，连线上医院的「医院门诊时间表线上查询系统」，即可线上查询新的医院门诊时间表。

设计实例

让我们执行一个实例。

( 范例 data7.asp 医院门诊时间表线上查询

若要查询门诊时间表，於用户端使用浏览器，浏览本书所附安装於网站伺服器的data7.asp，即可显示查询的结果如下，包括科别、星期一~星期六的门诊医师姓名∶

设计实例详细解说

建立资料表

首先使用Microsoft Access、Microsoft SQL Server 、Text档案、或任何一种支援ODBC的资料库，建立一个资料表HospitalSchedule。

於栏名CLASS、A1~A6分别输入科别、星期一~星期六的门诊医师姓名。

使用Microsoft Access建立一个资料表HospitalSchedule，如下∶

或使用Microsoft SQL Server建立一个资料表HospitalSchedule，如下∶

或使用Text档案建立一个资料表HospitalSchedule，如下∶

查询资料库

接著，网站伺服器执行data7.asp档案，使用「Server.CreateObject」建立连线的物件，并使用「Open」开启待存取查询资料库BookSamp。

再使用SELECT的SQL指令查询资料库的资料，设定SQL指令，查询HospitalSchedule的资料，下个「Execute」指令，即可开始执行存取查询资料库的动作，并将查询结果储存到RecordSets物件RS。

程式码如下∶

Set Conn = Server.CreateObject("ADODB.Connection")

Conn.Open "BookSamp","sa",""

SQL = "SELECT * FROM HospitalSchedule"

Set RS = Conn.Execute(SQL)

接著，要显示查询的结果了。首先，由「 IF RS.EOF THEN ...」判断是否找到HospitalSchedule的资料，若RS.EOF为TRUE，则显示「本月无门诊」。

程式码，如下∶

查询结果:<br>

<% IF RS.EOF THEN %>

<FONT COLOR="#FF0000">本月无门诊</FONT>

若找到HospitalSchedule的资料，则显示科别、星期一~星期六的门诊医师姓名，分别由RecordSets物件的RS(0)、RS(1) ~RS(6) 取得。

RS.Fields.Count表示RecordSets物件的栏位数，由「For i = 0 to RS.Fields.Count - 1」取得RS(i) 各栏位的资料。配合<TABLE>表格的HTML语法，将结果填入表格的各栏位当中。

若还有下一笔资料，使用RS.MoveNext移到下一笔的位置。

程式码，如下∶

<% ELSE %>

<FONT COLOR="#0000ff">本月份门诊时间表如下:</FONT>

<TR>

</TR>

<% Do While Not RS.EOF %>

<TR>

<% For i = 0 to RS.Fields.Count - 1 %>

<% If LEFT(RS(i).Name,1) = "W" Then %>

<% Else %>

<% END IF %>

<% Next %>

</TR>

RS.MoveNext

Loop

RS.Close

Conn.Close

</TABLE>

<% END IF %>

最後，使用RS.Close关闭RecordSet，使用Conn.Close关闭资料库。

全部的程式码，如下∶

<HTML>

<HEAD>

<TITLE>医院门诊时间表线上查询系统</TITLE>

</HEAD>

<FONT SIZE=+2 COLOR="#0000FF">医院门诊时间表线上查询系统</FONT>

Set Conn = Server.CreateObject("ADODB.Connection")

Conn.Open "BookSamp","sa",""

SQL = "SELECT * FROM HospitalSchedule"

Set RS = Conn.Execute(SQL)

<HR>

查询结果:<br>

<% IF RS.EOF THEN %>

<FONT COLOR="#FF0000">本月无门诊</FONT>

<% ELSE %>

<FONT COLOR="#0000ff">本月份门诊时间表如下:</FONT>

<TR>

</TR>

<% Do While Not RS.EOF %>

<TR>

<% For i = 0 to RS.Fields.Count - 1 %>

<% If LEFT(RS(i).Name,1) = "W" Then %>

<% Else %>

<% END IF %>

<% Next %>

</TR>

RS.MoveNext

Loop

RS.Close

Conn.Close

</TABLE>

<% END IF %>

<HR>

</CENTER>

</BODY>

</HTML>

线上医院预约挂号系统

「线上医院预约挂号系统」，可以透过Internet，完成医院预约挂号的手续。

一般的医院，提供排队、人工接听电话、或语音系统等多种预约挂号的方式。透过Internet，现在可以提供比较丰富、生动的预约挂号方式。

看病的人可以透过Internet，连线上医院的「线上医院预约挂号系统」，在电脑上输入病历号码（或身分证号码），再输入要预约的科别、医师、预约日期、和上下午夜间，即可完成预约挂号的手续。

挂号系统将告诉您挂几号的看诊顺序，并自动统计每一个门诊的预约人数，若超过名额，将自动告之，要求预约其他的时间。

预约时，预约系统提供可以增加、取消、查询预约的功能。

看病的人并可线上查询医院门诊时间表、医师简介、用药须知、健康新知、医院活动、医院地址等资讯。

挂号系统将自动印出所预约的每日挂号表，以供医院相关部门准备病历表。

设计实例

让我们执行一个实例。

( 范例 data12.asp 线上医院预约挂号

若要线上预约医院挂号，於用户端使用浏览器，浏览本书所附安装於网站伺服器的data12.asp，於「科别」处选择科别如内科，於「病历号码」处输入病历号码如123456後，於「看诊日期」处输入看诊日期如870701後，按下「预约挂号」按钮，即可显示预约挂号的结果如下，包括病历号码、看诊日期、科别、看诊顺序∶

预约医院挂号时，若预约的诊次已经预约过，则重覆预约相同的诊次将显示「已经预约挂号」如下∶

预约医院挂号时，若超过诊次的100个名额时，则显示「预约挂号已满」如下∶

取消预约挂号

预约医院挂号後，可以取消所预约的挂号，於「选修课程」处选择待取消选修课程如婚姻学，於「科别」处选择科别如神经科，於「病历号码」处输入病历号码如123456後，於「看诊日期」处输入看诊日期如870701後，按下「取消预约挂号」按钮，即可显示取消预约挂号的结果如下∶

若待取消的诊次尚未预约过，则取消预约挂号时显示「尚未预约挂号」如下∶

查询预约挂号

预约医院挂号後，可以查询所有预约的诊次，仅须於「病历号码」处输入病历号码如123456後，按下「查询预约挂号」按钮，即可显示查询预约挂号的结果如下∶

查询预约挂号时，若尚未预约挂号，则查询预约挂号时将显示「尚未预约挂号」如下∶

门诊时间表

按下「门诊时间表」按钮，即可显示门诊时间表如下∶

设计实例详细解说

建立资料表

首先使用Microsoft Access、Microsoft SQL Server 、Text档案、或任何一种支援ODBC的资料库，建立一个资料表HospitalCount，储存一个诊次的预约挂号人数、和最後看诊顺序。

这个资料表系供预约挂号和取消预约挂号时，记录预约挂号人数、和最後看诊顺序号码之用。建立栏位TOTAL、COUNT0、DATE0、CLASS，分别代表一个诊次的预约挂号人数、最後看诊顺序号码、预约日期、科别名称。建立资料表时不必输入资料。

使用Microsoft Access建立一个资料表HospitalCount，如下∶

或使用Microsoft SQL Server建立一个资料表HospitalCount，如下∶

或使用Text档案建立一个资料表HospitalCount，如下∶

尚需要建立另一个资料表HospitalReserve，储存预约挂号的记录，建立栏位ID、COUNT0、DATE0、CLASS，分别代表一笔预约挂号记录的病历号码、看诊顺序号码、预约日期、科别名称。

这个资料表系供预约挂号、查询预约挂号、和取消预约挂号时，记录预约诊次、和看诊顺序之用。

建立资料表时不必输入资料。

使用Microsoft Access建立一个资料表HospitalReserve，如下∶

或使用Microsoft SQL Server建立一个资料表HospitalReserve，如下∶

或使用Text档案建立一个资料表HospitalReserve，如下∶

设计输入的表单

接著，设计输入的表单form，当病患选择科别CLASS1，输入病历号码ID1，看诊日期DATE1，按下「预约挂号」等按钮submit时，即使用POST的方式将输入资料传送到网站伺服器，并执行於「form action=...」所设定的data12.asp档案（与form为同一个ASP档案），程式码如下∶

预约挂号, 请输入以下资料 (初诊者以身分证字号代替病历号码):<br>

<FONT COLOR="#FF8080">■ </FONT>科别:

<OPTION SELECTED>内科

<OPTION>神经科

<OPTION>小儿科

<OPTION>外科

<OPTION>妇产科

<OPTION>耳鼻喉科

<OPTION>眼科

<OPTION>皮肤科

</select>

<br>

<FONT COLOR="#FF8080">■ </FONT>病历号码 (如123456):

<FONT COLOR="#FF8080">■ </FONT>看诊日期 (如87年7月1日请输入870701):

<INPUT TYPE=submit VALUE="查询预约挂号" name="Action"> 仅须填入病历号码<br>

</form>

<form>

</form>

若按了「门诊时间表」按钮时，将执行data7.asp，以显示门诊时间表。

网站伺服器执行data12.asp档案，首先经由Request.Form("Action")取得所按submit按钮上的显示文字VALUE，Left(Request.Form("Action"),2)系只取前两个中文字，若Request.Form("Action")非空白时，表示为表单输入所呼叫执行。

由「SELECT CASE Left(Request.Form("Action"),2) 」判断是按了那个按钮。若按钮上前两个字为「预约」时，则执行AddReserve() 副程式；若为「取消」时，则执行DeleteReserve() 副程式；若为「查询」时，则执行CheckReserve() 副程式。

SELECT CASE Left(Request.Form("Action"),2)

CASE "预约"

AddReserve()

CASE "取消"

DeleteReserve()

CASE "查询"

CheckReserve()

END SELECT

预约挂号

按了「预约挂号」按钮时，将执行AddReserve() 副程式。

首先，使用「Server.CreateObject」建立连线的物件，并使用「Open」开启待存取查询资料库BookSamp。

再寻找所待新增的预约挂号记录，以检查是否已经预约过，使用SELECT的SQL指令查询资料库的资料，於HospitalReserve资料表，设定SQL指令，查询病历号码栏位ID符合所输入Request.Form("ID1")，看诊日期栏位DATE0符合所输入Request.Form("DATE1")，和科别栏位CLASS符合所选择Request.Form("CLASS1")的资料，下个「Execute」指令，即可开始执行存取查询资料库的动作，并将查询结果储存到RecordSets物件RS。

程式码如下∶

Sub AddReserve()

Set Conn = Server.CreateObject("ADODB.Connection")

Conn.Open "BookSamp","sa",""

SQL = "SELECT * FROM HospitalReserve WHERE ID = '" & Request.Form("ID1") & "' AND DATE0 = '" & Request.Form("DATE1") & "' AND CLASS = '" & LEFT(Request.Form("CLASS1"),2) & "'"

Set RS = Conn.Execute(SQL)

接著，要显示执行的结果了。

首先於HospitalReserve资料表，寻找预约挂号的记录，由「IF RS.EOF THEN ...」判断是否找到病历号码栏位ID符合所输入Request.Form("ID1")，看诊日期栏位DATE0符合所输入Request.Form("DATE1")，和科别栏位CLASS符合所选择Request.Form("CLASS1")的资料。

若RS.EOF为TRUE，表示尚未预约挂号，再寻找所待预约挂号的诊次是否已经有人预约挂号过。於HospitalCount资料表，设定SQL指令，查询看诊日期栏位DATE0符合所输入Request.Form("DATE1")，和科别栏位CLASS符合所选择Request.Form("CLASS1")的资料。若RS.EOF为TRUE，表示此诊次尚未有人预约挂号过，则於HospitalCount资料表，使用「INSERT INTO...」指令新增一笔资料。此笔新增资料的预约挂号人数栏位TOTAL、和最後看诊顺序号码栏位COUNT0都设

[1] [2] [3] [4] 下一页