VB程序设计课程设计论文-超市进销存管理系统管理.doc

沈阳理工大学课程实践（论文）目 录1 前言11.1 开发背景11.2 作业要求11.3 工作业绩21.3.1 任务分工情况21.3.2 个人主要工作21.3.3 自我评定22 系统规划32.1 目标规划32.2 开发方案32.3 可行性分析报告32.3.1 技术可行性32.3.2 经济可行性32.3.3 管理可行性42.3.4 需求分析43 系统分析53.1 业务流程图53.2 数据流程图63.3 数据字典83.3.1数据流程说明83.3.2数据流字典83.3.3数据存储字典103.3.4数据处理字典114 系统设计124.1 总体设计124.2 详细设计124.2.1 代码设计124.2.2 输出设计144.2.3 输入设计154.2.4 数据库结构设计155 系统实施215.1 登录模块设计215.2 基本档案模块设计225.2.1 员工基本信息表单225.2.2 供应商信息管理255.3进货模块设计265.3.1 商品进货265.3.2商品查询305.4 其他模块设计31结束语33参考文献34341 前言1.1 开发背景中小型超市在我国经济发展中具有重要地位，目前我国的中小型超市数量多，地区分布广泛，行业分布跨度大。随着全球经济一体化的发展和电子商务的兴起，中小型超市之间的竞争将越来越激烈。网络及电子商务的迅猛发展突破了时间、空间的局限性，给中小型超市带来了更多的发展机会，同时也增大了超市行业之间的竞争强度。这就要求中小型超市必须改变经营管理模式，提高运营效率。目前，我国中小型超市的信息化水平还很低。随着技术的发展，电脑操作及管理日趋简化，电脑知识日趋普及，同时市场经济快速多变，竞争激烈，超市行业采用电脑管理进货、库存、销售等诸多环节也已成为必然趋势。1.2 作业要求课程作业的具体要求：用管理信息系统开发工具（如VFP6.0,VB等）开发一个实用的中小型管理信息系统。（1）根据课程设计时间选择适当规模大小的设计题目，分小组进行设计。（2）小组组长为组员分配任务，根据合理的安排，按照系统开发的流程及方法，踏实地开展课程设计活动。（3）课程设计活动中，撰写相关技术文档。最后提交详细的课程设计报告。（4）开发出可上机运行的管理信息系统，通过上机检查。工作计划与进度安排：第1天 ：布置任务，系统规划，粗略调查，可行性研究第2-3天 ：系统分析，建立系统逻辑模型；系统设计，建立系统物理模型第4-5天 ：系统实施，进行程序设计，系统调试。 第6天 ：编写系统报告、准备系统验收第7天 ：答辩1.3 工作业绩1.3.1 任务分工情况此次课程设计的分组情况为：组长，张在标，组员，赵执锐，林伟。小组成员分工如下：表1.1小组成员分工表学号姓名任务备注0904060128林伟规划、分析0904060131赵执锐规划、分析0904060132张在标设计、实施组长1.3.2 个人主要工作对系统的规划进行讨论；进行系统的分析和设计；系统的实施和调试1.3.3 自我评定 þ优 良 中 及格 不及格2 系统规划2.1 目标规划通过开发超市进销存销售管理系统，信息查询灵活，方便，数据存储安全可靠。能够对进货信息进行有效的管理。对用户输入的数据，进行严格的数据检验，尽可能地避免人为错误。能够对商品销售信息进行有效的管理。能够准确的管理商品库存信息。系统应最大限度的实现易维护性和易操作性。2.2 开发方案通过开发采购管理信息系统，建立比较完整的采购体系，使公司的运营更加顺利，得到较高的效益。具体如下：建立采购管理信息系统，使采购记录的文件量占用面积变小，节省一定量的资金；采用采购管理信息系统可以方便查询每一件采购的产品信息来源，便于控制。2.3 可行性分析报告2.3.1 技术可行性运用Visual Basic 语言完成系统，同时运用Microsoft Office实用软件完成文档工作。本超市采用先进的技术手段，为信息管理提供了强大的硬件保证，不管从设备方面还是技术力量方面，本超市都达到了一定的能力。在技术方面可以建立管理信息系统。2.3.2 经济可行性有一定的资金，能够支持计算外围设备费用、软件开发的费用、人员培训的费用、维护费用、管理费用。间接的经济效益中，公司的管理层待遇优厚，可以为公司的管理信息系统的运行提供保证。2.3.3 管理可行性管理人员对开发本项目的态度是积极的，直属领导对项目的开发支持，管理方法科学，在这个现代社会这样的管理制度开发相应成熟，规章制度已经具备了开发系统的条件，有专门开发的人员四人，既能合理的分配相应的工作，又能在完成各自工作的同时对整体的系统管理进行整合。2.3.4 需求分析随着竞争的日益激烈，如何降低成本已经成为超市首要解决问题。对普通的超市来讲，涉及原材料的进货渠道，销售情况及库存方面等方面的管理，管理的好与坏对超市的持久性至关重要。概括地说，用户对进销存系统的需求具有普遍性。超市进销存管理系统适用于超市的采购，销售和仓库部门，对超市采购，销售及仓库的业务全过程进行有效的控制和跟踪。使用超市进销存管理系统可有效减少盲目采购，降低成本，合理控制，减少资金占用并提高市场灵敏度，提升超市的市场竞争力。3 系统分析3.1 业务流程图通过对超市进销存业务的实际调查分析，明白了该超市的业务流程和部门管理功能，系统的业务流程图一如图3.1所示：图3.1系统业务流程图一业务流程图二如图3.2所示：图3.2系统业务流程图二3.2 数据流程图绘制顶层数据流程图关键在于找出主要外部实体和关键数据流。该超市的主要外部实体是财务部门，采购部门、仓储部门和销售部门。顶层数据流程图如图3.3所示：图3.3 系统顶层数据流程图系统中层数据流程图如图3.4所示： 图3.4 系统中层数据流程图系统底层数据流程图如图3.5、图3.6所示：图3.5底层数据流程图一图3.6底层数据流程图二3.3 数据字典3.3.1数据流程说明F01：入库数据，身份核实等 F02：入库数据、身份核对、经手人等F03：合同情况、供货商品情况、商品出入库情况F04：商品编号、商品数量F05：供货日期、经手人等与入库有关的数据F06：商品库存的各种清单、统计、汇总等F07：商品编号、商品数量F08：商品数量F09：商品编号、商品数量F10：商品销售的各种清单、统计、汇总等F11：商品编号、商品数量F12：商品编号、商品数量、金额、日期等F13：商品编号、商品数量F14：商品编号、商品数量，金额等F15：金额F16：商品编号、商品数量，金额F17：合同情况、供货商品情况等3.3.2数据流字典数据流字典如表3.1所示表3.1数据流字典编号标识符来源去向所含数据结构说明1-01F01P1供货商D2入库登陆入库时间、发货人、收货人、数量、单价、货物名称、货物属性1-02F02P1供货商D1核对入库时间、发货人、收货人、数量、单价、货物名称、货物属性、证件号、电话1-03F03S1合同D1核对供货商情况、合同时间、合同金额、合同货物数量、违约情况、性质1-04F04D1核对D2入库登陆商品编号、商品数量1-05F05D2入库登陆S3入库情况商品编号、商品数量、规格、单价、生产厂商、入库时间、经手人1-06F06D1核对P4总经理库存清单、统计报表、商品汇总1-07F07S2库存D1核对库存清单、入库时间、入库数量、入库经手人、出库时间、出库数量、出库经手人1-08F08D2入库登陆S2库存数据修改、入库经手人1-09F09S2库存D3收银销售商品数量、单价、种类、收银员编号1-10F10D3收银P4总经理总收入、时间、单价、商品种类1-11F11D3收银D4销售记录修改收入时间、收入数量、单价、收银员编号、总收入1-12F12D4销售记录修改S4销售情况入库商品数量、单价、商品种类1-13F13D3收银P5客户商品种类、单价、时间、商品总额、打折情况1-14F14P5客户D3收银优惠卡编码、单价、商品数量、付款金额1-15F15P5客户D4销售记录修改商品数量、单价、退货原因编号、退货金额、时间1-16F16P5客户P6客户服务中心商品数量、单价、退货原因编号、时间1-17F17P1供货商S1合同合同时间、合同金额、合同货物数量、违约情况性质3.3.3数据存储字典数据存储字典如表3.2所示：表3.2数据存储字典编号标识符流入数据流流出数据流数据结构说明2-01S1P1供货商D1核对时间、商品数量、商品种类、单价、经手人登记货物发放清单2-02S2D2入库登陆D1核对D3收银商品数量、商品种类、单价、时间、发货人证件号入库的核对2-03S3D2入库登陆商品数量、种类、时间、单价2-04S4D4销售记录修改商品数量、时间、商品种类、单价、退货原因编号3.3.4数据处理字典数据处理字典如表3.3所示表3.3数据处理字典编号标识符流入数据流流出数据流处理逻辑情况说明3-01D1S1合同D2入库登陆根据合同情况和货物情况判断是否生成库存信息管理3-02D2D1核对S3入库情况根据合同情况和货物情况生成库存信息登记管理3-03D3S2库存P5客户P5客户根据客户需求生成需求单管理3-04D4D3收银P5客户S4销售情况入库根据客户使用和退换情况修改销售数据库登记管理4 系统设计4.1 总体设计本系统的总体设计即绘制功能模块结构图及设计接口。从整体上讲，上层功能包括下层功能，下层功能是上层功能的具体实现，上层功能抽象而下层功能具体。具体的功能模块结构图4.1如下：超市进销存销售管理系统销售管理库存管理系统维护进货管理基本档案 员工信息供供应商信息商商品进货商商品查询 商商品销售商商品退货库库存报警库库存查询数数据备份数数据还原图4.1 进销存管理系统模块结构图4.2 详细设计4.2.1 代码设计（1）员工代码设计,由于超市员工有几十人，因此，将员工的代码设计成由两位表意码和三位顺序码组成的五位层次码。设计方案如图4.2所示：YG-001顺序码表意码图4.2 员工代码设计方案（2）商品代码设计，商品代码采用由五位字符组成的层次码，设计方案如图4.3所示：SP-001顺序码表意码图4.3 商品代码方案设计（3）商品进货流水号代码方案设计，考虑超市商品采购时间的不确定，每天采购量的不确定性，采用的编码设计方案如图4.4所示:2011/12/20001顺序号进货时间图4.4 商品进货流水号设计方案4.2.2 输出设计超市进销存管理系统所输出信息的使用者是各级部门的主管。主要输出的信息包括：进货信息报表；仓储信息报；销售业绩报表；及库存报警信息和商品退货信息。输出设备采用屏幕输出以及打印输出供主管参考进行决策分析。商品进货的输出设计如下： 表4.1 商品进货信息输出设计表商品进货输出设计书资料代码Zl001输出名称商品进货输出设计书处理周期本工作日形式打印报表种类份数3份报送财务部门、仓储部门、经理办公室项目号项目名称位数及编辑备注1流水号152商品编号203商品名称504进货时间短日期5操作员编号206供应商1007商品数量整型8计量单位509进货单价单精度10销售单价单精度11应付金额单精度12实付金额单精度13所属仓库5014备注2004.2.3 输入设计输入设计的目的是在保证信息系统提供正确信息和满足需要的前提下，尽可能做到输入方法的简单、迅速、经济、方便。本系统商品进货信息录入设计如表4.2所示：图4.2 商品进货信息录入设计项目号项目名称位数及编辑备注1流水号152商品编号203商品名称504进货时间短日期5操作员编号206供应商1007商品数量整型8计量单位509进货单价单精度10销售单价单精度11应付金额单精度12实付金额单精度13所属仓库5014备注200同理，其他输入界面设计于此类似。4.2.4 数据库结构设计(1)概念结构设计（E-R图）供应商信息表备注地址加入日期传真是否发布供应商编号供应商姓名联系人姓名联系电话图4.5 供应商信息实体E-R图员工信息表家庭电话手机号码员工职位家庭住址所属部门是否发布员工生日登录ID登录密码员工性别员工姓名员工编号图4.6 员工信息实体E-R图进货信息表应付金额实付金额销售单价备注进货时间删除标记进货单价商品计量单位商品数量进货公司名称商品编号操作员编号货物名称仓库名称图4.7 进货信息实体E-R图库存信息表进货价格进货时间商品计量单位位警报数量库存数量销售价格进货员工备注供应商名称仓库名称商品名称商品编号库存编号图4.8 库存信息实体E-R图商品销售应付金额实付金额销售单价备注销售时间删除标记销售数量商品编号员工编号商品名称库存编号销售编号图4.9商品销售信息实体E-R图图4.10商品退货信息实体E-R图（2）数据库逻辑结构设计表4.3供应商信息表字段名数据类型主键长度供应商编号文本否50供应商姓名文本否100联系人姓名文本否50联系电话文本否20传真文本否20地址文本否200备注备注否400加入日期日期/时间否8是否发布是/否否4表4.4员工信息表字段名数据类型主键长度员工编号文本是20员工姓名文本否20登录ID数字否20登录密码文本否20员工性别文本否4员工生日日期/时间否8所属部门文本否20员工职位文本否20家庭电话文本否20手机号码文本否20家庭住址文本否200是否发布是/否否1表4.5进货信息表字段名数据类型主键长度商品编号文本是20操作员编号文本否20进货公司名称文本否100仓库名称文本否20货物名称文本否50商品数量数字否4商品计量单位文本否20进货单价文本否8销售单价文本否8应付金额文本否8实付金额文本否8备注备注否200进货时间日期/时间否8删除标记数字否45 系统实施5.1 登录模块设计登录表单的设计主要是使用户能够以自己的用户名和登录密码进入到系统内，进行对超市进销存信息的管理。主要实现以下功能：（1） 能够检索数据库，检验用户名和密码是否存在（2） 如果用户名正确，检验密码输入是否正确（3） 如果大于三次密码输入错误，系统自动关闭表单界面如图5.1所示：图5.1 登录界面窗口具体代码编写如下：（1）“确定”按钮的Click事件代码Static iAdodc1.Recordset.Find "登录ID='" & Text1.Text & "'", , , 1If Adodc1.Recordset.EOF Then MsgBox "该用户不存在", vbOKOnly, "信息提示" Text1.Text = "" Text2.Text = "" Text1.SetFocus Adodc1.Recordset.MoveFirstElseIf Text2.Text = Adodc1.Recordset.Fields("登录密码") Then Form2.Show Unload MeElseIf i <= 2 Then MsgBox "输入密码错误！", vbOKOnly, "信息提示" Text2.Text = "" Text2.SetFocus i = i + 1 If i > 2 Then Unload MeEnd If（2）“重置”按钮的Click事件代码Unload Me5.2 基本档案模块设计5.2.1 员工基本信息表单根据系统功能，将表单的界面设计如图5.2所示：图5.2 员工基本信息管理界面具体代码编写如下：（1）查询按钮的Click事件代码如下Select Case Combo3.Text Case "员工编号" Adodc1.Recordset.Find "员工编号='" & Text9.Text & "'", , , 1 If Text9.Text = "" Then MsgBox "请输入要查询的员工编号", vbOKOnly, "信息提示" Text9.SetFocus ElseIf Adodc1.Recordset.EOF Then MsgBox "该员工不存在", vbOKOnly, "信息提示" Else Text1.Text = Adodc1.Recordset.Fields("员工编号") Text2.Text = Adodc1.Recordset.Fields("姓名") Text3.Text = Adodc1.Recordset.Fields("职位") Text4.Text = Adodc1.Recordset.Fields("登录ID") Text5.Text = Adodc1.Recordset.Fields("登录密码") Text6.Text = Adodc1.Recordset.Fields("家庭电话") Text7.Text = Adodc1.Recordset.Fields("手机号码") Text8.Text = Adodc1.Recordset.Fields("家庭住址") Combo1.Text = Adodc1.Recordset.Fields("性别") Combo2.Text = Adodc1.Recordset.Fields("所属部门") DTPicker1.Value = Adodc1.Recordset.Fields("出生日期") End If Case "员工姓名" Adodc1.Recordset.Find "员工姓名='" & Text9.Text & "'", , , 1 If Text9.Text = "" Then MsgBox "请输入要查询的员工姓名" Text9.SetFocus ElseIf Adodc1.Recordset.EOF Then MsgBox "该员工不存在", vbOKOnly, "信息提示" Else Text1.Text = Adodc1.Recordset.Fields("员工编号") Text2.Text = Adodc1.Recordset.Fields("姓名") Text3.Text = Adodc1.Recordset.Fields("职位") Text4.Text = Adodc1.Recordset.Fields("登录ID") Text5.Text = Adodc1.Recordset.Fields("登录密码") Text6.Text = Adodc1.Recordset.Fields("家庭电话") Text7.Text = Adodc1.Recordset.Fields("手机号码") Text8.Text = Adodc1.Recordset.Fields("家庭住址") Combo1.Text = Adodc1.Recordset.Fields("性别") Combo2.Text = Adodc1.Recordset.Fields("所属部门") DTPicker1.Value = Adodc1.Recordset.Fields("出生日期") End If Case "" MsgBox "请输入查询条件" End Select（2）“新增”按钮的Click事件代码如下 Command2.Enabled = False Command3.Enabled = False If Command1.Caption = "新增" Then Command1.Caption = "确认" Text1.SetFocus Else Adodc1.Recordset.AddNew Adodc1.Recordset.Fields("员工编号") = Text1.Text Adodc1.Recordset.Fields("姓名") = Text2.Text Adodc1.Recordset.Fields("职位") = Text3.Text Adodc1.Recordset.Fields("登录ID") = Text4.Text Adodc1.Recordset.Fields("登录密码") = Text5.Text Adodc1.Recordset.Fields("家庭电话") = Text6.Text Adodc1.Recordset.Fields("手机号码") = Text7.Text Adodc1.Recordset.Fields("家庭住址") = Text8.Text Adodc1.Recordset.Fields("性别") = Combo1.Text Adodc1.Recordset.Fields("所属部门") = Combo2.Text Adodc1.Recordset.Fields("出生日期") = DTPicker1.Value Command1.Caption = "新增" Command2.Enabled = True Command3.Enabled = True Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" Text7.Text = "" Text8.Text = "" Combo1.Text = "" Combo2.Text = "" DTPicker1.Value = Date Adodc1.Recordset.UpdateEnd If （3）删除按钮的Click事件代码如下 On Error Resume Next If MsgBox("确定删除该记录么？", vbYesNo, "信息提示") = vbYes Then Adodc1.Recordset.Delete End If（4）关闭按钮的click事件代码如下Unload Me5.2.2 供应商信息管理此表单界面与员工基本信息管理表单类似。需要实现对供应商信息的增加、删除、修改、和查询功能。具体界面设计如图5.3：图5.3 供应商信息管理界面具体按钮代码与员工基本信息表单类似。5.3 进货模块设计5.3.1 商品进货商品进货表单设计如图5.4：图5.4 商品进货窗口具体代码编写如下：（1）“新增”按钮的click事件 Command2.Enabled = False Command3.Enabled = False If Command1.Caption = "新增" Then Command1.Caption = "确认" Text1.SetFocus Else Adodc1.Recordset.AddNew Adodc1.Recordset.Fields("商品编号") = Text1.Text Adodc1.Recordset.Fields("商品名称") = Text2.Text Adodc1.Recordset.Fields("操作员编号") = Text3.Text Adodc1.Recordset.Fields("供应商") = Text4.Text Adodc1.Recordset.Fields("商品数量") = Text5.Text Adodc1.Recordset.Fields("进货单价") = Text6.Text Adodc1.Recordset.Fields("销售单价") = Text7.Text Adodc1.Recordset.Fields("仓库名称") = Combo2.Text Adodc1.Recordset.Fields("应付金额") = Text8.Text Adodc1.Recordset.Fields("实付金额") = Text9.Text Adodc1.Recordset.Fields("备注") = Text10.Text Adodc1.Recordset.Fields("计量单位") = Combo1.Text Adodc1.Recordset.Fields("进货时间") = DTPicker1.Value Command1.Caption = "新增" Command2.Enabled = True Command3.Enabled = True Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" Text7.Text = "" Text8.Text = "" Text9.Text = "" Text10.Text = "" Combo1.Text = "" Combo2.Text = "" DTPicker1.Value = Date Adodc1.Recordset.Update End If（2）“修改”按钮的click事件If Command3.Caption = "修改" Then Command3.Caption = "确认" Text1.Text = Adodc1.Recordset.Fields("商品编号") Text2.Text = Adodc1.Recordset.Fields("商品名称") Text3.Text = Adodc1.Recordset.Fields("操作员编号") Text4.Text = Adodc1.Recordset.Fields("供应商") Text5.Text = Adodc1.Recordset.Fields("商品数量") Text6.Text = Adodc1.Recordset.Fields("进货单价") Text7.Text = Adodc1.Recordset.Fields("销售单价") Combo2.Text = Adodc1.Recordset.Fields("仓库名称") Text8.Text = Adodc1.Recordset.Fields("应付金额") Text9.Text = Adodc1.Recordset.Fields("实付金额") Text10.Text = Adodc1.Recordset.Fields("备注") Combo1.Text = Adodc1.Recordset.Fields("计量单位") DTPicker1.Value = Adodc1.Recordset.Fields("进货时间") Else Adodc1.Recordset.Fields("商品编号") = Text1.Text Adodc1.Recordset.Fields("商品名称") = Text2.Text Adodc1.Recordset.Fields("操作员") = Text3.Text Adodc1.Recordset.Fields("供应商") = Text4.Text Adodc1.Recordset.Fields("商品数量") = Text5.Text Adodc1.Recordset.Fields("进货单价") = Text6.Text Adodc1.Recordset.Fields("销售单价") = Text7.Text Adodc1.Recordset.Fields("所属仓库") = Combo2.Text Adodc1.Recordset.Fields("应付金额") = Text8.Text Adodc1.Recordset.Fields("实付金额") = Text9.Text Adodc1.Recordset.Fields("备注") = Text10.Text Adodc1.Recordset.Fields("计量单位") = Combo1.Text Adodc1.Recordset.Fields("进货时间") = DTPicker1.Value Command1.Caption = "新增" Command2.Enabled = True Command3.Enabled = True Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text =