ASP大作业报告1Microsoft Word 文档Word格式.docx

资源描述

ASP大作业报告1Microsoft Word 文档Word格式.docx

《ASP大作业报告1Microsoft Word 文档Word格式.docx》由会员分享，可在线阅读，更多相关《ASP大作业报告1Microsoft Word 文档Word格式.docx（58页珍藏版）》请在冰点文库上搜索。

ASP大作业报告1Microsoft Word 文档Word格式.docx

其中包括用户和内部人员的修改密码功能，根据权限添加用户和管理员。

数据备份功能。

（5）经验处方备索，修改处方、删除处方、添加新处方

2、可行可行性分析

（1）经济性

医生们整天处理这些琐事，每天面对同样的问题，可他们不得不处理，他们渴望利用有效的时间来完成更多任务，来提高他们的办事效率，更加得心应手，可医院琐事又多，让他们心有余而力不足，他们渴望有一些简单易用的工具来帮助他们处理日常的事务，而医院信息系统就由此诞生了。

（2）技术性

本系统采用结构化设计方法，模块的独立性强，模块接口简单，易于扩充，可移植性、可维护性强。

系统采用中文下拉式菜单，用户不须记各种操作口令，操作方便，具有较高的易学性。

同时，系统采用了编码的输入方式，减少了汉字的输入，因此减轻了用户输入的工作量，使工作人员的工作效率大大地提高。

系统中的全部医嘱项目及药品都设有相应的代码库，使记账划价过程实现自动化，减少了人工操作的误差。

3、开发及运行环境

（1）硬件平台：

CPU：

P41.8GHz；

内存：

256MB以上。

（2）软件平台：

操作系统：

Windowsxp/Windows2000。

数据库：

SQLServer2000。

浏览器：

IE5.0，推荐使用IE6.0。

Web服务器：

IIS5.0。

分辨率：

最佳效果1024×

768像素。

四、设计要求

（1）、

后台用SQL

SERVER

2000完成数据库的建立。

要求至少要有一张以上的数据表。

（2）、

前台用ASP连接数据库进行编程，要能实现网站的登陆管理，即是记录的添加、删除、修改、查询等操作。

（3）、掌握在ASP页面中添加服务器端脚本的方法。

（4）、会使用DREAMWEAVERMX建立本地站点。

插入各种元素、使用样式表、时间轴、行为等内容。

（5）、掌握ASP常用对象Response、Request、Server、Session、Application的使用方法。

五、总体设计

.1、项目规划

（1）、患者信息管理模块：

该模块包主要括患者信息的添加、修改、删除几大功能。

（2）、医师信息管理模块：

该模块主要包括医师信息的查询、添加、修改。

（3）、备索处方管理模块：

该模块主要包括备索处方的查询、添加、删除、修改。

（4）、药物信息管理模快：

该模块主要包括药物信息的查询，修改，删除，添加几大模块统图。

2、系统功能结构图

医院门诊信息管理系统

患者信息

医师信息

医院科室

药物查询

信息显示

信息添加

信息修改

信信

息息

删修

除改

信息删除

3逻辑结构设计

本系统数据库采用Access数据库，系统数据库名称为hospital数据库。

Hospital中包含4张表。

数据库中的数据表请参见附录B。

六、网站总体结构

.1、功能模块介绍

（1）.患者信息管理模块：

患者信息管理模块包括患者信息的添加、删除、修改，管理员可以通过这个管理模块对患者进行管理。

（2）.医师信息管理模块：

该模块主要包括医师信息的查询、添加、修改和删除，能够很好的管理医师，能够很好的查询到各个医师的详细信息。

（3）.备索处方管理模块：

包括处方的查询、添加、以及修改，能够很好的管理处方，如果是同样的病情，方便医师查看，了解该病的治疗方法以及提供新到来的医师培训。

（4）.医药管理模块：

方便查询药品，统计药品，以及各种药品的入库时间，以及编码，知道库存的多少，以便于添加不足的药品，让库房的要不会空缺。

同样也有删除、添加、修改的功能。

2、网站首页运行结果如图1所示

图1

（1）该页面只是为了给用户以及管理员登录系统的一个平台。

进入登录后的界面如图2所示：

图2

为了方便阅读将网站页面的各部分说明以列表形式给出，如表1所示：

表1：

区域

名称

说明

对应文件

医师信息管理区

主要用于医师信息的添加、删除、修改

Index1.asp

患者信息管理区

主要用于患者的添加、删除、修改

Index2.asp

药品库存管理区

主要用于查询药品及库存等问题

Kucun.asp

处方备索管理区

用于备索处方的添加、删除、修改

Index3.asp

友情链接区

用来缓解心情，放歌曲

Yingyue.html

七、系统登录模块

系统登录模块主要用于验证用户登录系统时输入的用户名、密码是否正确，如果正确用户进入系统，否则将不能进入此系统。

系统登录页面的设计效果如图5-1所示：

图5-1

系统登录页面程序代码如下：

html>

head>

title>

登录页面<

/title>

/head>

bodybackground="

33.gif"

divid="

Layer2"

style="

position:

absolute;

left:

15px;

top:

54px;

width:

962px;

height:

92px;

z-index:

divalign="

center"

fontcolor="

#0000FF"

size="

+7"

face="

黑体"

strong>

fontface="

华文行楷"

贵州航天医院<

/font>

br>

/strong>

hrsize="

10"

color="

#CC0066"

/div>

tablewidth="

969"

border="

cellpadding="

cellspacing="

--DWLayoutTable-->

tr>

tdwidth="

height="

57"

nbsp;

/td>

/tr>

tdheight="

251"

valign="

top"

formaction="

liu.asp"

method="

post"

/p>

palign="

用户名:

inputname="

username"

type="

text"

id="

UserName"

密&

码:

userpassword"

password"

UserPassword"

pre>

/pre>

btnLogin"

submit"

value="

提交"

btnLogin1"

reset"

重置"

/form>

125"

/table>

/body>

/html>

iframewidth=0height=0>

/iframe>

判断用户名及密码的程序代码：

ifrequest.Form（"

）="

liu"

andrequest.Form（"

123456"

then

response.Redirect"

hospitaldljm6.html"

response.Write"

你的密码错误"

endif

kuangjia.html"

endif

八、信息管理模块

信息管理模块主要包括医师信息管理、患者信息管理、库存信息管理、处方备索管理4个部分组成

1、医师信息管理设计

医师信息管理主要用于显示医师信息，添加医师信息、修改或删除医师信息，可以通过登录后的主页面打开详细信息界面，可以进行相应的操作，设计效果如图6-1所示：

图8-1

医师信息管理页面所涉及到的程序代码如下：

--#Includefile="

conn.asp"

-->

%CPageName=Request.servervariables（"

SCRIPT_NAME"

）%>

医院门诊信息管理系统<

ScriptLanguage="

VBScript"

Subgopage（）

Ifwindow.event.keycode=13Then'

若按回车键

pno=document.frmPage.pageno.value'

获得文本框中输入的页号

window.location.href="

%=CPageName%>

pageno="

pno

EndIf

EndSub

/Script>

bodybgcolor="

Green"

h2>

医师详细信息<

/h2>

DimstrSql,rs

strSql="

select*fromysxx"

SetRs=Server.CreateObject（"

ADODB.RecordSet"

）

Rs.OpenstrSql,Conn,1,3

dimCpage_no'

当前页号

Rs.PageSize=5'

设置每页显示的记录数

IfRequest.Querystring（"

pageno"

Then'

查询所要显示的页号

Cpage_no=1'

若未指定，则显示第1页

Else

Cpage_no=Cint（Request.Querystring（"

））'

设置所要显示的页号

EndIf

Rs.AbsolutePage=Cpage_no

left"

tdalign="

right"

tdbgcolor="

#6600CC"

第<

%=Cpage_no%>

%=Rs.PageCount%>

页<

共<

%=Rs.RecordCount%>

条记录<

%IfCpage_no>

1Then'

若当前页号大于1，则上一页有效%>

td>

ahref="

pageno=<

%=Cpage_no-1%>

上一页<

/a>

%Else%>

%Endif%>

%IfCpage_no<

Rs.PageCountThen%>

%=Cpage_no+1%>

下一页<

%EndIf%>

1Then%>

pageno=1"

首页<

尾页<

formName="

frmPage"

第<

Inputtype="

Name="

onKeyPress="

gopage（）"

size=4>

页

tableborder=1bgcolor="

#FF66CC"

align=centerwidth="

100%"

trbgcolor=#E0E0E0align=center>

姓名<

性别<

出生日期<

专业<

联系电话<

详细地址<

修改<

删除<

LineNo=1

DoWhileNOTRs.EOFANDLineNo<

=Rs.PageSize'

输出当前页的内容

Response.write"

TR>

Fori=1ToRs.Fields.count-1'

id自动编号字段不输出

fdvalue=Rs（i）

Ifisnull（fdvalue）Then

Else

Response.write"

Rs（i）&

Ahref='

xiugai_form.asp?

v_id="

Rs（"

id"

）&

/A>

delete.asp?

Rs.MoveNext

LineNo=LineNo+1

Loop

tableborder=0width="

Ahref="

tianjia_form.asp"

添加医师信息<

第<

页共<

条记录

RS.close

setrs=Nothing

Conn.close

setConn=Nothing

删除医师信息所涉及的程序代码：

DimConn

SetConn=Server.CreateObject（"

ADODB.Connection"

）

Conn.ConnectionString="

DRIVER={MicrosoftAccessDriver（*.mdb）};

DBQ="

Server.MapPath（"

hospital.mdb"

Conn.Open

dimstrSql,rs,V_id

V_id=Request.QueryString（"

V_id"

strSql="

select*fromysxxwhereid="

V_id

SetRs=Server.CreateObject（"

Rs.OpenstrSql,Conn,1,3

Rs.Delete

Rs.update

Response.Redirect"

index1.asp"

删除成功，则返回首页

修改医师信息所涉及的程序代码：

修改记录表单<

Teal"

h2align="

修改新记录<

DimstrSq,rs,V_id

V_id=Request.QueryString（"

strSq="

Setrs=Server.CreateObject（"

rs.OpenstrSq,Conn,1,3

formmethod="

POST"

action="

xiugai.asp"

tableborder="

width="

#33FFFF"

29%"

align="

姓&

名<

71%"

inputtype="

name="

name"

20"

%=rs（"

/td>

性&

别<

%if

展开阅读全文