医院住院管理系统论文

TOC\o"1-5"\h\z\o"CurrentDocument"第一章绪论 2\o"CurrentDocument"1.1课题简介 2\o"CurrentDocument"1.2开发的意义 2\o"CurrentDocument"3团队构成 3\o"CurrentDocument"第二章开发环境及实现技术 4\o"CurrentDocument"1开发环境 4\o"CurrentDocument"2开发工具简介 4\o"CurrentDocument"第三章系统设计 71概要设计 72详细设计 8第四章数据库设计 11\o"CurrentDocument"1数据库SQLSERVEI2000简介 11\o"CurrentDocument"4. 2数据库需求分析 12\o"CurrentDocument"3测试用例 13\o"CurrentDocument"第五章系统的实现 14\o"CurrentDocument"1系统登录模块的实现 14\o"CurrentDocument"5. 2主界面的实现 19\o"CurrentDocument"5. 3住院管理模块的实现 22\o"CurrentDocument"5. 4病房管理模块的实现 28\o"CurrentDocument"5. 5医师管理模块的实现 32\o"CurrentDocument"5. 6交费管理模块的实现 335. 7其他管理模块的实现 365.9床位模块的实现 错误!未定义书签。\o"CurrentDocument"9用户管理模块的实现 40\o"CurrentDocument"第六章系统使用说明 41\o"CurrentDocument"1使用说明 41\o"CurrentDocument"6.2运行环境 41\o"CurrentDocument"第七章设计心得 42\o"CurrentDocument"参考文献 43第一章绪论1・1课题简介医院住院管理系统是每一个医疗机构管理病人及医师收入和支出的不可缺少的一个管理信息系统，它的内容对于医疗机构的管理者来说是至关重要的，所以医院住院管理系统应该能够为每一个医疗机构的管理者提供充足的信息和快捷的查询手段，大大的方便医疗机构的管理者的合理管理。随着科学技术的不断提高，计算机科学日渐成熟，其强大的功能已为人们深刻认识，它已进入人类社会的各个领域并发挥着越来越重要的作用。作为计算机应用的一部分，使用计算机对病人及医师进行管理，具有着手工管理所无法比拟的优点，如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高病人及医师管理的效率，也是医疗机构理财的科学化、正规化管理，与先进科学技术接轨的重要条件。因此，开发这样一套管理软件成为很有必要的事情，对于我们即将计算机专业毕业的学生来说，也是一次将计算机应用于现实管理的一次很有意义的实践活动。1.2开发的意义计算机已经成为我们学习和工作的得力助手，使用其可方便的管理病人及医师今天，计算机的价格已经十分低廉，性能却有了长足的进步。它已经应用于许多领域。现在我国的病人及医师管理水平绝大部分还停留在纸介质的基础上，这样的机制已经不能适应时代的发展，因为它浪费了许多人力和物力，在信息时代这种传统的管理方法必然被计算机为基础的信息管理所取代。我作为一个计算机应用专业的毕业生，希望可以在这方面有所贡献。改革的总设计师邓小平同志说过“科学技术是第一生产力”，我希望能用我所学的知识编制出一个实用的程序来帮助医疗机构进行病人及医师管理。开发这一系统的好处大约有以下几点：第一、可以存储历年病人及医师的信息，安全、高效；第二、只需一到二名档案录入员即可操作系统，节省人力；第三、可以迅速查到病人及医师的各类信息。为将来医疗机构上网做好准备跟据2003年中国电信的调查报告显示我国的上网人数已达到1870万，互联网已经十分普及，本系统为医疗机构将来的上网作了先期工作，比如医疗机构的网络管理模式的建立。1.3团队构成指导教师：*******成员：******第二章开发环境及实现技术2・1开发环境硬件系统：奔腾1G以上CPU、256M以上内存、80G以上硬盘、光驱。软件系统：Windows2000或更高版本、Jsp中文版、SQLServer2000数据库。2.2开发工具简介Myeclipse5.0是jsp应用程序开发工具，使目前最为广泛的、易学易用的面向对象的开发工具。Jsp提供了大量的控件，这些控件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设计过程，从而有效的提高了应用程序的运行效率和可靠性。故而，实现本系统Myeclipse5.0是一个相对较好的选择。SQLServer20002000就是关系数据库开发工具，数据库能汇集各种信息以供查询、存储和检索。SQLServer2000的优点在于它能使用数据表示图或自定义窗体收集信息。数据表示图提供了一种类似于Excel的电子表格，可以使数据库一目了然。另外，SQLServer2000允许创建自定义报表用于打印或输出数据库中的信息。SQLServer2000也提供了数据存储库，可以使用桌面数据库文件把数据库文件置于网络文件服务器，与其他网络用户共享数据库。SQLServer2000是一种关系数据库工具，关系数据库是已开发的最通用的数据库之一。如上所述，SQLServer2000作为关系数据库开发具备了许多优点，可以在一个数据包中同时拥有桌面数据库的便利和关系数据库的强大功能。微软的JET数据库引擎提供了与数据库打交道的途径，我们是通过它以及Myeclipse5.0来访问数据库并对其进行各种操作。Jsp、SQLServer2000以及其他的软件产品都是通过共用JET数据库引擎，从而给用户提供了丰富的数据类型。JDBC控件在数据库中的信息与将信息显示给用户看的Jsp程序之间架起了一座桥梁。我们可以设置JDBC控件的各个属性，告诉它要调用那个数据库的哪个部分。缺省情况下，JDBC控件根据数据库中的一个或多个数据表建立一个dynaset-type（动态集合）类型的记录集合。一个记录集合是动态的也就意味着，当原来的数据表中的容改变了以后，该记录集合中的记录也会随之改变。JDBC控件还提供了用来浏览不同记录的各种跳转按钮。将JDBC控件放置在窗体中之后，我们还必须在该控件与要处理的数据库之间建立联系。ADO是Mcrosoft提出的第三种数据库访问对象，是Microsoft数据库访问技术的一个主要发展方向，ADO将OLEDB封装在一个数据对象中，使得JSP程序中以方便地实现对数据库的访问。具体的与数据库的关系如下：JSP数据库应用程序一般由用户界面、数据库引擎和数据仓库三大部分组成。用户界面：用户界面是指应用程序与用户进行交互的界面，包括用于交互的所有界面元素和代码。它可以显示数据并提供查看或更新数据的所有对象，比如数据作业窗体，添加、删除记录或执行查询的JSP代码等，这些对象隐含着用来请求数据库服务的属性、事件和方法。数据库引擎:所谓数据库引擎，是一种管理数据怎样被存储和检索的软件系统，是应用程序与物理数据库之间的桥梁。它把应用程序的请求翻译成对各种类型数据库的物理操作，并向应用程序返回结果。数据仓库:数据仓库是包含数据库表的一个或多个文件，是存放数据的地方。对于本地的JSP数据库来说，就是.mdb格式文件；对于不同的数据库，它可能具备其它格式。JSP访问数据库通常有三种途径：使用JDBC访问数据库；通过JSP提供的数据访问变量编程访问；通过ODBC接口访问ODBCAPI函数。JSP程序的数据访问通过数据访问接口来实现。在JSP中，主要的数据访问接口有三种：数据存取对象(JDBCSQLServer2000Object；DAO)、远程数据对象(RemoteJDBCObject；RDO)、ActiveX数据对象(ActiveXJDBCObjects；ADO)。JSP通过数据库引擎可以访问的数据库分如下三类：内部数据库、外部数据库和ODBC数据库。1、内部数据库——即.MDB格式的数据库，包括DAOAPI、MicrosoftSQLServer2000和MicrosoftAccess创建的数据源，也称为本地数据库。由于是由Jet引擎直接创建和操作这些数据库，可以提供最大程度的灵活性和速度。2、外部数据库——即〃索引顺序存取方法(ISAM)数据库，例如Btrieve、dBASE、FoxPro以及Paradox等。JSP能够创建和操作所有这些数据库，还可以访问MicrosoftExcel或Lotusl-2-3电子表格，以及一些标准的文本文件。3、ODBC数据库——即符合开放式数据库连接性(ODBC)协议的数据库。JSP可以访问ODBC标准客户/服务器数据库一如MicrosoftSQLServer、Oracle和Sybase。可使用ODBCObject直接把命令传递给服务器处理，以创建真正的客户机/服务器程序。第三章系统设计3-1概要设计3.1.1概要设计阶段的主要任务本人先审查软件计划、软件需求分析提供的文档，提出最佳推荐方案，用系统流程图，组成系统物理元素清单，成本效益分析，系统的进度计划，供指导老师审定，审定后进入设计。确定模块结构，划分功能模块，将软件功能需求分配给所划分的最小单元模块。确定模块间的联系，确定数据结构、文件结构、数据库模式，确定测试方法与策略。编写概要设计说明书，用户手册，测试计划，选用相关的软件工具来描述软件结构，结构图是经常使用的软件描述工具。选择分解功能与划分模块的设计原则，例如模块划分独立性原则，信息隐蔽原则等。3.1.2概要设计的过程概要设计要先进行系统设计，复审系统计划与需求分析，确定系统具体的实施方案；然后进行结构设计，确定软件结构。3.1.3概要设计的原则将软件划分成若干独立成分的依据。如何表示不同的成分内的功能细节和数据结构。如何统一衡量软件设计的技术质量。3.1・4系统功能分析根据医院提供的管理的信息，预测开发的管理系统的达到的功能如下：第一部分：系统用户管理要求：用户分二类：管理用户［一切功能可用］、普通用户［仅可查询信息］第二部分：患者基本资料要求：实现患者资料的新增、修改、办理患者出院、查询患者资料。第三部分病房管理要求：实现新增病人、病人的转科转房、病房明细查询、患者退房第四部分主治医师管理要求：实现主治医师资料的新增、修改、查询，有统计各个主治医师的治疗效果第五部分收费管理要求：实现收费项目列表、查询各患者交费情况的查询，及收费窗口第五部分床位管理要求：实现当日出/入院病人数量和人员列表，实现各床位管理。该系统考虑将整个系统分解成如图3-1模块结构图：登录1r主界面1FVT病人医师收费其他密码管理管理管理服务修改———图3-1模块结构图等并且在系统的开发过程中，我尽量注意模块的高内聚、低耦合，使得系统的整体性能提高，并且也有利于投入使用后的系统维护。3.2详细设计3.2.1详细设计的任务详细设计就是要在概要设计的结果的基础上，考虑“怎样实现”这个软件系统，直到对系统中的每个模块给出足够详细的过程性描述。主要任务如下：①为每个模块确定采用的算法，选择某种适当的工具表达算法的过程，写出模块的详细过程性描述；②确定每一

模块使用的数据结构；③确定模块接口的细节，包括对系统外部的接口和用户界面，对系统内部其它模块的接口，以及模块输入数据、输出数据及局部数据的全部细节。④要为每一个模块设计出一组测试用例，以便在编码阶段对模块代码（即程序）进行预定的测试，模块的测试用例是软件测试计划的重要组成部分，通常应包括输入数据，期望输出等内容。3.2.2详细设计的方法程序流程图、N-S图、PAD图、IPO图本系统在开发过程中所采用的详细设计方法为IPO图:1、病人及医师管理模块模块IPO图:P提供相应的界面供操作人员录入2、病人及医师的查询模块IPO图:I P O收费项目等的设置收费项目等的设置提供相应的界面供操作人员操作保存到收入/支出项目表4、打印模块IPO图:医院床位的设置5、用户管理模块的IPO图增加、删除、修改用户信息提供相应的界面供操作人员操作提供相应的界面供操作人员操作第四章数据库设计4.1数据库SQLServer2000简介SQLServer2000中文版是Microsoft出品的数据库管理系统软件，是目前比较流行的中大型桌面数据库管理系统，它适用于大中型企业、学校、个人等用户，可以通过多种方式实现对数据收集、分类、筛选处理，提供用户查询或打印报表。SQLServer2000具有良好的界面，采用了与Windows系列软件完全一致的风格，用户可以通过菜单和对话框操作，不用编写任何命令便能有效地实现各种功能的操作，完成数据管理任务SQLServer2000可以作为个人计算机终端和大型主机系统之间的桥梁。通过如SQL、ODBC等特定技术，方便地存储、检索和处理服务器平台上的关键信息，提供了灵活、可靠、安全的客户/服务器解决方案。SQLServer2000可以接受多种格式的数据，从而方便了用户在不同系统之间进行数据转换。随着Internet网络应用的发展，SQLServer2000还增加了使用信息发布Web向导和用HTML格式导出对象的功能。数据库的概念数据库是一种存储数据并对数据进行操作的工具。数据库的作用在于组织和表达信息，简而言之，数据库就是信息的集合。计算机的数据库可以分为两类：非关系数据库(flat-file)和关系数据库(relational)。关系数据库中包含了多个数据表的信息，数据库含有各个不同部分的术语，象记录、域等。新建一个数据库创建任何一个数据库的第一步是仔细的规划数据库，设计必须是灵活的、有逻辑的。创建一个数据库结构的过程被认为是数据模型设计。标识需要的数据；收集被标识的字段到表中；标识主关键字字段；绘制一个简单的数据图表；规范数据；标识指定字段的信息；创建物理表。修改己建的数据库数据库的修改分为：添加、编辑和删除记录。这三种操作均可由Jsp创建的程序来完成，下面的章节将详细描述实现的具体方法。实现数据库之间的联系数据库之间的关系指明两个库之间共享一个共同的关键字值。一个连接是指一种虚拟的表，这种表是在当用户要求从相互关联的各个不同的表中获取信息时建立的，关键字段用于在相互连接的不同表中查找匹配的记录。一个更高级的连接形式称为自连接。这种连接是指一个表被连接到它自己的一个字段，或在不同的纪录中由重复数据的组合字段。数据库中有三种不同类型的关键字：主关键字、组合关键字和外关键字。在表中使用的关键字类型用于描述库表示什么以及在数据库中如何与其它的库建立关系。4.2数据库需求分析根据调查有关单位的病人及医师管理的实际情况，分析得到如下的数据库结构。住院患者情况表:H1表-patiewt"中的裁蚌位置是"hospital"中、"(LOCALJ"上id|pL«.ae|J15|mzIrT|d.4ct 4|addtimt |k]一病豆一号氐001姓喘病10000抠飞2OD0-3-52一病室二号床OOZI功船低下9300张飞2003-3-263—*■病室三号床0CG老年凝呆在3300SO明-3-27主治医师情况表:tcllr\ /bai■ isysLhjTiGODELiLUUCi-O_l1好.工■.端吏/曹CtJ□逮T耕的薮据,位置是-hospitaJ'11曳、"(理曜JR上idphoto |dijctoiTL：iniezhicheng：intro|aidtime卜7njl&ad_file/p-.张飞副主任医师国内外很有知名甘£008-3-16IT:密交费情况表:dbj 用尸 £000-3-114.37.55jn表^Medicine5,中的数据,位蚩是"hospital"中、u(LOCAL)"上idmzyphbypnc77立ij doctom&nie addtime►刘1畚，—病至1日AD01削新•痂室••号JW9白M山阿冥西林北京陀压雪号154 张飞 zms-3-5L0 必飞 2CD0-3-T3关妙一病室二导,WH02.印度神浊1800 必飞 2CDS-3-164关3习病室一号.TD01幻:簇辨苜13 强飞 2CO8-3-1E5划备/■一新室一号,WJU3万金油15 张飞 2CO8-3-J1:*

用户表：Wx~ l^Jpataent Mo 用尸 1W：^：U3「ZE【 | Rh EE白 财w叨|匚.1匚hi备表-.CBtcr"平的魏据，位置至-he^pitai"中、**〔LOCAL广±idis-srnsiicIi吐53WP『d ItypeIrcelirnei见e1Loisiritines11-iillilieILaatip►器 a.bcd.Q6tI921SZe5eBT2person2003-3-723:37:1L32008-3-S5:03:2127.0.0.L15EEC?af]5d5fdacd5fdEcdZOOB^Z-2]Z-LL：：142OOS-E-Z12-55■IZT.□.□L39abcdasQti4e7aDe5fe04ad；person2000-3-723:39:1U2000-3-723.39127.0.0.L40LLbba75f26£-it.lcec£2ico200B-3-723:4B:：122008-3-80:24:51127.0.0.L02ZL-kOqiOJLg：B6aI9ZlB065flbIZparsan如如-3-M]L:311LB2005-3-171:33:1ZT.0.0L至|wvv^93fTbbZ15bacaL!co2000-Z-GH00J14观（16-FTCi233LL2T.0.0L3Tttlt1a.]00d2dDd3.li]9cpermil200B-2-1313:55102006-2-1313:55127.0.0.L43上应duQ641921KCSaLTSm2008-3-14]3:39182008-3-141542127.0.0.L44VVVIVd7S5 i-la9parEdii200B-3-1612ZB1£2D08-3-1S1232IZT.0.0L*4.3测试用例住院患者情况表的测试用例:主治医师情况表的测试用例:第五章系统的实现5.5.1系统登录模块的实现1.流程图1.流程图2.界面:2.界面:网站后台登录登录网站后台登录登录界面包括的控件有标签、文本框、命令按钮等控件。实现代码:<tablewidth="160"border="0"cellspacing="0"cellpadding=”0”align="center”〉<formaction="<%=basePath%>Admin.shtml"name=form1method二postonSubmit="returncheckform(forml)"autocomplete="off"><tr><tdcolspan="3"class="news"height="5”><inputtype=hiddenname=methodvalue="one"/></td></tr><tr><tdwidth="5"class="nwes"height="36"></td><tdwidth="56"class="font1"height="36"><fontcolor="#CFD1E8">用户名</font></td><td><inputtype="text"name="username"size="15"class=inputonbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/「\d]/g,''))”onkeyup="value二value.replace(/[\W]/g,'')”/></td></tr><tr><tdclass="nwes"height=〃36〃> </td><tdclass=〃font1〃height=〃36〃><fontcolor=〃#CFD1E8〃>口令</font></td><td><inputtype="password"name="password"value=〃〃size="15”class二inputonbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/「\d]/g,''))〃onkeyup="value二value.replace(/[\W]/g,'')”></td></tr><tr><tdclass="nwes"height="36"> </td><tdclass="fontl"height="36”><fontcolor="#CFD1E8">验证码</font></td><td>/• — 〃土「 〃 ~〃 „1 〃〃 „• 〃C〃<inputtype—textname=yzmvalue=size=9maxlength="4"class—inputonbeforepaste-"clipboardData.setData('text',clipboardData.getData('text').replace(/「\d]/g,''))〃onkeyup=〃value二value.replace(/[\W]/g,'')〃><%=code%></td></tr><tr><tdheight=〃5〃colspan=〃3〃></td></tr><tr><td> </td><tdalign=〃center〃> </td><td><inputtype=〃image"border=〃0〃name=〃imageField”src=〃<%=basePath%><%=dir%>/images/bt_login.gif〃width=〃70〃height=〃16〃></td></tr></form></table>并且具有改变“登录”菜单为“注销”菜单的功能。PrivateSubCommand2_Click()UnloadMe 、EndSub改变登录菜单为注销菜单此程序段中，“IF”语句的作用是判断用户输入的用户名与密码和数据库的是否相同，如果相同，则打开菜单项并执行unloadme，如果用户名或密码输入错误，则提示:使用户重新输入用户名或密码。使JSP与SQLServer2000数据库相连，然后判断用户输入的用户名与密码是否与数据库中的一致，如果一致，则允许用户进入系统。此三个控件的创建方法如下：首先，将JDBC、Text控件拖放到窗体上，其次，设置它们的属性：（1）JDBC设置如下：try{Class.forName("com.microsoft.jdbc.sqlserver.SQLServerDriver");conn DriverManager.getConnection("jdbc:microsoft:sqls£rver:/7localhost?1433';databaseiami=liospital//conn 的名称ql","sy8009sql");}数据库中的表名DriverManager.getConnection("jdbc:microsoft:sqlserver://localhost:1433;databalsename=sy8009sql","sy8009sql","sy8009sql");}数据库中的表名//System.out.println("打开数据库连接”);catch(Exceptionex){//System.err.println('打开数据库时出错："+ex.getMessage());}此两个属性的作用是保证JDBC控件与数据库相连。届性-DMal□行为BDragTcun(irone)Dra洲oleU-M：ilLU=ilEnalile<1TrueOLEIlrcpMAuU-N-:-ncRigli-tTuLettF：±lseVisilleFalse曰杂项〔名称)Inde:-:MciuzelcLirLOTone)Mcus^Fciritei-0-DefaultTagTi：«i：ilTipTextWh凸+=Tk；"HdlfTTIn|DalalData按字母序按分炎序I〔名曲)返回代码中使用的标识对逾的名称n运行时是否隐藏Visible属性是使此控件运行时在窗体上不显示。(2)Text3控件的属性设置如下:Visible属性的设置同JDBC1控件。5.2主界面的实现主界面是用菜单形式表现的，如图:此数据控件绑定到何字段此数据控件绑定到何数据库［盐员登永】r何黄注册】i忘记密死】年3月1阳L1:L4.垂星期一 加人娘璋役肯苜只眺率站长苜町I新国中心I在院该吞I主治医生I枷阿魏答I舍员中0I管理萱陆I站内会皆笠于开瘩mH届.不牛音曲度孜花■花"ajoe-as-OE：0E：4fl：38.'n基竟正式并始区董.—DS-03-0301<15350嗣肃薜程型怠下翊h学故特珊仲的awB-os-K：az.4'a；L0.D诙我育创新也是t1鼬艘1常苜唔〕aWH-0S-E6az：4g：oo.D在停膏教学中建立艮吁揶生关系庄厢兹HBH-03-re；口巳43:48.D此竞中克虐材中孕主学卫曲备培£fl0fl-[J3-C6DZ-疵：郭.U讼馈学教学中馈顺教声如1点叔0£--t3:2*.n诩土教学亶住•观人丈辖神aMB-w-reDFW：L3.D裸湛业龄中的1害有潦激目珈-U3-0E0E：4a：0E.D:恃赏泊古洋k敢学中的生勤日子anH-03-DSaZ.4T：3T.D寿加，酒歪麒。蛎娘12WH-05-DSaz.47：24.0EK1B新北京底屈微与忌谊回匠院.始遂于m军.现布卫生血祖］三照甲毛医岳■:S中虫的平卸俱停期虬1EPS院盘一所以苍干辰疗俱便为中心-W年医学HI究为再点-面社会全面开顺jfl展疔•■龄’科弟ilfer为一伟的现代化大胡巍合世叵院.北京医所位于北京市中心■时款会街和T门'言至厂、玉•殳民寄占电面5ZOM多平刀札建班面畛im多平方案，现百床位1L（M张■眼工230尊人具有正副主•任医匝正副裁授••研究员.琳瓯职繇的有通技丰人员近399人：谓士后'谓士r版士2町人.设有专业科虽务R茧点忍朝个.佚期承担看中期F导干邱帷疗保哇任务及mm名司.砌以上千部医疗ISfit任蓉相兀十余方彗保J齿的吟T保险工tn并挂费大呈京外留旗诊倪凝滩曲痢人.有承起容次国照大型洁动'豪宫议的云疗佛隧工作的铤验和能力，dbiLiA.m—rfr-r：if--.-i：-h-Alm=LrYtMi此过程中要注意各菜单的名称唯一，还要注意菜单的级别，另外此设计过程中我们还可以给菜单加快捷键。最后设置如下的代码（只要单击菜单即可设置各菜单代码），代码如下:publicclassSmartUpload(protectedbytem_binArray[];protectedHttpServletRequestm_request;protectedHttpServletResponsem_response;protectedServletContextm_application;privateintm_totalBytes;privateintm_currentIndex;privateintm_startData;privateintm_endData;privateStringm_boundary;privatelongm_totalMaxFileSize;privatelongm_maxFileSize;privateVectorm_deniedFilesList;privateVectorm_allowedFilesList;privatebooleanm_denyPhysicalPath;//privatebooleanm_forcePhysicalPath;privateStringm_contentDisposition;publicstaticfinalintSAVE_AUTO=0;publicstaticfinalintSAVE_VIRTUAL=1;publicstaticfinalintSAVE_PHYSICAL=2;privateSmartFilesm_files;privateSmartRequestm_formRequest;publicSmartUpload()m_totalBytes=0;m_currentIndex=0;m_startData=0;m_endData=0;m_boundary="";//newString();m_totalMaxFileSize=0L;m_maxFileSize=0L;m_deniedFilesList=newVector();m_allowedFilesList=newVector();m_denyPhysicalPath=false;//m_forcePhysicalPath=false;m_contentDisposition="";//newString();m_files=newSmartFiles();m_formRequest=newSmartRequest();}主要是通过Show方法调用相应的窗体。5.3住院管理模块的实现5.3.1住院/出院模块的实现：1、流程图：

开始开始2、运行界面:入院的运行界面:酒弓Si,付紫1充>主祐氏生湘g1病宣三号尽DD3讦破症:OTi2®5<LS-2T叩：叩：叩0■Hi2T旌二号斥DD25C®2COMS-2GDD：DD：DD.D3_拓一号床血购病Ltcai去飞200^3-05仙：仙：仙.口樵£11宕毛3.目打日.：出院的运行界面:患者姓名：迥云预付款：：3000TC医药总费用70元点此查看详单姑 余：'30007L匚清算费用出匡二|实现过程：（以入院为例）第一步将所需的控件放到窗体的相应位置；方法：首先在“工具箱”中选中所需的控件图标，然后在表单的恰当位置上单击鼠标并拖动鼠标，即可把由所选取的控件生成的对象添加到窗体上。第二步，选择窗体或控件进行属性设置，同上一小结。其它属性和控件的设置方法类似。第三步双击相应的控件，在控件的相应过程中编写代码:新增的代码为:

新增的代码为:PrivateSubCommand1_Click()IfCommand1.Caption=〃新增〃ThenJDBC1.Recordset.MoveLastn=Trim(Str(JDBC1.Recordset.RecordCount+PrivateSubCommand1_Click()IfCommand1.Caption=〃新增〃ThenJDBC1.Recordset.MoveLastn=Trim(Str(JDBC1.Recordset.RecordCount+1))Command1.Caption=〃确定〃JDBC1.Recordset.AddNewText1(0).Text=nText1(3).Text=30Text1(11)=DateText1(1).SetFocusCommand2.Enabled=FalseCommand3.Enabled=FalseElseMsgBox"入院成功!"Command1.Caption=〃新增〃JDBC1.Recordset.UpdateJDBC1.Recordset.MoveLastCommand2.Enabled=TrueCommand3.Enabled=TrueEndIfEndSub幡的代码为:PrivateSubCommand2_Click()JDBC1.Recordset.DeleteJDBC1.Recordset.MovePreviousEndSub修改的代码为:PrivateSubCommand3_Click()JDBC1.Recordset.EditJDBC1.Recordset.UpdateEndSub图片框的代码为：PrivateSubPicture1_Click()Picturel.Picture=Clipboard.GetJDBCEndSub此窗体上用了1个Adodc控件，Adodc1用来连接医师情况表。使用方法是首先通过Adodc控件与数据库相连，然后将各数据项与数据字段相连。如科别的控件的主要属性设置如下：（名称）返回代码中使用的标讥对象的名称。其他控件的设置同。出院管理类型，主要以有无入院/出院时间判断病人是住院状态还是出院状态。5.3.2查询住院/出院病人模块的实现1.运行界面：查询住院病人运行界面：查询出院病人运行界面:患者姓名预付款1DOOO元医药总贵用597L结 渝9941元费用详细如下药品疏导药品名祢茹耳单价药品费用主治医生用茹时间AOD1日云山阿莫西林144张飞2008-03-0500:00:000J1ODQ北京降尾宴号51050北飞2008<I3-070D:00:00□WOD3：万金油1b5张飞2008-03-1100:00:000总计：595e关mn"实现过程(以查询住院病人为例)：界面的实现方法同上，下面主要看关键代码：单选按钮组的代码为：PrivateSubOption1_Click(IndexAsInteger)Fori=0To3IfOption1(0).Value=TrueOrOption1(1).Value=TrueThenTextl.Visible=TrueCombo1.Visible=FalseDTPicker1.Visible=FalseElseIfOption1(2).Value=TrueThenText1.Visible=FalseCombo1.Visible=TrueDTPicker1.Visible=FalseElseIfOption1(3).Value=TrueThenText1.Visible=FalseCombo1.Visible=FalseDTPicker1.Visible=TrueElseMsgBox〃请选择查询的项！"，，〃提示〃EndIfEndIfEndIfNextiCommand1.Visible=TrueEndSub主要选择查询的方法。“查询“的主要代码为：PrivateSubCommand1_Click()IfOption1(0).Value=TrueThenSQL="select*from住院患者情况where住院号二'"&Trim(Text1.Text)&"'andlen(trim(format(出院时间,’yyyymmdd')))=0"ElseIfOption1(1).Value=TrueThenSQL="select*from住院患者情况where姓名='"&Trim(Text1.Text)&"'andlen(trim(format(出院时间,’yyyymmdd')))=0"ElseIfOption1(2).Value=TrueThenSQL="select*from住院患者情况where血型='"&Trim(Combo1.Text)&"'andlen(trim(format(出院时间，'yyyymmdd')))=0"ElseSQL="select*from住院患者情况where入院时间二#"&Format(DTPicker1.Value,"yyyy-mm-dd")&"#andlen(trim(format(出院时间，'yyyymmdd')))=0"EndIfEndIfEndIfJDBC1.RecordSource=SQLJDBCl.RefreshIfJDBC1.Recordset.EOFThenMsgBox〃没有您要查询的病人！〃，，〃提示〃EndIfEndSub主要作用：根据用户的选择，通过SQL语句查询并显示结果。出院病人查询类似，不现介绍。5.4病床管理模块的实现1.流程图：2.运行界面：病床的运行界面:.字与药昌制号魏品硼ESkSiE主治旺生.用函刑]河畚柄壑T床如口3万金铺]5™e-Q3-llW：OT：m.D2美好.一辆室二号床TflOia：事商]：3强飞£06-03-15W.LO.LIj.O岭・3美羽「一两室二号床W02]tlJjEMHoa-ifi(n.LO.ijj.0*刘家一sraT斥jm北球EW号5102WM3-DTmCO|»0圄陶5削急TfiMT■尽MQ1白云山阿苴西林142OTHJ3-05mCOffi0病房查询的运行界面:吾个入会员信息~网页对话柩其实姓名王小强I_ 性别"俾出生日期：200S-03-?!藉贯！哄西西安联系.电话：0280888088邮箱:xiaoqi：iiLg@1E>3.ccn密码保护提示问题Hxi:mqi：=LiLg密码保护答案mjxi:kOiji：iiLg888http://www.jspttjEt.ciy1kiiiriiNmwmbnri1'pminfli.jsp?iil=42 *工ntwvnN实现过程：下面把此界面的主要代码作一介绍:PrivateSubCommand1_Click()Text2.Text=JDBCCombo2.TextText3.Text=JDBCCombol.TextEndSubPrivateSubCommand2_Click()SQL="select*from住院患者情况where住院号二'〃&Trim(Text1(0).Text)&JDBCl.RecordSource=SQLJDBCl.RefreshIfJDBC1.Recordset.EOFThenMsgBox〃住院号错!"EndIfEndSubPrivateSubCommand3_Click()UnloadMeEndSubPrivateSubForm_Load()Form31.Width=7680Form31.Height=6120Form31.Move(Screen.Width-Form31.Width)/2,(Screen.Height-Form31.Height)/4EndSub此过程主要是借助于SQL(结构化查询语言)语句来进行查询，然后通过JDBC1.RecordSource=str来进行数据源更新。如果找不到要找数据，则提示。(2)病房号查询的实现：这里只介绍主要代码。PrivateSubCommand1_Click()IfOption1.Value=TrueThenFrame2.Visible=TrueSQL="select*from住院患者情况where病房号='〃&Trim(Text1.Text)&〃'〃JDBC1.RecordSource=SQLJDBC1.RefreshIfJDBC1.Recordset.EOFThenMsgBox〃此病房号没有病人！"，，〃提示〃EndIfSQL="select*from主治医师情况where病房号='"&Trim(Text1.Text)&"'"JDBC2.RecordSource=SQLJDBC2.RefreshIfJDBC2.Recordset.EOFThenMsgBox〃此病房号没有主治医师信息！〃，，〃提示〃EndIfEndIfIfOption2.Value=TrueThenFrame2.Visible=TrueSQL="select*from主治医师情况where姓名='〃&Trim(Textl.Text)&〃'JDBC2.RecordSource=SQLJDBC2.RefreshIfJDBC2.Recordset.EOFThenMsgBox〃此病房号没有主治医师信息！〃，，〃提示〃ElseSQL=〃select*from住院患者情况where病房号='〃&Trim(Text2.Text)&JDBCl.RecordSource=SQLJDBCl.RefreshIfJDBC1.Recordset.EOFThenMsgBox〃此主治医师的病房号没有病人！〃，，〃提示〃EndIfEndIfEndIfIfOptionl.Value=FalseAndOption2.Value=FalseThenFrame2.Visible=FalseMsgBox〃请选择查询的项目后再进行查询！〃，，〃提示〃EndIfEndSub通过SQL查询语句查询，并将结果显示在DBgridl表中，表的属性如下：5.数据源5医师管理模块的实现1.流程图:2.运行界面:医师维护的运行界面:增加主治医生片二增加主治医生片二所有顼目必埴D:\picut&\damo.jp^ I浏览...姓名二|[职称-u一 I £简江；_ .1 :增加3.实现过程：界面的设计方法同上，在这不再重复。代码如下：publicfinalvoidinitialize(ServletConfigservletconfig,HttpServletRequesthttpservletrequest,HttpServletResponsehttpservletresponse)throwsServletException(m_application=servletconfig.getServletContext();m_request=httpservletrequest;m_response=httpservletresponse;}publicfinalvoidinitialize(PageContextpagecontext)throwsServletException(m_application=pagecontext.getServletContext();m_request=(HttpServletRequest)pagecontext.getRequest();m_response=(HttpServletResponse)pagecontext.getResponse();}/***©deprecatedMethodinitializeisdeprecated*/publicfinalvoidinitialize(ServletContextservletcontext,HttpSessionhttpsession,HttpServletRequesthttpservletrequest,HttpServletResponsehttpservletresponse,JspWriterjspwriter)throwsServletException(m_application=servletcontext;m_request=httpservletrequest;m_response=httpservletresponse;}publicvoidupload()throwsServletException,IOException,SmartUploadException(inti=0;//booleanflag=false;booleanflagl=false;//booleanflag2=false;longl=0L;//Strings="";//newString();//Strings2=〃〃；//newString();Strings4=〃〃；//newString();Strings5=〃〃；//newString();Strings6=〃〃；//newString();Strings7=〃〃；//newString();Strings8=〃〃；//newString();Strings9=〃〃；//newString();Strings10=〃〃；//newString();m_totalBytes=m_request.getContentLength();m_binArray=newbyte[m_totalBytes];5.6交费管理模块的实现1.流程图:2.运行界面:收费的运行界面:禺者姓名；赵云顼付款！：知M元医药总费用"；a元点此查看详单结泉：3000元［清算费用出院查询交费明细的运行界面：患者姓名：刘备预付款：1DOOO元医药总贵用：53元结余：9941无费用详细如下:有晶端导药品名祢茹品单价药昌赛用主治医生用药时间A0D1日云山阿莫西林144张飞2008-03-0500:00:000JODQ北京降尾孝号51050强飞2008<I2-070D:00:00□tf0D3.万交油1b5张飞2008-03r.ilU0:00:000总计：595e关团简口3.实现过程：界面的设计方法同上，在这不再重复。现将控件的相应代码说明如下：收费界面的代码分别如下：<%@pagelanguage=〃java"import=〃java.util.*"contentType=〃text/html;charset二gb2312〃％><jsp:useBeanid=〃bb"scope="page"class=”com.bean.BedBean"/><jsp:useBeanid="sn"scope="page"class="com.bean.SystemBean"/><%Stringpath=request.getContextPath();StringbasePath=request.getScheme()+"://"+request.getServerName()+":"+request.getServerPort()+path+〃/〃；Stringdir二sn.getDir();%><HTML><HEAD><TITLE>后台操作区</TITLE><LINKhref=〃<%=basePath%><%=dir%>/images/Admin_Style.css"type=text/cssrel二stylesheet〉<LINKhref=〃<%=basePath%><%=dir%>/images/style.css"type=text/cssrel=stylesheet><SCRIPTlanguage二JavaScriptsrc=〃<%=basePath%><%=dir%>/images/Common.js"></SCRIPT><SCRIPTlanguage=JavaScriptsrc=〃<%=basePath%><%=dir%>/images/calendar.js"></SCRIPT><STYLEtype=text/css>BODY(MARGIN-LEFT:0px;BACKGROUND-COLOR:#ffffff}.STYLE1(color:#ECE9D8}</STYLE></HEAD><scriptlanguage="javascript">fu