VB+access 管理信息系统课程设计实验报告

华南师范大学增城学院课程设计实验报告
题目：（小型化妆品管理系统）
课程名称管理信息系统
姓名
学号
专业07级信管(2)班
一摘要 (1)
二.系统分析 (2)
三.系统设计 (3)
3.1 系统功能结构设计 (3)
3.2模块子系统设计 (5)
3.3 系统模块时序图 (6)
四.系统实施 (8)
4.1系统的数据库设计 (8)
4.2 关系模型 (9)
4.3页面设计和代码设计 (10)
五.系统评价 (14)
参考文献 (14)
一.摘要
随着经济的发展，社会的进步，计算机越来越深入到我们日常的工作学习及生活中，成为我们日常生活中不可缺少的辅助工具。

随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。

进销存管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。

对于前者要求建立起数据一致性和完整性强、数据安全性好的库。

而对于后者则要求应用程序功能完备,易使用等特点。

经过分析,决定使用 MICROSOFT公司的 VISUAL BASIC开发工具和ACCESS数据库,利用其提供的各种面向对象的开发工具,尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象,首先在短时间内建立系统应用原型,然后,对初始原型系统进行需求迭代,不断修正和改进,直到形成用户满意的可行系统。

二.系统分析
1．用户登陆模块:拥有权限用户登陆.
2. 商品管理: 添加商品信息,修改商品信息,删除商品信息
3. 进货管理: 添加进货管理,修改进货管理,删除进货管理
4. 销售管理: 添加销售管理,修改销售管理,删除销售管理
5.退货管理: 添加报损管理,修改报损管理,删除报损管理
6. 业务管理: 对销售商品进行管理
三.系统设计
3.1 系统功能结构设计:
3.2模块子系统设计:
功能描述：进货管理子系统可以根据库存自动指定进货计划，进货时自动等级，以及提供查询和打印计划进货与入库记录的功能。

功能描述：销售管理子系统可以控制某商品是否允许销售，查询每种商品的销售情况并产生年、月、日报表，同时可以生成销售排行榜。

功能描述：库存管理子系统提供查询库存明细记录的基本功能，并根据库存的状态报警，以及自动盘点计算。

功能描述：人员管理子系统提供基本信息登记管理，员工操作权限管理，客户销售权限管理的功能。

3.3 系统模块时序图
3.3.1用户登陆管理:
3.3.2商品录入管理
3.3.3商品销售管理
3.3.4商品结帐管理
四.系统实施
4.1系统的数据库设计……..(数据库主要表格设计) 4.1.1用户表
4.1.2商品销售表
4.1.3商品库存表
4.1.4商品明细表
(注:部分表格有省略)
4.2 关系模型
a)用户表（用户名称，用户密码，用户类型）
b)会员表（会员编号，会员卡号，累积消费金额，）
c)销售表（商品名称，销售数量，销售金额，销售日期）
d)交易表（，用户名称，交易金额，交易日期）
e)入库表（商品名称，入库数量，单额，，入库日期）
4.3页面设计和代码设计…………(主要部分)
4.3.1登陆界面
编程分析
1.利用adodc（ADO Data Control)进行数据库链接：
使用adodata控件访问数据库可以完全不用编写代码,只需要通过简单的设置和操作其属性就可以实现与数据库的连接,通过绑定数据感知控件,就能提供一个访问数据库的界面,用来实现对数据库的浏览,贴加,删除,修改等操作.
2.代码段
Private Sub Command1_Click()
Adodc1.Recordset.Find "用户名='" & Text1.Text & "'"
If Adodc1.Recordset.EOF Then
MsgBox "用户名不存在", , "提示"
ElseIf (Adodc1.Recordset.Fields("密码") <> Text2.Text) Then
MsgBox "密码不正确", , "提示"
Else
Unload Me
main.Show
End If
End Sub
4.3.2 系统版面设计
代码分析
Private Sub 关于_Click(Index As Integer)
gy.Show 1
End Sub
Private Sub 库存查询_Click(Index As Integer) kccx.Show 1
End Sub
Private Sub 库存退回_Click(Index As Integer)
spth.Show 1
End Sub
Private Sub 日查询_Click(Index As Integer)
Dim db As Database
Dim rs As Recordset
sl = 0; zj = 0; yl = 0
Set db = OpenDatabase(App.Path & "\db1.mdb")
Set rs = db.OpenRecordset("select * from 商品销售 where 销售日期like '" & Date & "'")
If rs.EOF Or rs.BOF Then
MsgBox ("当日没商品售出")
Else
rcx.Show 1
End If
End Sub
Private Sub 入库明细查询_Click()
rkmx.Show 1
End Sub
Private Sub 商品入库_Click(Index As Integer)
sprk.Show 1
End Sub
Private Sub 商品售出_Click(Index As Integer) spcs.Show 1
End Sub
Private Sub 商品退回_Click(Index As Integer) spth.Show 1
End Sub
Private Sub 售出商品退回_Click()
scspth.Show 1
End Sub
Private Sub 退出_Click(Index As Integer)
Unload Me
End Sub
Private Sub 销售情况查询_Click(Index As Integer) rcx.Show 1
End Sub
Private Sub 赠送情况查询_Click()
zscx.Show 1
End Sub
五.系统评价
一.和传统管理模式相比较，使用本系统，毫无疑问会提高超市的运作效率，辅助提高超市的决策水平，管理水平，为降低经营成本，提高效益，减少差错，节省人力，减少顾客购物时间，增加客流量，提高顾客满意度，增强超市扩张能力，提供有效的技术保障。

由于开发者能力有限，加上时间仓促，本系统难免会出现很多不足之处，例如：
1.本系统只适合微型美容产品超市使用，不能适合中大型超市使用；
2.超市管理系统涉及范围宽，要解决的问题多，功能复杂，实现困难，但由于时
间和本人能力有限制,系统只能做出其中的一部分功能；
3.在编程上遇到不少问题,由于没有系统地去学习过VB.ACCESS.所以很多控件和语法不了解.导致系统存在很多漏洞,特别是连接数据库对数据库进行操作时.
4.在设计系统中,重点就是要建模和各模块之间的联系.系统的开发,分析,和信息的收集较为重要,其中还要运用到其他学科的知识.难点就是如何用程序语言实现我们想要的功能.
参考文献
1陈明 . 软件工程学教程 .科技出版社，2002
2 萨师煊，王珊 . 数据库系统概论 . 第三版 . 高等教育出版社，2000
3 飞思科技产品研发中心 . visual basic 6.0数据库应用开发 .电子工业
出版社，2003
4 飞思科技产品研发中心 . visual basic 6.0开发者手册 . 电子工业出版
社, 2002
5 申旻 . visual basic 6.0高手突破 . 清华大学出版社，2002，302
6 Steve Teixeira，Xaviver Pacheco著，龙劲松，王瑜，谢尚书译 . visual
basic 6.0开发人员指南 . 机械工业出版社 .2003
7 乔林 .参透Delphi／Kylix . 中国铁道出版社 .2003
8 李维 .Inside 深入核心 VCL 架构剖析 . 电子工业出版社 .2004
9 张立科编写组 .Windows API 函数参考手册 .人民邮电出版社 .2002
严蔚敏，吴伟民 .数据结构 .第二版 .清华大学出版社 .2001
10 王珍玲。

实用软件工程教程高等教育出版社 2004。