毕业设计计算机信息管理之药品管理系统.doc

高等函授专科毕业设计（论文）计算机信息管理之药品管理系统 45 / 45【摘要】 随着全球以信息技术为主导的科技革命进程的加快，人类社会逐步由工业社会进入信息社会。信息技术是当代最具潜力的新的生产力，信息资源是经济和社会发展的重要战略资源。信息化成为各国经济和科技竞争的制高点，信息化程度已成为衡量一个国家和地区现代化水平和综合实力的重要标志。随着我国市场经济的迅速发展和加入WTO，企业信息化程度的要求越来越高，而现阶段计算机信息管理普及率并不高，企业中计算机资源得不到及时充分的利用，信息处理效率跟不上形势的发展，近几年很多单位对计算机信息管理专业人才需求越来越大。被调查单位普遍反映且迫切需要善经营、会管理，同时能熟练把计算机运用到信息采集、处理与维护的高级管理人才，计算机信息管理专业正是在这种背景正应运而生的，目的是为企事业单位提供更多更好的从事计算机信息管理工作的合格人才。计算机信息管理专业是计算机与经济管理学科交叉的专业，本专业培养德、智、体全面发展，掌握现代管理学和计算机的理论基础，运用先进的管理手段进行信息管理，成为具有综合能力和全面素质的高等技术应用性信息管理人才。【关键词】信息技术 信息资源 信息化 企业信息化程度目 录第一部分：系统分析4第二部分：系统设计62.1 总体设计：62.2详细设计：62.2.1数据库设计：62.2.1 模块设计：11第三部分：系统的实施123.1主程序界面设计：123.1.1 登陆设计：133.1.2 人员管理界面设计：143.1.3 药品分类界面设计：153.2 数据存储界面设计：163.3查询设计243.3.1 卫生室购药查询：243.3.2 药品销售累计查询：253.4报表输出设计：283.5备份设计30第四部分：系统测试334.1 模块测试：334.2 系统测试：33第五部分：总结345.1 系统功能完成情况345.2 存在的问题345.3 此次体会与心得34第六部分：附录356.1 附录一（主程序命令代码）：356.2 附录二（维护说明书和程序清单名）446.3 参考文献45第一部分：系统分析1.1 开发原因与前景：在现代，高科技的飞跃发展，人们工作习惯的改变，特别是电脑的大量普及，人们生活节奏越来越快，怎样提高工作效率是人们首先考虑的问题。宿舍管理特别是学校宿舍的管理是一个非常繁琐与复杂的一项工作，一个原因就是工作量大，不好管。对于一个学校而言，更应该运用一些本地资源，提高管理的力度，对学生负责，对国家负责。1.2 可行性分析：1.2.1 经济的可行性：主要从对项目的经济上进行分析评价，一方面是支出的费用，包括设备购置费、管理和维护费用、人员工资和培训费等，另一个是取得的收益。这是个超小型的管理系统，从投入的人力，财力与物力来讲是非常之小的，只要一台电脑，一台打印机，这个系统就可以搞起来，考虑到学校里有电脑，现只要购置一台打印机就可以了。从节省人力方面，可以让管理人员从繁与复杂的工作中解脱出来，做更多的工作，可以给宿舍里的管理提高一个层次。1.2.2技术上的可行性：技术上的可行性分析要考虑将来要采用的硬件和软件技术能否满足用户（这里是校方）提出的要求（如计算机的容量、速度等）。此外，还要考虑开发人员的水平，做为计算机信息管理专业毕业的优等生，数据库设计方面对于我们应该还过得去，在宿舍里生活了两年，对这个管理模试应该比较的熟。宿舍管理系统的编写，是十分好编的，我想几天就可以写出程序，再花上三来天的调试，计划一个星期就可以完成投入使用了。1.3结论：通过以上两点的分析，编写或开发这个宿舍管理系统是可行的，只要这个系统能实现对学生数据的输入、修改、删除、打印、浏览与查询就可以了。如果技术方面可行，浏览与查询方面的功能应该编写得强大一点，再好有条件组合的查询，可以实现按男女生分类查询，也可以按专业、寝室号、籍贯等分类查询，以便学校方面管理人员可以很方便的查询想要的数据，以便进行统一管理，统一安排。第二部分：系统设计系统设计的任务是：在系统分析的基础上，按照9逻辑模型的要求，科学合理地进行系统的总体设计和具体的物理设计，为下一阶段系统实施提供必要的技术资料。包括总体设计与详细设计。总体设计：总体设计包括子系统的划分，代码设计、设计规范制定、信息系统流程图设计、功能结构图设计和系统物理配置方案设计等。详细设计：详细设计包括数据存储文件设计（数据库文件的设计）、输出设计、输入设计、编写程序设计说明书等。系统设计应符合以下要求：（1） 系统性：系统作为整体而存在的，所以系统的代码要统一，设计规范要标准，传递语言要尽量一致，并使一次输入得到多次利用。（2） 灵活性。系统应灵活，对环境的变化要有很强的适应性。这要求我们尽量采用模块化结构，提高各部分的独立性，尽是减少各子系统之间的数据依赖性。（3） 可靠性。这是指系统受外界干扰时的抵御力与恢复能力。（4） 经济性。这是我们也要考虑的问题。2.1 总体设计：考虑到我们是一个小型的管理系统，程序编写方面并不复杂，所以一些不必要方面就可以省略了，如：代码设计方面，设计规范的制定方面等等。从系统的吞吐量，响应时间方面考虑，现在的机器是达得到要求的，还留下了一点空间。2.2详细设计：2.2.1数据库设计：在一个药品管理查询系统的这样一个系统中，运用数据库的是十分必要的，一些药品数据资料的保存，修改，查询都要与数据打交道，所以选好存储类型，选好一种合适的数据库是十分重要的，考虑到实际情况，我就用foxpro6.0 做了。数据库设计的主要任务是决定数据库的字段名，字段类型，字段长度等。在此只列举三个数据库文件的文件结构。表结构: F:FLLVFP批发YUANB.DBF数据记录数: 1837 最近更新的时间: 10/19/06备注文件块大小: 64代码页: 936 字段 字段名 类型 宽度 小数 1 BH 数值型 5 2 DM 字符型 11 3 YPMC 字符型 18 4 GG 字符型 10 5 DW 字符型 8 6 DJ 数值型 13 2 7 DJ2 数值型 13 2 8 JJ 数值型 13 2 9 PFJ 数值型 13 2 10 SL 数值型 11 2 11 LB 字符型 10 12 FXG 数值型 7 13 FXG1 数值型 7 14 QZB 逻辑型 1 15 NCS 数值型 12 16 SXRQ 备注型 4 17 BL 数值型 8 18 YSL 数值型 14 * 总计 * 177表结构: F:FLLVFP批发DATACK.DBF数据记录数: 14 最近更新的时间: 09/03/07代码页: 936 字段 字段名 类型 宽度 小数位 索引 排序 Nulls 1 DJH 字符型 14 2 RQ 日期型 8 3 GYDW 字符型 16 4 BH 数值型 9 2 5 DM 字符型 12 6 YPMC 字符型 26 7 GG 字符型 10 8 DW 字符型 10 9 DJ 数值型 10 4 10 GYSL 数值型 12 2 11 PH 字符型 12 12 SXRQ 日期型 8 13 CHD 字符型 30 14 LB 字符型 10 15 ZHD 字符型 6 16 FXG 数值型 7 2 17 DY 逻辑型 1 * 总计 * 202表结构: F:FLLVFP批发DATAYUANB2.DBF数据记录数: 2034 最近更新的时间: 09/03/07代码页: 936 字段 字段名 类型 宽度 小数 1 BH 数值型 12 2 2 DJ 数值型 12 4 3 YJJ 数值型 13 4 4 CHD 字符型 20 5 PH 字符型 14 6 SXRQ 日期型 8 7 SL 数值型 12 2 8 FXG 数值型 10 4 9 QZB 逻辑型 1 10 YSL 数值型 14 2 * 总计 * 1172.2.1 模块设计：模块化是一种重要的设计思想。功能模块设计的目的都是为了把一个系统分解成一些规模较小的、功能较简单的、更易于建立和修改的部分。一方面，各个模块都有自己的独立性，另一方面，模块之间的相互关系可以通过一定的方式予以规定和说明。功能模块如下：淄河镇卫生院药品管理查询系统数据录入数据修改数据查询报表输出数据备份退出本系统备份数据恢复数据预览数据打印数据全部查询系统功能结构图第三部分：系统的实施系统设计要具备以下要求：1、系统性2、灵活性3、可靠性4、经济性。物理配置方案设计：根据多方面的因素进行配置，系统的吞量，响应时间，可靠性，单机系统，集中式，采用数据库管理方式。信息流程图的设计：输入存储1处理中间数存储2处理2处理3输出1输出23.1主程序界面设计：一个界面的友好，应以使用者操作方面为前提，还有操作员长期与这些界面打交道，设计一个好的界面是我们程序开发人员的最高追求，在我看来，编一个程序真的很简单，一个功能就有很多种实现的方法，我在设计使用中发现，用这个版本开发一个系统，远不如我用Powerbuilder 8.1 简单，在那个开发环境，不像这个版本，很多东西编起来很碍手碍脚的，放不开。主界面，我起先考虑的也跟大多同学一样，用菜单生成器，最后发现，一个小小的系统，功能模块又非常之小，我就放弃了菜单方式，选用了现在这个样子。3.1.1 登陆设计：简单的登录界面使用户有一种亲切的操作心情。选择您的姓名之后，输入口令，如果输入的口令是错误的会给出提示，如果三次输入错误，将退出系统。3.1.2 人员管理界面设计：设置多用户操作，可以通过按钮增加，修改，删除等操作，对人员进行管理。3.1.3 药品分类界面设计：药品期初设置的一个方面，为保证药品分类计算时，保证数据的有效性和立人准确性。增加代码如下：if this.caption=增加 this.caption=确定 thisform.width=thisform.width+200 thisform.text1.setfocus thisform.autocenter=.t. mand4.enabled=.t.else this.caption=增加 if !empty(thisform.text1.value) sele lb appe blan repl lb with allt(thisform.text1.value) endi thisform.width=thisform.width-200 thisform.autocenter=.t. mand4.enabled=.f. endithisform.text1.value=thisform.list1.requerythisform.refresh数据存储设计：主要采用数据库文件存储形式，制定文件的分类，设定主文件，处理文件，工作文件，后备文件，周转 文件等。3.2 数据存储界面设计：首先要把新药的品种输入的计算机之中，在增加新药的时候，如果输入的代码是重复的，计算机将提示输入重复错误。提示代码重复录入的实现代码如下：Dmtxt.validif !empty(this.value)sele yuanbloca for allt(dm)=allt(this.value)if found()mm=messagebox(您输入的代码已经使用，请重新输入,1+32,提示) if mm=1 this.value= retu .f. else retu .t. endiendiendithisform.refresh增加完新药以后，需要对当前实有的药品进行录入，可以同药品购入的录入用同一个录入界面，但在以后的使用过程中，账簿的正确性就不能保证，所以最好使用期初录入界面进行录入，保证数据的完整性。期初录入界面设计：确定.clicklocal aaaa=0set exac onif empty(thisform.sl.value) retu .t.else sele yuanb loca for dm=allt(thisform.dm.value) lbh=bh repl sl with sl+thisform.sl.value sele qclr appe blan repl rq with ctod(allt(thisform.year.value)+/+allt(thisform.month.value)+/+allt(thisform.day.value) repl dm with allt(thisform.dm.value) repl ypmc with allt(thisform.ypmc.value) repl gg with allt(thisform.gg.value) repl dw with allt(thisform.dw.value) repl dj with val(thisform.dj.value) repl sysl with thisform.sl.value repl lb with thisform.lb.value repl sxrq with thisform.sxrq.value repl ph with thisform.ph.value repl chd with thisform.chd.value sele yuanb2 if allt(thisform.chd.value)allt(subs(lsldj,at(,lsldj,4)+1,at(,lsldj,5)-at(,lsldj,4)-1)count to aa for int(bh)=lbh appe blanrepl yjj with val(thisform.dj.value),dj with val(thisform.dj.value),chd with allt(thisform.chd.value),ph with thisform.ph.value;sxrq with thisform.sxrq.value,sl with thisform.sl.value,fxg with 1.3,bh with val(str(lbh+(aa+1)/100,12,2);ysl with ysl+thisform.sl.valuesele qclrgo bott repl bh with val(str(lbh+(aa+1)/100,12,2)else*if thisform.sxrq.value=ctod(subs(lsldj,at(,lsldj,3)+1,at(,lsldj,4)-at(,lsldj,3)-1)if thisform.nmodi=.t. mm=messagebox(原来的价格为+allt(subs(lsldj,1,at(,lsldj,1)-1)+chr(13)+; 是否更改为+(allt(thisform.dj.value),1+32,提示) if mm=1 sele yuanb2 loca for bh=lbh+thisform.lquerybh/100 repl sl with sl+thisform.sl.value,ysl with ysl+thisform.sl.value repl yjj with val(thisform.dj.value),dj with val(thisform.dj.value)sele qclrgo bott repl bh with lbh+thisform.lquerybh/100 else sele yuanb2 loca for bh=lbh+thisform.lquerybh/100 repl sl with sl+thisform.sl.value,ysl with ysl+thisform.sl.value sele qclr go bott repl bh with lbh+thisform.lquerybh/100 endi else sele yuanb2 loca for bh=lbh+thisform.lquerybh/100 repl sl with sl+thisform.sl.value,ysl with ysl+thisform.sl.value sele qclr go bott repl bh with lbh+thisform.lquerybh/100 endi *else*sele yuanb2*count to aa for int(bh)=lbh* appe blan*repl yjj with val(thisform.dj.value),dj with val(thisform.dj.value),chd with allt(thisform.chd.value),ph with thisform.ph.value;*sxrq with thisform.sxrq.value,sl with thisform.sl.value,fxg with 1.3,bh with val(str(lbh+(aa+1)/100,12,2)*sele qclr*go bott* repl bh with val(str(lbh+(aa+1)/100,12,2) * endi endi thisform.hj.value=thisform.hj.value+val(thisform.dj.value)*thisform.sl.value thisform.dm.value= thisform.ypmc.value= thisform.gg.value= thisform.dw.value= thisform.lb.value= thisform.dj.value= thisform.chd.value= thisform.ph.value=xxxx thisform.sl.value=0.00 thisform.sxrq.value=2008/12/31 thisform.nmodi=.f. thisform.refreshendithisform.dm.setfocussele yuanb2set filt tosele qclr set filt tosele yuanb set filt to set exac offthisform.refresh购入药品界面设计：药品购入录入是主要的操作界面，通过输入药品的代码，可以迅速定位到要输入的药品名称上，在输入的过程中有一定的输入限制，如进价不能比批发价格高，失效日期要在现在日期以后，而且在输入完毕以后，如果不打印，数据将不存储到主数据库中，以保证数据的完整性。在输入过程中代码的输入与药品名称的查找是即时性的。代码即时性的产生代码如下：Dm.keypress事件#define DELKEY 127#define ENTER 13#define DOWNARROW 3LPARAMETERS nKeyCode, nShiftAltCtrlLOCAL cDisplayValueIF nKeyCode = DELKEYcDisplayValue = ALLTRIM(THIS.Value)IF LEN(cDisplayValue)=1cDisplayValue = thisform.list1.visible=.f.ELSEcDisplayValue = LEFT(cDisplayValue,LEN(cDisplayValue)-1)thisform.list1.visible=.t.thisform.lockscreen=.t.thisform.list1.RowSource=SELECT yuanb.dm,yuanb.ypmc,yuanb.gg,yuanb.dw FROM yuanb where cdisplayvalue $ yuanb.dm into cursor xxx thisform.list1.value=1thisform.lockscreen=.f.ENDIFELSEIF nKeyCode=ENTERTHISFORM.lsearchthisform.list1.visible=.f.thisform.dm.setfocuselseif nKeyCode=DOWNARROWthisform.list1.setfocusthisform.list1.value=1elsethisform.list1.visible=.t.cDisplayValue = ALLTRIM(THIS.Value)+CHR(nKeyCode)thisform.list1.visible=.t.thisform.lockscreen=.t.thisform.list1.RowSource=SELECT yuanb.dm,yuanb.ypmc,yuanb.gg,yuanb.dw FROM yuanb where cdisplayvalue $ yuanb.dm into cursor xxx thisform.list1.value=1thisform.lockscreen=.f.endiendiENDIF3.3查询设计3.3.1 卫生室购药查询：可以通过查询得到各卫生室及门诊部的用药情况，可以利用日期来查询起止日期内某个单位的用药情况。部分实现代码如下：查询.clickthisform.c1.rowsource=select distinct gydw from ck1 noconsle into cursor xxxthisform.t1.value=date()-30thisform.t2.value=date()sele ck1set filt to gydw=allt(thisform.c1.value) and rq=thisform.t1.value and rq=thisform.t2.valuego topthisform.refresh3.3.2 药品销售累计查询：可以累计查询某个单位或科室在某一时期内购入药品的合计，对于卫生室管理具有相当大的作用。具体查询代码的实现如下：查询.clicksele ltongjdele allsele distinct gydw from ck1 into cursor xxxsele ltongjappe from dbf(xxx)scansele ck1sum dj*gysl to aa for lb中草药 and gydw=ltongj.gydw and rq=thisform.r1.value and rq=thisform.r1.value and rq=1for i=1 to thisform.list1.listcountthisform.list1.removeitem(1)endfendiif thisform.optiongroup1.value=1thisform.list1.rowsource=select dm,ypmc,gg,dw from yuanb where llmc $ dm into cursor xxxelsethisform.list1.rowsource=select dm,ypmc,gg,dw from yuanb where llmc $ ypmc into cursor xxxendi 药名购药计划界面：这个界面的使用使购药更加方便，而且可以保存为EXCEL文件加以修改和保存。以下为保存为EXCEL文件的部分代码：gcdelimfile = putfile(delimited file:, (dtoc(date()+购药计划, XLS)if empty(gcdelimfile) &按了 esc 键cancelendifcopy to &gcdelimfile.xls for !dele() type xl5sele jyjhdele all3.4报表输出设计：有关输出信息使用方面的内容包括使用科室，目的，复写份数，保管方法，有效期等；使用专用纸；采用针式打印机，输出的信息内容包括输出项目，位数，数据形式。报表输出实现功能模块：在生成数据以后直接打印数据，其中预览略图如下：购入药品总汇报表：购入药品的报表一般为三份。出库药品报表：本报表一式三联。销药累计统计报表：3.5备份设计数据备份：在系统退出时自动备份，这样做可以减轻操作，保证数据的完整性。*Bf.prg*local bf1BF1=0lpath=lnpath+bfSET DEFAULT TO &lpathif month(date()=10ll=allt(str(month(date()elsell=allt(0+allt(str(month(date()endiif day(date()=10nn=allt(str(day(date()elsenn=allt(0+allt(str(day(date()endiml=allt(str(year(date()+ll+nnmm=adir(agetdir,d)for i=1 to mm if agetdir(i,1)=ml bf1=1 else bf1=2 endiendflpath=lnpath+dataif bf1=2 md &ml copy file &lpath.yuanb.dbf to &ml.yuanb.dbf copy file &lpath.yuanb.fpt to &ml.yuanb.fpt copy file &lpath.yuanb.cdx to &ml.yuanb.cdx copy file &lpath.yuanb2.cdx to &ml.yuanb2.cdx copy file &lpath.yuanb2.dbf to &ml.yuanb2.dbf copy file &lpath.kl.dbf to &ml.kl.dbf copy file &lpath.ck1.dbf to &ml.ck1.dbf copy file &lpath.gr1.dbf to &ml.gr1.dbf endiif bf1=1 dele file &ml.yuanb.dbf dele file &ml.yuanb2.dbf dele file &ml.kl.dbf dele file &ml.ck1.dbf dele file &ml.gr1.dbf copy file &lpath.yuanb.dbf to &ml.yuanb.dbf copy file &lpath.yuanb.fpt to &ml.yuanb.fpt copy file &lpath.yuanb.cdx to &ml.yuanb.cdx copy file &lpath.yuanb2.dbf to &ml.yuanb2.dbf copy file &lpath.yuanb2.cdx to &ml.yuanb2.cdx copy file &lpath.kl.dbf to &ml.kl.dbf copy file &lpath.ck1.dbf to &ml.ck1.dbf copy file &lpath.gr1.dbf to &ml.gr1.dbf endi SET DEFAULT TO &lnpath备份程序自动为备份的数据选择文件夹，自动以当前时期作为文件夹名称，即方便了使用，又可以使以后的工作更加方便。第四部分：系统测试测试方法的种类很多，什么黑盒呀，白盒测试呀！一定要打到适合自己的才最好，我这里主要运用了以下两种测试，一种是运行测试，一种是模块测试。4.1 模块测试：模块测试是测试程序模块及其接口与设计说明的要求是否一致，目的是发现程序编写阶段的错误，它以单个程序模块为测试单位，然后逐渐扩大为多模块的子系统，但不是该软件的全部。在测试过程中，虽然发现一些小问题，但一下子就解决掉了，我印象最新的是在设计查询模块时，常出现数据库打开错误。在做好备份文件时，用命令语言去实现数据的复制时，就是通不过，我找了好久，才发现是相对路径与绝对路径的的问题。最后，搞好了，又发现把这个子程序放到别的目录下时，又出现了问题。实在没有办法，我调用了DOS命令去实现，虽然这其中稍微复杂了一点，但问题是解决了。4.2 系统测试：系统测试是对该软件系统做整体测试，也称整体测试，目的在于发现设计阶段的结构错误，如模块接口定义缺陷等，这个测试我是把各个子程序有机的结合起来，连接成一个整体的系统，在测试过程之中，我发现界面差错不齐，很不统一。最后通过反复修改才逐渐完善起来。最后定型的就是你所看到的。第五部分：总结5.1 系统功能完成情况从系统功能完成情况方面考虑，这个管理系统应该说是比较成功的，功能也比较完善，界面也不错，有记录的输入、查询、数据报表的输出及数据记录的备份，不管从指导老师或同学方面的评价是比较高的，如果稍做些修改，可以加入到别的企事业单位的系统里面，作为药品管理查询系统的补充。5.2 存在的问题当然，一个程序，一个系统不可能尽善尽美的，因为学生我还要参加十月份的本科考试，时间方面有所制约。不足之处，希望你的批评指正，以便修改完善。不管好，还是差。下次，考试过后我会逐渐去完善，去补充这个系统的不足部分。5.3 此次体会与心得编一个完整的系统，写上这么多页的文档，我还是第一次，最主要的是：我在做这个综合作业时，把以前学的内容又重温了一遍，学得更透，更深，更全面了。还有一点，因为做这个作业，不知道的，我有时到网上一些讨论组里去发贴子，向高手请教，因此认识了好几个在计算机领域工作的朋友。让我知道，不会的一定要问，学无止境，有时我在编一大堆程序，还不如人家三、二句的功能强。也因此知道很多关于计算机领域的一些情况，让我学到很多课本上学不到的东西。这一门课