医院信息管理系统――药库管理子系统

甘肃广播电视大学毕业设计医院信息管理系统一一药库管理子系统学员姓名彭素梅专业年级01秋计算机应用专科

分校名称金昌分校2004年5月一、前言1.1医院信息系统的定义1.2发医院管理系统的意义1.3国内外情况和发展趋势1.4我院信息管理情况1.5开发药库信息管理系统的意义二、系统分析与设计1设计思想2目标系统要求3功能需求分析4系统功能模块设计三、数据库设计1系统平台选择2数据库的选择3开发语言的选择4数据库设计3.4.1数据库需求分析3.4.2数据库概念结构设计3.4.3数据库逻辑结构设计4.4数据库结构的实现四、系统模块的具体实现1用户登录窗口的设计2药品入库窗口的设计3药品入库明细窗口的设计4帮助程序的设计五、性能测试与分析六、结束语七、参考文献摘要药品是防病治病的特殊商品，是医院重要的经济收入来源，是医疗活动中必不可少的基础物资，兼具物资和医疗双重属性，是医院医疗和经济活动中的重要组成部分，在医院的运营成本中占有很大比重。药库是医院药品供应基地，是加强医院药品管理的重要环节之一。由于药品种类繁多，流通环节繁杂，强化对药库管理尤为重要，它既要保障对临床各科室的供应.又要控制药品品种、数量、质量防止过期失效，减少浪费，达到增收节支的目的。对药库实行计算机管理，可使药库工作人员可及时了解库房药品进、出、存的动态变化，既做到为临床及时提供所需药品不使药品供应中断，又有效减少盲目进货造成药品积压现象，药库的信息化管理不仅可加快药品周转，而且可大大提高工作人员的二作效率和督理质量。也更加有利于及时、安全、优质地的保证临床用药。因此，医院管理者历来都十分重视药库信息管理的开发应用。药库管理系统是医院信息管理系统的重要组成模块，是医院管理中的关键环节，它与门诊收费系统、门诊挂号系统、门诊药房系统、医技科室系统及全院建库系统、患者查询系统、院长查询系统之间实现数据共享，药库管理信息系统的开发成功与否，将直接影响医院HIS系统其它子系统的开发。关键词药库管理系统开发一前言当今世界上，“信息”已经成为社会经济领域中使用频度最高的词汇。如果说在70年代末80年代初，“信息时代”、“信息社会”还只是未来学者笔下的时髦名词，只是专业人员进行理论研究的课题，那么今天，“信息产业”、“信息经济”已经成为我们身边的现实，“信息时代”、“信息社会”正在一步步地向我们走来，而“信息化”也成为了当代社会经济发展的大趋势。毋庸置疑，信息技术的推动和信息需求的牵动使人类社会经济发展开始进入一个崭新的时期。进入90年代，信息化的浪潮以更为强劲的态势席卷了整个世界。信息时代的到来，使计算机在各行各业都得到越来越广泛的应用，随着科学技术的突飞猛进，信息化的浪潮也席卷了医疗卫生领域，医院也同样面临着信息时代的巨大挑战。医院信息管理的计算机化、网络化和数据库化将是建设现代化医院必不可少的基本条件。一个医院要想实现现代化管理而不装备计算机,则无疑是一种天方夜谭式的幻想。1。1医院信息系统的定义医院信息系统（HospitalInformationSystem,HIS^源于美国，在国际学术界已公认为新兴的医学信息学（Medicalinformatics）的重要分支。美国该领域的著名教授Morris.Collen于1988年曾著文为医院信息系统下了如下定义：利用电子计算机和通讯设备，为医院所属各部门提供病人诊疗信息和行政管理信息的收集、存储、处理、提取和数据交换的能力，并满足所有授权用户的功能需求。2开发医院管理系统的意义改善医院管理，支持医疗教研。我国医院的信息处理基本上还停留在手工方式，劳动强度大且工作效率低，医师护士和管理人员的大量时间都消耗在事务性工作上，致使〃人不能尽其才"；病人排队等候时间长，辗转过程多，影响医院的秩序；病案、临床检验、病理检查等许多宝贵的数据资料的检索十分费事甚至难以实现;对这些资料深入的统计分析手工方式无法进行，不能充分为医学科研利用；在经济管理上也因而存在漏、跑、错费现象；医院物资管理由于信息不准确，家底不明，积压浪费，以致〃物不能尽其用〃。开发HIS是解决上述问题的有效途径。HIS系统的有效运行，将提高医院各项工作的效率和质量，促进医学科研、教学；减轻各类事务性工作的劳动强度，使他们腾出更多的精力和时间来服务于病人；改善经营管理，堵塞漏洞，保证病人和医院的经济利益；为医院创造经济效益。完整的HIS系统实现了信息的全过程追踪和动态管理，从而做到简化患者的诊疗过程，优化就诊环境，改变目前排队多、等候时间长、秩序混乱的局面。如目前多数医院就诊必须经过挂号、等候病历、划价、收费、取药或治疗一系列过程，一个患者少则排3次队，多则5、6次，用于过程性的时间最少在1个小时以上，若实施HIS以后，每个病人用于诊疗的中间过程性时间会大幅度减少；假定一家医院门诊人次为2000人次/天，年门诊250天，每人少花费半小时，则日节约1000小时，一年节约36万小时，其产生的社会效益和间接经济效益是明显的。同时HIS的实施也强化了医院内部管理，降低了医护人员的工作强度和时间，伪、冒、漏现象可以解决，也加速了资金周转和减少药品、器械等物资积压。据估计如果全国有2000家医院应用HIS，每年每所医院增收节支、加速资金回笼和周转、堵漏、减少物资积压的回收资金方面的效益按20万元估计的话（实际比这高），则年效益估计为40亿元，十分可观。但这往往不被人所认识。当然建立HIS更主要的还在于它对医院管理、医疗质量和医学研究的长期效应带来的综合效益。因此HIS的投资一般需做基础性投资，诚如任何机构的统计部门那样，它是花钱的部门，但其重要性是公认的，投资也是必须的°HIS的效益远远超出医院本身，因为完整的病人医学记录是医学研究的重要信息资源，这类资源在手工作业环境下，大部分被抛弃了。1.3国内外情况和发展趋势3.1国外的动态电子计算机在医院的应用已有三十多年的历史，60年代初，美国便开始了HIS的研究。著名的麻省总医院＜MGH＞开发的COSTAR系统是60年代初开始并发展到今天成为大规模的临床病人信息系统。随着计算机技术的发展，70年代，HIS进入大发展时期，美日欧各国的医院，特别是大学医院及医学中心纷纷开发HIS,成为医药信息学的形成和发展的基础。70一80年代，美国的HIS产业已有很大发展。1985年美国全国医院数据处理工作调查表明，100张床位以上的医院，80%实现了计算机财务收费管理，70%的医院可支持病人挂号登记和行政事务管理。25%的医院有了较完整的HIS，即实现了病房医护人员直接用计算机处理医嘱和查询实验室的检验结果。10%的医院(2530)有全面计算机管理的HIS。日本的HIS开发和应用从70年代初开始。多数日本医院是80年代以后开始进行HIS工作的，但发展十分迅猛，规模相当大，是以大型机为中心的医院计算机系统。如北里大学医院的IBM/3090双机系统。当前日本的HIS总的趋势是系统化、网络化、综合性，开始走自上而下的开发路线，一般都有大型机作为中心、支撑整个系统工作，并尽量采用微机和网络技术，投资规模大，正在实现'ordering〃工作方式，即数据从发生源直接输入计算机。到1991年统计有近10家实现或基本实现此种方式。支持诊疗的功能在不断加强，系统24小时运行。不少软件是医院和计算机公司联合开发的，一些大公司也开发了一些通用的医院信息管理软件包，也有些医院自己开发。如北里大学，开发了综合的HIS，开发费用(机器设备除外)为3亿4千万日元(约合人民币1300万元)。日常运行费用支出为一年5亿1千万日元(约合人民币2000多万元)。欧洲的HIS发展比美国稍晚，大多数是70年代中期和80年代开始。欧洲HIS的特点是实现了一些区域信息系统。如丹麦的RedSystem，管理76所医院和诊所。法国第八医疗保健中心实现了能管理三所大医院和三所医药学院的一体化信息系统一GrenobleIntegratedHIS。随着初级卫生保健工作的发展，欧洲各国区域性医院计算机网络将实现。目前欧共体的SHINE工程＜StrategicHealthInformaticsNetworkforEurope〉已经开始，英法意德许多公司都参与了此项工程。在分布式数据库系统和开放网工程方面已做了大量工作。3.2国内的情况计算机70年代末期就进入了我国医疗行业，当时以IBM的M340小型机为主，只有少数几家大型的部属综合医院和教学医院拥有，如北京协和医院、北京肿瘤医院、301医院等，主要应用于科研和教学，还没有应用于HIS的管理。80年代初期，随着苹果PC机的出现和BASIC语言的普及，一些医院开始开发一些小型的管理软件，如工资软件等；80年代中期，随着XT286的出现和国产化，以及DBASEIII和UNIX网络操作系统的出现，一些医院开始建立小型的局域网络，并开发出基于部门管理的小型网络管理系统，如住院管理，药房管理等。进入90年代，NOVELL网和FOXBASE、FOXFRO数据库日益盛行，完整的医院网络管理系统的实现已经成为可能，于是一些有计算机技术力量的医院开始开发适合自己医院的医院管理系统。一些计算机公司也不适时机的开发HIS，如HP公司(与301医院合作)、IBM公司、微软公司、浪潮公司。但这些系统都存在如下一些问题：3.2.1软件水平较低，一般只能做些初级的事务处理，也有的软件开发之后用了一段时间就停下了，坚持不下去，其原因是：各医院计算机专业人才缺乏，技术力量薄弱，特别是缺少高层次系统分析人员和跨专业复合型人才。项目多，力量分散。医院经费有限，很难建立起理想的软、硬件支撑环境。3.2.2重复开发多。据一个省调查，几年来，总共开发262个项目中，工资系统就有41个，医疗统计21个，人事21个……，重复率达70%多，究其原因：单位管理方式有一定差异，软件不能通用。软件没有一个统一的标准，难以推广。(3)全国没有一个较高水平、可广泛推广的医院管理软件包。1.4金川集团有限公司医院信息管理情况金川集团有限公司医院成立于1965年，1994年晋升为本市唯一的国家三级乙等医院。现有在职职工700多人，3个门诊部，3个医技科室、3个实验室，设置总床位数550张，是集医疗、预防、科研、教学为一体的大型综合医院。金川集团有限公司医院计算机应用始于1983年，从最早使用FOXBASE开发的单机版工资系统，经网络版门诊收费系统，到目前采用POWERBUILD6.5开发的HIS系统，使计算机在金川集团有限公司医院的应用将覆盖医院管理的方方面面。5开发药库管理系统的意义药品是防病治病的特殊商品，是医院重要的经济收入来源，是医疗活动中必不可少的基础物资，兼具物资和医疗双重属性，是医院医疗和经济活动中的重要组成部分，在医院的运营成本中占有很大比重。药库是医院药品供应基地，是加强医院药品管理的重要环节之一。由于药品种类繁多，流通环节繁杂，强化对药库管理尤为重要，它既要保障对临床各科室的供应.又要控制药品品种、数量、质量防止过期失效，减少浪费，达到增收节支的目的。对药库实行计算机管理，可使药库工作人员可及时了解库房药品进、出、存的动态变化，既做到为临床及时提供所需药品不使药品供应中断，又有效减少盲目进货造成药品积压现象，药库的信息化管理不仅可加快药品周转，而且可大大提高工作人员的二作效率和督理质量。也更加有利于及时、安全、优质地的保证临床用药。因此，医院管理者历来都十分重视药库信息管理的开发应用。药库管理系统是医院信息管理系统的重要组成模块，是医院管理中的关键环节，它与门诊收费系统、门诊挂号系统、门诊药房系统、医技科室系统及全院建库系统、患者查询系统、院长查询系统之间实现数据共享，药库管理信息系统的开发成功与否，将直接影响医院HIS系统其它子系统的开发。二系统分析与设计1药库信息管理系统设计思想本系统认真总结了多家大型医院的管理模式，对药品从计划采购、入库、库存、出库等建立一整套完善的药品管理体系。以合理、全面、准确的药品编码体系为基础，提供了对药品数量、金额的全面管理，并且提供了全面的药品会计功能。包括建立药品库房的入出库帐目，辅助制定合理的库存水平，按药品批次和效期进行管理和出库安排，对毒麻、贵重药品进行特别的控制。药品从入库到出库到各药房及各个科室整个药品流通中各个环节所发生的事件进行记录，能随时提供药库的库存、药品流向和消耗，还能根据现有库存，药品效期以及往年同期的药品消耗情况提供采购计划或应暂停采购的药品清单，以提高资金的利用率，避免不必要的损失。尽量采用现有软硬件环境，以及先进的管理系统开发方案，从而达到充分利用现有资源，提高系统开发水平和应用效果的目的。从药剂科日常业务管理的特点以及不同用户的不同需求，实现为用户提供一套自动的制表手段，让用户能够根据自己的需求，建立自己的报表形式，并为用户提供强大的数据查询功能，力求用户达到即所得的效果。系统采用Client/Server体系结构，Client客户端负责提供表达逻辑、显示用户界面信息、访问数据库服务；Server服务器端用于提供数据服务。系统采用模块化程序设计方法，既便于系统功能的各种组合和修改，又便于其他技术人员维护补充。系统具备数据库维护功能、及时根据用户需求进行数据的添加、修改、备份、删除等基本操作。2.目标系统要求采用全新的管理模式，实现物流和货币流并行管理，支持中西药库或多药库分库管理；实现与住院药房、门诊药房的实时传输，药房向药库领药实现无纸操作，药房与药库库存自动增加和减少；具有药品会计功能，药品属性可根据国家对药品价格的规定进行多种设置，设定固定价、高低限价和可变价等；具有药品单价调整、调价损益、药品价格分析、发票管理、应付帐款处理、会计期月结及多种统计报表等功能，支持货位管理，药品盘点可按货位进行，提高工作效率。3功能需求分析1、录入或自动获取药品名称、规格、批号、价格、生产厂家、供货商、包装单位、发药单位等药品信息及医疗保险信息中的医疗保险类别和处方药标志等。2、具有自动生成采购计划及采购单功能。3、提供药品入库、出库、调价、调拔、盘点、报损丢失、退药等功能。4、提供特殊药品入库、出库管理功能。5、提供药品库存的日结、月结、年结功能，并能校对帐目及库存的平衡关系。6、可随时生成各种药品的入库明细、出库明细、盘点明细、调价明细、调拔明细、报损明细、退药明细以及上面各数据的汇总数据。7、可追踪各个药品的明细流水帐，可随时查验任一品种的库存变化入、出、存明细信息。8、自动接收科室领药单功能。9、提供药品的核算功能，可统计分析各药房的消耗、库存。10、可自动调整各种单据的输出内容和格式，并有操作员签字栏。11、提供药品字典库维护功能（如品种、价格、单位、计量、特殊标志等），支持一药多名操作，判断识别，实现统一规范药品名称。12、提供药品的有效期管理、可自动报警和统计过期药品的品种数量和金额，并有库存量提示功能。13、对毒麻药品、精神药品的种类、贵重药品、进口药品、自费药品等均有特定的判断识别处理。14、支持药品批次管理。15、支持药品的多级管理。4系统功能模块设计入库功能：处理采购入库、内部入库及财务验收、付款处理、其它入库、采购历史、入库汇总等功能，药库入库严格区分采购日期，录入日期及确认日期。出库功能：提供药品出库、出库单确认和出库方式汇总、科室消耗汇总、药品出库汇总功能。严格区分药库出库单中的申请数量与实发数量，录入时填申请数量，确认后保留申请数量，填写实发数量，同时能查看两个数量。调价功能：进行药品调价、汇总处理，可查看调价历史，进行调价差额汇总。计划功能：包括计划编制、计划审批、计划执行、计划评估。可按手工或自动编制采购单，并进行计划的审批、执行及评估。采购计划可分别指定每只药品供应商，并能按供应商打印计划单。其它功能：包括药品养护、库存盘点、月底过帐。对库存药品进行质量的审查，同时可不定期进行库存的盘点，并进行月底过帐处理。药库盘点要具有ABC分类法，随机抽样法两种盘点方法。查询功能：提供台帐、库存、收支、失效、高低储报警等多种查询功能。包括会计帐簿、

保管员帐簿、库存查询、新药查询、采购差价统计、收发存表、收发存分析、剂型收发存分析、采购分析、销售分析、特殊药品进销统计、低储过限报警、高储过限报警、失效预测、财务月报等模块。维护功能：包括药品信息、药品编码、库位编码、剂型类别、帐簿类别、发药方式、生产厂家、供货单位、入库方式、出库方式、数据字典、报表设置等子模块。系统功能：提供包括用户设置、权限设置、密码修改、系统选项设置、初始化等功能。初始化时支持多人入帐，并可分批次录入。图1药库管理系统功能模块图5数据流程图药库管理系统的基本数据流程如下图所示。三数据库设计1系统平台选择关于服务器的平台，目前主要有两种类型：一类是WINDOWS类，包括WINDOWSNT4、WINDOWS2000等；另一类是UNIX类型，包括UNIX、LINUX、BSD。WINDOWS类的平台是我们最为熟悉的操作系统，它的最大优点是容易学习，容易操作。一个对电脑完全不懂的人经过很短时间的学习就可以学会一般的操作。而且微软公司为了扩大WINDOWS系统的市场份额，还推出了一些可视化编程工具，包括网站服务器后台程序开发工具。这种开发工具的好处是，即使一个不会编程的开发人员，按照这些可视化开发工具的提示，都可以开发出一个颇为有型有款的后台程序。然而有所得必有所失。由于过于强调操作系统的易用性和易学性，WINDOWS操作系统的系统稳定性、安全性差，对硬件资源的消耗大。系统经常“死机”，更为严重的是，软件中的设计缺陷随着版本的提高成几何级数增长。对于用WINDOWS系统建成的网站，一个水平并非十分高的黑客，利用“内存溢出”的缺陷，可以轻而易举地将其攻陷。UNIX类平台最初是1969年由贝尔实验室开发出来，用于大、中型电脑的，支持多用户和多任务的网络平台。经过三十多年的发展，现在的UNIX类平台已经衍生出UNIX、LINUX、BSD.SOLARIS等平台，这些平台之间并没有明显的优劣（较差的已经被淘汰了）。但与WINDOWS类操作系统相比，UNIX类平台具有非常稳定、非常安全、对硬件资源消耗较少的优点。因此在美国的研究所、院校及商业机构，服务器（包括因特网服务器）平台绝大多数都是用的UNIX系列产品。因此，从技术的角度考虑，能采用UNIX系列平台的网站就不要采用WINDOWS系列操作系统。从发展的眼光考虑，当一个公司发展到一定的规模时，可能具备了自己建设网站的经济实力，也许也有了这个必要性。这时平台的选择就更为重要。如果采用WINDOWS操作系统，除了要支付所有的硬件的费用外，全套的软件费用，包括WINDOWS2000、浏览器服务器软件、邮件服务器软件、后台程序软件及数据库软件都是一笔不小的开支。而如果采用UNIX系列的软件，网站所使用的全套软件几乎都可以找到免费软件，这些软件的性能、效率与WINDOWS类软件相比，丝毫不逊色，甚至还优于微软的软件。如：LINUX操作系统已经被我国国家信息产业部列为重点发展的，取代WINDOWS操作系统的一个项目；APACHE（网络服务器）是IT行业公认的最好的网络服务器软件；MYSQL数据库软件（代码总长度不到3M）的性能也不亚于微软的大型数据库软件SQLSERVERS。如果企业在虚拟主机时代的平台是UNIX，从虚拟主机到独立服务器可以实现软件的低成本平滑转移。如果原来采用的是WINDOWS系统，现要转移到UNIX，其转移成本将会非常之高，甚至可能要重新开发全套网站。本系统结合医院实际，以Client/Server体系结构为主，采用类似三层结构设计原理。系统以大型关系型数据库Oracle7.3为系统的数据管理核心，以PowerBuilder6.5作为前台开发工具，适合WindowsNTServer4.0、Windows2000Server操作系统。2数据库的选择以下是几种主流数据库的对比分析：1、开放性：•SQLServer:只能在windows上运行，没有丝毫的开放性，操作系统的稳定对数据库是十分重要的。Windows9X系列产品是偏重于桌面应用，NTserver只适合中小型企业。而且windows平台的可靠性，安全性和伸缩性是非常有限的。它不象unix那样久经考验，尤其是在处理大数据量的关键业务时.Oracle:能在所有主流平台上运行（包括windows）o完全支持所有的工业标准。采用完全开放策略。可以使客户选择最适合的解决方案。对开发商全力支持。DB2:能在所有主流平台上运行（包括windows）。最适于海量数据。DB2在企业级的应用最为广泛，在全球的500家最大的企业中，几乎85%以上用DB2数据库服务器，而国内到01年约占5%.2、可伸缩性,并行性SQLserver:并行实施和共存模型并不成熟。很难处理日益增多的用户数和数据卷。伸缩性有限。Oracle:平行服务器通过使一组结点共享同一簇中的工作来扩展windowNT的能力，提供高可用性和高伸缩性的簇的解决方案。如果windowsNT不能满足需要，用户可以把数据库移到UNIX中。DB2:DB2具有很好的并行性。DB2把数据库管理扩充到了并行的、多节点的环境.数据库分区是数据库的一部分，包含自己的数据、索引、配置文件、和事务日志。数据库分区有时被称为节点或数据库节点。3、安全性SQLserver:没有获得任何安全证书。Oracle:获得最高认证级别的ISO标准认证。DB2:获得最高认证级别的ISO标准认证。4、性能SQLServer:多用户时性能不佳Oracle:性能最高，保持WindowsNT下的TPC-D和TPC-C的世界记录。DB2:适用于数据仓库和在线事物处理性能较高。5、客户端支持及应用模式SQLServer:C/S结构，只支持windows客户，可以用ADO,DAO,OLEDB,ODBC连接.Oracle:多层次网络计算，支持多种工业标准，可以用ODBC,JDBC,OCI等网络客户连接DB2:跨平台，多层结构，支持ODBC,JDBC等客户6、操作简便SQLServer:操作简单，但只有图形界面.Oracle:较复杂，同时提供GUI和命令行，在windowsNT和unix下操作相同DB2:操作简单，同时提供GUI和命令行，在windowsNT和unix下操作相同7、使用风险SQLserver:完全重写的代码，经历了长期的测试，不断延迟，许多功能需要时间来证明。并不十分兼容早期产品。使用需要冒一定风险。Oracle:长时间的开发经验，完全向下兼容。得到广泛的应用。完全没有风险。DB2:在巨型企业得到广泛的应用，向下兼容性好。风险小。通过比较我们决定采用Oracle8i作为后台数据库。ORACLE是以高级结构化查询语言(SQL)为基础的大型关系数据库，通俗地讲它是用方便逻辑管理的语言操纵大量有规律数据的集合。是目前最流行的客户/服务器(CLIENT/SERVER)体系结构的数据库之一。ORACLE7.X以来引入了共享SQL和多线索服务器体系结构。这减少了ORACLE的资源占用，并增强了ORACLE的能力，使之在低档软硬件平台上用较少的资源就可以支持更多的用户，而在高档平台上可以支持成百上千个用户。提供了基于角色(ROLE)分工的安全保密管理。在数据库管理功能、完整性检查、安全性、一致性方面都有良好的表现。支持大量多媒体数据，如二进制图形、声音、动画以及多维数据结构等。提供了与第三代高级语言的接口软件PRO*系列，能在C,C++等主语言中嵌入SQL语句及过程化(PL/SQL)语句，对数据库中的数据进行操纵。加上它有许多优秀的前台开发工具如POWERBUILD、SQL*FORMS、VISIABASIC等，可以快速开发生成基于客户端PC平台的应用程序，并具有良好的移植性。提供了新的分布式数据库能力。可通过网络较方便地读写远端数据库里的数据，并有对称复制的技术。它具有功能一致性，其优越的性能受到广大用户和软件开发人员的欢迎。3开发语言的选择PowerBuilder6.5是一个面向对象的Client/Server开发工具，它可以在Window9X、WindowsNT、Macintosh、Aix/6000、SunSolaris等开发平台上运行。PowerBuilder6.5提供了众多的描绘器用于创建和管理不同的对象，从而大大降低了面向对象应用开发难度，提高了开发质量和开发速度。同时，它具有强大的数据库操作功能，这一特点使它特别适合于MIS系统的开发。4数据库设计数据库结构设计的好坏将直接对应用系统的效率以及与实现的效果产生很大影响，好的数据库结构设计会减少数据库的存储量，数据的完整性和一致性比较高，系统具有较快的响应速度等。4.1数据库需求分析通过对药库管理的内容和数据流程的分析，设计的数据项和数据结构如下：药品基本字典：包括药品序号、系统识别、药品名称、药品规格、药房规格、前不见古人房规格、药品属性、特殊药品、药品单位、最小单位、最小包装、药房包装、病房单位、作废判别、注射收费、判别、用量限制、发药方式、拼音代码、五笔代码、角形代码、其他代码、高储数量、低储数量、药品编号、药品说明、定价级别、库位编码、药品效期、给药方法、药品说明、定价级别、库位编码、药品效期等。产地对照管理：包括药品产地、产地名称、拼音代码、厂家全称。药品编码字典：包括识别序号、药品编码、系统识别、编码名称。入库方式管理：包括系统识别、入库方式、方式名称、入库单号、验收单呈、购入判别、识别符号。进货单位管理：包括单位序号、单位名称、拼音代码、开户银行、单位帐号、系统识别、单位编码、联系人、联系电话、单位地址、单位说明、作废判别等。出库方式管理：包括系统识别、出库方式、方式名称、方式类别、出库单号、识别符号、科室判别等。入库表1：包括系统识别、入库方式、入库单号、票到标志、单位序号、财务判别、附单据数、入库备注、入库判别、采购日期、录入日期、入库日期、采购工号、操作工号。入库表2：包括识别序号、系统识别、入库方式、入库单号、药品序号、药品产地、药品厂家、药品批号、药品效期、批发价格、零售价格、入库数量、合格数量、进货价格、进货合计、验收单等。出库表1：用于存储药品出库单的出库方式、领药科室、出库日期、申请日期、出库判别等基本内容。出库表2：用于存储药品出库的具体内容，包括药品出库方式、药品编码、药品产地、药品批号、效期、批发价格、零售价格、进货价格、进货合计、申请日期、实发数量等。4.2数据库概念结构设计根据以上分析规划出的实体有：药品实体、供货单位实体、出库实体、产地实体等。供货单位实体E-R图进货单位出库实体E-R图产地实体E-R图4.3数据库逻辑结构设计1.药品基本字典（YK_ZD）.计划01（YK_JH01）.计划02（YK_JH02）药品属性（YK_YPSX）帐簿类别（YK_ZBLB）药品别名（YK_YPBM）入库方式（YK—RKFS）入库01（YK—RK01）入库02（YK—RK02）进货单位库（YK—JHDW）调价01（YK—TJ01）调价02（YK—TJ02）药品财务帐（YK—CWZB）出库方式表（YK—CKFS）出库01（YK—CK01）出库02（YK—CK02）结帐记录（YK—JZJL）月结结果（YK—YJJL）盘点表（YK—PD）盘点清单（YK—PDSD）库存明细表（YK—KCMX）药品编码字典（YK—YPBM）产地对照表（YK—CDDZ）库位编码设置(YK_KWSZ)库位字典(YK_KWZD)进价历史(YK_JJLS)养护单(YK_YHD)28.养护清单(YK—YHQD)3.4.4数据库结构的实现在需求分析、概念结构设计的基础上得到数据库的逻辑结构之后，就可以在数据库系统中实现逻辑结构。我们使用的是ORACLE数据库系统，下面给出创建部分表的SQL语句。创建药品编码字典表YK_BMZDCREATETABLE"YK”.YK_BMZD(SBXHNUMBER(4)NOTNULL,YPBMVARCHAR2(16)NOTNULL,XTSBNUMBER(2)NOTNULL,BMMCVARCHAR2(50)NULL,CONSTRAINTPK_YK_BMZDPRIMARYKEY(SBXH,XTSB,YPBM),CONSTRAINTFK_YK_BMZD_REFFOREIGNKEY(SBXH,XTSB))TABLESPACE"YK”创建药品编码设置表：YK_BMSZCREATETABLE"YK”.YK_BMSZ(SBXHNUMBER(4)NOTNULL,XTSBNUMBER(2)NOTNULL,MCVARCHAR2(40)NULL,CDNUMBER(2)NOTNULL,CONSTRAINTPK_YK_BMSZPRIMARYKEY(SBXH,XTSB))TABLESPACE"YK”创建产地对照表：YK_CDDZCREATETABLE"YK”.YK_CDDZ(YPCDNUMBER(4)NOTNULL,CDMCVARCHAR2(15)NULL,PYDMVARCHAR2(6)NULL,CJQCVARCHAR2(60)NULL,CONSTRAINTPK_YPCDPRIMARYKEY(YPCD))TABLESPACE"YK”创建出库方式表YK_CKFSCREATETABLE"YK”.YK_CKFS(XTSBNUMBER(2)NOTNULL,CKFSNUMBER(2)NOTNULL,FSMCVARCHAR2(20)NULL,FSLBNUMBER(4)NOTNULL,CKDHNUMBER(6)NOTNULL,SBFHVARCHAR2(4)NULL,KSPBNUMBER(1)NOTNULL,CONSTRAINTPK_YK_CKFSPRIMARYKEY(XTSB,CKFS))TABLESPACE"YK”创建出库01表YK_CK01CREATETABLE"YK”.YK_CK01(XTSBNUMBER(2)NOTNULL,CKFSNUMBER(4)NOTNULL,CKDHNUMBER(6)NOTNULL,YFSBNUMBER(2)NOTNULL,CKBZVARCHAR2(30)NULL,CKPBNUMBER(1)NOTNULL,SQRQDATENULL,CKRQDATENULL,CKKSNUMBER(6)NULL,CZGHVARCHAR2(4)NULL,SRGHVARCHAR2(4)NULL,SQTJNUMBER(1)NOTNULL,LYRQDATENULL,LYPBNUMBER(1)NOTNULL,LYGHVARCHAR2(4)NULL,CONSTRAINTPK_YK_CK01PRIMARYKEY(XTSB,CKFS,CKDH),CONSTRAINTFK_YK_CK01_REFFOREIGNKEY(XTSB,CKFS))TABLESPACE"YK”创建出库02表YK_CK02CREATETABLE"YK”.YK_CK02(SBXHNUMBER(18)NOTNULL,XTSBNUMBER(2)NOTNULL,CKFSNUMBER(4)NOTNULL,CKDHNUMBER(6)NOTNULL,YPXHNUMBER(6)NOTNULL,YPCDNUMBER(4)NOTNULL,YPPHVARCHAR2(10)NULL,YPXQDATENULL,PFJGNUMBER(12,4)NOTNULL,LSJGNUMBER(12,4)NOTNULL,JHJGNUMBER(12,4)NOTNULL,SQSLNUMBER(10,2)NOTNULL,SFSLNUMBER(10,2)NOTNULL,KCXZNUMBER(6)NULL,CONSTRAINTPK_YK_CK02PRIMARYKEY(SBXH),CONSTRAINTFK_YK_CK02_REFFOREIGNKEY(XTSB,CKFS,CKDH))TABLESPACE"YK”其他表的建表方式与上述基本相同，在此不一一列举。四系统模块的具体实现在本系统中共有九个模块，他们分别是：系统管理、入库管理、出库管理、调价管理、计划管理、其它功能、查询管理、维护管理、帮助。1用户登录窗口的设计在应用程序对象OPEN事件的程序代码中有下面一条语句：OPEN(W_LOGIN)该语句就是打开登录窗口的语句，在登录窗口(W_LOGIN)中有两个静态文本框StaticText控件，放置在窗口的相应位置用来显示文字。放置了两个单行编辑框SinglelineEdit控件，一个供用户输入登陆的用户名，另一个供用户输入口令。另外还放置了两上按钮按件。在确定按钮控件的Click事件中输入下面的程序代码，这样用户单击确定按钮就可以实现户登陆的身份验证。stringls_kl,ls_yhintegerli_counterstringls_s1integerli_i2,li_3,li_i1ls_kl=sle_kl.Textls_yh=UPPER(trim(sle_yh.Text))ifisnull(ls_kl)thenls_kl=''//判断用户名与口令是否匹配ifisnull(ls_kl)orls_kl=''thenSELECTcount(*)INTO:li_counterFROMSS_PASSWORDWHERE(XTSB=-1ORXTSB=:io_parm.LongParm[1])AND(YHDM=:ls_yh)AND(YHKLISNULL)USINGio_parm.TransParm;elseSELECTcount(*)INTO:li_counterFROMSS_PASSWORDWHERE(XTSB=-1ORXTSB=:io_parm.LongParm[1])AND(YHDM=:ls_yh)AND(YHKL=:ls_kl)

USINGio_parm.TransParm;endififisnull(li_counter)Thenli_counter=0ifli_counter>0then//口令正确io_parm.StringParm[1]=ls_yhio_parm.LongParm[1]=1closewithreturn(parent,io_parm)returnelse//口令错误MessageBox('提示'，'用户名/口令有误，请重新输入!')sle_yh.setfocus()endif在取消按钮控件的Click事件中输入下面的程序代码，这样用户单击取消按钮就可以退出系统。io_parm.LongParm[1]=-1closewithreturn(parent,io_parm)2药品入库窗口的设计在采购入库窗口中有两个静态文本框StaticText控件，放置在窗口的相应位置用来显示文字。放置了一个编屏蔽EditMark控件，两个列表框ListBox控件，用于显示未确认的入库单和已确认的入库单。放置了两上收音机(RadioButton)按钮按件，用于选择未确认及已确认的入库单的显示方式即列表的形式还是图标的形式。和四个命令按钮(CommandButton)控件，分别用于添加新的入库申请单、删除入库申请单、确认入库单和退出窗口。如图所示未确认入库单|己确认入库单|2叩4年D5月昌入库单号0219902004.051.05.170220012004.05.180220022004.05.180220032004.05.180220042004.05.180220052004.05.19录入日期供货单位金昌市医药公司…陕西阳光医药有限责任…山东瑞S入库单号0219902004.051.05.170220012004.05.180220022004.05.180220032004.05.180220042004.05.180220052004.05.19录入日期供货单位金昌市医药公司…陕西阳光医药有限责任…山东瑞S日制药肴甘肃三生药业有甘肃同济药业有_.甘萧法养亚药业有限责...固氏药友制法公司…艮公司…艮公司艮责任入库单号M02196^1M021965HI021966M021967M021968M021969M021970M021971M021972M021973圜021974□021975M021976M021977HI021978(121A7A入库日期2004.05.082004.05.082004.05.082004.05.082004.05.082004.05.082004.05.082004.05.082004.05.082004.05.082004.05.082004.05.082004.05.082004.05.092004.05.092004.05.09?nnj.nfi.in供货单位公公公责责责公团公限品药公I限很限限限限限集限有药医限亲有有有有厂司有有有业有业械康有有■业业业药公业药业药业药器达业公兀制药药药制愀阳德方达中医瑞光生子生尔医宁德龄布瑞圣远瑞苏市泰阳一一扬三法省普圣市丽东州州州苏昌州西肃苏肃肃西东州昌日山兰兰兰江金兰陕甘江甘甘陕广兰金壑制药药医药江药亚疗市药物I-.--：-医司司司任任任司有司责采有司在窗口的OPEN事件中输入下面的程序代码，通过用于函数调整药品入库单的居中显示，并显示列表框中内容。〃调用函数调整窗口大小wf_resize(3200,1700)〃调用函数使本窗口在父窗口中居中显示gf_centerwin_inwin(w_yk_main,this)this.setredraw(false)〃调用函数调整增加、删除、确认、退出四个按钮的显示位置及相互距离gf_locatectl(this,cb_add,'LB',30,70)gf_alignctls(cb_add,cb_delete,'T',20)gf_alignctls(cb_delete,cb_ok,'T',20)gf_alignctls(cb_ok,cb_exit,'T',20)〃调用函数在未确认入库单和已确认入库单列表框中显示标头入库单，入库日期及供货单位lv_left.addcolumn("入库单号〃，LEFT!,350)lv_left.addcolumn("录入日期〃，LEFT!,390)lv_left.addcolumn("供货单位〃，LEFT!,800)lv_right.addcolumn("入库单号〃，LEFT!,350)lv_right.addcolumn("入库日期〃，LEFT!,390)lv_right.addcolumn(〃供货单位〃,LEFT!,800)this.setredraw(true)//激活用户自定义的ue_init事件postevent('ue_init')用户自定义事件ue_init用于财务日期及列表框中数据。程序代码如下：datetimeldt_start,ldt_end,ldt_cur_cwyfstringls_whereclauseINTli_year,li_month//显示财务月份ldt_cur_cwyf=gf_inwhichfinmonth(gf_server_date())em_1.text=string(ldt_cur_cwyf)//下列返回列列表与多处代码相关，不得轻易改变is_selectcollist="selectYK_RK01.XTSB,RKFS,RKDH,PWD,YK_RK01.DWXH,CWPB,RKPB,LRRQ,RKRQ,DWMC,PWD+1"is_selectcollist+=〃fromYK_RK01,YK_JHDW"//初始化ds_left,lv_left，建立动态SQL语句，检索未确认的入库单ls_whereclause='whereYK_RK01.DWXH=YK_JHDW.DWXH(+)andYK_RK01.RKPB=0andYK_RK01.RKFS=1'ls_whereclause+='andYK_RK01.XTSB='+string(base_info.syscode)+'orderbyrkdhasc'ifds_left.createfromsql(is_selectcollist+ls_whereclause)<0thenis_error="创建入库单缓冲区(left)失败(〃+ds_left.is_error+〃)！〃gotoerrorhandleendifds_left.settransobject(sqlca)ds_left.retrieve()wf_setdispcol(3,'dh',0)//rkdhwf_setdispcol(8,'e',0)//lrrqwf_setdispcol(10,'s',0)//dwmcwf_setdispcol(11,'pi',0)//pwd+1(图标索引)wf_lvremap('LEFT')//初始化ds_right,lv_right建立动态SQL语句，检索已确认的入库单li_year=year(date(ldt_cur_cwyf))li_month=month(date(ldt_cur_cwyf))ldt_start=gf_financialmonth(li_year,li_month,'START')ldt_end=gf_financialmonth(li_year,li_month,'END')ls_whereclause='whereYK_RK01.DWXH=YK_JHDW.DWXH(+)andYK_RK01.RKPB=1andYK_RK01.RKFS=1'ls_whereclause+='andYK_RK01.XTSB='+string(base_info.syscode)ls_whereclause+="andYK_RK01.RKRQ>=to_date('〃+string(ldt_start,'yyyymmddhhmmss')+〃'，'yyyy-mm-ddhh24.mi.ss')"ls_whereclause+="andYK_RK01.RKRQ<=to_date('"+string(ldt_end,'yyyymmddhhmmss')+"','yyyy-mm-ddhh24.mi.ss')ORDERBYrkdhasc"ifds_right.createfromsql(is_selectcollist+ls_whereclause)<0thenis_error="创建入库单缓冲区(right)失败("+ds_right.is_error+")!”gotoerrorhandleendifds_right.settransobject(sqlca)ds_right.retrieve()wf_setdispcol(3,'dh',1)//rkdhwf_setdispcol(9,'e',1)//rkrqwf_setdispcol(10,'s',1)//dwmcwf_setdispcol(11,'pi',1)//pwd+1(图标索引)wf_lvremap('RIGHT')return//若动态SQL语句建立失败，显示出错信息errorhandle:messagebox("提示"，is_error)return增加按钮的Clicked事件，用于增加一个新的入库单。程序代码如下：〃调用函数检验系统是否完成初始化工作ifnotgf_ifinitialized()then—messagebox("提示”，”系统未完成初始化，不能处理入库业务!")returnendif//通过函数打开对应入库单的明细窗口wf_viewdetail(0,'LEFT','MODI')wf_viewdetail()的函数体如下://功能：以指定方式打开ai_index对应入库单的明细窗口//参数：ai_index：指定入库单在lv_left或lv_right中对应的索引值；//as_option：'LEFT',lv_left;'RIGHT',lv_right;//as_openmod：'MODI',修改方式；’CHECK',验收方式；’QUERY'查询方式wf_viewdetail(0,'LEFT','MODI')integerli_rowidlongll_rkdhlistviewitemlvitemifai_index<1then//新增入库单li_rowid=0ll_rkdh=0as_openmod='MODI'gotoaddlabelendifas_option=trim(upper(as_option))as_openmod=trim(upper(as_openmod))ifas_option='LEFT'thenlv_left.getitem(ai_index,lv_item)elselv_right.getitem(ai_index,lv_item)endifli_rowid=lv_item.datall_rkdh=long(lv_item.label)//传递参数addlabel:s_exchange.longparm[1]=1//rkfs购入s_exchange.longparm[2]=ll_rkdh//rkdhs_exchange.longparm[3]=li_rowid//入库单对应在datastore中的行号s_exchange.stringparm[1]=as_openmod//打开方式//打开入库单明细窗口open(w_yk_rkcl_detail)图标收音机按钮的Clicked事件程序代码如下：〃列表框中数据以图标的形式显示lv_left.view=listviewlargeicon!lv_right.view=listviewlargeicon!列表收音机按钮的Clicked事件程序代码如下：//列表框中数据以列表的形式显示lv_left.view=listviewreport!lv_right.view=listviewreport!删除按钮的Clicked事件的程序代码如下：integerli_index,li_rowlistviewitemlv_itemlongll_rkdh,ll_rkfsli_index=lv_left.selectedindex()ifli_index<1thenreturnlv_left.getitem(li_index,lv_item)li_row=lv_item.datall_rkdh=ds_left.object.#3[li_row]//rkdhll_rkfs=ds_left.object.#2[li_row]//rkfsifmessagebox("提示〃，〃真地要删除入库单〃+string(ll_rkdh)+〃吗?”,Question!,YesNo!,2)=2thenreturngf_begin_transaction(sqlca)deletefromYK_RK02whereXTSB=:base_info.syscodeandRKFS=:ll_rkfsandRKDH=:ll_rkdh;ifsqlca.sqlcode<>0thengotoerrorhandledeletefromYK_RK01whereXTSB=:base_info.syscodeandRKFS=:ll_rkfsandRKDH=:ll_rkdh;ifsqlca.sqlcode<>0thengotoerrorhandlegf_commit_transaction(sqlca)parent.eventue_deleteitem(li_row)//刷新lv_leftreturnerrorhandle:gf_rollback_transaction(sqlca)messagebox("提示〃，〃删除入库单〃+string(ll_rkdh)+〃失败！〃)return删除按钮的Clicked事件的程序代码如下：integerli_indexli_index=lv_left.selectedindex()ifli_index<1thenreturnwf_viewdetail(li_index,'LEFT','CHECK')退出按钮的Clicked事件的程序代码如下close(parent)4.3药品入库明细窗口的设计在采购入库明细窗口中有两个数据窗口(datawidows)控件、一个图形按钮(PictureButton)控件和四个静态文本框StaticText控件，放置在窗口的相应位置用来显示主管、采购、验收、会计等文字。如图所示DW_MAIN对应d_rkd_main数据窗口，用于显示入库单基本信息如供货单位、采购日期、附单据数、购入方式、备注等其对应的SQL语句如下：SELECTYK_JHDW.DWMC,YK_JHDW.PYDM,YK_RK01.DWXH,YK_RK01.XTSB,YK_RK01.RKFS,YK_RK01.RKDH,YK_RK01.PWD,YK_RK01.CWPB,YK_RK01.FDJS,YK_RK01.RKBZ,YK_RK01.RKPB,YK_RK01.CGRQ,YK_RK01.LRRQ,YK_RK01.RKRQ,YK_RK01.CGGH,YK_RK01.CZGHFROMYK_RK01,YK_JHDWWHERE(YK_RK01.DWXH=YK_JHDW.DWXH(+))and(YK_RK01.XTSB=:ai_xtsb)and(YK_RK01.RKFS=:ai_rkfs)and(YK_RK01.RKDH=:ai_rkdh)DW_DETAILE对应d_rkd_detail数据窗口，用于显示本张入库单中具体的入库药品明细，其对应的SQL语句如下：SELECTYK_CDDZ.CDMC,YK_RK02.SBXH,YK_RK02.XTSB,YK_RK02.RKFS,YK_RK02.RKDH,YK_RK02.YPXH,YK_RK02.YPCD,YK_RK02.YPCJ,YK_RK02.YPPH,YK_RK02.YPXQ,YK_RK02.PFJG,YK_RK02.LSJG,YK_RK02.RKSL,YK_RK02.HGSL,YK_RK02.JHJG,YK_RK02.JHHJ,YK_RK02.ZRJE,YK_RK02.YSDH,YK_RK02.YSGH,YK_RK02.YSRQ,YK_RK02.FKGH,YK_RK02.PZHM,YK_RK02.FKRQ,YK_RK02.FPHM,YK_RK02.TYPE,YK_TYPK.YPMC,YK_TYPK.YPGG,YK_TYPK.YPDWFROMYK_CDDZ,YK_RK02,YK_TYPKWHEREYK_CDDZ.YPCD=YK_RK02.YPCDandYK_RK02.YPXH=YK_TYPK.YPXHandYK_RK02.XTSB=:ai_xtsbandYK_RK02.RKFS=:ai_rkfsandYK_RK02.RKDH=:ai_rkdhORDERBYYK_RK02.SBXHascPb_ok按钮，用于确认入库申请单，完成入库单的验收工作，其Clicked事件的程序代码如下：stringls_whereclause,ls_ypphintegeri,li_rowcount,li_typelongll_ypxh,ll_ypcd,ll_sbxhdatetimeldt_ypxqdecimal{2}ld_rksl,ld_hgsldecimal{4}ld_jhjg,ld_pfjg,ld_lsjgbooleanlb_opentranslongll_Typeu_inventory_swuo_inven_swu_datastore_ypcdds_ypcdifdw_main.object.pwd[1]=2THENmessagebox("提示〃，〃本入库单发票已到但货物未到，不能进行实物验收!")returnendififmessagebox("提示〃，〃第〃+string(il_rkdh)+〃号入库单是否验收入库？〃，Question!,YesNo!,2)=2thenreturnuo_inven_sw=createu_inventory_swifuo_inven_sw.init(base_info.syscode,ii_rkfs,il_rkdh,'IMPORT')<1then//库存对象初始化失败is_error=uo_inven_sw.is_errorgotoerrorhandleendif//创建药品产地对象,以更新批，零价格ds_ypcd=createu_datastore_ypcdifds_ypcd.init()<1then//YPCD对象初始化失败is_error=ds_ypcd.is_errorgotoerrorhandleendifls_whereclause="exists(select*fromYK_RK02whereYK_RK02.YPXH=YK_YPCD.YPXHandYK_RK02.YPCD=YK_YPCD.YPCD〃ls_whereclause+="andYK_RK02.XTSB=〃+string(base_info.syscode)+〃andYK_RK02.RKFS=〃+string(ii_rkfs)ls_whereclause+="andYK_RK02.RKDH=〃+string(il_rkdh)+〃)"//初始化YPCD对象工作数据集ifds_ypcd.retrievefromsql(ls_whereclause)<0then//检索ds_ypcd失败is_error=ds_ypcd.is_errorgotoerrorhandleendifli_rowcount=dw_detail.rowcount()dw_detail.accepttext()//预入库处理fori=1toli_rowcountll_sbxh=dw_detail.object.sbxh[i]ifisnull(ll_sbxh)orll_sbxh<1thencontinue//无效行

ll_ypxh=dw_detail.object.ypxh[i]

ll_ypcd=dw_detail.object.ypcd[i]

ls_ypph=dw_detail.object.ypph[i]

ldt_ypxq=dw_detail.object.ypxq[i]

li_type=dw_detail.object.type[i]

ld_rksl=dw_detail.object.rksl[i]

ld_hgsl=dw_detail.object.hgsl[i]

ld_jhjg=dw_detail.object.jhjg[i]ld_pfjg=ds_ypcd.getcol(ll_ypxh,ll_ypcd,'PFJG')//取当前批价

ifld_pfjg<0thenis_error=ds_ypcd.is_errorgotoerrorhandleendif

ld_lsjg=ds_ypcd.getcol(ll_ypxh,ll_ypcd,'LSJG')//取当前零价

ifld_lsjg<0thenis_error=ds_ypcd.is_errorgotoerrorhandleendif

dw_detail.object.pfjg[i]=ld_pfjg//更新批价

dw_detail.object.lsjg[i]=ld_lsjg//更新零价

ifabs(ld_hgsl)<0.0001thencontinue

ifli_type=0then//次品类型未输dw_detail.object.hgsl[i]=ld_rks