校园量多超市管理信息系统课程设计.docx
- 文档编号:1426604
- 上传时间:2022-10-22
- 格式:DOCX
- 页数:12
- 大小:33.43KB
校园量多超市管理信息系统课程设计.docx
《校园量多超市管理信息系统课程设计.docx》由会员分享,可在线阅读,更多相关《校园量多超市管理信息系统课程设计.docx(12页珍藏版)》请在冰豆网上搜索。
校园量多超市管理信息系统课程设计
工程技术学院
课程设计
题目:
校园量多超市管理信息系统
专业:
工业工程
年级:
2008 级
学号:
20081308
姓名:
杨绍东
指导教师:
付宏财
日期:
2011-7-14
云南农业大学工程技术学院
一、课程设计任务书1
二、 系统概述2
三、 系统分析3
1.1 系统目标总体描述 2
1.2 系统涉及的业务流程分析及描述与相关业务流程图3
1.3 系统涉及的数据流程分析及描述和相关组织结构图4
1.4 系统涉及的数据流程分析及描述和相关数据流程图5
四 、界面设计,窗口运行状况及设计代码6
3 界面设计7
3.1 系统主窗体设计及主界面的运行7
3.2 主要程序源代码12
五、课程设计结论16
1
一、课程设计任务书
1、课程设计项目
针对你较熟悉的一个中小型单位/公司的实际情况,对其管理业
务和现有信息管理方案进行调研,对其新的管理信息系统开发提出
规划,并进行系统分析(绘制其组织结构图、业务功能图、业务流
程图、数据流程图等)、系统设计(?
),在设计中请利用
VB、VC、C、Excel 或 Access 等程序语言对主要的信息管理子系统
进行窗口化设计,并编写子程序代码。
2、要求
通过本课程设计,综合利用该门课程所学的理论和实验知识与
技能,对一个小型企业的信息管理意识、综合措施与计算机系统方
案进行实际分析,并作优化与改进(改造)设计,要求分析设计的
内容考虑周全、实用,并具有远见性;系统设计方案合理,部分环
节的程序编写正确。
要求:
(1)调研措施得当,并能深入实际,获
取的信息较为全面、实用;
(2)能查阅整理相关文献资料,能按照
课程设计的要求独立进行,能按规定的格式撰写;分析体现的基础
理论知识扎实;(3)设计的综合方案合理,技术得当,体现一定的
技术水平和远见性;(4)系统实现的技术路线可行,局部的程序编
写正确。
3、计划安排
依据学校课程安排,第三学期内完成。
4、考核内容和方式
从以下几个方面综合权衡打分:
(1)调研工作(深入实际与资料查询)深入的程度;
(2)分析与设计体现的理论知识水平;
(3)技术路径与方法是否得当;
2
(4)编写的程序的适用程度以及各子程序代码正确与否;
(5)运行效果评价。
二、 系统概述
1 背景:
校园量多超市位于云南农业大学天桥下,经营的业务范围包括
百货,日用品,文具用品等多种商品。
其营运模式是现代化企业经
营管理模式,其管理信息系统是一套针对现代企业管理的需求,结
合先进企业管理理念,运用先进的技术手段,精心开发的软件产品。
本系统主要用于企业采购、销售、库存、应收、应付、发票、销售
的管理。
通过本软件可以实现企业采购、销售、库存、付款、收款、
发票的集中式信息化管理,提高企业的管理水平与经济效益。
(1)、
采购管理:
实现采购单的制作、审核、执行情况跟踪、统计等
(2)、
销售管理:
实现销售单的制作、审核、执行情况跟踪、统计等(3)、
库存管理:
实现入库,出库,盘点,调拨的管理 。
由于本系统设计
针对该超市的具体情况,因此用户需求的目的是通过该企业的
2 需求调查:
从中总结出企业对管理信息系统的需求,然后根据这些需求设
计出系统的方案。
需求收集和分析是数据库设计的第一阶段。
需求
分析定义了软件产品的各种用户需求如功能、性能等,需求分析是
否透彻、完整、正确是软件项目成败的关键。
这一阶段收集到的基
础数据是下一步设计概念结构的基础。
从数据库设计的角度考虑,
需求分析阶段的目标是:
对现实世界要处理的对象(组织、部门、企
业等)进行详细调查,在了解原系统的概况,确定新系统功的过程中,
收集支持系统目标的基础数据及其处理,最重要的就是建立用户数
据模型。
无论是采取哪种开发策略,都需要访问用户、记录需求,
并根据这些需求建立数据模型的原型,这样的模型标识了需要在数
据库中存储的内容和它们的结构及相互关系。
进行数据建模要求既
要有一定的行业知识,又要精通建模的方法和技巧。
销售管理模块
包括货单的录入和维护;对销售情况进行统计;对商品的零售和批
发进行管理和付款的计算机操作等。
进货管理模块包括进货资料录
入和维护;采购订单的录入和维护和付款的计算机的操作等。
和传统
管理模式相比较,使用本系统,毫无疑问会大大提高超市的运作效
率,辅助提高超市的决策水平,管理水平,为降低经营成本, 提高
3
效益,减少差错,节省人力,减少顾客购物时间,增加客流量,提
高顾客满意度,增强超市扩张能力, 提供有效的技术保障。
三、 系统分析
1 组织机构图
店长
仓库管理部销售部财务部
销售员 1销售员
2销售员 3
销售员 4
2 业务功能图
4
仓库管理
商品采购商品盘点库存管理
3 业务流程图
未批准的领货单
销售员
仓库领货单店长销售计划
领货通知
已批准的领货单
采购员
缺货通知
仓库管理员 库存单
5
4 数据流程图
四 、界面设计,窗口运行状况及设计代码
1.设计思路
校园量多超市管理系统主要涉及销售员信息管理、商品信息管理和
销售信息管理,因此做如下处理:
(1)每个销售员对应于一个唯一的销售员编号。
销售员编号有 4
位数,前 3 选取 101,后 1 位从 0~4 之间选取;
(2)每件商品对应于唯一的商品编号,商品编号从 1 开头;
程序设计采用 VB6.0 和 Access 数据库进行,二者连接采用
Adodc 和 DataGrid 控件
2、设计方案
在 Access数据库中设计三张表格,分别为销售员信息表、商
品信息表、销售信息表,销售员在商品查询时输入自己的销售员编
号和密码后就可以登录商品信息查询系统进行查询信息。
6
3 界面设计
7
4 运行界面
①输入正确销售员编号及其密码
8
其运行界面如下图
②输入错误销售员编号或密码
其运行窗口如下图
9
③在输入正确销售员编号及密码之后,在其运行窗口中,输入不
存在的商品号或商品名称
10
其运行窗口如下图
④输入正确商品号或商品名称,并且按正确方式查询
其运行窗口如下图
11
⑤点击返回查询窗口,其界面会
返回到销售员密码窗口
5 设计代码
①Form1 “确定”按钮程序代码
Dim x As String, y As String
Private Sub Command1_Click()
x = ""
y = ""
12
Adodc1.Recordset.MoveFirst
Do Until Adodc1.Recordset.EOF
DataGrid1.Col = 0
If (Trim(Text1.Text) = Trim(DataGrid1.Text)) Then
x = Trim(Text1.Text)
DataGrid1.Col = 2
If (Trim(Text2.Text) = Trim(DataGrid1.Text)) Then
y = Trim(Text2.Text)
End If
End If
Adodc1.Recordset.MoveNext
Loop
If (x <> "" And y <> "") Then
Form1.Hide
Form2.Show
Else
MsgBox ("管理员编号或密码不正确")
End If
End Sub
②Form2 “按商品编号查询”按钮程序代码
Private Sub Command1_Click()
Adodc2.Recordset.MoveFirst
x = ""
Do Until Adodc2.Recordset.EOF
DataGrid1.Col = 0
If (Trim(Text1.Text) = Trim(DataGrid1.Text)) Then
x = Trim(Text1.Text)
DataGrid1.Col = 0
Text2.Text = DataGrid1.Text
DataGrid1.Col = 1
Text3.Text = DataGrid1.Text
DataGrid1.Col = 2
Text4.Text = DataGrid1.Text
DataGrid1.Col = 3
Text5.Text = DataGrid1.Text
DataGrid1.Col = 4
Text6.Text = DataGrid1.Text
DataGrid1.Col = 5
Text7.Text = DataGrid1.Text
Exit Do
End If
Adodc2.Recordset.MoveNext
Loop
13
If (x = "") Then
MsgBox ("经查询,无此商品入库")
End If
End Sub
③Form2 “按商品名称查询”按钮程序代码
Private Sub Command2_Click()
Adodc2.Recordset.MoveFirst
x = ""
Do Until Adodc2.Recordset.EOF
DataGrid1.Col = 1
If (Trim(Text1.Text) = Trim(DataGrid1.Text)) Then
x = Trim(Text1.Text)
DataGrid1.Col = 0
Text2.Text = DataGrid1.Text
DataGrid1.Col = 1
Text3.Text = DataGrid1.Text
DataGrid1.Col = 2
Text4.Text = DataGrid1.Text
DataGrid1.Col = 3
Text5.Text = DataGrid1.Text
DataGrid1.Col = 4
Text6.Text = DataGrid1.Text
DataGrid1.Col = 5
Text7.Text = DataGrid1.Text
Exit Do
End If
Adodc2.Recordset.MoveNext
Loop
If (x = "") Then
MsgBox ("经查询,无此商品入库")
End If
End Sub
④Form2 “查看销售信息”按钮程序代码
Private Sub Command3_Click()
Form3.Show
Form2.Hide
Adodc2.Recordset.MoveFirst
Do Until Adodc2.Recordset.EOF
14
DataGrid1.Col = 1
If (Trim(Form2.Text1.Text) = Trim(Form3.Text1.Text)) Then
x = Trim(Text1.Text)
DataGrid2.Col = 0
Form3.Text1.Text = Form2.DataGrid2.Text
Form2.DataGrid2.Col = 1
Form3.Text2.Text = Form2.DataGrid2.Text
Form2.DataGrid2.Col = 2
Form3.Text3.Text = Fo
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 校园 超市 管理信息系统 课程设计