小型自选商场综合管理系统

. MIS系统 策划书负 责 项 目 ：小型自选商场综合管理系统 负责人姓名 ：李京泽 团 队 成 员：奉奇，叶虹，杨祥英，付璐宁，梁立兵，杨小东，胡春桃，周汉军，易凯，蔡强，李京泽 1项目开发背景：32系统分析：42.1：可行性分析42.2：组织结构分析52.3: 系统功能分析52.4. 业务流程分析72.5. 数据流程分析92.5.1信息要求92.5.2数据流程图103系统设计123.1:系统目标123.2:系统功能123.3:数据字典133.3.1数据项133.3.2数据存储133.4程序设计143.5：程序代码214心得体会27小型自选商场综合管理系统1项目开发背景：自选商场是当今社会重要的组成部分，是人们日常生活的主要活动场所。因此如何管理自选商场，提高商场的工作效率，不仅是关系一个商场企业的重要措施，也是关系人们日常生活的重要事情。计算机介入自选商场管理，不仅可以提高自选商场管理的效率，而且可以提高自选商场业务管理能力。自选商场管理系统的主要任务是使自选商场产品的管理工作系统划，规范化，自动化，从而达到提高自选商场业务的目的。自选商场管理软件主要实现自选商场产品信息的录入，查询，即使更新库存，以及针对不同的员工，不同的客户，实现对每笔业务，每日每月的业务的管理，并能即使调查员工销售情况，以及某个厂商或供应商的信息，这样的管理系统明确销售目的与方案，从而保证销售业绩，查询顾客信息，即使反馈信息。2系统分析：2.1：可行性分析（1）管理可行性分析：系统的管理可行性体现在可以查询商品的进货记录，并能按月进行统计，也可以记录每一笔售货，查询商品的销售情况，并能进行日盘存、月盘存，能按月统计某个员工的销售业绩，在记录进货及售货的同时，能动态刷新库存，能打印库存清单，查询某种商品的库存情况。能查询某个厂商或供应商的信息。能查询某个员工的基本信息。收银台操作中，能根据输入的商品编号、数量，显示某顾客所购商品的清单，并显示收付款情况，而且可以做系统初始化的工作。（2）技术可行性分析：前台开发工具采用Borland公司的Delphi 7，后台采用SQL Server 2000。Delphi 7 是功能强大的可视化开发工具，易于上手。SQL Server 2000 数据库是目前全球使用最多的关系数据库系统，在安全性和易用性都不是问题，技术上具有可行性。（3）经济可行性分析：当前计算机硬件成本在不断下降，软件也由于竞争而使性能价格比日趋合理，本系统所需的软硬件成本并不是很高，高校完全有能力接受。（4）同时，采用本系统后可以带来以下几个经济效益: 提高工作效率，将日常大部分工作简化成键盘录入，为管理过程提供快速、准确的数据。减少手工操作过程的失误，避免舞弊现象。 提供统计功能，利于小型自选商场校对各种信息的分析与决策，最终全面提高管理水平，使小型自选商场的管理走向标准化，有利于小型自选商场合理的进货和促销以及对员工的业绩考核和分析潜在顾客。通过以上论述，认为系统具有经济可行性。2.2：组织结构分析 组织结构图主管 销售部采购部库存部收银台供应商仓库2.3: 系统功能分析系统主要功能模块该管理系统主要分为七大模块，具体如下：1） 进货管理模块：进货操作，退货操作，进货信息管理。2） 销货管理模块：销售信息管理，顾客退货操作，销售情况查询功能。3） 库存管理模块:查询商品信息，员工查询商品信息，商品入库，商品出库，修改商品属性（形码编号，设置折扣等）。4）人事资料管理模块:用户修改自己的登录密码及常用资料（家庭住址，电话等），管理层员工信息，增加、删除、修改员工信息；供货信息管理。5） 财务及统计模块：日销售清单的查询与统计，月销售情况统计，指定月份的销售总计，销售排行。6）系统管理模块：操作员限权，系统设置，数据库备份和恢复。功能分析图：主管部门 销售管理 库存管理 采购管理销售员信息管理收银管理采购员信息管理供应商信息管理进货信息管理库工信息管理出库信息管理入库信息管理销售信息管理月销售信息管理日销售信息管理2.4. 业务流程分析进货管理：商品进货信息包括商品进货数量、单价、进货商等。商品进货管理功能完成进货信息登记、修改和删除等。分类查看：可以根据商品类型来查看某种商品的进货情况。更新库存：进货信息的变化直接关系到库存的变化。进货分析：列出当前进货量的最多的前几项商品和进货量最少的前几项商品。库存分析：列出当前库存量最多的前几项商品和库存最少的前几项商品。销售信息管理：商品销售数量、单价、统计日期等。分类查看：可以根据商品类型来查看某种商品的销售情况。更新库存：销售信息的变动直接关系到课程的变化。销售分析：列出当前销售量最多的前几项商品和销售量最少的前几项商品。库存管理：商品库存的信息包括商品的进货，入库，出库，以及库存商品工的信息，一方面动态刷新库存。能打印库存清单，查询某种商品的库存情况；另一方面查询员工或者供应商出货入库等的信息，从而让管理系统完善。商品基本信息的维护：商品的查询、添加、删除、修改。查询包括进货查询、销售查询和库存查询。供货商信息管理：包括供货商信息的新建、修改和删除等。业务流程图： 员工基本信息表顾客购买信息职工月销售月业绩表月销售明细表日销售明细表收银员销售员销售部门领货通知库工领货单批准的领货单库长 未批准的 领货单进货单库存表供应商信息采购员员工基本信息表 2.5. 数据流程分析2.5.1信息要求库存商品ID名称型号规格产地单位定价折扣率库存数量最低存量供应商IDVarcharVarcharVarcharVarcharVarcharFloatFloatIntIntVarchar售货售货ID商品ID售价数量金额存根号销售日期Var charVar charFloatIntFloatVar charVar char进货进货ID商品ID进价数量金额进货日期Var charVar charFloatIntFloatVar char供应商供应商ID供应商名称邮编地址电话联系人联系电话Var charVar charVar charVar charVar charVar charVar char日盘存商品ID售价数量金额销售日期Var charFloatIntFloatVar char月盘存商品ID售价数量金额Var charFloatIntFloat2.5.2数据流程图顶层数据流程图 P2 销售处理库长 P1 库存处理采购员 进货单 领货单 自选商场 管理系统供应商 发货通知单 售货单 消费者 订货单 消费清单 小型自选商场综合管理信息系统第二层数据流程图库存处理采购员 供应商信息表 员工信息表 更新 P1.1 记录进货库长 进货信息 单 货 领 P1.2审核处理库工销售部门 未通过 通过 领货通知小型自选商场综合管理信息系统第二层数据流程图销售处理 顾客购买信息收银员 更新员工信息表 P2.1记录销售 日销售表销售员 更新员工月销售业绩表 P2.2月统计处理 月销售表3系统设计3.1:系统目标建立规范的业务管理模式，是业务人员从繁忙的手工开票的工作中解脱出来，提高工作效率，减少人为差错。提供快速、准确的处理企业商品进、销、存业务模式。系统界面友好美观，操作简单易行，查询灵活方便，数据存储安全可靠。3.2:系统功能（1）进货处理模块：能记录每一笔进货，查询商品的进货记录，并能按月进行统计。（2）库存处理，模块：在记录进货及售货的同时，必须动态刷新库存。能打印库存清单，查询某种商品的库存情况。（3）销售业绩处理模块：能记录每一笔收货，查询商品的销售情况，并能进行日盘存、月盘存。（4）供应商信息处理模块:能查询某个厂商或供应商的信息。（5）收银台操作模块：能根据输入的商品编号、数量，显示某顾客所购商品的清单，并显示收付款情况。（6）员工信息处理模块：能查询某个员工的基本信息，能按月统计某个员工的销售业绩。3.3:数据字典3.3.1数据项名称 说明商品编号 惟一标识一位商品员工编号 惟一标识一位员工客户编号 惟一标识一个客户供应商编号 惟一标识一个供应商销售票号 以此记录一次销售登记毛利 销售某种商品获得的利润操作员 系统登录者仓库名称 惟一标识某个仓库警戒上限 商品数量的最高限警戒下限 商品数量的最低限品种数 销售、入库时交易的商品种数结算方式 进行交易时所采取的结算方式是否结清 记录某笔交易是否已结清帐3.3.2数据存储名称 说明 商品信息表 记录商品的基本信息库存表 记录库存信息 销售登记表 记录销售时的商品及数量信息 销售票号表 记录销售时的客户、经手人、操作员、日期等信息入库登记表 记录入库时的商品及数量信息 入库票号表 记录入库时的供应商、经手人、操作员、日期等信息 计算方式表 用于存储结算方式3.4程序设计1） 软件登陆主界面2） 管理界面3） 库存记录查询4） 日盘存5） 月盘存6） 进货记录查询7） 收银台8） 售货记录查询9） 供货商信息查询10） 员工信息查询商品库（pos_spk)：字段名标题数据类型字段宽度小数位数Bm商品编码字符型（C）100Pm商品名称字符型（C）300Gys供应商编码字符型（C）70Jdj进货单价数值型（N）92sdj售货单价数值型（N）92库存库（pos_kck)：字段名标题数据类型字段宽度小数位数Bm商品编码字符型（C）100Pm商品名称字符型（C）300Jhrq进货日期日期型（D）80Jhsl进货数量数值型（N）60Jdj进货单价数值型（N）92Xhrq销货日期日期型（D）80Xhsl销售数量数值型（N）60Xdj销售单价数值型（N）92Kcsl库存数量数值型（N）60ygs供应商编码字符型（C）70销售库（pos_xsk）：字段名标题数据类型字段宽度小数位数Bm商品编码字符型（C）100Pm商品名称字符型（C）300Rq日期日期型（D）80Kh客户编码字符型（C）80Sdj单价数值型（N）102Sl数量数值型（N）60Zk折扣数值型（N）10Sh操作员编码字符型（C）40Xhbm销售编码数值型（N）100供应商库（pos_gys）：字段名标题数据类型字段宽度小数位数Gys供应商编码字符型（C）70Mz姓名字符型（C）600Yb邮政编码字符型（C）60Lxr联系人字符型（C）80Dh电话字符型（C）140Dh_z电话（宅）字符型（C）140Zh账号字符型（C）200Khh开户行字符型（C）600km户名字符型（C）600员工库（pos_yg）字段名标题数据类型字段宽度小数位数Bm员工编码字符型（C）40Xm姓名字符型（C）80Qx权限字符型（C）60Mm密码字符型（C）603.5：程序代码* 小型自选商场综合管理系统_APP.PRG* This file is a generated, framework-enabling component* created by APPBUILDER * (c) Microsoft Corporation* Framework-generated application startup program* for G:李京泽VF6.0小型自选商场综合管理系统 Project#INCLUDE .小型自选商场综合管理系统_APP.HIF TYPE(APP_GLOBAL.Class) = C AND ; UPPER(APP_GLOBAL.Class) = UPPER(APP_CLASSNAME) MESSAGEBOX(APP_ALREADY_RUNNING_LOC,48, ; APP_GLOBAL.cCaption ) IF VARTYPE(APP_GLOBAL.oFrame) = O APP_GLOBAL.oFrame.Show() ENDIF RETURN ENDIF RELEASE APP_GLOBALPUBLIC APP_GLOBALLOCAL lcLastSetTalk, llAppRan, lnSeconds, loSplashLOCAL ARRAY laCheck1lcLastSetTalk=SET(TALK)loSplash = .NULL.SET TALK OFF#IFDEF APP_SPLASHCLASS IF NOT EMPTY(APP_SPLASHCLASS) loSplash = NEWOBJECT(APP_SPLASHCLASS, APP_SPLASHCLASSLIB) IF VARTYPE(loSplash) = O lnSeconds = SECONDS() loSplash.Show() ENDIF ENDIF #ENDIFAPP_GLOBAL = NEWOBJECT(APP_CLASSNAME, APP_CLASSLIB)IF VARTYPE(APP_GLOBAL) = O ; AND ACLASS(laCheck,APP_GLOBAL) 0 AND ; ASCAN(laCheck,UPPER(APP_SUPERCLASS) 0 APP_GLOBAL.cReference =APP_GLOBAL APP_GLOBAL.cFormMediatorName = APP_MEDIATOR_NAME #IFDEF APP_CD APP_CD #ENDIF #IFDEF APP_PATH APP_PATH #ENDIF #IFDEF APP_INITIALIZE APP_INITIALIZE #ENDIF IF VARTYPE(loSplash) = O IF SECONDS() lnSeconds + APP_SPLASHDELAY =INKEY(APP_SPLASHDELAY-(SECONDS()-lnSeconds),MH) ENDIF loSplash.Release() loSplash = .NULL. ENDIF RELEASE laCheck, loSplash, lnSeconds IF NOT APP_GLOBAL.Show() IF TYPE(APP_GLOBAL.Name) = C MESSAGEBOX(APP_CANNOT_RUN_LOC,16, ; APP_GLOBAL.cCaption ) APP_GLOBAL.Release() ELSE MESSAGEBOX(APP_CANNOT_RUN_LOC,16) ENDIF ELSE llAppRan = .T. ENDIF IF TYPE(APP_GLOBAL.lReadEvents) = L IF APP_GLOBAL.lReadEvents * the Release() method was not used * but weve somehow gotten out of READ EVENTS. APP_GLOBAL.Release() ENDIF ELSE RELEASE APP_GLOBAL ENDIFELSE MESSAGEBOX(APP_WRONG_SUPERCLASS_LOC,16) RELEASE APP_GLOBALENDIFIF lcLastSetTalk=O