课程设计—药品管理系统.doc

目录一.系统分析- 1 -二.系统主要功能模块- 2 -三.数据库设计- 4 -四.各功能模块的具体设计- 5 -五.课设总结- 22-六.参与资料- 22-一、系统需求分析本系统是用来对某医院药品进行数字化管理的数据库系统，经过仔细研究分析，我决定将系统分为三大部分，分别为药品基本信息管理、药品购买与出售、后台操作管理三部分。本系统主要侧重与药品基本信息管理，在此基础上又分为基本信息维护与查询两个分支；功能界面包括进药与售药等操作；系统管理分为修改密码、数据备份、退出等部分。1. 药品基本信息维护：管理药品编号、库存、类别等，主要功能包括：数据的添加、修改、删除、打印等。2. 药品基本信息查询：有药品编号、库存、购买情况、出售情况等的查询。并实现打印预览功能，方便管理人员对药品的查询。3. 药品的购买与销售管理，可以实现进药与售药的功能管理。4. 系统管理，实现对系统的良好管理。二.系统主要功能模块1、“药品管理系统”的结构模块图（如图1）主界面登陆界面欢迎界面操作系统药品基本信息功能系统管理药品基本信息维护药品基本信息查询药品购买药品出售修改密码数据备份退出用户名密码错误正确本系统主要内容(如图2)三.数据库设计本系统的数据库包括两个表：药品基本信息表和密码表1 （药品基本信息表.dbf）本表用于记录药品的基本信息，其结构逻辑如表一所示。表1字段名称字段类型宽度小数位索引NULL药品名称C20编号N5库存N5产品类别C10购买单价Y8购买时间D8出售单价Y82 密码表(密码.dbf)本表用于记录用户名和密码，其逻辑结构如表二所示表2字段名称字段类型宽度小数位索引NULL密码C10用户号C10四.各功能模块的具体设计根据规划与分析，系统分为三个模块即药品信息管理、功能、系统管理。主要用到的文件有主控程序程序1.prg、欢迎界面.scx、登陆界面.sxc、主菜单菜单1.mpr。程序调用关系如下：主控程序中调用欢迎界面.scx，欢迎界面.scx中调用登录界面.scx，口令正确则调用主菜单，其中个子菜单项则调用相对应表单。1主控程序main.prg的代码实现为：SET ESCAPE OFFSET SAFETY OFF SET DELETED offSET SYSMENU offSET EXACT ON SEt talk OFF RELEASE WINDOWS "常用"SET CENTURY onSET DATE TO ymdSET MARK TO "-"SET HOURS TO 24 screen.visible=.t. screen.caption="医院药品管理系统" screen.icon=".dod.ico" DO FORM.欢迎界面.scx ON SHUTDOWN do onshutdown read events ON SHUTDOWN FUNCTION onshutdown() sel=MESSAGEBOX("真的要退出吗？",4+32+256,"提示") IF sel=6 CLOSE ALL CLEAR EVENTS QUIT ENDIF Endfunc2、运行主程序后，系统调用欢迎界面表单(欢迎界面.scx)(图3)进入系统是用户进入的首界面,应该给用户一个良好的印象,使用户有一个良好的心情使用系统,并且能够提高用户使用的效率,所以界面应尽量友好。下面是欢迎界面的图示(图3)图3 欢迎界面3.登陆表单(登陆界面.scx)界面设计用户名及密码验证适系统最基本也是最重要的安全管理步骤，若用户不输入正确的用户名和密码，就不能进入系统；当输入正确的用户名和密码时，系统管理会自动判断正确与否，使用户的操作具有合法性。帐户及密码验证包括用户名和密码两个部分。下面是登陆界面的图示图4 登陆界面1） 登陆界面中主要控件属性如表3所示。表3 登陆表单控件属性对象名称属性名称属性值Form1Caption登陆界面Autocenter.t.Lable1Caption账号Lable2Caption密码Command1Caption登陆Command2Caption退出2）事件代码： “登陆”按钮(COMMAND1)CLICK事件代码：set exact onSELECT 密码if allt(thisform.text1.value)="" messagebox("用户名为空,请输入!",64,"提示") thisform.text1.setfocuselse if allt(thisform.text2.value)="" messagebox("密码为空,请输入!",64,"提示") thisform.text2.setfocuselse locate for allt(用户名)=allt(thisform.text1.value);and allt(密码)=allt(thisform.text2.value) if found() do form 主界面 thisform.releaseelse messagebox("用户名和密码错误",45,"提示") thisform.text1.value="" thisform.text2.value="" thisform.text1.setfocusendif endif endif取消按钮(COMMAND2)CLICK事件代码：thisform.release 4.主界面设计当用户名和密码均正确的时候，系统便会进入系统主界面使用主菜单。如图(5)图5 主界面在药品信息管理中分为药品基本信息维护和药品基本信息查询两个菜单项；在功能菜单中分为药品购买、药品出售两个子菜单项；在系统管理中分为：修改密码、备份、退出菜单项。5. 药品基本信息维护表单(药品基本信息维护.scx)界面设计药品基本信息维护表单(如图6)包括下列功能：数据添加、修改、删除、打印预览等。本表单上边是浏览窗口；下边是编辑窗口，主要用于修改数据；右面是按钮组。如图(6）：图6药品基本信息维护1) 在表单数据环境中添加表：药品基本信息.dbf.2） 药品基本信息维护表单界面中主要控件属性如表4所示。表4 学生数据维护表单控件属性对象名称属性名称属性值Form1captionForm1AutoCenter.T.Command1caption首页Command2caption上一页Command3caption下一页Command4caption末页Command5caption添加Command6caption修改Command7caption删除Command8caption待添加的隐藏文字内容2打印预览Command9caption打印3) 事件代码： “首页”按钮的CLICK事件代码：go topthisform.refresh “上一页”按钮的CLICK事件代码：if not bof()skip-1thisform.refreshelsemessagebox("已经是第一个")endif “下一页”按钮的CLICK事件代码：if not eof()skip 1thisform.refreshelsemessagebox("已经是最后一个")endif “末页”按钮的CLICK事件代码：go bottthisform.refresh “添加”按钮的CLICK事件代码：if this.caption="添加"this.caption="保存"endifselect 药品基本信息表append blankgo bottthisform.txt药品名称.setfocus()thisform.refresh “修改”按钮的CLICK事件代码：select 药品基本信息表replace 药品名称 with thisform.txt药品名称.valuereplace 编号 with thisform.txt编号.valuereplace 库存 with thisform.txt库存.valuereplace 产品类别 with thisform.txt产品类别.valuereplace 购买单价 with thisform.txt购买单价.valuereplace 出售单价 with thisform.txt出售单价.value messagebox("修改成功")thisform.refresh“删除”按钮的CLICK事件代码：if messagebox("确定删除记录吗?",4+32,"确定")=6.delepackskipif eof()skip-1endifendifthisform.refresh“取消”按钮的CLICK事件代码：thisform.Release “打印预览”按钮的CLICK事件代码：REPORT FORM 药品基本信息一览表.frx preview4）运行界面：(如上图)6. 药品基本信息查询表单（药品基本信息查询.scx）的设计药品基本信息的查询如图7，是基于药品基本信息表.dbf表，提供药品名称、编号、类别等查询，并能实现查询打印预览功能。设计界面如图（7）：图7药品基本信息查询表单1） 在表单数据环境中添加表：药品基本信息.dbf.2） 药品基本信息查询表单界面中主要控件属性如表5所示。表5学生信息查询表单控件属性对象名称属性名称属性值Form1AutoCenter.T.Command1caption首页Command2caption下一页Command3caption上一页Command4caption末页Command5caption取消Command6caption查询Command7caption打印预览Command8caption打印3） 各事件的代码如下：“查询”按钮的CLICK事件代码：locat for allt(药品名称)=allt(thisform.text1.value)if found() thisform.refresh wait"" else messagebox("记录没有找到",6,"信息")endif“打印预览”按钮的CLICK事件代码REPORT FORM 药品基本信息一览表.frx preview：“打印” 按钮的CLICK事件代码REPORT FORM 药品基本信息一览表.frx TO printer“取消” 按钮的CLICK事件代码：thisform.release该表单的运行图示如上（图7）7.药品购买.scx表单的设计该界面可以实现对药品的购买功能。设计界面如下（图8）：图8药品购买表单1） 将药品基本信息表.dbf添加到该表单的数据环境中。2） 药品购买表单界面中主要控件属性如表6所示。表6药品购买表单控件属性对象名称属性名称属性值Form1AutoCenter.T.Command1caption确认Command2caption取消Command3caption查询3) 各事件代码如下：COMMAND1的CLICK事件代码：select 药品基本信息表y=val(thisform.text1.value)locate for alltrim(药品名称)=alltrim(bo1.value) if found() if y<=库存 replace 库存 with 库存+y messagebox("购买成功") endif endif messagebox("输入成功",1,"提示")COMMAND2的CLICK事件代码：thisform.releaseCOMMAND3的CLICK事件代码：locat for allt(药品名称)=allt(bo1.value)if found() thisform.refresh wait"" else messagebox("记录没有找到",6,"信息")endif该表单的运行图示如上图8.药品出售.scx表单的设计该界面可以实现对药品的出售功能。设计界面如下（9）：图9药品出售表单1） 将药品基本信息表.dbf添加到该表单的数据环境中。2） 药品出售表单界面中主要控件属性如表7所示。表7药品购买表单控件属性对象名称属性名称属性值Form1AutoCenter.T.Command1caption确认Command2caption取消Command3caption查询3）各事件代码如下：COMMAND1的CLICK事件代码：select 药品基本信息表y=val(thisform.text1.value)locate for alltrim(药品名称)=alltrim(bo1.value) if found() if y<=库存 replace 库存 with 库存-ymessagebox("出售成功")else messagebox("数量不足") endif endif messagebox("输入成功",1,"提示")COMMAND2的CLICK事件代码：thisform.releaseCOMMAND3的CLICK事件代码：locat for allt(药品名称)=allt(bo1.value)if found() thisform.refresh wait"" else messagebox("记录没有找到",6,"信息")endif该表单的运行图示如上图9.修改密码表单(修改密码.scx)设计修改密码：实现密码的修改，是保护用户使用安全的主要功能之一。修改密码的设计界面如下：(图10)1）将密码dbf添加到该表单的数据环境中。2）修改密码表单界面中主要控件属性如表8所示。表8修改密码表单控件属性对象名称属性名称属性值Form1AutoCenter.T.Command1caption确定Command2caption退出3） 各事件代码如下：COMMAND1的CLICK事件代码：use 密码locate for allt(用户名)=alltrim(thisform.text1.value)if found () and alltrim(thisform.text2.value)=alltrim(密码) if thisform.text3.value=thisform.text4.value replace 密码.密码 with thisform.text3.value messagebox("修改完成","提示") release thisform else messagebox("密码不一致!") thisform.text3.setfocus() endifelse messagebox("原密码或用户号错误!") thisform.text2.setfocus()endif COMMAND2的CLICK事件代码：thisform.Release该表单的运行图示如下(图10)图10 修改密码10.数据备份表单(备份.scx)设计数据备份：实现数据的备份，是保护重要资料不被丢失，有保存资料完整性的功能。数据备份的设计界面如下：(图11)图11数据备份1） 签到管理表单界面中主要控件属性如表11所示。表11签到管理表单控件属性对象名称属性名称属性值Form1AutoCenter.T.Command1caption开始备份Command2caption退出Command3captionCommand4caption2） 各事件代码如下：COMMAND1的CLICK事件代码：close allyml=thisform.text1.valuembml=thisform.text2.valuecopy file &yml*.dbf to &mbml*.dbfmessagebox("数据备份完毕!","提示")COMMAND2的CLICK事件代码：thisform.releaseCOMMAND3的CLICK事件代码：thisform.text1.value=getdir()COMMAND4的CLICK事件代码：thisform.text2.value=getdir()该表单的运行图示如下(图12) 图12数据备份11.系统菜单的设计系统菜单的设计主要分为药品信息管理、功能、系统管理，药品信息管理下设置了信息查询与信息维护两项，功能菜单下设置了药品购买与出售两项，系统管理下设置了修改命令、备份、退出三项。各项调用相应的表单。最终实现对医院药品的管理。五.课设总结本学期刚开始得知我们要开设数据库技术及应用这门课程后，我们对这门课程就非常的期待，但期待之余又有点担心，因为之前听说比较难学。我觉得数据库技术及应用这项知识是一种财富，它将对我们今后的工作以及学习带来很大的便利。本次课程设计师我在本学期学到的数据库及应用系统开发的只是的到了应用，真正掌握了vf制作程序的基础内容，同时学到了很多计算机知识，在制作程序的过程中虽然遇到了很多困难，但是通过老师和同学们的帮助都一一解决，最后看到自己制作的可执行软件心里还是很满足和满意的。这次系统设计过程中，让我学到了很多。做一件事情，首先要有一个良好的态度，认真对待事情，不能马马虎虎了事。在系统课程设计过程中，由于遇到很大很多的困难，曾想从网上拷贝相同的交差完事，但在老师的指导下，最终得以自己完成，并从中学到了很多关于数据库设计以及编码实现有了清晰的认识。六.参与资料1 张洪举.专家门诊Visual FoxPro开发答疑160问. 北京:人民邮电出版社,20032 周芬计算机应用教程上海：枫城出版社，20063 张洪举.Visual Foxpro程序设计参考手册. 北京:人民邮电出版社,2003