管理信息系统课程设计 医药管理信息系统.doc

《管理信息系统课程设计 医药管理信息系统.doc》由会员分享，可在线阅读，更多相关《管理信息系统课程设计 医药管理信息系统.doc（41页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、目录一、项目说明2二、系统分析4三、系统设计5四、程序设计14五、系统测试37六、设计总结38 七、参考文献、致谢39医药销售系统课程设计报告一、 项目说明 （一）项目背景 随着中国经济的快速发展，医药生产企业迫切需要采用新的销售管理方法来加强内部医药代表管理和客户管理，高效的处理销售业务，掌握销售状况，降低运作成本。同时医药代表也希望有方便实用的工具，以便进行各类数据的查询，管理以及提交。以往的医药信息管理系统由于技术的限制，已经无法适应医药的发展。因此开发新的医药系统迫在眉睫。 医药销售管理系统用于管理与药品相关的信息与活动，但不包括产品信息、库存数据与销售活动。使用了基于Visual F

2、oxPro技术为系统奠定了安全、稳定、高效、炫丽的技术基础。给公司提供方便，稳定的服务。（二）使用环境 医药企业的市场营销环境是一个复杂的系统工程，它由相互作用、互相依赖的若干要素组成。一般可以分为内部和外部或宏观和微观两个方面。现分别介绍如下。 (1) 宏观营销环境：医药企业宏观营销环境，是指影响企业生产经营的经济环境、科技环境、政治法律环境、社会文化环境和自然环境等要素（详细内容参阅本章余下内容）。它们共同组成了企业生产经营的制约力量，具体地规定或引导企业生产什么、生产多少、如何生产、如何销售等。用在通常意义上说，这是企业不可控制的因素，只能顺应它、利用它，而较少地能够改变它。这几个方面的

3、内容各自又可细分为若干个子项目，也都会直接或间接、有形或无形地影响着企业的生产经营活动。因此，医药企业在进行市场营销环境分析时，首先应对外部宏观环境进行科学严谨的调查研究，以期把不利变为有利，使其营销活动完全符合环境的要求。 (2)微观营销环境：医药企业市场营销微观环境是指对企业营销活动产生直接影响的介于 4Ps 策略与宏观环境之间的一种营销环境，它包括营销部门所在的企业、供应商、营销中介、顾客、信息、竞争者和公众等因素。一个企业能否成功地开展营销活动，不仅取决于能否适应宏观环境的变化，适应和供应者环境是指那些向医药企业提供开展市场营销活动所需物资与资金的企业的状况。医药企业的营销活动，包括供

4、、产、销各个不同环节，都需要大量的物资与资金作保证，因而需要许多部门或企业为之服务，为之供应所需的一切。通常医药企业的供应者有以下成员组成： 资源供应者。他们生产医药企业所需要的机械设备、原材料、能源及零部件等生产资源，或者提供所需的资金，并把这些资源供应给企业。 物资供应商。物资供应商即物资经营部门，他们收购生产企业生产的各种物质资料，再提供给需要这些产品的医药企业。 运输部门。他们把资源供应者生产的物资运送到物资供应商或购买的医药企业手中，也从物资供应商那里把物资运送给各个医药企业。 便利供应部门，如保险公司、咨询机构等，他们为物资的供应提供各种方便条件，共同完成向医药企业提供物资与资金方

5、面的任务。影响微观环境的变化也是非常重要的。以下是企业微观营销环境主要内容。 （三）系统设计思想 本系统的设计思想是，系统采用模块化的程序设计方法，既便于系统功能的各种组合和修改，又便于管理人员的维护。系统应具备数据库维护功能，及时根据用户的需求进行数据的查询、添加、删除、修改等操作。（四）项目规划（1）分工： 组长：xx，进行系统程序设计，完成连编，组织成员任务分配等系列工作。 文秘：xxx，负责课程设计报告，指导成员工作，负责打印等工作。组员：xxx，负责部分表单设计，制作表格等工作。组员：xx，负责部分表单设计，制作表格等工作。（2）进度：2012年6月5日：分配小组，组织成员，进行讨论

6、。2012年6月6日：到图书馆查阅资料，确定主题，并进行讨论。2012年6月7日至8号：完成系统设计，并完成连编，成功运行系统。 2012年6月9号至10号：系统程序的检验，完成课程设计报告，并检查相关系统。二、 系统分析（一） 组织模块功能图 医药销售系统备忘录药品出库药品入库药品出库药品入库客户信息退出系统密码管理系统管理信息管理药品管理记录查询 其它 供应信息（二）系统流程图客户销售部销售订单仓库提货单财务部付款单结算管理发票采购部供应商入库单入库处理存档存档采购订单发货单库存状态缺货单发货处理领药单仓库存档入库单三、 系统设计（一）数据库的设计 在创建应用系统之前，必须先考虑与数据有关

7、的一些问题。比如系统需要使用和处理哪些数据，这些数据组织成几个表才方便程序的设计和用户的使用，每个表需要设计哪些字段合适，每个字段应该定义成什么数据类型，需要建立哪些索引才便于操作等等。 本系统共设计了7个表，分别是、药品信息表（yaopinxinxi） 、客户信息表（kehuxinxi）、供应商表（gongyingshang）、备忘录信息表（beiwangluxinxi）、药品入库信息表（rukuxinxi）和药品出库信息表（chukuxinxi）。用户密码表（pass）数据库7个表的结构分别如下： 药品信息表 字段名字段类型宽度标题ypbh字符型4药品编号ypmch字符型16药品名称jj货

8、币型8进价shj货币型8售价pfj货币型8批发价zhl字符型8质量shl整型4数量jyy字符型8检验员yply字符型14药品来源lxr字符型8联系人yxrq日期型8有效日期jhrq日期时间型8进货日期客户信息表字段名字段类型宽度标题bh整型4编号xm字符型8姓名dh字符型20电话dzh字符型20地址yx字符型24邮箱zhl字符型8质量供应商表字段名字段类型宽度标题bh字符型4编号gsmch字符型16公司名称dh字符型30电话dzh字符型30地址wzh字符型24网址jyyl字符型20经营药类备忘录信息表字段名字段类型宽度标题xh字符型4序号nr字符型254内容zdsj字符型30电话dzh日期型8

9、制定时间zdr字符型10制定人药品入库信息表字段名字段类型宽度标题ypbh字符型4药品编号ypmch字符型16药品名称jj货币型8进价shj货币型8售价 pfj货币型8批发价zhl字符型8质量shl整型4数量jyy字符型8检验员yply字符型14药品来源lxr字符型8联系人jhrq 日期时间型8进货日期药品出库信息表字段名字段类型宽度标题ypbh字符型4药品编号ypmch字符型16药品名称shj货币型8售价shl数值型6数量khlb字符型6客户类别khmch字符型1客户名称yfje货币型8应付金额shfe货币型8实付金额zhb货币型8找补xshrq日期时间型8销售日期用户密码表字段名字段类型宽

10、度标题yhm字符型10用户名yhmm字符型10用户密码yhlx字符型10用户类型 选择系统菜单中“数据库”菜单下的“新建表”选项建立新的数据库后，“新建表”对话框中单击“新建表”按钮，按照如上分别建立这7个数据表。数据表都建立完成后，截图如下：(二)创建主程序打开mis项目文件，在 “项目管理器-mis”窗口中，单击“代码”选项卡，选中“程序”项，单击项目管理器窗口右边的“新建”按钮。就可在新弹出的程序代码编辑窗口中输入程序的以下代码内容，保存即可。public bwlbwl=substr(alltrim(sys(5)+curdir(),1,len(alltrim(sys(5)+curdir(

11、)-1)set default to &bwl Set path to forms;progs;reports;menus;data;graphics;graphicspic;graphicsicoset exact onset confirm offset escape onset safety onset status offset scoreboard offset decimals to 3set talk offset sysformats onset century onset date to ansizoom window screen maxclose allrelease w

12、indow 常用set sysmenu to_screen.caption=欢迎使用医药营销系统_screen.picture=14.jpg_screen.minbutton=.f._screen.maxbutton=.f._screen.controlbox=.f.do form fm.scxread even（三）Fm.scx系统密码验证主表单设计控件设置：（1）表单的“Load”代码： public ca,cb,cc &设置全局变量，记录RGB( )函数的自变量的值 ca=0 cb=0 cc=0（2）表单的“Unload”代码： release ca,cb,cc &释放全局变量 标签主要

13、属性设置Label1Label2Label3Label4Label5Caption医药销售系统欢迎使用用户名称：用户密码：开发设计：工商管理小组Ver 1.0 2012年06月AutoSize.T.T.T.T.T.BackStyle0-透明0-透明0-透明0-透明0-透明FontBold.T.T.T.T.T.文本框的主要属性设置AlignmentEnabledFontSizeHeightLeftPasswordCharText10-左.T.1226224Text20-左.T.1226224* 命令按钮的主要属性设置AutoSizeCancelCaptionDefaultFontSizeHeig

14、htWidthCommand1.F.F.确定.T.183079Command2.F.T.取消.F.183079(1)“确定”按钮的“Click”事件代码如下：public yhkl,yhname &定义全局变量，记录登录用户的名称和密码，以便系统分配用户权限yhkl=alltrim(thisform.text2.value) &保存用户输入的名称和密码yhname=alltrim(thisform.text1.value)use pass &打开保存已注册用户的用户名和密码的表文件*以下代码是检验用户名称和密码loca all for lower(alltrim(yhm)=lower(allt

15、rim(yhname)if eof() *不是合法注册用户，给出警告 =messagebox(你不是合法注册用户！,0,真遗憾) return thisform.text1.setfocus else *用户名正确，再检验用户密码 lsyhlx=alltrim(yhlx) if lower(alltrim(yhmm)=lower(alltrim(yhkl) use thisform.release set dele on set notify off set cent on set date to ansi close all RELEASE WINDOW 常用 MODIFY WINDOW S

16、CREEN TITLE 医药销售系统 ver1.0 登录用户:+yhname+(+lsyhlx+)+ 今天是：+dtoc(date() _SCREEN.ICON=face05.ico _SCREEN.picture=pc1.jpg ZOOM WINDOW SCREEN MAX _SCREEN.controlbox=.f. do mainmenu.mpr &当用户名和密码都正确时，关闭当前表单，运行主菜单进行系统 else *不是合法注册用户，给出警告 =messagebox(密码不正确，请你再好好想想！,0,真遗憾) return thisform.text2.setfocus endif E

17、ndif(2)“取消”按钮的“Click”事件代码如下：thisform.releaseclear evenQuit(3)“计时器”控件Interval属性为100。“Timer”代码如下：if ca255 ca=ca+1 else ca=90endifif cb255 cb=cb+1 else cb=180endifif ccthisform.width thisform.label2.forecolor=rgb(ca,cb,cc) Thisform.Label2.left=-199 thisform.label2.left=Thisform.Label2.left+10 Else this

18、form.label2.forecolor=rgb(ca,cb,cc) Thisform.Label2.left=Thisform.Label2.left+10EndIfIf Thisform.Label5.Left=-394 Thisform.Label5.Left=thisform.width Thisform.Label5.Left = Thisform.Label5.Left -10 Else Thisform.Label5.Left = Thisform.Label5.Left -10EndIfThisform.refresh （三）系统菜单的设计 （1）“系统管理”子菜单编辑为“密

19、码管理”、“-”“退出系统”“密码管理”的过程代码：set dele ondele all for len(alltrim(yhm)=0loca all for alltrim(yhm)=alltrim(yhname)if alltrim(yhlx)=系统管理员 use do form mmgl else nAnswer=messagebox(很抱歉!您不是系统管理员无权查阅和更改用户名和密码!,0,警告!) use returnEndif “退出系统”的过程代码：ans=messagebox(确信要退出系统吗？,4,确认信息)if ans=6 close all clear event qu

20、it else returnEndif（2）“信息操作管理”子菜单编辑为“客户信息管理”和“供应商信息管理”“客户信息管理”的过程代码: use kehuxinxi pack use do form kehu “供应商信息管理”的过程代码: use gongyingshang pack use do form gys（3）“药品管理”子菜单编辑为“药品入库管理”和“药品出库管理”“药品入库管理”的过程代码：use rukuxinxipackusedo form yprk“药品出库管理”的过程代码：use chukuxinxipackusedo form ypck（4）“记录查询”子菜单编辑为“

21、药品入库查询”和“药品出库查询”“药品入库查询”的过程代码：use rukuxinxipackusedo form rkjl“药品出库查询”的过程代码：use chukuxinxipackusedo form ckjl(5)“其他”子菜单编辑为“备忘录”“备忘录”的过程代码：use beiwangluxinxipackusedo form bwl四、 程序设计本系统除去主表单设计外，内容表单分别有密码管理表单、客户信息表单、供应商表单、药品入库表单、药品出库表单、入库记录查询表单、出库记录查询表单、备忘录表单等8个项目表单。其主要程序设计如下：（一）Mmgl.scx密码管理表单设计（1）表单的

22、主要属性：AutoCenter=.T.BorderStyle=“2-固定对话框”Caption=“用户密码管理”Height=299Icon=“c:misgraphicsicocontrol panel.ico”MaxButton=.F.MinButton=.F.Width=582WindowState=0-普通（2）文本框的主要属性：ControlSource=“无”Enabled=.f.FontName=“宋体”FontSize=11Height=25（3）组合框的主要属性：BoundColumn=1ColumnWidths=“无”ControlSource=“无”Enabled=.f.F

23、irstElement=1FontName=“宋体”FontSize=11Height=25Left=380ReadOnly=.f.RowSource=“系统管理员，普通用户”RowSourceType=“1-值”SelectOnEntry=.t.Style=“0-下拉组合框”Top=258Width=114（4）表格控件的主要属性：ColumnCount=3DeleteMark=.f.Enabled=.t.FontName=“宋体”FontSize=11GridLineColor=“0,0,255”GridLineWidth=1HeaderHeight=20Height=223Left=9R

24、eadOnly=.t.RecordMark=.t.RecordSource=“pass”RecordSourceType=“1-别名”RowHeight=20Top=27Width=485（5）表单的“Init”事件代码：public xgbzhi,recxgbzhi=.f.rec=0set deleted onmand2.enabled=.t.mand1.enabled=.t.mand3.enabled=.t.mand4.enabled=.f.mand5.enabled=.t.mand6.enabled=.f.mand2.setfocus（6）“删除”命令按钮的“Click”事件代码：sel

25、e passif eof().or.bof() nAnswer=messagebox(你还没有选择要删除的注册用户记录！请选定一个要删除的用户！,0,警告！) returnendifdelemand2.enabled=.t.mand1.enabled=.t.mand3.enabled=.t.mand4.enabled=.f.mand5.enabled=.t.mand6.enabled=.f.Thisform.refresh（7）“修改”命令按钮的“Click”事件代码：if eof().or.bof() nAnswer=messagebox(你还没有选择要修改的注册用户记录！请选定一个要修改的

26、用户！,0,警告！) returnendifthisform.text1.enabled=.t.thisform.text2.enabled=.t.bo1.enabled=.t.mand2.enabled=.f.mand1.enabled=.f.mand3.enabled=.f.mand4.enabled=.t.mand5.enabled=.t.mand6.enabled=.t.thisform.grid1.enabled=.f.rec=recno()thisform.text1.value=yhmthisform.text2.value=yhmmbo1.value=yhlxxgbzhi=.t

27、.thisform.text1.setfocus（8）“增加”命令按钮的“Click”事件代码：thisform.text1.enabled=.t.thisform.text2.enabled=.t.bo1.enabled=.t.mand2.enabled=.f.mand3.enabled=.f.mand1.enabled=.f.mand4.enabled=.t.mand5.enabled=.t.mand6.enabled=.t.thisform.grid1.enabled=.f.thisform.text1.value=space(20)thisform.text2.value=space(

28、20)bo1.value=普通用户xgbzhi=.f.rec=0thisform.text1.setfocus（9）“保存”命令按钮的“Click”事件代码：if len(alltrim(thisform.text1.value)=0 .or.len(alltrim(thisform.text2.value)=0 nAnswer=messagebox(用户名、用户密码不能为空值！请再仔细检查一下！,0,警告！) return thisform.text1.gotfocusendifif alltrim(bo1.value)!=普通用户.and.;alltrim(bo1.value)!=系统管理

29、员 nAnswer=messagebox(用户类型只允许为“普通用户”或“系统管理员”！请再仔细检查一下！,0,警告！) return bo1.setfocusendifsele passdele all for len(alltrim(yhm)=0if xgbzhi set dele on go rec dele locate all for alltrim(yhm)=alltrim(thisform.text1.value) if .not.eof() nAnswer=messagebox(用户名已存在！请换改用其他名字！,0,警告！) set dele off go rec recall

30、 set dele on return thisform.text1.gotfocus endif set dele off go rec recall repl yhm with alltrim(thisform.text1.value) repl yhmm with alltrim(thisform.text2.value) repl yhlx with alltrim(bo1.value) set dele on else locate all for yhm=alltrim(thisform.text1.value) if .not.eof() nAnswer=messagebox(用

31、户名已存在！请换改用其他名字！,0,警告！) return thisform.text1.gotfocus endif appe blank go bott repl yhm with alltrim(thisform.text1.value) repl yhmm with alltrim(thisform.text2.value) repl yhlx with alltrim(bo1.value)endifthisform.text1.value=space(20)thisform.text2.value=space(20)bo1.value=普通用户thisform.text1.enabl

32、ed=.f.thisform.text2.enabled=.f.bo1.enabled=.f.mand2.enabled=.t.mand1.enabled=.t.mand3.enabled=.t.mand4.enabled=.f.mand5.enabled=.t.mand6.enabled=.f.thisform.grid1.enabled=.t.Thisform.refresh（10）“取消”命令按钮的“Click”事件代码：thisform.text1.value=thisform.text2.value=bo1.value=thisform.text1.enabled=.f.thisfo

33、rm.text2.enabled=.f.bo1.enabled=.f.mand2.enabled=.t.mand3.enabled=.t.mand1.enabled=.t.mand4.enabled=.f.mand5.enabled=.t.thisform.grid1.enabled=.t.this.enabled=.f.thisform.text1.setfocus（11）“退出”命令按钮的“Click”事件代码：release xgbzhi,rec（二）Kehu.scx客户信息表单设计控件设置：对 象 类 型 对 象 名 属 性 设 置表单Form1Caption客户信息Iconmisc2

34、8.ico.文本框Text1数据类型数值Enabled.F.-假文本框Text2数据类型字符Enabled.T.-真文本框Text3数据类型字符Enabled.T.-真文本框Text4数据类型字符Enabled.T.-真文本框Text5数据类型字符Enabled.T.-真命令按钮CmdtjCaption添加A命令按钮CmdbcCaption保存CEnabled.F.-假命令按钮CmdshchCaption删除DEnabled.F.-假命令按钮CmdtchCaption退出【ESC】Cancel.T.-真表格Grid1ReadOnly.T.-真RecordSourceKehuxinxiRecor

35、dSourceType1-别名（1）“添加”按钮的 Click事件代码： ThisForm.Cmdbc.Enabled = .T. &使保存按钮处于可用状态 Select kehuxinxi &选择客户信息表 If RECCOUNT()=0 then &如果表中的记录数为零，则客户编号为1 kehubh=1 Else &如果表中的记录数不为零，则客户编号为最大客户编号加1 Select MAX(bh) as zuidabh From kehuxinxiinto cursortemp kehubh=zuidabh+1 Endif ThisForm.Text1.Value =kehubh &将计算

36、出来的客户编号写到文本框Text1中 ThisForm.Text2.SetFocus （2）“保存”按钮的 Click事件代码： *将各个文本框中的信息存入变量中以便于操作 a=ThisForm.Text1.Value b=ThisForm.Text2.Value c=ThisForm.Text3.Value d=ThisForm.Text4.Value e=ThisForm.Text5.Value Insert Into kehuxinxi(bh,xm,dh,dzh,yx) Values(a,b,c,d,e) &将输入的信息插入表中 ThisForm.Cmdtj.SetFocus &保存完信

37、息后使添加按钮获得焦点 ThisForm.Grid1.ReFresh ThisForm.Cmdbc.Enabled = .F. （3）每一个“Text”文本框的 Click 过程的代码： *将相关记录的信息显示在相应的文本框中 ThisForm.Text1.Value=bh ThisForm.Text2.Value=xm ThisForm.Text3.Value=dh ThisForm.Text4.Value=dzh ThisForm.Text5.Value=yx ThisForm.Cmdbc.Enabled = .F. &禁用保存按钮 （4）“删除”按钮的 Click事件代码： Selectkehuxinxi Delete for bh=ThisForm.Text1.Value &将编号为文本框Text1中内容的记录删除 ThisForm.Grid1.