超市管理信息系统课程设计.docx

资源描述

超市管理信息系统课程设计.docx

《超市管理信息系统课程设计.docx》由会员分享，可在线阅读，更多相关《超市管理信息系统课程设计.docx（16页珍藏版）》请在冰豆网上搜索。

超市管理信息系统课程设计.docx

《管理信息系统》课程设计报告

校园量多超市管理系统开发

班级：

09工业工程

姓名：

陈天文学号：

20091477

指导教师：

付宏财老师

设计时间：

2012年7月10日

一、课程设计任务书 2

1、课程设计项目 2

2、要求 2

3、计划安排 3

4、考核内容和方式 3

二、系统概述 3

1背景：

2需求调查：

三、系统分析 5

1组织机构图 5

2业务功能图 6

3业务流程图 6

4数据流程图 7

四、界面设计，窗口运行状况及设计代码 7

1.设计思路 7

2、设计方案 8

3界面设计 8

4运行界面 9

5设计代码 14

①Form1“登录”按钮程序代码 14

②Form2“查询”按钮程序代码 15

③Form2“查看商品信息”按钮程序代码 15

⑤Form2“退出”按钮程序代码 16

⑥Form3“返回查询窗口”按钮程序代码 17

五、课程设计结论 17

一、课程设计任务书

1、课程设计项目

针对你较熟悉的一个中小型单位/公司的实际情况，对其管理业务和现有信息管理方案进行调研，对其新的管理信息系统开发提出规划，并进行系统分析（绘制其组织结构图、业务功能图、业务流程图、数据流程图等）、系统设计（？

），在设计中请利用

VB、VC、C、Excel或Access等程序语言对主要的信息管理子系统进行窗口化设计，并编写子程序代码。

2、要求

通过本课程设计，综合利用该门课程所学的理论和实验知识与技能，对一个小型企业的信息管理意识、综合措施与计算机系统方案进行实际分析，并作优化与改进（改造）设计，要求分析设计的内容考虑周全、实用，并具有远见性；系统设计方案合理，部分环节的程序编写正确。

要求：

（1）调研措施得当，并能深入实际，获取的信息较为全面、实用；

（2）能查阅整理相关文献资料，能按照课程设计的要求独立进行，能按规定的格式撰写；分析体现的基础理论知识扎实；（3）设计的综合方案合理，技术得当，体现一定的技术水平和远见性；（4）系统实现的技术路线可行，局部的程序编写正确。

3、计划安排

依据学校课程安排，第三学期内完成。

4、考核内容和方式

从以下几个方面综合权衡打分：

（1）调研工作（深入实际与资料查询）深入的程度；

（2）分析与设计体现的理论知识水平；

（3）技术路径与方法是否得当；

（4）编写的程序的适用程度以及各子程序代码正确与否；

（5）运行效果评价。

二、系统概述

1背景：

校园量多超市位于云南农业大学天桥下，经营的业务范围包括百货，日用品，文具用品等多种商品。

其营运模式是现代化企业经营管理模式，其管理信息系统是一套针对现代企业管理的需求，结合先进企业管理理念，运用先进的技术手段，精心开发的软件产品。

本系统主要用于企业采购、销售、库存、应收、应付、发票、销售的管理。

通过本软件可以实现企业采购、销售、库存、付款、收款、

发票的集中式信息化管理，提高企业的管理水平与经济效益。

（1）、采购管理：

实现采购单的制作、审核、执行情况跟踪、统计等

（2）、销售管理：

实现销售单的制作、审核、执行情况跟踪、统计等（3）、库存管理：

实现入库，出库，盘点，调拨的管理。

由于本系统设计针对该超市的具体情况，因此用户需求的目的是通过该企业的

2需求调查：

从中总结出企业对管理信息系统的需求，然后根据这些需求设计出系统的方案。

需求收集和分析是数据库设计的第一阶段。

需求分析定义了软件产品的各种用户需求如功能、性能等，需求分析是否透彻、完整、正确是软件项目成败的关键。

这一阶段收集到的基

础数据是下一步设计概念结构的基础。

从数据库设计的角度考虑，需求分析阶段的目标是:

对现实世界要处理的对象（组织、部门、企

业等）进行详细调查，在了解原系统的概况，确定新系统功的过程中，收集支持系统目标的基础数据及其处理，最重要的就是建立用户数

据模型。

无论是采取哪种开发策略，都需要访问用户、记录需求，并根据这些需求建立数据模型的原型，这样的模型标识了需要在数据库中存储的内容和它们的结构及相互关系。

进行数据建模要求既要有一定的行业知识，又要精通建模的方法和技巧。

销售管理模块包括货单的录入和维护；对销售情况进行统计；对商品的零售和批发进行管理和付款的计算机操作等。

进货管理模块包括进货资料录入和维护;采购订单的录入和维护和付款的计算机的操作等。

和传统管理模式相比较，使用本系统，毫无疑问会大大提高超市的运作效率，辅助提高超市的决策水平，管理水平，为降低经营成本，提高效益，减少差错，节省人力，减少顾客购物时间，增加客流量，提高顾客满意度，增强超市扩张能力，提供有效的技术保障。

财务部门

仓库管理部门

三、系统分析

1组织机构图

店长

销售部门

。

销售员。

。

商品盘点

商品采购

2业务功能图

仓库管理

库存管理

库存统计

出库管理

入库管理

采购管理

编制采购计划

3业务流程图

销售员

仓库

领货单

店长

销售计划

已批准的领货单

缺货通知

采购员

仓库管理员

库存单

未批准的领货单

领货通知

4数据流程图

o 、界面设计，窗口运行状况及设计代码

1.设计思路

校园量多超市管理系统主要涉及销售员信息管理、商品信息管理和销售信息管理，因此做如下处理：

（1）每个销售员对应于一个唯一的销售员编号。

销售员编号有4

位数，前3选取101，后1位从0~4之间选取；

（2）每件商品对应于唯一的商品编号，商品编号从1开头；

程序设计采用VB 6.0和Access数据库进行，二者连接采用

Adodc和DataGrid控件

2、设计方案

在Access 数据库中设计三张表格，分别为销售员信息表、商品信息表、销售信息表，销售员在商品查询时输入自己的销售员编

号和密码后就可以登录商品信息查询系统进行查询信息。

3界面设计

登录界面

查询界面

4运行界面

（1）登陆界面

①输入正确销售员编号及其密码

其运行界面如下图

②输入错误销售员编号或密码

其运行窗口如下图

③在输入正确销售员编号及密码之后，在其运行窗口中，输入不存在的商品号或商品名称

其运行窗口如下图

④输入正确商品号或商品名称，并且按正确方式查询

其运行窗口如下图

⑤点击返回查询窗口，其界面会返回到销售员密码窗口

5设计代码

①Form1“登录”按钮程序代码

DimxAsString,yAsStringPrivateSubCommand1_Click（）x=""

y=""

Adodc1.Recordset.MoveFirst

DoUntilAdodc1.Recordset.EOFDataGrid1.Col=0

If（Trim（Text1.Text）=Trim（DataGrid1.Text））Thenx=Trim（Text1.Text）

DataGrid1.Col=2

If（Trim（Text2.Text）=Trim（DataGrid1.Text））Theny=Trim（Text2.Text）

EndIfEndIf

Adodc1.Recordset.MoveNextLoop

If（x<>""Andy<>""）ThenForm1.Hide

Form2.ShowElse

MsgBox（"管理员姓名或密码不正确"）EndIf

EndSub

②Form2“查询”按钮程序代码

PrivateSubCommand1_Click（）

Adodc2.Recordset.MoveFirstx=""

DoUntilAdodc2.Recordset.EOFDataGrid1.Col=0

If（Trim（Text1.Text）=Trim（DataGrid1.Text））Thenx=Trim（Text1.Text）

DataGrid1.Col=0Text2.Text=DataGrid1.TextDataGrid1.Col=1Text4.Text=DataGrid1.TextDataGrid1.Col=2Text5.Text=DataGrid1.TextDataGrid1.Col=3Text6.Text=DataGrid1.TextDataGrid1.Col=4Text7.Text=DataGrid1.TextDataGrid1.Col=5Text8.Text=DataGrid1.TextDataGrid1.Col=6Text9.Text=DataGrid1.TextExitDo

EndIfAdodc2.Recordset.MoveNextLoop

If（x=""）Then

MsgBox（"经查询，无此职工信息"）EndIf

EndSub

PrivateSubCommand2_Click（）Form2.Hide

Form1.ShowEndSub

PrivateSubLabel4_Click（）Form2.Hide

Form1.ShowEndSub

PrivateSubLabel1_Click（）Form2.Hide

Form3.ShowEndSub

③Form2“查看商品信息”按钮程序代码

PrivateSubCommand1_Click（）

Adodc2.Recordset.MoveFirstx=""

DoUntilAdodc2.Recordset.EOFDataGrid1.Col=0

If（Trim（Text1.Text）=Trim（DataGrid1.Text））Thenx=Trim（Text1.Text）

EndIfAdodc2.Recordset.MoveNextLoop

If（x=""）Then

MsgBox（"经查询，无此职工信息"）EndIf

EndSub

PrivateSubCommand2_Click（）Form2.Hide

Form1.ShowEndSub

Priva

展开阅读全文