新农村合作医疗管理系统.docx

1、新农村合作医疗管理系统新农村合作医疗管理系统新农村合作医疗管理系统课程名称：空间数据库基础 专 业：测绘工程 班 级：0614121 设 计 组：第4小组 设 计 者：郜亚东 吕亚磊 苗辉 苏文文 指导教师：苗东利 牛磊 宋自影 邢晓娜 设计时间：2014年1月2号河南城建学院测绘工程学院一、课题及任务1.课题简介2.任务分派二、系统需求分析调查1.系统需求分析2.系统功能简介三、系统设计1.系统总体设计（画出系统设计流程图）2.系统详细设计（主要模块及模块介绍）3.数据库设计四、系统实施1.数据资源2.主程序设计 3.主要工作窗口（表单控件的属性及代码） 4.菜单设计五、设计体会六、参考文献

2、一.课题及任务1.课题简介 随着我国医疗制度改革不断深入的进行，社会保险机构的业务量也大幅度的增加，传统的手工管理方式已经不能够再满足新的业务需要。为了保证新型农村合作医疗制度的顺利实施，实现对新型农村合作医疗业务高效、准确、快速的管理，提高新型农村合作医疗业务管理的水平。本文通过分析新农村合作医疗管理存在的问题，继而设计一种医疗信息管理系统。2.任务分派 为了顺利的完成这次程序设计，我们组进行了任务分配。郜亚东负责主窗体，主窗体菜单，主程序，用户，医生管理，药品信息，药品价格，药品管理等设计。吕亚磊负责统筹支付，添加新用户，启动，密码修改等设计。苗辉负责门诊查询，门诊病人，就医记录等设计。苏

3、文文负责技术支持，合作医疗人员信息，关于，帮助，登陆等设计。二、系统需求分析调查1.系统需求分析管理信息系统是一门新兴的，集管理科学，信息科学，系统科学及计算机科学为一体的综合性学科，研究的是信息管理活动的全过程，以便有效地管理信息，提供各类管理决策信息，辅助企业进行现代化管理。管理信息系统它具备数据管理，计划，控制，预测和辅助决策功能。用同一标准处理和提供信息，排除使用前后矛盾的不完整的数据完整，及时提供在管理及决策中需要的数据。（1）利用指定的数据关系分析数据，客观预测未来。（2）向各级管理机构提供不同详细程度的报告，缩短分析和解释的时间（3）用最短的费用最短的时间提供尽可能精确，可靠的信

4、息，以便使决策者选者最佳的实施方案，以便提高企业的经济效益。（4）储存人员基本信息，门诊，住院报账明细到数据库中（5）及时反映病人拖欠费用情况（6）对于基金的使用情况，病种发病率情况，药品使用情况等信息的图形化统计制作农村医疗合作信息系统的目的就是支持医院的行政管理与事务处理业务，使医院的业务操作流程和日常管理规范化。采集，分析处理，储存各种基础数据并使之标准化2.系统功能简介（1）为业务范围内所有的农业人口，提供新农合服务；（2）实现跨地区、跨行业间迅速、准确、安全、可靠的新农合信息交换，保证新农合信息在业务范围内信息传输的畅通和系统资源的共享；（3）通过Internet/Intranet定

5、期向各级政府部门提供、发布新农合的有关信息、并为全体参合人员提供新农合信息的查询和有关政策法规咨询服务；（4）建立符合新农合业务要求、管理要求的应用软件系统，通过计算机软、硬件技术的先进手段，在业务上力求减少人员工作强度、规范新农合业务运作、提高业务工作质量、提高管理工作效率；（5）建立新农合管理的统计指标体系，使指标设置、指标解释、采集周期更具时效性，所设置的指标应能真正反映新农合事业的发展状况。系统要能够实现:最高层的预测、决策：中间层的计划、统计分析:基础层的事务管理这三个管理层次的功能1。三、系统设计1.系统总体设计2.系统详细设计3.数据库设计数据库是管理信息系统的核心，一个良好的数

6、据库结构既应具有数据冗余少、操作处理过程简单等特点，同时也应具有信息查找比较容易、系统开销低等特点。本系统在设计数据库的模式时，先根据分析阶段求得的E-R图构造出数据库的概念模型，这部分的工作可以按照E-R图生成关系模式的成熟方法机械的执行。对于得到的关系模式再做进一步的完善。首先为了保证存储数据的准确性和一致性，需要给数据加上完整性约束条件。根据作用的数据对象和范围不同，完整性措施分为三类，它们分别是标识唯一实体的实体完整性、保证数据正确的域完整性和维持参照表和被参照表之间数据一致性的参照完整性。约束则是数据库管理系统(DBMS)提供保证上述数据完整性的手段，主要包括主键约束、唯一性约束、缺

7、省约束、外键约束、非空约束和CHECK约束这几种。本系统在数据库设计阶段主要确定了主键约束，唯一性约束、非空约束、缺省约束，部分外键约束和部分CHECK约束。有一部分CHECK约束在应用程序设计中通过指定输入的有效性规则实现。而部分用于参照完整性约束的外键约束由于会在系统开发阶段带来不便，就通过触发器来保证参照完整性。还有一些较为复杂的数据一致性的要求，也决定使用触发器来实现，如系统中每一缴费期的每一条家庭缴费标准核定记录的内容都应与该家庭多条成员缴纳保险名册记录的内容保持一致。1）实例化一个数据库连接对象，在VC 6.0里需要引用SQL的动态库进行引用。Sqlconnection conn=

8、new sqlconnection(“connectstring”);/ connectstring为连接字符串（其中connectstring为连接数据库的字符串）。（2）调用Sqlconnection类的open方法将数据库链接打开。Conn.open();/打开数据库连接（3）实例化SQL命令响应类，该类为传递SQL结构化语句并执行的。其构造函数需要两个参数分别为SQL结构化语句和数据库连接类的对象。Sqlcommand comm=new sqlcommand(sql,conn); /执行sql命令（4）实例化SQL的读数据类，该类实现对数据库读取后的结构和数据存储。通过调用SQL命令类

9、的执行读（excuteread）方法返回Sqlask类数据赋值给Sqlask类的对象。Sqlaskreader=comm.excuteread();（5）数据库执行Sqlask类的读（Read）方法读取存在Sqlask类结构的数据。Reader.Reader();/数据（6）完成数据库读取后对数据库连接进行关闭，如果不对其进行关闭会早晨数据库连接资源浪费可能会导致更多的连接失效，所以关闭数据库连接很重要。四、系统实施1.数据资源2.主程序设计 set talk offclose allclear allpublic i as inte*设置系统参数set sysmenu offset sysm

10、enu toset notify off&设置窗口属性_screen.maxwidth=714_screen.maxheight=449_screen.autocenter=.t.*设置系统标题及图标_screen.caption=新农村合作医疗管理系统*设置路径*!* set defa d:vfpopen database 数据1.dbc*调用启动表单do form 启动.scxread eventreturn3.主要工作窗口窗体：对象对象名属性事件窗体formstart Caption：启动initAutocenter：T -真计时器timestartupEnabled：ttimerInt

11、erval：0图像imagepicturei:调试2.jpgformstart 的init事件代码如下：this.tirstartup.interval=100public i as integeri=1Timestartup的timer事件代码如下：i=i+1if i=10 thenrelease thisformdo form 登陆.scxendif对象对象名属性事件窗体Frm登陆Caption：新农村合作医疗管理系统init标签Lbl欢迎Caption：欢迎Lbl用户名Caption：用户名Lbl密码Caption：密码文本框Txt用户名Txt密码按钮Cmd登陆Caption：登陆cli

12、ckCmd退出Caption：退出Frm登陆的init事件代码如下：public i as integeri=0Cmd登陆的click事件代码如下：i=i+1locate for alltrim(用户名密码表.用户名)=alltrim(thisform.txt用户名.value)if found()and alltrim(用户名密码表.密码)=alltrim(thisform.txt密码.value) do form 主窗体.scx release thisformelse if i3 then =messagebox(操作员或密码错误请重新输入！,48,警告) thisform.txt密码.

13、setfocus else =messagebox(对不起，您是非法用户，系统将会退出！,48,严重警告) quit endifendifCmd退出的click事件代码如下：release thisform对象对象名属性事件窗体Frm新农合Caption：新农村合作医疗管理系统Autocenter：.t.真图片imagePicture：f:课程设计1.jpg命令按钮Cmd退出Caption：退出clickCmd退出的click事件代码如下：release thisformon shutdownQuit对象对象名属性事件窗体Frm医生管理Caption：医生管理标签lbltitleCaption

14、：医生基本信息浏览Backstyle：0-透明Autosize：.t.真Lbl科室Caption：科室Backstyle：0-透明Autosize：.t.真Lbl姓名Caption：姓名Backstyle：0-透明Autosize：.t.真Lbl年龄Caption：年龄Backstyle：0-透明Autosize：.t.真Lbl职称Caption：职称Backstyle：0-透明Autosize：.t.真文本框txt科室Controlsour：医生.科室txt姓名Controlsour：医生.姓名txt年龄Controlsour：医生.年龄txt职称Controlsour：医生.职称命令按钮C

15、md首个Caption：首个clickCmd上一个Caption：上一个Cmd下一个Caption：下一个Cmd末个Caption：末个Cmd取消Caption：取消线条Line1Cmd首个的click事件代码如下：go topthis.enabled=.f.thisform.cmd上一个.enabled=.f.thisform.cmd下一个.enabled=.t.thisform.cmd末个.enabled=.t.Cmd上一个的click事件代码如下：skip-1this.enabled=.f.thisform.cmd下一个.enabled=.t.thisform.cmd末个.enabled

16、=.t.if bof() thengo topthis.enabled=.f.thisform.cmd首个.enabled=.f.endifthisform.refreshCmd下一个的click事件代码如下：skip-1thisform.cmd下一个.enabled=.t.thisform.cmd末个.enabled=.t.if bof() thengo topthis.enabled=.f.thisform.cmd首个.enabled=.f.endifthisform.refreshCmd末个的click事件代码如下：go bottomthis.enabled=.f.thisform.cm

17、d下一个.enable=.f.thisform.cmd上一个.enabled=.t.thisform.cmd首个.enabled=.t.thisform.refreshCmd取消的click事件代码如下：release thisform对象对象名属性事件窗体Frm药品管理Caption：药品管理标签Lbl助记码Caption：助记码Lbl名称Caption：名称Lbl规格Caption：规格Lbl单价Caption：单价Lbl生产日期Caption：生产日期文本框txt助记码txt名称txt规格txt单价txt生产日期命令按钮Cmd查询Caption：查询clickCmd添加Caption：添

18、加Cmd删除Caption：删除Cmd取消Cmd查询的click事件代码如下：zjm=alltrim(thisform.txt助记码.value)select 药品set order to tag 助记码seek zjm &查找记录if found()select 药品.药品名称,药品.单位规格,药品.生产日期,药品,产地,药品价格.单价;from 药品;where 药品.助记码=alltrim(thisform.txt助记码.value) and 药品.助记码=药品价格.助记码;into cursor chxthisform.txt名称.value=chx.药品名称thisform.txt规

19、格.value=chx.单位规格thisform.txt单价.value=chx.单价thisform.txt生产日期.value=chx.生产日期thisform.txt助记码.value=chx.药品名称elsethisform.txt名称.value=thisform.txt规格.value=thisform.txt单价.value=thisform.txt生产日期.value=thisform.txt助记码.value=thisform.refresh*!* messagebox(没有查找到记录，是否添加？,48,提示）endif*!* hzylh=alltrim(thisform.t

20、xt合作医疗号.value)*!* select 统筹支付*!* set order to tag 合作医疗号*!* seek hzylh*!* if found()*!* select 统筹支付.费用,统筹支付.个人支付,统筹.支付个人支付比例,统筹支付,基金支付;*!* from 统筹支付;*!* where 统筹支付.合作医疗号=hzylh; &alltrim(thisform.txt合作医疗号.value)*!* into cursor chx*!* thisform.txt费用.value=chx.费用*!* thisform.txt个人支付.value=chx.个人支付*!* th

21、isform.txt个人支付比例.value=chx.个人支付比例*!* thisform.txt基金支付.value=chx.基金支付*!* else*!* thisform.txt费用.value=*!* thisform.txt个人支付.value=*!* thisform.txt个人支付比例.value=*!* thisform.txt基金支付.value=*!* messagebox(没有查询到此记录！,48,警告)*!* endifCmd取消的click事件代码如下：release thisform对象对象名属性事件窗体Frm用户添加Caption：用户添加标签lbl新用户名Cap

22、tion：新用户名Lbl新用户名密码Caption：新用户名密码文本框Txt新用户名Txt新用户名密码命令按钮cmd确认添加clickcmd取消cmd确认添加的click事件代码如下：a=messagebox(确定添加？,4+32+0,询问)if a=6use 用户 exclusivea1=alltrim(thisform.txt新用户.value) a2=alltrim(thisform.txt新用户密码.value)insert into 用户(用户名,密码)values(a1,a2)endifCmd取消的click事件代码如下：release thisformon shutdown对象对

23、象名属性事件窗体Frm修改密码Caption：修改密码Lbl用户名Caption：用户名标签Lbl原始密码Caption：原始密码Lbl新密码Caption：新密码Lbl验证密码Caption：验证密码组合框Cbo用户名文本框Txt原始密码Txt新密码Txt验证密码命令按钮Cmd确定Caption：确定clickCmd取消Caption：取消Cmd确定的click事件代码如下：USE 用户select 用户loca for 用户名=alltrim(thisform.cbo用户名.value) a1=alltrim(thisform.txt新密码.value) &新密码 a2=alltrim(t

24、hisform.txt验证密码.value) &验证密码 pass1=alltrim(thisform.txt原始密码.value) &旧密码 if pass1!=ALLTRIM(密码) thisform.txt原始密码.value= thisform.txt新密码.value= thisform.txt验证密码.value= thisform.txt原始密码.setfocus messagebox(旧密码错误！请重新输入！,64,错误信息) else IF =a1 messagebox(密码不可为空,64,错误信息) RETURN endif if a1!=a2 messagebox(两新密

25、码不相同，请再次输入,64,错误信息) thisform.txt原始密码.value= thisform.txt新密码.value= thisform.txt验证密码.setfocus else repl 密码 with a1 messagebox(密码修改成功,54,系统信息) thisform.Release endif ENDIF SELECT 用户UseCmd取消的click事件代码如下：release thisform对象对象名属性事件窗体Frm统筹支付Autocenter：.T.真标签Lbl合作医疗号Caption：合作医疗号Lbl费用Caption：费用Lbl个人支付Captio

26、n：个人支付Lbl个人支付比例Caption：个人支付比例Lbl基金支付Caption：基金支付按钮Cmd查询Caption：查询ClickCmd取消Caption：取消Cmd查询的click代码如下：hzylh=alltrim(thisform.txt合作医疗号.value)select 统筹支付set order to tag 合作医疗号seek hzylhif found()select 统筹支付.费用,统筹支付.个人支付,统筹.支付个人支付比例,统筹支付,基金支付;from 统筹支付;where 统筹支付.合作医疗号=hzylh; &alltrim(thisform.txt合作医疗号.

27、value)into cursor chxthisform.txt费用.value=chx.费用thisform.txt个人支付.value=chx.个人支付thisform.txt个人支付比例.value=chx.个人支付比例thisform.txt基金支付.value=chx.基金支付elsethisform.txt费用.value=thisform.txt个人支付.value=thisform.txt个人支付比例.value=thisform.txt基金支付.value=messagebox(没有查询到此记录！,48,警告)endifcmd取消的click事件代码如下：release t

28、hisform对象对象名属性事件窗体Frm门诊查询Caption：门诊查询Autocenter：.T.-真标签Lbl合作医疗号Caption：合作医疗号Lbl姓名Caption：姓名Lbl用药名称Caption：用药名称Lbl用药名称1Caption：用药名称1Lbl用药名称2Caption：用药名称2Lbl用药名称3Caption：用药名称3Lbl用药名称4Caption：用药名称4Lbl用药名称5Caption：用药名称5Lbl用药名称6Caption：用药名称6Lbl费用Caption：费用Lbl费用Caption：费用文本框Txt合作医疗号Txt姓名Txt用药名称1Txt用药名称2Txt用药名称3Txt用药名称4Txt用药名称5Txt用药名称6Txt收费线条Line1Backcolor：0.0.255Line2Line3按钮Cmd查询Caption：查询Cmd