医院住院管理系统综合性实验报告

30/30HYPERLINK"/"《vf程序设计》综合性实验实验报告题目：医院住院治理系统姓名：李典班级：国会0906学号：200948990620指导教师：李周芳完成时刻：2011-1-8一、实验题目医院住院治理系统二、实验目的巩固学生对数据库差不多原理和基础理论的理解，掌握数据库应用系统设计开发的差不多方法，进一步提高学生综合运用所学知识的能力。设计一个小型的完整、简单的医院住院治理系统。三、系统分析1、功能分析系统开发的总体任务是实现各种信息的系统化、规范化和自动化。系统功能分析是在系统开发的总体任务的基础上完成。医院住院治理信息系统需要完成功能要紧有：（1）录入模块：●用户信息的输入，包括病人编号、姓名、密码、身份等。●病人入院、出院登记，包括病人编号、姓名、性不、年龄、是否办理出院、病因等。（2）修改模块：●病人差不多信息的查询和修改，包括病人编号、姓名、性不、年龄、入院日期、出院日期、病因等。（3）查询模块：●病人差不多信息的查询，包括病人编号、姓名、性不、年龄、入院日期、出院日期、是否办理出院、病因等。统计模块： ●信息的统计，包括病人信息、病房信息、住房信息、用户信息等。（5）报表打印模块：●病人差不多信息报表，包括病人编号、姓名、性不、年龄、入院日期、出院日期、是否办理出院、病因等。●病房差不多信息报表，包括病房号码、病房等级称、每日价格、床位等。四、数据库设计1、概念设计（E-R图）2、实现设计（关系模式）病房信息表｛病房号码，病房级不，每日价格，病床数｝病人信息表｛编号，姓名，性不，年龄，入院日期，出院日期，是否出院，病因｝住房信息表｛编号，性不，病房号码，病房级不，床位｝病人，病房号码为外键，分不依靠于病人编号，病房号码用户信息表｛编号，姓名，密码，身份｝3、物理设计（1）、病房信息表：（2）、病人信息表：（3）、住房信息表：（4）、用户信息表：五、系统设计1、概要设计医院住院治理系统医院住院治理系统病人信息治理入院信息登记病房分类入住情况出院信息登记用户治理密码治理病房信息治理系统治理住院业务治理病人信息查询入住情况查询六、实现过程1、菜单设计2、界面设计，控件属性设计，添加程序代码（1）登录界面对象名属性属性值Form1CaptionForm1Lable1Caption欢迎访问医院住院治理系统Lable2Caption姓名Lable3caption密码Command1caption登录Command2caption退出optiongroup1buttoncount2（治理员或病人）Text2passwordchar用户信息表密码Text1namechar用户信息表姓名“登陆”按钮的click事件代码如下：use用户信息locateforalltrim(姓名)==alltrim(thisform.text1.value)if.not.found()messagebox("没有该用户！")elseifthisform.optiongroup1.option1.value=1ifalltrim(身份)=="治理员"ifalltrim(密码)==alltrim(thisform.text2.value)messagebox("欢迎访问系统！")doform治理员主页elsemessagebox("密码错误！")endifelsemessagebox("身份不匹配！")endifelseifalltrim(身份)=="病人"if密码==alltrim(thisform.text2.value)messagebox("欢迎访问系统！")doform病人主页elsemessagebox("密码错误！")endifelsemessagebox("身份不匹配！")endifendifendif“退出”的事件代码如下：thisform.release（2）主菜单（治理员登录）对象名属性属性值Form1Caption治理员主页（主界面）Lable1Caption欢迎使用住院系统Command1caption添加Command2caption修改Command3caption查询Command4caption统计Command5caption系统信息Command6caption退出2-1住院业务治理功能选择入院登记，进入如下界面：s对象属性属性值Text1controlsource姓名Text2controlsource编号Text3controlsource性不Text4controlsource年龄Edit1病因Label1Caption入院登记Form1Caption入院登记Command1Caption查上一个编号Command2Caption确定Command3Caption退出“查上一个编号”按钮的click事件代码如下：goreccount()-1thisform.label5.caption=编号“确定”按钮的click事件代码如下：appendblankreplace编号withthisform.Text2.valuereplace年龄withthisform.text4.valuereplace性不withthisform.text3.valuereplace姓名withthisform.Text1.valuereplace病因withthisform.edit1.valuemessagebox("已登记！")thisform.refresh“退出”的click事件代码如下：thisform.release选择出院登记，进入如下界面：对象属性属性值Text1controlsource姓名Text2controlsource编号Text3Controlsource是否办理出院Command1Caption确定Command2Caption退出“确定”按钮的click事件代码如下：locatefor编号=alltrim(thisform.text1.text)iffound()thisform.Text1.value=姓名replace病人信息.是否已办理出院withthisform.text3.valuemessagebox("是否办理出院："+alltrim(thisform.text3.value))elsemessagebox("编号输入有误！")endifthisform.refresh“退出”按钮的click事件代码如下：thisform.release2-2、病人信息治理功能对象属性属性值Form1Caption病人差不多信息查询Command1caption第一个Command2caption上一个Command3caption下一个Command4caption最后一个Command5caption修改Text1Caption姓名Text2Caption编号Text3Caption年龄Text4Caption性不Text5Caption入院日期Text6Caption出院日期Text7Caption病因“第一个”按钮的click事件代码如下：gotopthisform.refresh“上一个”按钮的click事件代码如下：ifbof().or.recno()=1messagebox("已到首记录",48,"退出")elseskip-1endifthisform.refresh“下一个”按钮的click事件代码如下：ifeof().or.recno()=reccount()messagebox("已到末记录",48,"返回")elseskipendifthisform.refresh“最后一个”按钮的click事件代码如下：gobottomthisform.refresh“修改”按钮的click事件代码如下：editthisform.refresh“添加”按钮大的click事件代码如下：appendblankeditthisform.refresh“删除”按钮的click事件代码如下：deletepackthisform.refresh“退出”按钮的click事件代码如下：thisform.release“查询”按钮的click事件代码如下：doform病人信息查询点击“查询”，进入如下界面：“查询”按钮的click事件代码如下：locatefor编号==alltrim(thisform.text1.value)thisform.refreshifnotfound()messagebox("输入编号有误！")endif“退出”的click事件代码如下：Thisform.release2-3、病房信息治理功能对象属性属性值Form1Caption病房登记text1controlsource编号Text2controlsource姓名Text3controlsource病房号码Text4controlsource病房级不Text5controlsource床位Command1caption确定Command2caption退出“确定”按钮的click事件代码如下：appendblankreplace编号withthisform.text1.valuereplace病房号码withthisform.text3.valuereplace床位withthisform.text5.valuereplace姓名withthisform.text2.valuereplace病房等级withthisform.text4.valuethisform.refreshmessagebox("已登记！")“退出”的click事件代码如下：thisform.release对象属性属性值Form1Caption病房查询text1controlsource请输入编号Text2controlsource姓名Text3controlsource性不Text4controlsource入院日期Text5controlsource出院日期Command1caption查询Command2caption删除Command3caption退出“查询”按钮的click事件代码如下：locatefor编号==alltrim(thisform.text1.value)thisform.refreshifnotfound()messagebox("没有该病人！")endif“删除”按钮的click事件代码如下：deletepackthisform.refreshmessagebox("已删除！")“退出”按钮的click事件代码如下：thisform.release2-4、信息统计功能点击“病人统计”进入如下界面：点击“病房统计”进入如下界面：点击“病人病房统计”进入如下界面：点击“本系统用户统计”进入如下界面：（3）、主菜单（病人治理功能）选择身份为：病人，姓名为：李儒，密码为：123456.进入如下界面：3-1、点击“病人信息查询”进入如下界面（代码及控件属性如前）：3-2、点击“病人病房查询”进入如下界面（代码及控件属性如前）：七、调试过程八、总结本设计报告以医院住院治理系统为背景，论述了开发医院住院治理系统的结构，系统开发的差不多步骤和方法．该系统的开发要紧是采纳面向对象开发模型，依照需要进行了较详细的讲明．通过开发那个医院住院治理系统，进一步明确了开发研制一个治理信息系统的方法和思想，加深了对治理信息系统的认识，提高了学习治理信息系统的兴趣，巩固了往常学到的信息系系统开