药品管理系统实习报告.doc

河 南 城 建 学 院实习报告 实 习 类 别： 数据库应用课程设计 实 习 课 题： 药品管理系统 系 别： 测绘与城市空间信息系 专 业： 测绘工程 姓 名 学 号： 谢亚坤061411248 杨希光061411249 张金鹏061411252 张栋梁061411254 指 导 教 师： 毛政利、苗东利 邢晓娜、张宏敏 完 成 时 间： 2012年12月 河南城建学院实习报告 目录 1本组课题及任务分配.22系统需求及调查分析.33系统设计.4 3.1系统总体设计流程图.4 3.2系统详细设计.5 3.3数据库设计.64系统实施.8 4.1启动功能.8 4.2登录界面.9 4.3主界面界面.10 4.4信息查询界面.10 4.5信息管理界面.11 4.6打印界面.12 4.7系统管理.13 4.8关于.17 4.9退出界面 .185设计体会.196参考书目.20 第 21 页 共 22 页1本组课题及任务分配 本组课题：药品管理系统 任务分配： 谢亚坤：用户表、药品信息表、生产信息表、供应商信息表、登陆页面及最后的修改美化。 杨希光：启动界面、用户注册表单、注销用户表单、修改密码表单及其退出表单。 张金鹏：生产厂家信息查询表单、供应商信息查询表单、药品信息查询表单以及关于表单。 张栋梁：生产厂家信息管理表单、供应商信息管理表单、药品信息管理表单以及帮助表单。2. 系统要求及调查分析 2.1系统要求 经过对药品管理的要求分析，可知要完成此系统需要时系统具有以下一些基本的功能，以便适合用户操作及管理。 (1)系统用户在初始化药品管理的时候的时候，要能添加药品，建立药品库，对所有药品实行编码并生成相应的编号。药品添加要把药品所有信息进行添加，包括药品编号、药品通用名、剂型、规格、生产地址、适应症等内容；对于添加的药品数据信息也可以进行相应的修改，或者删除，全凭用户需要。 （2）系统用户需要能使用正确的密码登陆进入主程序，并且在主程序中能对密码进行修改以及添加新用户和注销以往用户。 （3）系统能够准确的查询和管理生产厂家信息，生产厂家信息，包括生产厂家编号、公司全称、地址、电话、联系人等内容；对于添加的生产厂家信息也可以进行相应的修改或者删除以上各种操作全可凭用户的需求而定。 （4）系统能够准确的查询和管理供应商信息，包括供应商编号、全称、地址、联系电话、联系人、开户银行等内容；对于添加的供应商信息可以由用户进行相应的修改或者删除等操作，全由用户需求而定。 （5）除以上系统主要需求外还需要以下内容完成系统，其中包括启动页面，在系统操作时的帮助和关于系统的信息，以及最后的退出页面。 2.2调查分析 通过对药品管理系统的分析和功能的需求，经调查分析后可知系统需要以下表格及内容来充实各个方面的信息和完成一些基本的实践性操作。 （1）药品信息，包括药品编号、药品通用名、剂型、规格、生产地址、适应症等内容； （2）用户信息，包括用户名及密码等内容； （3）生产厂家信息，包括生产厂家编号、公司全称、地址、电话、联系人等内容； （4）供应商信息表，包括供应商编号、全称、地址、联系电话、联系人、开户银行等内容；3. 系统设计 3.1系统总体设计流程图 用户注册 注销用户 修改密码 帮 助 关 于 供应商信息查询生产厂家信息管理 药品信息管理 供应商信息查询 生产厂家信息查询 药品信息查询 系统管理 打 印 退 出 关 于 维 护 查 询 菜单界面 登陆页面 程序启动 3.2系统详细设计 由上节系统设计流程图可知系统的大概流程，又经过对药品管理的要求分析，及系统需求可知要完成此系统需要时系统具有以下一些基本的功能，以便适合用户操作及管理。也就是药品管理系统的详细设计有如下内容。 （1）点击快捷方式后能够显现出启页面并顺序显示出登陆表单以便于下一步的操作。(2)系统用户在初始化药品管理的时候的时候，要能添加药品，建立药品库，对所有药品实行编码并生成相应的编号。药品添加要把药品所有信息进行添加，包括药品编号、药品通用名、剂型、规格、生产地址、适应症等内容；对于添加的药品数据信息也可以进行相应的修改，或者删除，全凭用户需要。 （3）系统能够准确的查询和管理生产厂家信息，生产厂家信息，包括生产厂家编号、公司全称、地址、电话、联系人等内容； 对于添加的生产厂家信息也可以进行相应的修改或者删除以上各种操作全可凭用户的需求而定； （4）系统能够准确的查询和管理供应商信息，包括供应商编号、全称、地址、联系电话、联系人、开户银行等内容； 对于添加的供应商信息可以由用户进行相应的修改或者删除等操作，全由用户需求而定； （5）系统用户需要能使用正确的密码登陆进入主程序，并且在主程序中能对密码进行修改以及添加新用户和注销以往用户； （6）具有一个关于页面，能够显示对本系统的帮助选项以及关于本系统的一些信息； （7）系统能够正常的退出，并且有一个退出页面，显示是否确定退出以免操作失误； 3.3数据库设计 3.3.1.用户表 3.3.2.药品信息表 3.3.3.生产厂家信表 3.3.4.供应商信息表注：以上都是数据库中相关表，通过各个表的属性给对应的表中添加相应的数据，再导入到程序中进行添加，查询，修改，删除，插入等功能。每个表之间建立存储过程以及触发器来进行手动的查询，存储。4. 系统实施 4.1启动界面 4-1.启动页面启动代码：this.timer1.Interval=100Public i as Integeri=1转入登录页面代码：i=i+1if i=20 thendo form 登录表单.scxthisform.releaseEndif 4.2.登录界面 4-2.登录页面登录代码：count=count+1loca for ALLTRIM(用户表.用户名)=alltrim(bo1.value)IF thisform.text1.Value=MESSAGEbox(输入不能为空！)elseif found()and ALLTRIM(用户表.密码)=alltrim(thisform.text1.value)DO FORM 主界面.scxrelease thisformelseif count3 then=messagebox(输入有误！,48,警告)elsemessagebox(对不起您是非法用户，系统将自动退出！,48,警告)quitendifendifEndif 4.3.主界面界面 4-3.主界面代码：thisform.windowstate=0 do 主菜单.mpr with this,Tthisform.release 4.4.信息查询界面 4-4.生产厂家信息查询代码：cz=ALLTRIM(Thisform.Text1.value) n=RECNO() GO TOP SCAN IF 生产厂家信息表.编号=cz OR 生产厂家信息表.公司全称=cz Thisform.Text1.value=Thisform.Text1.SetFocus Thisform.Refresh RETURN ENDIF ENDSCAN MESSAGEBOX(该生产厂家信息不存在！,0,查找失败)GO n Thisform.Text1.Value=Thisform.Text1.SetFocus Thisform.Refresh 4.5.信息管理界面 4-5.供应商信息管理 4.6.打印界面 4-6-1.打印界面代码：report form 药品信息报表 noco for 通用名=bo1.value prevreport form 供应商信息报表 noco for 全称=bo2.value prevreport form 生产厂家信息报表 noco for 公司全称=bo3.value prev 2-6-2.打印界面预览 4.7.系统管理 4.7.1.修改密码界面 4-7-1.修改密码代码：if empty(thisform.text4.value) mess=messagebox(用户名不能为空！,48,警告)else if empty(thisform.text1.value) mess=messagebox(旧密码不能为空！,48,警告) else if empty(thisform.text2.value) mess=messagebox(新密码不能为空！,48,警告) else if empty(thisform.text3.value) mess=messagebox(重复密码不能为空！,48,警告) else if alltrim(thisform.text2.value)alltrim(thisform.text3.value) or len(alltrim(thisform.text2.value)len(alltrim(thisform.text3.value) mess=messagebox(二次密码不一致！,48,警告) else locate for alltrim(用户名)=alltrim(thisform.text4.value) and alltrim(密码)=alltrim(thisform.text1.value) if eof() mess=messagebox(密码错误，系统将取消你的修改权利！,48,警告) thisform.release else repl 密码 with alltrim(thisform.text3.value) mess=messagebox(密码修改成功！,48,信息) thisform.release endif endif endif endif endif endif 4.7.2.用户注册界面 4-7-2.用户注册代码：use 用户表 excl public u1,pw1 u1=allt(thisform.text1.value) pw1=allt(thisform.text2.value) if empty(thisform.text1.value) messagebox (用户名不能为空！,48+0,添加新用户) thisform.text1.setfocus else locate for allt(用户名)=u1 if found() messagebox(该用户名已存在,48+0,添加新用户) thisform.text1.setfocus else if thisform.text2.value=thisform.text3.value tempstr= for i=1 to len(trim(pw1) tempchr=bitxor(asc(subs(pw1,i,1),123) tempstr=tempstr+chr(tempchr) endfor dimension b(1,2) b1,1=u1 b1,2=tempstr append from array b messagebox(添加成功,48+0,添加新用户) release thisform else messagebox(两次密码输入不一致,请重新输入,48+0,添加新用户) thisform.text3.setfocus endif endif endif 4.7.3.注销用户界面 4-7-3.注销用户代码：USE 用户表.dbf EXCLUSIVE LOCATE ALL FOR 用户名=ALLTRIM(thisform.Text1.value)IF EOF()MESSAGEBOX(注销用户不存在！,48,温馨提示)ELSEIF thisform.Text1.Value=MESSAGEBOX(注销不能为空！,48,温馨提示)elsea=messagebox(是否删除？,4+32+0,温馨提示)if a=6dele ALL FOR 用户名=ALLTRIM(thisform.Text1.value) packmessagebox(删除成功！)ENDIFENDIFthisform.Refresh 4.8.关于 4.8.1.帮助界面 2-8-1.帮助 4.8.2.关于界面 4-8-2.关于界面4.9.退出界面 4-9.退出代码：quit以上即为系统实施的主要内容，包括每一功能模块的表单界面、实现功能、表单控件及主要属性、事情相应代码、程序文件等5. 设计体会为了提高我们的实践能力，让我们学以致用，能灵活运用所学的知识进行再创造，学校特安排我们进行为期三周的数据库应用课程设计实习，并安排了指导老师帮助辅导，让我们在规范化、严谨化、实用化上面有了很大进展。在此次药品管理系统程序开发过程中，有很多东西值得我们思考并总结。开发过程大体可分为以下几个步骤：（1）思考总体设计方案：总体结构和模块外部设计，功能分配。思考要实现整个程序大体需要的几个模块和其中用到的代码语言，数据库语言基本操作符、语句等。（2）画出总体设计方案流程图：用流程图的形式展现我们的基本编程思想。（3）流程图具体化：即将流程图中的几大模块的具体实现思考清楚，可以用流程图的形式展现并想好实现的关键代码。（4）编辑程序代码：这是一个至关重要复杂而且需要反复修改的环节，在此环节中你将发现总体设计和模块思想会存在很多问题，需不断改进如何实现各函数功能，达到预