基础数据维护子系统的设计与实现

基础数据维护子系统的设计与实现2006级信息管理与信息系统1班 1号张三、2号李四1 需求分析1.1 系统需求分析基础数据维护子系统是整个门诊系统运行的基础，是其它各个子系统的数据来源，它提供整个门诊系统正常运行所需的基础数据集（公共代码），它服务于门诊所有的子系统，是整个门诊系统的核心和基础。

基础数据维护子系统完成基础信息（公共代码）的管理和维护，包括基础信息的录入、修改、删除、查询、打印等操作。

1.2 可行性分析项目合作公司已经有10年的医院管理软件开发经验，对医院门诊业务已经非常熟悉；项目合作公司提供了大力的物力和人力方面的支持；本人已经设计并实现了若干个管理信息系统，技术水平也已经达到了开发该系统的要求。

1.2.1 系统的实现平台为了让系统能够顺畅、高效的运行，计算机的硬件建议最低配置如下：CPU 1.7GHZ内存 512M硬盘 40G操作系统 WIN XP/2000操作系统或更高1.2.2 开发工具的选择PowerBuilder 9.0作为前台的开发工具，用Microsoft SQL Server 2000作为后台支持数据库，通过PowerBuilder 9.0提供的数据库连接专用接口连接SQL Server 2000中的数据库，并对其编程来实现各种系统所有功能。

1.2.3 开发工具概述1.2.3.1 PowerBuilder 9.0概述PowerBuilder 9.0发布于2003年6月，它是业界第一个集设计、建模、开发、部署、管理等各项功能为一体的新一代快速应用开发工具，为开发者提供了更加简单易用、高效优质的应用开发环境。

PowerBuilder 9.0是一个开放的、适用于各类异质部署环境的快速应用开发工具，它将管理理念和可重用的应用系统开发相互有机结合，是开发商业软件的有力武器，标志一个新的开发模式的开始。

利用PowerBuilder 9.0可以更容易的深入从事网络和N层数据库应用程序的开发工作，同时还利于开发人员创建面向富客户（rich-client）的应用系统，以满足当前市场对这种系统的商业需求。

此外PowerBuilder 9.0还支持J2EE 和技术体系，并且能与PowerDesigner紧密地相结合。

1.2.3.2 SQL Server 2000 数据库简介早期的一些数据库软件，无论是数据库的建立、数据库的维护，还是数据的操作都相当复杂且不易实现，但是在具备了图形用户界面特性的SQL Server数据库软件推出之后，以上列举的操作不再是困难的事情，我们可以快速地在数据库服务器上建立起一个符合系统所需的数据库。

SQL Server 2000是SQL Server系列中非常有代表性的一个版本，它是一个大型关系数据库管理系统，是微软公司在SQL Server 7.0版的基础上经过改进和提高而推出的数据库产品。

它的性能、可靠性、质量以及易用性都比以前的版本大有提高。

它提供了许多提高系统运行性能的新功能，并使数据库的管理工作变得更加轻松容易。

把SQL Server 2000作为OLTP 、数据仓库以及电子商务应用程序的后台数据库是一个不错的选择。

在SQL Server 2000关系数据库中，信息被存放在二维表格结构的表（TABLE）中。

数据库中的表之间可以是相互关联的，表之间的这种关联性是通过主健和外键体现出来的参照关系来实现的。

数据库中不仅包括表，还包括其他数据库对象，如：视图、存储过程、索引等。

2 系统设计2.1 系统功能设计对医院门诊业务进行深入分析，可以发现系统用到的基础数据可以分为以下几大类：（1）部门科室主要包括：医院部门、科室信息，以及为了描述部门、科室所需的辅助（如：部门类型、科室类别等）；（2）人员主要包括：医院人员信息，以及为了描述人员所需的辅助（如：性别、民族、职业等）；（3）药品主要包括：医院药品信息，以及为了描述药品所需的辅助（如：药品类型、剂型等）；（4）诊疗主要包括：各种诊疗项目信息，以及为了描述诊疗项目所需的辅助（医嘱类型、医学符号、疾病类型等）；（5）医疗保险主要包括：各种医疗保险信息，以及为了描述医疗保险所需的辅助（如：医保类型、医保接口方式等）；（6）财务主要包括：各种医院收费项目信息，以及为了描述收费项目所需的辅助（如：支付方式、票据类型、优惠方式等）；（7）系统用户主要包括：系统用户信息，以及为了描述系统用户所需的辅助（如：用户角色等）；根据以上分析的结果，给出系统功能模块结构图如下：图2-1 系统模块结构根据系统需求分析和系统功能模块结构图来看，该系统应具备如下基本功能：部门科室类信息添加、删除、修改、查询功能人员类信息添加、删除、修改、查询功能药品类信息添加、删除、修改、查询功能诊疗类信息添加、删除、修改、查询功能医疗保险类信息添加、删除、修改、查询功能财务类信息添加、删除、修改、查询功能系统用户类信息添加、删除、修改、查询功能2.2 数据库设计经过对需求的详细分析，设计了106个数据表，这些数据表基本上都符合3NF的要求，由于数据表数量较多，在这里我们仅给出一部分和人员信息有关的数据表结构的描述。

数据库名：JCzgjbxx _bmchr3 系统实现由于系统功能比较复杂，涉及到的窗口有100多个，我们仅仅列举其中的几个，用于说明系统的实现。

通过该窗口实现对用户的身份进行验证，保证非法用户无法进入系统。

图3-1 系统登录界面3.2 系统主窗口通过系统主窗口上的菜单可以打开各个基础数据维护窗口，进行数据维护。

图3-2 系统主界面图3-3 系统主菜单3.4 职工基本信息维护窗口图3-4 职工基本信息维护窗口“保存”按钮中的代码如下：String ls_bm //编码String ls_xm //姓名String ls_zjm //助记码String ls_xb //性别datetime ldt_cssj //出生时间String ls_mz //民族String ls_zzmm //政治面貌String ls_zy //职业String ls_zc //职称String ls_pyfs //聘用方式String ls_lxdh //联系电话String ls_jtzz //家庭住址String ls_grjj //个人简介String ls_qtsm //其他说明string ls_zgbz //在岗标志datetime ldt_xtsj //系统时间Integer li_countstring ls_errtextint li_rtstring ls_sql_jc //在基础库中执行string ls_sql_mz //在门诊库中执行dw_1.AcceptText()if dw_1.rowcount() < 1 then returnif dw_1.modifiedcount( ) < 1 thenmessagebox('提示','数据没有发生变化!')returnend if//数据合法性校验ls_bm = dw_1.getitemstring(dw_1.getrow(),'zgjbxx_bmchr') //编码ls_bm = string(integer(trim(ls_bm)),'0000')dw_1.setitem( dw_1.getrow(),'zgjbxx_bmchr',ls_bm)if ib_bm_isvalid = false thenmessagebox('提示','请重新输入编码!')dw_1.setfocus()dw_1.setcolumn('zgjbxx_bmchr')dw_1.selecttext( 1,len(ls_bm))returnend if//判断该编码是否已经使用SELECT count(*) INTO :li_countFROM jcjc_tb_zgjbxxWHERE zgjbxx_bmchr = :ls_bmUSING sqlca ;IF sqlca.SQLCode < 0 THENls_errtext = sqlca.SQLErrTextMessageBox('错误信息','错误信息:' + ls_errtext)RETURNEND IFIF li_count >= 1 and str_czlx.czlx= "new" THENMessageBox('提示','该编码已经被使用，请重新输入编码!')dw_1.setcolumn( "zgjbxx_bmchr")dw_1.selecttext( 1,len(ls_bm))RETURNEND IF//判断姓名是否为空ls_xm = dw_1.getitemstring(dw_1.getrow(),'zgjbxx_xmchr') //姓名if trim(ls_xm) = '' or isnull(ls_xm) thenmessagebox('提示','姓名不能空!')dw_1.setcolumn('zgjbxx_xmchr')dw_1.selecttext( 1,len(ls_xm))returnend if//判断在岗标志是否为空ls_zgbz = dw_1.getitemstring(dw_1.getrow(),'zgjbxx_zgbzchr') //在岗标志if isnull(ls_zgbz) thenmessagebox('提示：','在岗标志不能为空!')dw_1.setcolumn('zgjbxx_zgbzchr')returnend ifls_mz = dw_1.getitemstring(dw_1.getrow(),'zgjbxx_mzchr') //民族if isnull(ls_mz) then ls_mz = ""//判断民族是否存在if ls_mz = "" or isnull(ls_mz) thenelseselect mz_bmchr into :ls_mzfrom jcjc_ta_mzwhere mz_mcchr =: ls_mzusing sqlca;IF sqlca.SQLCode < 0 THENls_errtext = sqlca.SQLErrTextMessageBox('错误信息','错误信息:' + ls_errtext)RETURNEND IFIF ls_mz ="" or isnull(ls_mz) THENMessageBox('提示','民族输入有误,请重新输入!')dw_1.setfocus()dw_1.setcolumn( "zgjbxx_mzchr")dw_1.selecttext( 1,len(ls_mz))RETURNEND IFend ifls_zjm = dw_1.getitemstring(dw_1.getrow(),'zgjbxx_zjmchr') //助记码if isnull(ls_zjm) then ls_zjm = ""ls_xb = dw_1.getitemstring(dw_1.getrow(),'zgjbxx_xbchr') //性别if isnull(ls_xb) then ls_xb = ""ldt_cssj = dw_1.getitemdatetime(dw_1.getrow(),'zgjbxx_csrqdtm') //出生日期if isnull(ldt_cssj) then ldt_cssj = datetime(date("1900-01-01"))ls_zzmm = dw_1.getitemstring(dw_1.getrow(),'zgjbxx_zzmmchr') //政治面貌if isnull(ls_zzmm) then ls_zzmm = ""ls_zy = dw_1.getitemstring(dw_1.getrow(),'zgjbxx_zylbchr') //职业if isnull(ls_zy) then ls_zy = ""ls_zc = dw_1.getitemstring(dw_1.getrow(),'zgjbxx_zcchr') //职称if isnull(ls_zc) then ls_zc = ""ls_pyfs = dw_1.getitemstring(dw_1.getrow(),'zgjbxx_pyfschr') //聘用方式if isnull(ls_pyfs) then ls_pyfs = ""ls_lxdh = dw_1.getitemstring(dw_1.getrow(),'zgjbxx_lxdhchr') //联系电话if isnull(ls_lxdh) then ls_lxdh = ""ls_jtzz = dw_1.getitemstring(dw_1.getrow(),'zgjbxx_jtzzchr') //家庭住址if isnull(ls_jtzz) then ls_jtzz = ""ls_grjj = dw_1.getitemstring(dw_1.getrow(),'zgjbxx_jjtxt') //个人简介if isnull(ls_grjj) then ls_grjj = ""ls_qtsm = dw_1.getitemstring(dw_1.getrow(),'zgjbxx_qtsmtxt') //其他说明if isnull(ls_qtsm) then ls_qtsm = ""//ldt_zzsj = dw_1.getitemdatetime(dw_1.getrow(),'zgjbxx_zzsjdtm') //终止时间if str_czlx.czlx = 'edit' then//修改记录ls_sql_jc = "update jcjc_tb_zgjbxx set zgjbxx_xmchr= '"+ls_xm+"',zgjbxx_zjmchr = '"+ls_zjm+"',zgjbxx_xbchr ='"+ls_xb+"',"&+"zgjbxx_mzchr='"+ls_mz+"',zgjbxx_csrqdtm='"+string(ldt_cssj)+"',zgjbxx_zzmmchr='"+ls_zzmm+"',zgjbxx_zyl bchr='"+ls_zy+"',"&+"zgjbxx_zcchr='"+ls_zc+"',zgjbxx_pyfschr='"+ls_pyfs+"',zgjbxx_jtzzchr='"+ls_jtzz+"',zgjbxx_lx dhchr='"+ls_lxdh+"',"&+"zgjbxx_jjtxt='"+ls_grjj+"',zgjbxx_qtsmtxt='"+ls_qtsm+"',zgjbxx_zgbzchr='"+ls_zgbz+"'"&+" where zgjbxx_bmchr ='"+ls_bm+"'"ls_sql_mz = "update mzjc_tb_zgjbxx set zgjbxx_xmchr= '"+ls_xm+"',zgjbxx_zjmchr = '"+ls_zjm+"',zgjbxx_xbchr ='"+ls_xb+"',"&+"zgjbxx_mzchr='"+ls_mz+"',zgjbxx_csrqdtm='"+string(ldt_cssj)+"',zgjbxx_zzmmchr='"+ls_zzmm+"',zgjbxx_zyl bchr='"+ls_zy+"',"&+"zgjbxx_zcchr='"+ls_zc+"',zgjbxx_pyfschr='"+ls_pyfs+"',zgjbxx_jtzzchr='"+ls_jtzz+"',zgjbxx_lx dhchr='"+ls_lxdh+"',"&+"zgjbxx_jjtxt='"+ls_grjj+"',zgjbxx_qtsmtxt='"+ls_qtsm+"',zgjbxx_zgbzchr='"+ls_zgbz+"'"&+" where zgjbxx_bmchr ='"+ls_bm+"'"elseif str_czlx.czlx = 'new' then//插入新记录ls_sql_jc = "INSERT INTO jcjc_tb_zgjbxx( zgjbxx_bmchr,zgjbxx_xmchr,zgjbxx_zjmchr,zgjbxx_xbchr, zgjbxx_mzchr,zgjbxx_csrqdtm,zgjbxx_zzmmchr,zgjbxx_zylbchr,"&+"zgjbxx_zcchr,zgjbxx_pyfschr, zgjbxx_jtzzchr,zgjbxx_lxdhchr, zgjbxx_jjtxt,zgjbxx_qtsmtxt,zgjbxx_zgbzchr)"&+" V ALUES ( '"+ls_bm+"', '"+ls_xm+"', '"+ls_zjm+"', '"+ls_xb+"', '"+ls_mz+"', '"+string(ldt_cssj)+"', '"+ls_zzmm+"', '"+ls_zy+"',"&+"'"+ls_zc+"', '"+ls_pyfs+"', '"+ls_jtzz+"', '"+ls_lxdh+"', '"+ls_grjj+"','"+ls_qtsm+"', '"+ls_zgbz+"')"ls_sql_mz = "INSERT INTO mzjc_tb_zgjbxx( zgjbxx_bmchr,zgjbxx_xmchr,zgjbxx_zjmchr,zgjbxx_xbchr, zgjbxx_mzchr,zgjbxx_csrqdtm,zgjbxx_zzmmchr,zgjbxx_zylbchr,"&+"zgjbxx_zcchr,zgjbxx_pyfschr, zgjbxx_jtzzchr,zgjbxx_lxdhchr, zgjbxx_jjtxt,zgjbxx_qtsmtxt,zgjbxx_zgbzchr)"&+" V ALUES ( '"+ls_bm+"', '"+ls_xm+"', '"+ls_zjm+"', '"+ls_xb+"', '"+ls_mz+"', '"+string(ldt_cssj)+"', '"+ls_zzmm+"', '"+ls_zy+"',"&+"'"+ls_zc+"', '"+ls_pyfs+"', '"+ls_jtzz+"', '"+ls_lxdh+"', '"+ls_grjj+"','"+ls_qtsm+"', '"+ls_zgbz+"')"end if//数据保存和分发li_rt = gf_execute_sql_not_commit(ls_sql_jc,ls_sql_mz)if li_rt = 0 thenMessageBox('提示:','参数传递有误!',StopSign!)Returnend ifdatetime dt_dqsjstring ls_czlxdt_dqsj = getdatetime()if str_czlx.czlx = 'new' thenls_czlx = '新增'elseif str_czlx.czlx = 'edit' thenls_czlx = '修改'end if//记录到历史表中INSERT INTO jcjc_tb_zgjbxx_ls( zgjbxx_bmchr,zgjbxx_xmchr,zgjbxx_zjmchr,zgjbxx_xbchr,zgjbxx_mzchr,zgjbxx_csrqdtm,zgjbxx_zzmmchr,zgjbxx_zylbchr,zgjbxx_zcchr,zgjbxx_pyfschr, zgjbxx_jtzzchr,zgjbxx_lxdhchr,zgjbxx_jjtxt,zgjbxx_qtsmtxt, zgjbxx_zgbzchr,zgjbxx_czlxchr,zgjbxx_czybmchr,zgjbxx_czyxmchr,zgjbxx_macchr,zgjbxx_czsjdtm)V ALUES ( :ls_bm, :ls_xm, :ls_zjm, :ls_xb,:ls_mz, :ldt_cssj, :ls_zzmm, :ls_zy,:ls_zc, :ls_pyfs, :ls_jtzz, :ls_lxdh,:ls_grjj,:ls_qtsm, :ls_zgbz,:ls_czlx,:gyhxx_yhxx.s_zgbm,:gyhxx_yhxx.s_zgxm,:gyhxx_yhxx.s_hostmac,:dt_dqsj)using sqlca;If sqlca.SQLCode <> 0 or li_rt <> 1 Thengf_rollback()MessageBox('提示:','保存数据失败!',StopSign!)Returnend if//提交事务gf_commit()messagebox('提示:','数据保存成功!')w_jcjc_tb_zgjbxx_list.dw_1.retrieve() //重新检索//定位于刚刚修改过的或刚刚新增的记录int li_rowif w_jcjc_tb_zgjbxx_list.dw_1.rowcount() > 0 thenfor li_row = 1 to w_jcjc_tb_zgjbxx_list.dw_1.rowcount()if ls_bm = w_jcjc_tb_zgjbxx_list.dw_1.getitemstring(li_row,'zgjbxx_bmchr') then w_jcjc_tb_zgjbxx_list.dw_1.scrolltorow(li_row)exitend ifnextend ifIF str_czlx.czlx = 'new' THEN //新增纪录f_insert_row( )elseclose(parent)end if3.5 职工基本信息查询窗口图3-5 职工基本信息查询窗口“查找”按钮中的代码如下：String ls_bmstring ls_filterls_filter = ""ls_bm = Trim(sle_bm.Text)//根据拼音码检索纪录IF ls_bm = '' OR IsNull(ls_bm) THENdw_1.SetFilter('')dw_1.Filter()ELSEls_filter = "(zgjbxx_zjmchr like " + "'" +upper(ls_bm)+"%')" + ' or ' +"(zgjbxx_zjmchr like " + "'"+lower(ls_bm)+"%')"dw_1.SetFilter(ls_filter)dw_1.Filter()END IF//如果根据拼音码查不到,则根据姓名检索纪录if dw_1.rowcount() = 0 thendw_1.SetFilter("zgjbxx_xmchr like '%"+ls_bm+"%'")dw_1.Filter()END IFdw_1.retrieve()3.6 职工基本信息查询窗口图3-6职工基本信息查询窗口3.7 导出职工基本信息窗口点击“数据导出”图标，弹出“另存为”窗口，可以把职工信息保存成Excel 文件。