课程方案设计书报告.doc

课 程 设 计 报 告   课程设计名称  管理信息系统课程设计   课程设计题目  医药公司仓库管理系统专    业    物流工程           班    级     一班              学    号     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概念模型设计3.4 数据模型设计3.5输入/输出设计3.5.1输入设计3.5.2输出设计第4章 系统实施第5章 总结与展望第1章  现行系统概述  1.1  调查资料  四川长新药业有限公司目前仅有两个仓库，公司规模较小，但管理设施齐全，公司运营状况良好，公司运作井然有序，有较大的发展空间。矚慫润厲钐瘗睞枥庑赖。库存管理方面;药品种类繁多所需仓储条件较严格，仓储条件基本满足，仓库按照库存情况及时订货，每月可多次提交采购订单，也可以和其他公司进行及时交易，或可紧急采购。仓库发货按各中心店直接发来的订单发货，一般每天发货两到三次（周六日休息）。仓库每月一号进行盘点，及时上报药品过期，损坏等特殊情况，确保信息流畅，时时更新库存台账和出入库情况。聞創沟燴鐺險爱氇谴净。1.2 系统调查  长新药业有限公司目前使用的是名为“黄药师”的管理系统软件，该软件已使用多年，随着公司的不断发展，业务量和工作员工数量的增涨，系统中许多问题也随之出现。譬如：客户若选择自行去仓库提货，总部信息无法及时更改，也无法及时向仓库发出提货通知，造成系统混乱，客户满意度下降等严重后果。残骛楼諍锩瀨濟溆塹籟。由于该公司仓库面积较大，但工作人员较少，虽然在员工管理方面比较简单便利，但是这也导致在业务量激增的一二月份人手不足，并且在该系统中不能更改仓库员工的及时信息，导致业务混乱等严重后果。酽锕极額閉镇桧猪訣锥。仓储经理：负责调配管理人员工作和重要的单据确认. 各主管和专员：负责处理仓库实施工作  业务流程:通过观察药品公司仓库的业务流程模拟出仓库信息管理系统的流程,通过业务流程图加以说明  基础数据:数据来源采购科的采购订单和各中心店及社区店的发货通知,单据等资源。管理人员:熟悉仓库管理系统操作 彈贸摄尔霁毙攬砖卤庑。资源  硬件：电脑若干台打印机若干台  软件：操作系统：中文Windows XP / Windows 2007  开发系统：MS SQL Server   开发工具：Delphi 謀荞抟箧飆鐸怼类蒋薔。约束条件:各主管和专员的水平很大程度上影响仓库管理系统的运行，由于时间十分有限，现有的员工很难组织成合理的系统研发团队，若聘请其他公司协助开发，则会花费过多资金，而且不利于新系统的维护和管理 。 厦礴恳蹒骈時盡继價骚。系统详细调查方法  通过对该药品公司背景了解，基本掌握公司的基本需求.掌握了公司的货物仓库的运行情况，了解了药品的存储基本状况，所以组利用我所了解的信息，为该公司仓库管理信息系统进行规划、分析和设计，以改进该公司系统方面的部分不足之处。茕桢广鳓鯡选块网羈泪。第2章 系统分析2.1需求分析 2.1.1 用户需求基本情况:  该公司现行的管理模式完全以利益最大化为目的，因此忽视并产生了一些问题，譬如：没有质检人员，药品保管不到位等。这些问题长期影响并消耗着公司的有效资源，造成多余的冰山成本，因此尽快解决这些问题将给公司的长期发展注入新的活力。鹅娅尽損鹌惨歷茏鴛賴。1) 功能需求：可以在计算机中需要相关字段查找到所要记录，能对常用药品进行特殊标识，对有着权限的人可以随时更改记录，并保存记录实现货物的运转与系统一体化.。 籟丛妈羥为贍偾蛏练淨。2) 性能需求：能及时更改由于药品过期，破损等特殊情况造成的库存量变动，能有效处理 (包括退货处理)。 預頌圣鉉儐歲龈讶骅籴。3) 环境需求：满足在WINDOWS XP / WINDOWS 2007 / WINDOWS 2012等不同系统环境下的安装和使用。渗釤呛俨匀谔鱉调硯錦。4) 可靠性需求：电脑环境干净,没病毒,漏洞。系统全面加密。  5) 用户界面需求：清晰简单能被用户快速上手操作 ，6) 资源使用需求：能及时反映员工信息变化 ，和客户自提货物时的业务变动7) 软件开发成本：一万元以内 2.1.2 分析与综合  功能需求中都可以实现，而性能要求不但要求系统的完善，更加重要的是要求管理员能够及时更新信息和记录。这个并不是系统本身能实现的，要根据操作人员的工作态度来完善。环境要求和可靠性要求都可以在开发中实现，但是这只是开发中的问题，该系统是否能在安全的环境中运行这个条件需要用户的配合。系统会设置安全保密的密码和权限控制可以有效地实现安全保密功能。用户界面的需求和资源使用的控制还有开发成本和开发进度都可以准时有效地实现。铙誅卧泻噦圣骋贶頂廡。2.2可行性研究2.2.1管理可行性管理可行性： 新系统操作简单，易于理解，只需要通过简单的培训，上手较快，公司的仓库管理员均能进行操作，营运环境要求低，因此本系统从操作方面是完全可行。该公司总员工数量在60人以上，其中约有三分之一可进行系统的管理和维护工作，所以在管理方面也可行。擁締凤袜备訊顎轮烂蔷。2.2.2技术可行性技术可行性：本系统采用Microsoft SQL Server 和Delphi等开发系统作为数据库平台，并使用Visio等作图工具，设计采用了Delphi这门计算机程序语言Delphi应用程序由窗口组成，这些窗口包含用户与之交互的控件。开发人员可以使用所有标准空间（如按钮、复选框、下拉列表框或编辑框）以及Delphi提供的特殊的使应用程序更易于开发和使用的控件。通常人们把Delphi看成是一种开发工具，实际上它比其他工具强得多，是一种强有力的开发环境。开发人员不仅能用它来开发用户容易使用的各种应用程序还可以通过Delphi修改数据库，利用多个内部定义函数，可以开发能和其他应用程序进行的各中应用程序。因此从理论上来说，该系统在技术上是可行的。贓熱俣阃歲匱阊邺镓騷。2.2.3经济可行性经济可行性： 虽然开发系统,其必须要投入大量的人财物各方面的力量,花大量的时间投入到系统系统的开发当中。但是对于开发完成并投入使用后给企业带来的效益来看,那些投入是值得的。运用该系统来大大减少了库存管理人员所使用的时间,提高了效率对大量的数据等进行管理,又便于操作员查询各种信息.  仓库管理在企业看来作用是十分重要的，公司必须改变管理中那种重生产、轻流通,重商流、轻物流的观念，使仓库管理在实现仓库管理总目标的过程中发挥它的重要性，这就使得公司对仓储部提出了更高的要求.计算机技术飞速发展,使得计算机这一信息处理器应用于仓库的日常管理成为必然的趋势，而且这也将为仓库管理带来前所未有的改变,采用计算机管理信息系统已成为仓库管理科学化和现代化的重要标志 ，它能极大提高了仓库工作人员的工作效率，大大减少繁琐、杂乱出入流程，并且可以减少入库管理、出库管理及库存管理的漏洞，节约管理开支，从而增加企业的收入，这也使得仓库的管理水平有了很大的提高。坛摶乡囂忏蒌鍥铃氈淚。  2.3组织结构组织结构图1-12.4业务流程分析业务流程图  1-2-1业务流程图  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根据销售操作，计入库存台账出库操作库存商品信息记录商品编号+商品名称+数量+单价06缺货数据D-06根据库存信息填写缺货记录库存商品信息记录填写缺货记录商品编号+商品名称+缺货数量+合计07缺货记录D-07汇总缺货记录，形成缺货记录填写缺货记录缺货记录商品编号+商品名称+缺货数量+合计08汇总缺货记录D-08将各商品的缺货记录进行汇总缺货记录填写订货单商品编号+商品名称+数量+单价+合计09订货单D-09汇总缺货记录制作订单填写订货单供应商商品编号+商品名称+数量+单价+合计10订货单汇总D-10订货单汇总填写订货单订货单文件商品编号+商品名称+进货数量+单价11供应商信息D-11依据供货商信息填写订货单供货商信息填写订货单供货商编号+供货商地址+供应商电话+供应商品+供应价格12供货单D-12供货商供应货物信息供货商进货审核商品编号+商品名称+进货数量+单价+进货日期+进货员13退货单D-13经审核不符合供货单或其他错误进货审核供应商商品编号+商品名称+退货数量+单价+退货日期+进货员14订货单信息D-14根据订货单信息核对进货信息订货单文件进货审核商品编号+商品名称+进货数量+单价15到货单D-15审核通过的供货单形成到货单进货审核到货单商品编号+商品名称+进货数量+单价+进货日期+进货员16入库单D-16货物入库单据到货单入库操作入库单号+商品编号+商品名称+入库数量+日期+操作员17入库信息D-17货物入库信息入库操作库存商品信息记录入库单号+商品编号+商品名称+入库数量+日期+操作员18库存信息D-18库存商品信息库存商品信息记录条码扫描商品编号+商品名称+单价2.6.2  处理逻辑定义项目序号处理逻辑名称编号简述输入的数据流处理描述输出的数据流01条码扫描P-1-1读取货物信息购物单库存信息根据顾客提供的购物清单读取货品价格信息，核算价格统计清单销售清单02收款操作P-1-2核算物品价格并结算应收款销售清单根据销售清单进行收款与打印发票售出清单发票03变更库存状态P-2-1根据零售情况变更当前库存商品数量售出清单根据售出清单情况减少相应货物库存销售数据04入库处理P-2-2根据入库单进行入库操作入库单根据入库单情况增加相应货物库存入库信息05填写缺货记录P-3-1根据缺货情况制作缺货记录缺货数据根据缺货数据形成缺货记录并汇总缺货记录06填写订货单P-3-2填写订货单汇总缺货记录供货商信息根据缺货汇总记录与供货商信息填写订货单订货单信息订货单汇总07进货审核P-3-3审核供货商送来的供货单是否合格订货单供货单根据订货单与供货单进行到货审核，符合则填写 到货单办理入库，不符合则退货到货单退货单2.6.3  数据储存定义项目序号数据存储名称编号简述数据存储组成关键字关联处理01库存商品信息记录F-01记录商品出入库数据的明细账出入库单编号+商品编号+商品名称+入库数量+零售数量+库存数量+出入库日期商品编号+出入库日期P-01;P-0202供货商信息F-02记录供货商信息供货商编号+供货商名称+供货商地址+供货商电话+联系人+备注供货商编号P-0303缺货记录F-03记录缺货明细账缺货单编号+缺货名称+缺货数量+缺货日期+审核人缺货单编号P-0304订货单文件F-04记录订货明细账订货单编号+订货名称+订货数量+订货日期+审核人订货单编号+货物名称P-0305到货单文件F-05记录到货明细账到货单编号+到货名称+到货数量+到货日期+审核人到货单编号+货物名称P-02;P-032.6.4  外部实体定义项目序号外部实体名称编号简述输入的数据流数据流输出的数据流01顾客S-1购买货物发票购物单02供货商S-2供应货物订货单退货单供货单第3章 系统设计3.1系统功能设计3.1.1.基础数据主要有、供货商信息、员工信息、商品信息与客户信息四部分组成。商品信息与商品分类：完成商品编号、商品名称、分类编号、分类名称等一系列信息设定，可以达到以下目标：在进行商品入库、销售等操作时，可以通过下拉列表框进行选择录入商品信息以及商品订单以及进销价格调整。蜡變黲癟報伥铉锚鈰赘。供货商信息：完成员工与供货商的编号、名称地址、电话等等一系列信息设定，其建立可以达到如下目标：可以通过下拉列表框进行选择录入供货商信息；记录供货商的各种联系方式与联系人。買鲷鴯譖昙膚遙闫撷凄。员工信息：完成员工编号、姓名、详细信息设定。3.1.2.进销存管理主要完成订单定制、采购入库、销售记录、库存查询等任务。订单定制：完成订单定制工作，主要支持从下拉类表框中选择商品、对应供应商、核算金额等。采购入库：完成采购入库的工作，主要达到以下目标：支持从下拉列表框中选择供货商、自动统计入库品种数，合计数量与金额；綾镝鯛駕櫬鹕踪韦辚糴。销售记录：对销售情况进行记录，自动统计销售情况。库存查询：可根据需要选择不同的查询字段和内容对库存进行查询。3.1.3.综合信息主要由对账单、综合账目等功能组成。收货对账单：主要完成对收货信息的记录与确认。销售对账单：主要完成对销售信息的记录与确认。综合账款：可根据条件要求完成对销售账款的统计。3.1.4.系统维护主要完成用户设置、系统重置、变更用户与退出系统功能用户配置：增加删除用户，变更用户权限。系统重置：备份、清空所有数据。变更用户：变更当前系统用户。退出系统：退出系统。3.2代码设计3.3概念模型设计3.4 数据模型设计表3-1 供货商表字段名称数据类型字段大小供货商编号Varchar50供货商名称Varchar50地址Varchar50电话Varchar50传真Varchar50联系人Varchar50手机Varchar50备注Varchar50表3-2 入库单表字段名称数据类型字段大小入库单号Varchar50入库日期Varchar50商品编号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-5订单表字段名称数据类型字段大小订单编号Varchar50订购日期Varchar50商品编号Varchar50订购数量Int4总计金额Varchar50员工编号Varchar8到货情况Varchar8备注Varchar50表3-6销售表字段名称数据类型字段大小销售单号Varchar50销售时间Varchar50商品编号Varchar50商品数量Int4员工编号Varchar50合计金额Money8备注Varchar503.5输入/输出设计3.5.1输入设计procedure Talogo.BitBtn2Click(Sender: TObject);beginalogo.Close;end;procedure Talogo.BitBtn1Click(Sender: TObject);begintry   with adoquery1 do   begin     close;     sql.clear;     sql.add('select * from user_master where a=:a and b=:b ');驅踬髏彦浃绥譎饴憂锦。   &nbsp; parameters.ParamByName('a').Value:=trim(combobox1.Text);猫虿驢绘燈鮒诛髅貺庑。     parameters.ParamByName('b').Value:=trim(edit1.Text);锹籁饗迳琐筆襖鸥娅薔。     if combobox1.Text ='' then       begin         application.MessageBox('请输入用户名','提示信息',64);         combobox1.SetFocus;         exit;       end;     if edit1.Text ='' then       begin         application.MessageBox('请输入密码','提示信息',64); &nbsp;       edit1.SetFocus;         exit;       end;     open;     end;     if adoquery1.RecordCount<>0 then       begin         Username:=combobox1.Text;       &nbsp; Password:=edit1.Text;         application.MessageBox('登陆成功','提示信息',64);         amain.show;/需要再建立一个form窗口用来作为登录正确后显示的窗体         self.Hide;       end     else       application.MessageBox('输入的用户名或密码错误','提示信息',64); except   application.MessageBox('登陆失败','提示信息',64); end;end;end.3.5.2输出设计procedure Tcxck.Button1Click(Sender: TObject);var sqls,cp:string;  i,j:integer;begincp:=edit1.Text;    case radiogroup1.ItemIndex of   &nbsp;0:    sqls:='SELECT * from 商品表 WHERE  药品名称 ='''+cp+''''    1:    sqls:='SELECT * from 商品表 WHERE  药品编号 ='''+cp+''''    2:    sqls:='SELECT * from 商品表 WHERE  生产厂家 =9;''+cp+''''     end;  With ADOQuery1 do  begin    SQL.Clear;    SQL.Add(sqls);    ExecSQL;    open;    Stringgrid1.RowCount:=Recordset.RecordCount+1;    Stringgrid1.ColCount:=Recordset.Fields.Count+1;    Stringgrid1.Cells0,0:= '序号'    if Recordset.RecordCount<>0 then    begin      for i:=0 to Recordset.RecordCount-1 do      begin        for j:=0 to Recordset.Fields.Count-1 do       &nbsp;begin          Stringgrid1.Cellsj+1,0:= ADOQuery1.Fields.Fieldsj.FieldName;構氽頑黉碩饨荠龈话骛。          Stringgrid1.Cellsj+1,i+1:= ADOQuery1.Fields.Fieldsj.AsString;輒峄陽檉簖疖網儂號泶。        end;        Stringgrid1.Cells0,i+1:=inttostr(i+1);        next;      end;      next;    end    else      showmessage('请确认查询关键字');   end;end;end.第4章 系统实施订单处理主要代码：interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,尧侧閆繭絳闕绚勵蜆贅。  Dialogs, ComCtrls, ToolWin, StdCtrls, Buttons, Grids, DBGrids, DB, ADODB;识饒鎂錕缢灩筧嚌俨淒。type  Tcgdhd = class(TForm)    ToolBar1: 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;    Edit3: TEdit;    Edit4: TEdit;    Edit5: TEdit;    procedure Button8Click(Sender: TObject);    procedure Button6Click(Sender: TObject);   &nbsp;procedure Button7Click(Sender: TObject);    procedure BitBtn1Click(Sender: TObject);  private     Private declarations  public     Public declarations  end;var  cgdhd: Tcgdhd;implementationuses Unit3,unit2;$R *.dfmprocedure Tcgdhd.Button8Click(Sender: TObject);begin cgdhd.Close;amain.showend;procedure Tcgdhd.Button6Click(Sender: TObject);begin   if(edit1.Text='')or(edit2.Text='')or(edit4.Text='')凍鈹鋨劳臘锴痫婦胫籴。  or(edit5.Text='')then     showmessage('请输入数据!')  else    begin       with ADOTable1 do          begin             Insert;             FieldByName('订单编号').AsString:=edit1.Text;             FieldByName('订购日期').AsString:=edit2.Text;             FieldByName('订购数量').AsString:=edit3.Text;             FieldByName('金额').AsString:=edit4.Text;             FieldByName('备注').AsString:=edit5.Text;   &nbsp;         post;                   With ADOTable1 do      end;      end;      end;procedure Tcgdhd.Button7Click(Sender: TObject);beginif MessageDlg('确定删除吗？',mtConfirmation,mbYes,mbNo,0)=mrYes恥諤銪灭萦欢煬鞏鹜錦。  then  ADOTable1.Delete;end;procedure Tcgdhd.BitBtn1Click(Sender: TObject);var Y:string;beginif (edit1.Text='')or(edit2.Text='')or(edit3.Text='')or(edit4.Text='')or(edit5.Text='') then鯊腎鑰诎褳鉀沩懼統庫。with ADOTable1 dobegin   &nbsp; edit1.Text:=FieldByName('订单编号').AsString ;     edit2.Text:=FieldByName('订购日期').AsString ;     edit3.Text:=FieldByName('订购数量').AsString ;     edit4.Text:=FieldByName('金额').AsString ;     edit5.Text:=FieldByName('备注').AsString ;     end  else    begin       with ADOTable1 do          begin             edit;             FieldByName('订单编号').AsString:=edit1.Text;       &nbsp;     FieldByName('订购日期').AsString:=edit2.Text;             FieldByName('订购数量').AsString:=edit3.Text;             FieldByName('金额').AsString:=edit4.Text;             FieldByName('备注').AsString:=edit5.Text;             post;    begin     y:='select 订单编号 from 订货单表 where 订单编号='''+Edit1.Text+''''硕癘鄴颃诌攆檸攜驤蔹。       with ADOTable1 do         begin  ;         open;           edit1.Text:=ADOTable1.fields.Fields0.AsString;           with ADOTable1 do            begin             edit;             fieldbyname('金额').AsString:=inttostr(strtoint(edit1.Text)-strtoint(edit4.Text);阌擻輳嬪諫迁择楨秘騖。             ADOTable1.Post;             ADOTable1.Active:=false;             ADOTable1.Active:=true; &nbsp;          end;         end;             edit1.Text:=''             edit2.Text:=''             edit3.Text:=''             edit4.Text:=''             edit5.Text:=''          end;          end;   end;end;End.第5章 总结与展望通过本次课程设计,我深刻的认识到想要做好一个实际应用的管理信息系统是十分不易的,不仅是在调研了解掌握用户需求,同时对系统的设计、开发软件的操作等，都有着较高的要求。氬嚕躑竄贸恳彈瀘颔澩。本次由于时间比较紧张，系统并未开发的很完善，同时也存在许多问题亟待解决，功能覆盖也不够完全，尤其是在查询模块，设计功能还不够人性化，如有更多需求，日后会继续进行开发完善。釷鹆資贏車贖孙滅獅赘。同时，本次课程设计也让我学会了多与他人沟通，共同进步、共同学习的好处。在编程过程中，经常与其他几位同学一起讨论开发思路，交换源码，不仅帮助他人解决了问题，更为自己铺平了道路。怂阐譜鯪迳導嘯畫長凉。致谢在此，我要对在此次课题研究和论文撰写过程中给予诸多帮助的刘艳辉老师、方亮老师寓意感谢同时也对在编程过程中耐心为我讲解的同学们表示谢意，真诚的感谢你们付出了宝贵的时间和精力！谚辞調担鈧谄动禪泻類。