课程方案设计书报告李蒙

1、我紊那龛人皐世亿瞎庄CenturyBHjinUniYBraity of Poits and lailmcDirnmunkaHans课程设计报告课程设计名称管理信息系统课程设计课程设计题目医药公司仓库管理系统专业物流工程班级 一班学号 11090116姓名李蒙指导教师刘艳辉/方亮成 绩 2013年12月27日目录第1章 现行系统概述 第 2 章 系统分析2.1 需求分析2.2 可行性研究2.2.1 管理可行性2.2.2 技术可行性2.2.3 经济可行性2.3 组织结构2.4 业务流程分析2.5 数据流程分析2.6 数据字典第 3 章 系统设计3.1 系统功能设计3.2 代码设计3.3 概念模型设

2、计3.4 数据模型设计3.5 输入 / 输出设计3.5.1 输入设计3.5.2 输出设计第 4 章 系统实施第 5 章 总结与展望第 1 章 现行系统概述1.1 调查资料 四川长新药业有限公司目前仅有两个仓库， 公司规模较小， 但管理设施齐全， 公 司运营状况良好，公司运作井然有序，有较大的发展空间。 矚慫润厲钐瘗睞枥庑赖。 库存管理方面 ;药品种类繁多所需仓储条件较严格，仓储条件基本满足，仓库按 照库存情况及时订货， 每月可多次提交采购订单， 也可以和其他公司进行及时交 易，或可紧急采购。 仓库发货按各中心店直接发来的订单发货， 一般每天发货两 到三次（周六日休息） 。仓库每月一号进行盘点，

3、及时上报药品过期，损坏等特 殊情况，确保信息流畅，时时更新库存台账和出入库情况。 聞創沟燴鐺險爱氇谴净。1.2 系统调查 长新药业有限公司目前使用的是名为 “黄药师” 的管理系统软件， 该软件已使用 多年，随着公司的不断发展， 业务量和工作员工数量的增涨， 系统中许多问题也 随之出现。譬如：客户若选择自行去仓库提货，总部信息无法及时更改，也无法 及时向仓库发出提货通知，造成系统混乱，客户满意度下降等严重后果。 残骛楼諍 锩瀨濟溆塹籟。由于该公司仓库面积较大， 但工作人员较少，虽然在员工管理方面比较简单便利， 但是这也导致在业务量激增的一二月份人手不足， 并且在该系统中不能更改仓库 员工的及时信

4、息，导致业务混乱等严重后果。 酽锕极額閉镇桧猪訣锥。仓储经理：负责调配管理人员工作和重要的单据确认 . 各主管和专员：负责处理 仓库实施工作 业务流程 :通过观察药品公司仓库的业务流程模拟出仓库信息管 理系统的流程 ,通过业务流程图加以说明基础数据 :数据来源采购科的采购订单和各中心店及社区店的发货通知 ,单据等资源。管理人员 :熟悉仓库管理系统操作 彈贸摄尔霁毙攬砖卤庑。资源 硬件：电脑若干台打印机若干台 软件：操作系统：中文 Windows XP / Windows 2007 开发系统：MS SQL Server 开发工具：Delphi謀荞抟箧飆鐸怼类蒋薔。 约束条件 :各主管和专员的水平

5、很大程度上影响仓库管理系统的运行，由于时间 十分有限， 现有的员工很难组织成合理的系统研发团队， 若聘请其他公司协助开 发，则会花费过多资金，而且不利于新系统的维护和管理 。 厦礴恳蹒骈時盡继價骚。 系统详细调查方法 通过对该药品公司背景了解，基本掌握公司的基本需求.掌握了公司的货物仓库的运行情况， 了解了药品的存储基本状况， 所以组利用我所 了解的信息，为该公司仓库管理信息系统进行规划、 分析和设计， 以改进该公司 系统方面的部分不足之处。 茕桢广鳓鯡选块网羈泪。第 2 章 系统分析2.1 需求分析2.1.1 用户需求基本情况 : 该公司现行的管理模式完全以利益最大化为目的，因此忽视并产生了

6、一些问题， 譬如：没有质检人员， 药品保管不到位等。 这些问题长期影响并消耗着公司的有 效资源，造成多余的冰山成本， 因此尽快解决这些问题将给公司的长期发展注入 新的活力。 鹅娅尽損鹌惨歷茏鴛賴。1) 功能需求：可以在计算机中需要相关字段查找到所要记录，能对常用药品进 行特殊标识， 对有着权限的人可以随时更改记录， 并保存记录实现货物的运转与 系统一体化 .。 籟丛妈羥为贍偾蛏练淨。2) 性能需求：能及时更改由于药品过期，破损等特殊情况造成的库存量变动， 能有效处理 (包括退货处理 )。 預頌圣鉉儐歲龈讶骅籴。3) 环境需求：满足在 WINDOWS XP / WINDOWS 2007 / WI

7、NDOWS 2012 等不 同系统环境下的安装和使用。 渗釤呛俨匀谔鱉调硯錦。4) 可靠性需求：电脑环境干净 ,没病毒 ,漏洞。系统全面加密。5) 用户界面需求：清晰简单能被用户快速上手操作 ，6) 资源使用需求：能及时反映员工信息变化 ，和客户自提货物时的业务变动7) 软件开发成本：一万元以内2.1.2 分析与综合功能需求中都可以实现， 而性能要求不但要求系统的完善， 更加重要的是要求管 理员能够及时更新信息和记录。 这个并不是系统本身能实现的， 要根据操作人员 的工作态度来完善。 环境要求和可靠性要求都可以在开发中实现， 但是这只是开 发中的问题， 该系统是否能在安全的环境中运行这个条件需

8、要用户的配合。 系统 会设置安全保密的密码和权限控制可以有效地实现安全保密功能。 用户界面的需 求和资源使用的控制还有开发成本和开发进度都可以准时有效地实现。 铙誅卧泻噦 圣骋贶頂廡。2.2 可行性研究2.2.1 管理可行性管理可行性： 新系统操作简单，易于理解，只需要通过简单的培训，上手较快， 公司的仓库管理员均能进行操作， 营运环境要求低， 因此本系统从操作方面是完 全可行。该公司总员工数量在 60 人以上，其中约有三分之一可进行系统的管理 和维护工作，所以在管理方面也可行。 擁締凤袜备訊顎轮烂蔷。2.2.2 技术可行性 技术可行性：本系统采用 Microsoft SQL Server 和

9、 Delphi 等开发系统作为数据库 平台，并使用 Visio 等作图工具，设计采用了 Delphi 这门计算机程序语言 Delphi 应用程序由窗口组成， 这些窗口包含用户与之交互的控件。 开发人员可以使用所 有标准空间（如按钮、复选框、下拉列表框或编辑框）以及 Delphi 提供的特殊 的使应用程序更易于开发和使用的控件。通常人们把 Delphi 看成是一种开发工 具，实际上它比其他工具强得多， 是一种强有力的开发环境。 开发人员不仅能用 它来开发用户容易使用的各种应用程序还可以通过 Delphi 修改数据库，利用多 个内部定义函数， 可以开发能和其他应用程序进行的各中应用程序。 因此从理

10、论 上来说，该系统在技术上是可行的。 贓熱俣阃歲匱阊邺镓騷。2.2.3 经济可行性 经济可行性： 虽然开发系统 ,其必须要投入大量的人财物各方面的力量 ,花大量的 时间投入到系统系统的开发当中。 但是对于开发完成并投入使用后给企业带来的 效益来看 ,那些投入是值得的。运用该系统来大大减少了库存管理人员所使用的 时间 ,提高了效率对大量的数据等进行管理 ,又便于操作员查询各种信息 . 仓库 管理在企业看来作用是十分重要的，公司必须改变管理中那种重生产、轻流通 , 重商流、轻物流的观念， 使仓库管理在实现仓库管理总目标的过程中发挥它的重 要性，这就使得公司对仓储部提出了更高的要求 .计算机技术飞速

11、发展 ,使得计算 机这一信息处理器应用于仓库的日常管理成为必然的趋势， 而且这也将为仓库管 理带来前所未有的改变 ,采用计算机管理信息系统已成为仓库管理科学化和现代 化的重要标志 ，它能极大提高了仓库工作人员的工作效率，大大减少繁琐、杂 乱出入流程， 并且可以减少入库管理、 出库管理及库存管理的漏洞， 节约管理开 支，从而增加企业的收入，这也使得仓库的管理水平有了很大的提高。 坛摶乡囂忏 蒌鍥铃氈淚。2.3 组织结构组织结构图1-12.4业务流程分析供货商客户部门经理销售部员工不合格订 单订单合格的订单<"发货单流水账1 */一-U后勤部员工修改库存台账-业务流程图1-2-1补

12、充订货单订货单采购员仓库管理员-发货单业务流程图1-2-22.5数据流程分析数据流程图1-32.6数据字典2.6.1 数据流定义序号数据 流名 称编号简述数据流 来源数据流 去向数据流组成01购物单D-01顾客购买商品清 单顾客条码扫 描商品编号+商品名称+数里+ 单价02销售D-02经电脑查询汇总条码扫收款操商品编号+商品名称+数里+清单后的收货清单描作单价+合计03售出 清单D-03已收款的货品清 单收款操 作仓库商品编号+商品名称+数里+ 单价+合计04发票D-04根据顾客购买信 息打印单据收款操 作顾客商品编号+商品名称+数里+ 单价+合计05销售 数据D-05根据销售操作， 计入库存

13、台账出库操 作库存商 品信息 记录商品编号+商品名称+数里+ 单价06缺货数据D-06根据库存信息填 写缺货记录库存商 品信息 记录填写缺货记录商品编号 +商品名称+缺贝 数量+合计07缺货 记录D-07汇总缺货记录， 形成缺货记录填写缺货记录缺货记 录商品编号+商品名称+缺贝 数量+合计08汇总缺货记录D-08将各商品的缺货 记录进行汇总缺货记 录填写订 货单商品编号+商品名称+数量+ 单价+合计09订货 单D-09汇总缺货记录制 作订单填写订 货单供应商商品编号+商品名称+数量+ 单价+合计10订货 单汇 总D-10订货单汇总填写订 货单订货单 文件商品编号+商品名称+进贝 数量+单价11

14、供应 商信 息D-11依据供货商信息 填写订货单供货商 信息填写订 货单供货商编号+供货商地址+ 供应商电话+供应商品+供 应价格12供货 单D-12供货商供应货物 信息供货商进货审 核商品编号+商品名称+进贝 数量+单价+进货日期+进货 员13退货 单D-13经审核不符合供货单或其他错误进货审 核供应商商品编号 +商品名称+退贝 数量+单价+退货日期+进货 员14订货 单信 息D-14根据订货单信息 核对进货信息订货单 文件进货审 核商品编号+商品名称+进贝 数量+单价15到货 单D-15审核通过的供货 单形成到货单进货审 核到货单商品编号 +商品名称+进贝 数量+单价+进货日期+进货 员1

15、6入库 单D-16货物入库单据到货单入库操 作入库单号+商品编号+商品 名称+入库数量+日期+操作 员17入库 信息D-17货物入库信息入库操 作库存商 品信息 记录入库单号+商品编号+商品 名称+入库数量+日期+操作 员18库存信息D-18库存商品信息库存商 品信息条码扫 描商品编号+商品名称+单价记录262 处理逻辑定义逆目序号处理逻辑名称编号简述输入的 数据流处理描述输出的 数据流01条码 扫描P-1-1读取货物信息购物单 库存信 息根据顾客提供的购物清单读 取货品价格信息，核算价格 统计清单销售清 单02收款操作P-1-2核算物品价格 并结算应收款销售清 单根据销售清单进行收款与打印发

16、票售出清 单 发票03变更 库存 状态P-2-1根据零售情况 变更当前库存 商品数量售出清 单根据售出清单情况减少相应 货物库存销售数 据04入库处理P-2-2根据入库单进 行入库操作入库单根据入库单情况增加相应货物库存入库信 息05填写缺货记录P-3-1根据缺货情况制作缺货记录缺货数 据根据缺货数据形成缺货记录并汇总缺货记 录06填写 订货 单P-3-2填写订货单汇总缺 货记录 供货商 信息根据缺货汇总记录与供货商 信息填写订货单订货单 信息订货单 汇总07进货 审核P-3-3审核供货商送 来的供货单是否合格订货单供货单根据订货单与供货单进行到 货审核，符合则填写到货单 办理入库，不符合则退

17、货到货单退货单263 数据储存定义'项目 序号数据存储名称编号简述数据存储组成关键字关联处理01库存 商品 信息 记录F-01记录商品出 入库数据的 明细账出入库单编号+商品编号+商品 名称+入库数量+零售数量+库 存数量+出入库日期商品编号+ 出入库日期P-01;P-0202供货 商信 息F-02记录供货商 信息供货商编号+供货商名称+供货 商地址+供货商电话+联系人+ 备注供货商编号P-0303缺货 记录F-03记录缺货明 细账缺货单编号+缺货名称+缺货数 量+缺货日期+审核人缺货单编号P-0304订货F-04记录订货明订货单编号+订货名称+订货数订货单编号P-03单文 件细账量+

18、订货日期+审核人+货物名称05到货 单文 件F-05记录到货明 细账到货单编号+到货名称+到货数 量+到货日期+审核人到货单编号+货物名称P-02;P-03264 外部实体定义序号外部实体 名称编号简述输入的数据流数据流输出的数据流01顾客S-1购买货物发票购物单02供货商S-2供应货物订货单退货单供货单第3章系统设计3.1系统功能设计3.1.1. 基础数据主要有、供货商信息、员工信息、商品信息与客户信息四部分组成。商品信息与商品分类：完成商品编号、商品名称、分类编号、分类名称等一系列 信息设定，可以达到以下目标：在进行商品入库、销售等操作时，可以通过下拉 列表框进行选择录入商品信息以及商品订

19、单以及进销价格调整。蜡變黲癟報伥铉锚鈰赘。供货商信息：完成员工与供货商的编号、名称地址、电话等等一系列信息设定， 其建立可以达到如下目标：可以通过下拉列表框进行选择录入供货商信息；记录供货商的各种联系方式与联系人。買鯛鴯譖昙膚遙闫撷凄。员工信息：完成员工编号、姓名、详细信息设定。3.1.2. 进销存管理主要完成订单定制、采购入库、销售记录、库存查询等任务。订单定制：完成订单定制工作，主要支持从下拉类表框中选择商品、对应供应商、 核算金额等。采购入库：完成采购入库的工作，主要达到以下目标：支持从下拉列表框中选择 供货商、自动统计入库品种数，合计数量与金额；綾镝鯛駕櫬鹕踪韦辚糴。销售记录：对销售情

20、况进行记录，自动统计销售情况。库存查询：可根据需要选择不同的查询字段和内容对库存进行查询。3.1.3. 综合信息主要由对账单、综合账目等功能组成。收货对账单：主要完成对收货信息的记录与确认。销售对账单：主要完成对销售信息的记录与确认。综合账款：可根据条件要求完成对销售账款的统计。3.14系统维护主要完成用户设置、系统重置、变更用户与退出系统功能 用户配置：增加删除用户，变更用户权限。系统重置：备份、清空所有数据。变更用户：变更当前系统用户。退出系统：退出系统。药品仓库管理系统*退货查询户理块客管模寸销售查询*修改供应商删除供应商上添加供应商 丄药品查询上更新药品*删除药品*添加药品丫更新用户*

21、删除用户 添加用户*用户登录3.2代码设计3.3概念模型设计金额<>名称商品种类商品数量预留位编码种类名称金额数量销售仓库地址广库存量种类姓名名称供货商编号资薪金额数量地址供应供货商供应商名称V - y员工编号联系电话丿3.4数据模型设计聘用、 >员工家庭住址电话职位表3-1供货商表字段名称数据类型字段大小供货商编号Varchar50供货商名称Varchar50地址Varchar50电话Varchar50传真Varchar50联系人Varchar50手机Varchar50备注Varchar50表3-2入库单表字段名称数据类型字段大小入库单号Varchar50入库日期Varch

22、ar50商品编号Int4商品数量Varchar50合计金额Varchar50员工编号Varchar50备注Varchar50表3-3员工表字段名称数据类型字段大小员工编号Varchar50员工姓名Varchar50家庭住址Varchar50家庭电话Varchar50资薪水平Varchar50紧急联系人Varchar50手机Varchar50备注Varchar50表3-4商品表字段名称数据类型字段大小商品编号Varchar50商品名称Varchar50商品规格Varchar50分类编号Varchar50供货商编号Varchar50进货价格Money8销售价格Money8备注Varchar50表3

23、-5订单表字段名称数据类型字段大小订单编号Varchar50订购日期Varchar50商品编号Varchar50订购数量Int4总计金额Varchar50员工编号Varchar8到货情况Varchar8备注Varchar50表3-6销售表字段名称数据类型字段大小销售单号Varchar50销售时间Varchar50商品编号Varchar50商品数量Int4员工编号Varchar50合计金额Money8备注Varchar503.5输入/输出设计输入设计procedure Talogo.BitBt n2Click(Se nder: TObject); beginalogo.Close;en d;pr

24、ocedure Talogo.BitBt n1Click(Se nder: TObject); begintrywith adoquery1 dobeginclose;sql.clear;驅踬髏彦浃绥譎饴sql.add('select * from user_master where a=:a and b=:b ');庑。猫虿驢绘燈鮒诛髅貺parameters.ParamByName('a').Value:=trim(combobox1.Text);锹籁饗迳琐筆襖鸥娅薔。parameters.ParamByName('b').Value:=tri

25、m(edit1.Text);if combobox1.Text ='' thenbeginapplication.MessageBox('请输入用户名 ',' 提示信息 ',64);combobox1.SetFocus;exit;end;if edit1.Text ='' thenbeginapplication.MessageBox('请输入密码 ',' 提示信息 ',64);edit1.SetFocus;exit;end;open;end;if adoquery1.RecordCount<

26、>0 thenbeginUsername:=combobox1.Text;Password:=edit1.Text;application.MessageBox('登陆成功 ',' 提示信息 ',64);amain.show;/需要再建立一个 form 窗口用来作为登录正确后显示的窗体self.Hide;endelseapplication.MessageBox(' 输入的用户名或密码错误 ',' 提示信息 ',64); exceptapplication.MessageBox(' 登陆失败 ','

27、提示信息 ',64);end;end;end.输出设计牺方式c按商品名称r按商品塢号r捋洪货商容棉幵怡查谊procedure Tcxck.Butt on 1Click(Se nder: TObject);varsqls,cp:stri ng;i,j:i nteger;begincp:=edit1.Text;case radiogroup1.ltem In dex of0:sqls:='SELECT * from1:sqls:='SELECT * from2:sqls:='SELECT * from商品表WHERE药品名称='"+cp+"

28、;"商品表WHERE药品编号='"+cp+""商品表WHERE生产厂家='"+cp+""end;With ADOQueryl dobeginSQL.Clear;SQL.Add(sqls);ExecSQL;open;Stringgrid1.RowCount:=Recordset.RecordCount+1;Stringgrid1.ColCount:=Recordset.Fields.Count+1;Stringgrid1.Cells0,0:= ' 序号 'if Recordset.RecordC

29、ount<>0 thenbeginfor i:=0 to Recordset.RecordCount-1 dobeginfor j:=0 to Recordset.Fields.Count-1 do beginStringgrid1.Cellsj+1,0:= ADOQuery1.Fields.Fieldsj.FieldName; 構氽頑黉碩饨荠龈话骛。Stringgrid1.Cellsj+1,i+1:= ADOQuery1.Fields.Fieldsj.AsString;輒峄陽檉簖疖網儂號泶。end;Stringgrid1.Cells0,i+1:=inttostr(i+1);nex

30、t;end;next;endelseshowmessage(' 请确认查询关键字 ');end;end;end.第 4章 系统实施订单处理主要代码：interfaceusesWin dows. Messages, SysUtils, Varia nts. Classes, Graphics, Con trols. Former 閆繭絳闕绚勵蜆贅。Dialogs, ComCtrls, ToolWi n, StdCtrls, Butto ns, Grids, DBGrids, DB, ADODB;识饒 鎂錕缢灩筧嚌俨淒。typeTcgdhd = class(TForm)ToolBa

31、r1: TToolBar;BitBtn1: TBitBtn;DBGrid1: TDBGrid;D: TGroupBox;Button1: TButton;Button2: TButton;ADOConnection1: TADOConnection;DataSource1: TDataSource;ADOTable1: TADOTable;Button3: TButton;Button4: TButton;Button5: TButton;Button6: TButton;Button7: TButton;Button8: TButton;Edit1: TEdit;Edit2: TEdit;E

32、dit3: TEdit;Edit4: TEdit;Edit5: TEdit;procedure Button8Click(Sender: TObject);procedure Button6Click(Sender: TObject);procedure Button7Click(Sender: TObject);procedure BitBtn1Click(Sender: TObject);private Private declarations public Public declarations end;varcgdhd: Tcgdhd; implementation uses Unit

33、3,unit2; $R *.dfm procedure Tcgdhd.Button8Click(Sender: TObject); begincgdhd.Close;amain.showend;procedure Tcgdhd.Button6Click(Sender: TObject);beginif(edit1.Text=”)or(edit2.Text=”)or(edit4.Text=”)凍鈹鋨劳臘错痫婦胫籴。 or(edit5.Text='')thenshowmessage请输入数据!')elsebeginwith ADOTable1 dobeginInsert;F

34、ieldByName（'订单编号'）.AsString:=edit1.Text;FieldByName（'订购日期'）.AsString:=edit2.Text;FieldByName（'订购数量'）.AsString:=edit3.Text;FieldByName（'金额'）.AsStri ng:=edit4.Text;FieldByName（'备注'）.AsStri ng:=edit5.Text;post;With ADOTable1 doend;end;end;procedure Tcgdhd.Button7

35、Click（Sender: TObject）;beginif MessageDlg（'确定删除吗？ ',mtConfirmation,mbYes,mbNo,0）=mrYes 恥諤銪灭萦欢 煬鞏鹜錦。thenADOTable1.Delete;end;procedure Tcgdhd.BitBtn1Click（Sender: TObject）;varY:string;beginif （edit1.Text=''）or（edit2.Text=''）or（edit3.Text=''）or（edit4.Text=''）or（edit5.Text=''） then鯊腎鑰诎褳鉀沩懼統庫。with ADOTable1 dobeginedit1.Text:=FieldByName（订单编号'）.AsString ;edit2.Text:=FieldByName（订购日期'）.AsString ;edit3.Text:=FieldByN