毕业设计（论文）-基于VB的商品信息管理系统.doc

本科生毕业论文论文题目：基于VB6.0和Access的商品信息管理系统 学 院：电子工程学院 专 业：应用电信 学 号：200612608006 姓 名： 指导老师： 2010年5月目 录【内容摘要】3【关键词】3一、商品信息管理系统概述31.1 系统功能概述31.2 系统开发背景41.3 系统开发目标4二、商品信息管理系统设计42.1 系统可行性分析42.2 系统特点42.3 系统的安全性5三、商品信息管理系统设计53.1 系统设计思想53.2 系统功能模块63.3 系统流程分析73.4 系统结构设计7四、数据库设计74.1 数据库需求分析74.2 数据库概念结构设计94.3 数据库逻辑结构设计104.4 数据库的生成13五、商品信息管理系统的实现145.1 通用模块的添加145.2 登陆界面的开发145.3 系统主界面的开发15六、系统测试24七、开发总结25注释.25参考文献25基于Visual Basic和 Access2003的商品信息管理系统应用电信 200612608006 罗婷婷 指导老师：黄植功【内容摘要】伴随着企业规模的不断扩大，原始的、手工的商品信息录入已经不能适应当代社会的发展趋势并将逐渐被淘汰。而计算机信息管理技术的迅猛发展可谓让所有的难题迎刃而解。针对企业对商品信息管理工作准确、迅速的要求，商品信息管理系统应运而生。由此，建立好一个属于企业自己的商品信息管理系统变得尤为重要。本论文设计的这一个商品信息管理系统，是采用Visual Basic6.0作为开发工具，Access 2003作为后台数据库进行设计的。论文主要介绍了商品信息管理系统的系统分析、设计以及操作，数据库分析以及各界面的生成和功能的实现情况。本系统采取人性化设计，界面友好，操作简捷。通过使用这个系统，企业管理员可以即时的录入数据、掌握库存信息、查看销售情况等，更可以提高企业的信息化管理水平。【关键词】商品信息管理系统；Visual Basic 6.0；Access2003 1 商品信息管理系统概述1.1 系统概述 本系统是采用Visual Basic作为开发工具，Access2003作为后台数据库。 系统的基本流程是：用户登录系统主界面各项子系统。1.2 系统开发背景 早在1985年，信息管理系统的创始人Gordon B.Davis明尼苏达大学的管理学教授便对信息管理系统做了一个较完整的定义：管理信息系统是一个利用计算机软硬件资源以及数据库的人-机系统1。它能提供信息支持企业或组织的运行、管理和决策功能。随着科学技术的不断提高，计算机技术在日常生活中的应用已非常普遍。尤其在大中型企业中，商品信息管理系统作为计算机技术应用的一个分支，扮演着举足轻重的角色。检索迅速、查找方便、可靠性高、存储量大、保密性好、成本低等优点2，是商品信息管理系统倍受青睐的原因。而伴随着企业规模的不断扩大，原始的、手工的商品信息录入已经不能适应当代社会的发展趋势并将逐渐被淘汰。计算机信息管理技术的迅猛发展，使得各大中小企业的计算机化管理已经逐渐普及，计算机技术已经渗透到企业管理的各个领域。我设计的商品信息管理系统，界面友好，操作简捷。通过使用这个系统，企业管理员可以即时的录入数据、掌握库存信息、查看销售情况等，更可以提高企业的信息化管理水平。1.3 系统开发目标系统开发的目标有：本系统主要研究的是商品的信息管理，故其主要实现的功能包括：n 商品基本信息查看(包括商品名称、编号、单价、数量)；n 销售历史查看，包括销售日期、销售的产品类型；n 出货方式查询，主要针对出货对象（包括经销商、客户团购、网购、形象实体店零售）进行统计；n 库存管理，可实现查看入库表、查看销售表、查看库存；n 顾客信息，方便了解不同客户群的需求趋向。2 商品信息管理系统分析2.1 系统可行性分析 对企业来说，对商品各类信息进行管理扮演着举足轻重的角色。入库历史、销售历史、顾客购买群、顾客购买形式、商品损坏情况等都反映了企业利益趋势并预示了企业将来的发展方向，作为企业管理者应该做到及时了解，完全掌握。知己知彼，方能百战百胜。一个好的商品信息管理系统刚好可以让这些问题迎刃而解。 2.2 系统特点 该商品信息管理系统有如下特点：（1）采用ADO数据访问技术操作数据库（读取、写入、查询等）。（2）使用SQL语言操作数据库。（3）系统功能完善，能完成各项记录的查询，可按多种类型查询，能维护用户权限。2.3 系统的安全性 输入用户名和密码，系统先判断密码正确与否，再判断用户类型，进入系统 开始 登陆界面输入密码提示密码错误/用户名不存在进入系统调用密码检测程序图2-1 密码验证流程图3 商品信息管理系统设计3.1 系统设计思想本系统是针对企业商品信息管理而设计的，因此必须加强系统的安全性，做好信息保密工作。新用户登陆时，只有事先向总管理员获取获取管理码后才能完成会员或管理员账户的注册。注册用户登陆时，程序会从用户资料数据表中读出用户ID和密码，并检验用户输入的密码与其是否匹配，当用户名在数据库中存在，并且密码正确时用户方可进入系统。要完成商品信息的录入，系统要建立一些能够维护每一样商品详细信息的数据表，并能对其进行写入和读出数据的操作。由此，我创建了入库表、库存表、销售表。入库表用于记录入库商品的信息，系统运行时，此表的数据不会被修改。库存表用于记录当前商品库存，与入库表的区别是商品销售后库存表数据被修改，该商品不再出现在库存表中，而其仍存在入库表中。入库表相当于商品进货历史记录表。而销售表是记录销售情况的报表。系统运行时，操作者选择“添加销售”菜单，将所销售的商品信息录入，这样所有的销售记录就可以保存在销售表中了。另外，商品进出货不可避免的会出现损伤。此时，建立报损表，方便统计商品受损信息以便管理员可以及时采取打折销售等处理措施来减少损失。3.2 系统功能模块 系统可以分为以下几部分：（1） 系统管理模块：用于实现增加/查看用户、修改密码/管理码等功能。（2） 添加业务模块：用于实现添加入库、添加销售功能。（3） 库存管理模块：用于查看入库表、销售表、仓库现存表。（4） 查看信息模块：用于进行出货方式、顾客分类、商品分类查询。（5） 销售分析模块：用于实现库存分析、报损分析功能。（6） 帮助模块：关于信息。商品信息管理系统系统管理模块库存管理模块增加用户添加业务模块添加入库入库表查看信息修改密码修改管理码查看用户销售分析帮助添加销售销售表仓库现存表出货方式查询顾客分类查询商品分类查询库存分析报损分析关于 图3-1 系统功能模块图3.3 系统流程分析 本系统基本流程是： 用户登录系统后可按权限设置不同进行相应操作，添加业务可将新入库以及最近销售商品信息录入，确认添加后可以在库存管理中查看入库表、销售表、库存表。再通过出货方式查询、顾客分类查询、商品分类查询、库存分析和报损分析来对企业销售情况进行定性定量分析。3.4 系统结构设计 本系统主要分为系统登录界面、访客管理界面、用户管理界面和记录管理界面四部分。商品信息管理系统系统登录界面基本组件界面业务逻辑界面基本操作界面数据库 图3-3 系统结构设计图4 数据库设计4.1 数据库需求设计 本系统要求对商品进出库信息进行记录。拥有管理员权限的用户可以查看所有注册用户信息，并且对“仓库现存表”进行数据维护。因此，必须在数据库里建立相应的数据表来随时更新商品信息登记。本系统通过建立7份数据表来完成以上要求。 数据结构：n 商品基本信息，包括数据项：商品编号、名称、类型、库存量、单位；n 供应商信息：供应商名称；n 进货信息：包括进货商品、数量、单位、单价、总金额、经手人、进货日期；n 销售信息：包括客户信息、经手人、顾客类型、销售方式、销售商品编号、名称、类型、单价、数量、总金额、折扣；n 报损信息：包括报损商品编号、名称、数量、报损日期、报损说明、处理方式等。 数据库设计必须满足以下几点：（1） 用户可进行添加业务操作：添加入库、添加销售。（2） 系统管理员可查询注册用户资料，包括注册用户的密码、注册时间、修改密码的时间。（3） 系统管理员可对数据信息进行维护。（4） 用户具有唯一ID。（5） 每个用户进行ID注册时必须选定权限。图4-1 管理员权限图（可修改、删除、增加数据）图4-2 会员权限图（不允许修改、删除、增加数据）4.2 数据库概念结构设计 商品编号名称类型库存量单位单价 图4-3 商品信息实体E-R模型图4.3 数据库逻辑结构设计 商品信息管理系统数据库由七个数据表组成：（1） 入库表（2） 库存表（3） 库存缓存表（4） 销售表（5） 系统管理表（6） 报损表（7） 管理码表 表4-1 入库表（用于记录入库商品）字段名字段说明数据类型字段长度必填字段主键编号记录商品编号文本10YN商品名称记录商品名称文本50YN单价商品入库时的单价货币YN数量入库商品数量数字长整形YN金额入库商品的总金额货币YN供应商商品的供应商文本50NN经手人进货商品的经手人文本20NN日期进货日期日期/时间常规日期YN商品分类商品分类文本10YN备注记录一些入库时的备注文本255NN单位商品的单位文本4YN表4-2 库存表（用于记录仓库现存商品）字段名字段说明数据类型字段长度必填字段主键编号记录商品编号文本10YN商品名称记录商品名称文本50YN入库单价商品入库时的单价货币YN现存数量入库商品数量数字长整形YN入库金额入库商品的总金额货币YN供应商商品的供应商文本50NN入库经手人进货商品的经手人文本20NN日期进货日期日期/时间常规日期YN商品分类商品分类文本10YN备注记录一些入库时的备注文本255NN单位商品的单位文本4YN 表4-3 库存缓存（用于程序设计）字段名字段说明数据类型字段长度必填字段主键编号记录商品编号文本10YN商品名称记录商品名称文本50YN入库单价商品入库时的单价货币YN现存数量入库商品数量数字长整形YN入库金额入库商品的总金额货币YN供应商商品的供应商文本50NN入库经手人进货商品的经手人文本20NN日期进货日期日期/时间常规日期YN商品分类商品分类文本10YN备注记录一些入库时的备注文本255NN单位商品的单位文本4YN表4-4 销售表（用于记录历史销售商品的信息）字段名字段说明数据类型字段长度必填字段主键编号记录商品编号文本10YN商品名称记录商品名称文本50YN商品分类商品的类型文本10YN数量销售商品数量数字长整形YN单位商品的单位文本4YN单价销售商品的单价货币YN金额销售商品的总金额货币YN客户客户文本50NN客户类型客户分类文本10NN销售方式记录销售的方式文本20NN日期进货日期日期/时间常规日期YN折扣销售商品的折扣文本10NN备注记录一些入库时的备注文本255NN经手人销售商品的经手人文本4NN表4-5 系统管理（用于记录用户信息）字段名字段说明数据类型字段长度必填字段主键用户名记录用户名文本17YN密码记录密码文本17YN权限记录用户的权限文本10YN记住密码记录是否在登录后记住密码文本5NN注册日期记录注册时的日期日期/时间常规日期YN注册时间注册时的时间日期/时间常规日期YN修改密码日期修改密码日期日期/时间常规日期NN修改密码时间修改密码时间日期/时间常规日期NN表4-6 报损表（用于记录报损处理的商品信息）字段名字段说明数据类型字段长度必填字段主键编号用于编号文本10YN商品名称记录商品名称文本50YN报损数量报损数量数字长整形YN报损说明报损说明文本255YN报损处理报损处理文本255YN填写日期填写报损的日期日期/时间常规日期YN表4-7 管理码（用于记录系统的管理码）字段名字段说明数据类型字段长度必填字段主键管理码记录管理码文本10YN最后一次修改日期记录修改日期日期/时间常规日期NN最后一次修改时间记录修改时间日期/时间常规日期NN4.4 数据库的生成使用Access2003新建一个数据库，命名为data.mdb。在数据库中建立7个数据表，命名为入库表、库存表、库存缓存表、销售表、系统管理表、报损表、管理码表。如下图： 图4-3 数据库和表的建立图数据库建立完成，保存。5 商品信息管理系统的实现5.1 通用模块的添加 新建工程。在新工程中添加一个模块，命名为Module1。 此模块的主要功能是定义公共变量和公共类型。这样定义使得编程比较规范，有利于：编程出错时方便修改、对于一些多次用到的函数就不必再次编写。注意的是：这样定义后的变量可以用于系统的整个界面（窗体）。定义全局ADO对象连接，用于连接数据库 Public conn As New ADODB.Connection5.2 登陆界面的开发 在中添加窗体，命名为frmLogin。在窗体中添加控件TextBox、CommandButton、Label、Check等控件，并设置好属性。 此界面的功能是：（1） 连接数据库。（2） 用户登录（用户忘记密码时可执行“找回密码”）。（3） 注册新账户。图5-1 登陆界面图将TextBox控件命名为Text1,Text2。这2个文本框分别用来输入用户名和密码。勾选“记住密码”，可以使系统记住用户密码，用户在下次登录时不需再次输入密码。点击确定按钮，连接数据库，如用户名和密码都正确，则进入主窗体。数据库连接代码如下： linktab = Provider = Microsoft.jet.oledb.4.0;data source= & App.Path & data.mdb Dim Connection As String Connection = linktab conn.Open Connection 检验用户名和密码，如用户名和密码都正确，关闭当前窗体，进入主窗体。5.3 系统主界面的开发5.3.1 系统主界面的内容和功能 主界面主要包括：菜单栏、工具栏和所调用的程序窗口。图5-2 系统主界面图主界面的功能如下：（1） 增加用户。（2） 查看用户(管理员权限)。（3） 添加入库。（4） 添加销售。（5） 查看库存。（6） 库存分析。（7） 报损分析。（8） 退出系统。 5.3.2 系统主界面菜单的设置 选中主窗体，选择中的菜单编辑器命令，然后按照下表进行设置标题名称级别系统管理mnuSystem1增加用户mnuAddUser2修改密码mnuChangeWord2修改管理码mnuChangePasw2查看用户mnuUser2退出mnuExit2添加业务mnuDailyOperationr1添加库存mnuInStock2添加销售mnuSell2库存管理mnuStock1入库表mnuLookStock2销售表mnuLookSell2仓库现存表mnuLoodNow2查看信息mnuBase1出货方式查询mnuFindPay2顾客分类查询mnuFindBuyer2商品分类查询mnuFindType2销售分析mnuOperat1库存分析mnuOperat_12报损分析mnuOperat_22帮助mnuHelp1关于mnuAbout2表5-1 菜单设置表5.3.3 系统界面部分功能图示 图5-3 添加入库界面图5-4 添加销售界面图5-5 出货方式查看界面图5-6 库存分析界面图5-7 报损分析界面5.3.4 系统程序设计部分核心代码本系统为商品销售管理系统，主要功能是实现对商品的入库和销售的管理，选取的这部分代码为系统的核心代码。 商品入库的程序设计设计思想：先把一批批同类的要入库的商品添加到表格，也就是先添加菜单，然后最后确定是否添加所有的商品到库存和入库。1、 首先，窗体运行时要进行一些窗体的初始化：主要是对窗体中表格的初始化。Private Sub Form_Load() Dim i As Integer Dim j As Integer For i = 1 To 9 调整方格 列宽度 MSFlexGrid1.ColWidth(i) = 1200 If i = 1 Then MSFlexGrid1.ColWidth(i) = 1800 If i = 9 Then MSFlexGrid1.ColWidth(i) = 3000 Next i MSFlexGrid1.Row = 0 先设计表格的表头 MSFlexGrid1.Col = 1 MSFlexGrid1.Text = 商品名称 MSFlexGrid1.Col = 2 MSFlexGrid1.Text = 单价（元） MSFlexGrid1.Col = 3 MSFlexGrid1.Text = 数量 MSFlexGrid1.Col = 4 MSFlexGrid1.Text = 金额（元） MSFlexGrid1.Col = 5 MSFlexGrid1.Text = 供应商 MSFlexGrid1.Col = 6 MSFlexGrid1.Text = 经手人 MSFlexGrid1.Col = 7 MSFlexGrid1.Text = 日期 MSFlexGrid1.Col = 8 MSFlexGrid1.Text = 商品分类 MSFlexGrid1.Col = 9 MSFlexGrid1.Text = 备注 MSFlexGrid1.Col = 10 MSFlexGrid1.Text = 单位 Combo1.Text = 食品 DTPicker1.Value = Date 获取当前的系统 的日期 给 DTPicker1End Sub2、 把对应商品的信息添加到表格中Private Sub Command1_Click() 把数据先添加到 表格中 If Trim(Text1.Text) = Then MsgBox 请填写商品名称！, vbOKOnly + vbExclamation, 提示信息 Exit SubEnd IfMSFlexGrid1.Rows = MSFlexGrid1.Rows + 1 numrow = numrow + 1 MSFlexGrid1.Row = numrow MSFlexGrid1.Col = 0 MSFlexGrid1.CellAlignment = 4 数据居中 MSFlexGrid1.Text = Str(numrow) MSFlexGrid1.Col = 1 MSFlexGrid1.Text = Text1.Text MSFlexGrid1.Col = 2 MSFlexGrid1.Text = Str(Trim(Text2.Text) MSFlexGrid1.Col = 3 MSFlexGrid1.Text = Str(Trim(Text3.Text) MSFlexGrid1.Col = 4 MSFlexGrid1.Text = Str(Trim(Text4.Text) MSFlexGrid1.Col = 5 MSFlexGrid1.Text = Text5.Text MSFlexGrid1.Col = 6 MSFlexGrid1.Text = Text6.Text MSFlexGrid1.Col = 7 MSFlexGrid1.Text = Str(DTPicker1.Value) MSFlexGrid1.Col = 8 MSFlexGrid1.Text = Combo1.Text MSFlexGrid1.Col = 9 MSFlexGrid1.Text = Text7.Text MSFlexGrid1.Col = 10 MSFlexGrid1.Text = Text8.Text Command2.Enabled = True 如果有数据添加 保存到库存 按键才有效End Sub3、 把表格中的数据添加到入库表和库存表中Private Sub Command2_Click() If MsgBox(确认存储所有数据到库存吗？, vbYesNo + vbQuestion, 提示信息) = vbYes Then Dim k As Integer Dim str1 As String sql = select * from 库存表 rs_pay.Open sql, conn, adOpenKeyset, adLockPessimistic 打开数据库 If rs_pay.EOF True Then rs_pay.MoveLast str1 = rs_pay.Fields(0) Else str1 = 0000 End If rs_pay.Close For k = 1 To 2 利用循环2次 实现把数据 添加到入库表 和库存表 If k = 1 Then sql = select * from 入库表 Else sql = select * from 库存表 End If rs_pay.Open sql, conn, adOpenKeyset, adLockPessimistic Dim i As Integer Dim j As Integer i = 0 j = rs_pay.RecordCount 找数据库表的总记录条数 If rs_pay.EOF True Then rs_pay.MoveLast While (i (MSFlexGrid1.Rows - 1) j = j + 1 MSFlexGrid1.Row = i + 1 rs_pay.AddNew 增加新纪录 If k = 1 Then rs_pay.Fields(0) = Format$(Str(j), 0000) Else str1 = Str(Val(str1) + 1) rs_pay.Fields(0) = Format$(str1, 0000) End If MSFlexGrid1.Col = 1 rs_pay.Fields(1) = MSFlexGrid1.Text MSFlexGrid1.Col = 2 rs_pay.Fields(2) = Val(MSFlexGrid1.Text) MSFlexGrid1.Col = 3 rs_pay.Fields(3) = Val(MSFlexGrid1.Text) MSFlexGrid1.Col = 4 rs_pay.Fields(4) = Val(MSFlexGrid1.Text) MSFlexGrid1.Col = 5 rs_pay.Fields(5) = MSFlexGrid1.Text MSFlexGrid1.Col = 6 rs_pay.Fields(6) = MSFlexGrid1.Text MSFlexGrid1.Col = 7 rs_pay.Fields(7) = CDate(MSFlexGrid1.Text) MSFlexGrid1.Col = 8 rs_pay.Fields(8) = MSFlexGrid1.Text MSFlexGrid1.Col = 9 rs_pay.Fields(9) = MSFlexGrid1.Text MSFlexGrid1.Col = 10 rs_pay.Fields(10) = MSFlexGrid1.Text rs_pay.Update 把数据添加到数据库 i = i + 1 Wend rs_pay.Close 关闭数据库 Next k MsgBox 添加成功！, vbOKOnly + vbExclamation, 提示信息 Command2.Enabled = False Unload Me End IfEnd Sub 商品销售的程序设计设计思想：销售商品的设计思想和添加商品的设计类似，主要思想：先把库存表中的所有数据复制到库存缓存这个表中，这样一来，如果最后不想添加销售了，用户便不需再做任何处理，因为刚刚操作的只是库存缓存里面的数据，而没有真正操作库存里面的数据。如果最后确实要添加菜单中的商品，用户只需把变化了的库存缓存里面的数据复制到库存表中即可，这样就实现了对库存表中数据的销售了。还有一个区别是，在添加商品的时候，添加的此类商品的数量是随着用户添加商品后改变的，所以在程序设计的时候要实时确定商品的数量，也就是库存商品的数量。1、 实现数据库中表与表的数据的复制：（主要复制表里面的数据定义之间应该是完全一致的）在“模块”中定义：这个函数实现的是同一个数据库中 把一个表中的数据复制到另一个表中去Public Function RunTrans(ByVal tranSql As String, ByVal AdoConn As ADODB.Connection) With AdoConn .BeginTrans .Execute tranSql .CommitTrans End WithEnd Function2、 先删除 “库存缓存”表中的所有数据 sql = delete * from 库存缓存rs_pay.Open sql, conn, adOpenKeyset, adLockPessimistic 然后实现复制 sql = insert into 库存缓存 select * from 库存表RunTrans sql, conn 调用 表数据 复制过程3、利用ADO控件绑定数据库（库存表）中的数据所以在窗体出现时，即在“Private Sub Form_Load()”中添加如下代码： Adodc1.ConnectionString = linktabAdodc1.RecordSource = select * from 库存缓存Adodc1.RefreshSet DataGrid1.DataSource = Adodc1DataGrid1.Refresh这样就可以通过实时刷新来查看库存表中的数据。6 系统测试程序设计开发完毕后，为了使系统能够正常运行，必须对其进行全面测试。（1）对登录系统进行测试：输入匹配的用户名和密码，测试系统是否能够检验出合法用户。不输入用户名或输入错误的用户名、输入错误的密码，系统能够给出正确的提示。（2）对主界面各个菜单进行测试：分别在管理员和普通会员权限下，依次点击各个菜单，测试所有菜单是否能够正常运行，管理员和会员的权限区别有无完整体现。（3）测试添加入库和添加销售是否正常：添加入库和添加销售后，查看入库表、销售表和仓库现存表数据是否匹配。（4）测试查看信息界面是否正常：按出货方式、顾客分类、商品分类分别进行查询，看结果与销售表数据信息是否匹配。7 开发总结 商品信息管理系统采取人性化的设计，能够实现预期的功能，界面友好，操作简捷。通过使用这个系统，企业管理员可以即时的录入数据、掌握库存信息、查看销售情况等，更可以提高企业的信息化管理水平，提升企业形象。最后，我要衷心的感谢我的导师和同学，在开发过程中给予了我很大的帮助！特别感谢我的导师黄植功老师的悉心指导，尤其是在系统开发初期，老师给予了我很多重要提示和点化，帮我度过了“开头难”的大难关。非常感谢！注释1中南财经政法大学.信息管理与信息系统EB/OL. /research/xkfz44.htm，2010-04-15.2 CSDN.NET.学籍管理系统EB/OL. /source/649189，2010-04-15.参考文献：1 郭瑞军、唐邦民等.Visual Basic 数据库开发实例精粹M.北京：电子工业出版社，2005年；2 刘文涛. Visual Basic+Access数据库开发与实例M.北京:清华大学出版社 ,2006.73 刘瑞新.Visual Basic管理信息系统开发毕业设计指导及实例高等院校毕业设计指导丛书M,北京:机械工业出版社,2005.34 易福华.Visual Basic典型系统实战与解析M电子工业出版社，2007.1.5 王晟.Visual Basic数据库开发经典案例解析M,北京:清华大学出版社,2006.10 6 陈艳峰，高文姬，邵蕴秋等. Visual Basic数据库项目案例导航M北京:清华大学出版社， 2004.8.7 赛奎春,高春艳,李俊民等.Visual Basic工程应用与项目实践M. 北京:机械工业版社,2005.1VB6.0 and Access-based Product information management systemTingting Luo【Abstract】 With the continuous expansion of business scale, original, handma