小型超市管理报告论文.doc

超市管理系统小型超市管理系统报告题目： 超市管理系统 班 级： 学 号： 完 成 人： 指导教师： 完成时间： 目录第1章 绪论31.1 系统开发的背景1.2 系统开发的目的及意义1.3 论文的主要工作1.4 论文的组织结构第2章 系统可行性分析与需求分析42.1 系统可行性分析2.2 系统需求分析第3章 相关技术介绍53.1 Visual Basic简介3.2 ACCESS数据库的简介第4章 系统总体设计64.1 系统总体功能4.2 系统的体系结构4.2.1 系统应具备的功能详细介绍4.2.2 系统部分模块概要介绍第5章 数据库设计75.1 数据库安全设计5.2 数据库的物理结构第6章 系统的详细设计与实现116.1 流程图说明6.2 主要界面的详细设计与实现6.2.1 登陆界面6.2.2 用户注册界面6.2.3 货物登记界面6.2.4 商品图表界面6.2.5 数量盘点界面6.2.6 报表显示结论20谢 辞20参考文献附录21 绪论1.1 课程设计的目的通过本次课程设计，使我们能够全面、深刻地掌握数据库 vb系统的设计流程。根据在数据库原理课程中所学到的数据库理论知识，结合某个具体的实际需求，最终开发出一个较为实用的数据库系统。1.2.1课程设计的背景1.2 课程设计的背景和意义20世纪90年代后期特别是近几年，我国的超市产业飞速发展，其经营模式更为复杂，旧的管理体制已经无法适应超市的发展，这就迫切的需要引进新的管理技术。超市的数据和业务越来越庞大，而计算机就是一种高效的管理系统，这就需要我们把超市的管理与计算机结合起来，从而超市管理系统应运而生。依靠现代化的计算机信息处理技术来管理超市，节省了大量的人力、物力，改善了员工的并且能够快速反映出商品的进、销、存等状况和各种反馈信息分析，使管理人员快速对市场的变化做出相应的决策，加快超市经营管理效率。1.2.2 课程设计的意义“vb数据库课程设计”的设计思想旨在强调学生的实际编程能力的培养与创意灵感的发挥。为此，本课程结合学科特点，除了让学生掌握数据库原理的理论知识，还增加了需求功能让学生完成，并鼓励学生的创作出个性的程序，满足客户需求，与市场的实际项目相结合。学生对此热情高，实际收获大，效果好。通过课堂学习和参与相关项目设计，学生对书本支持有了深刻的理解，实践性教学取得了良好效果。1.3 课程设计环境 简单介绍了vb及数据路的使用和应用，加深我们对程序的认识和实际意义的重要性。第2章 系统可行性与需求分析随着人们生活水平的不断提高，对于物质的需求也越来越高，而超市作为日常生活用品聚集的场所，随着全球各种超市的数目的不断增加，规模不断增大，其管理难度也相应的增加，而为了适应当今信息化发展的时代，一套完整的超市商品管理系统显得尤为重要。2.1 可行性分析系统的可行性分析是对课题的通盘考虑，是系统开发者进行进一步工作的前提，是系统设计与开发的前提与基础。系统的可行性分析可以使系统开发者尽可能早的估计到课题开发过程中的困难，并在定义阶段认识到系统方案的缺陷，这样就能花费较少的时间和精力，也可以避免许多专业方面的困难。所以，系统的可行性分析在整个开发过程中是非常重要的。本系统采用基于Windows的图形用户界面，而该系统是大家熟悉的操作系统，对于那些有一般的计算机知识的人员就可以轻松上手。而整个超市管理系统采用最友好的交互界面，简介明了，不需要对数据库进行深入的了解。由此，该系统的操作是可行的，有必要开发该系统。2.3 系统的设计目标本系统主要包括四大模块，分别是人事管理模块，销售管理模块，进货管理模块，库存管理模块。每个模块的功能如下：1. 人事管理模块功能：(1)实现职工信息的查询；(2)实现职工信息的更新，包括增加、删除、修改功能；(3)实现供货商信息的查询；(4)实现供货商信息的更新，包括增加、删除、修改功能。2. 进货管理模块功能：(1)实现进货信息的查询；(2)实现进货信息的更新，包括增加、删除、修改功能。4. 库存管理模块功能：(1)实现商品库存信息的查询；第3章 系统开发的技术背景3.1 开发技术及运行环境3.1 Visual Basic简介通过权衡对各种编程语言和数据库使用的熟练程度，本系统选用Visual Basic语言编写，它是一种调试简单应用广泛的语言而且简单易学。 3.2 ACCESS数据库的简介客户端数据模型是数据库数据的储存方式，是数据库系统的核心和基础。通过建立简单表之间的关系来定义结构，而不是根据数据物理储存建立数据关系。Access则是小型数据库的代表之作。第4章 系统分析与总体设计4.1 系统结构框架一般的超市商品管理系统，主要由五大模块组成，即商品信息管理模块，人事管理模块，销售管理模块，进货管理模块，库存管理模块，此系统也不例外，主要有此五大模块组成。图4-1系统功能结构图。图4-1 系统功能结构图4.2 系统功能设计系统功能设计是使整个系统能基本实现超市的进、销、存等管理功能，能让超市管理者更直观的了解超市的经营状况，以做出相应的经营决策。管理信息系统(MIS)就是要对这些资源建立正确的数据库，并进行信息的收集、传送、存储、编制成各种凭证、报表、台帐、图形等信息，同时对这些信息进行维护，通过实测超市的各种运行情况，并利用过去的历史数据预测未来的发展，从超市全局的角度出发进行决策，利用信息控制超市的行为，附注超市完成其目标。本系统主要包括四大模块，分别是人事管理模块，销售管理模块，进货管理模块，库存管理模块。每个模块的功能如下：1. 商品管理模块功能：(1)实现商品信息的查询；(2)实现职工信息的更新，包括增加、删除、修改功能；2. 人事管理模块功能：(1)实现职工信息的查询；(2)实现职工信息的更新，包括增加、删除、修改功能；(3)实现供货商信息的查询；(4)实现供货商信息的更新，包括增加、删除、修改功能。3. 销售管理模块功能：(1)实现前台商品的销售；(2)将商品的销售信息与数据库联系起来。4. 进货管理模块功能：(1)实现进货信息的查询；(2)实现进货信息的更新，包括增加、删除、修改功能。5. 库存管理模块功能：(3)实现库存信息的查询；第5章 数据库设计5.1超市管理系统数据库E-R模型通过对超市管理系统分析，得出系统的E-R图。图5-1 数据库E-R模型图。名称职工/用户职工编号供货日期进货日期电话地址供货商编号供货商进货进货单号商品编号名称价格商品姓名性别mnmn供货图5-1 数据库E-R模型图5.2数据库表设计5.2.1 职工信息表职工信息表(StaffBill)用于存储职工信息，职工编号为主键是唯一标识。表中各字段功能定义如表5-1所示。中文字段名英文字段名字段类型长度主键/外键字段值约束职工编号staffIDchar6PNOT NULL姓名namenvarchar8NOT NULL性别sexnchar2NOT NULL类别kindnvarchar10NULL备注othersntext50NULL表5-1职工信息表(StaffBill)5.2.2 用户登录表用户登录表（Users_Info）用于存储用户的基本登录信息。表中各字段功能定义如表5-2所示。 中文字段名英文字段名字段类型长度主键/外键字段值约束帐号loginIDchar6P/FNOT NULL密码passWordchar6NOT NULL5.2.3 商品信息表商品信息表（Goods_Info）用于存储商品的信息。表中各字段功能定义如表5-3所示。中文字段名英文字段名字段类型长度主键/外键字段值约束商品编号merchIDchar6PNOT NULL供货商号profferIDchar6FNOT NULL名称fullNamenvarchar80NOT NULL类别kindnvarchar8NULL单价unitCostmoney4NOT NULL备注othersntext50NULL表5-3商品信息表（Goods_Info）5.2.4 供货商信息表供货商信息表（Sup_Info）用于存储供货商的信息。表中各字段功能定义如表5-4所示。中文字段名英文字段名字段类型长度主键/外键字段值约束供货商号SupplierIDchar6PNOT NULL名称Namenvarchar50NOT NULL联系人contactPersonnvarchar8NOT NULL联系电话phonevarchar12NOT NULL联系地址addressnvarchar50NOT NULL备注othersntext50NULL表5-4 供货商信息表（Sup_Info）5.2.5 进货信息表进货信息表（Buy）存储进货信息。表中各字段功能定义如表5-5所示。中文字段名英文字段名字段类型长度主键/外键字段值约束进货单号BuyIDchar6PNOT NULL商品编号GoodsIDchar6P/FNOT NULL供货商号SupplierIDchar6FNOT NULL进货价Pricemoney4NOT NULL数量Amountint4NOT NULL金额Summoney4NOT NULL进货日期Datedatetime8NOT NULL备注Remarkntext50NULL表5-5进货信息表(Buy)表5-6销售信息表（Sell）5.2.6 库存信息表库存信息表（Stock）存储库存信息。表中各字段定义如表5-7所示。中文字段名英文字段名字段类型长度主键/外键字段值约束商品编号GoodsIDchar6P/FNOT NULL库存数量Amountint4NOT NULL第6章 系统功能模块实现6.1 系统登录模块用户登录模块在本系统的首页。用户输入用户名和密码后，系统进行验证，验证通过进入程序的主界面。界面如图6-1所示。 图61用户登陆界面主要代码实现如下：Private Sub Command1_Click() Adodc1.RecordSource = Select * From 用户信息表 Where 编号= & Trim(txtno) & and 用户名= & Trim(txtname) & and 密码= & Trim(txtpwd) & Adodc1.RefreshIf Adodc1.Recordset.EOF ThenMsgBox 用户名或密码或编号不正确，请重新输入！, vbOKOnly + vbInformation, 提示信息txtno.Text = txtname.Text = txtpwd.Text = Elsemdimain.ShowIf cbotype.Text = 管理员 Thenmdimain.gl.Enabled = Truemdimain.hwgl.Enabled = TrueUnload MeElseIf cbotype.Text = 销售员 Thenmdimain.xsgl.Enabled = TrueUnload MeElseIf cbotype.Text = 经理 Thenmdimain.gl.Enabled = Truemdimain.hwgl.Enabled = Truemdimain.xsgl.Enabled = TrueUnload MeEnd IfEnd IfEnd Sub6.2 用户管理模块此模块进行对用户信息的输入，修改，增加，删除等功效。界面如图62所示 图62用户管理系统 主要实现代码如下Private Sub Command1_Click()n = MsgBox(你确认删除当前记录吗？, vbYesNo + vbQuestion, 提示信息)If n = 6 ThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNextEnd IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Command3_Click()Adodc1.Recordset.AddNewAdodc1.Recordset(权限) = cbotype.TextAdodc1.Recordset(编号) = Text1.TextAdodc1.Recordset(用户名) = Text2.TextAdodc1.Recordset(密码) = Text3.TextAdodc1.Recordset.UpdateText2.Text = Text3.Text = Text1.Text = cbotype.Text = End SubPrivate Sub Command4_Click()Adodc1.Recordset.Find 用户名= & Text2.Text & , , , 1 ask = MsgBox(确定要修改吗?, vbQuestion + vbYesNo, 提示) If ask = 6 Then If Adodc1.Recordset.EOF = True Then Adodc1.Recordset.MoveLast Adodc1.Recordset.Fields(权限) = cbotype.Text Adodc1.Recordset.Fields(0) = Text1 Adodc1.Recordset.Fields(1) = Text2 Adodc1.Recordset.Fields(2) = Text3 Adodc1.Recordset.Update End IfEnd Sub Private Sub DataGrid1_Click() cbotype.Text = Adodc1.Recordset.Fields(权限) Text1 = Adodc1.Recordset.Fields(编号) Text2 = Adodc1.Recordset.Fields(用户名) Text3 = Adodc1.Recordset.Fields(密码)End Sub6.3 货物登记此模块有对货物的显示，查询，能够对用户进行合理的管理，界面如图6-2所示。 图63 货物信息管理 主要实现代码如下Private Sub Command1_Click() Text1 = Adodc1.Recordset.Fields(编号) Text2 = Adodc1.Recordset.Fields(条形码) Text3 = Adodc1.Recordset.Fields(名称) Text4 = Adodc1.Recordset.Fields(计量单位) Text5 = Adodc1.Recordset.Fields(数量) Text6 = Adodc1.Recordset.Fields(单价) Text7 = Adodc1.Recordset.Fields(生产厂家) Text8 = Adodc1.Recordset.Fields(进货日期)End SubPrivate Sub Command2_Click() mdimain.ShowEnd Sub6.4 分类查询管理模块 此模块可以按照种类查询是查询更加方便，是显示更加简洁。界面如图63所示 图6-4 分类查询管理界面 主要实现代码如下Private Sub Combo1_Click()If Combo1.Text = 食品 ThenAdodc1.RecordSource = select * from 商品信息表 where 分类= & Combo1.Text & ElseIf Combo1.Text = 文具 Then Adodc1.RecordSource = select * from 商品信息表 where 分类= & Combo1.Text & ElseIf Combo1.Text = 日化 Then Adodc1.RecordSource = select * from 商品信息表 where 分类= & Combo1.Text & ElseIf Combo1.Text = 电器 ThenAdodc1.RecordSource = select * from 商品信息表 where 分类= & Combo1.Text & End IfAdodc1.RefreshSet DataGrid1.DataSource = Adodc1End SubPrivate Sub Command1_Click() Form2.Hide Form1.ShowEnd Sub 6.5报表的实现 图6.5报表的实现6.6商品用各种图形的显示图6.5各种图形的表示实现程序的源代码Public Sub Connectionstring() Dim mapth As String, mlink As String mpath = App.Path If Right(mpath, 1) Then mpath = mpath + mlink = Provider=Microsoft.Jet.OLEDB.4.0; Data Source= + mpath + shop.mdb Adodc1.Connectionstring = mlink Adodc1.CommandType = adCmdUnknownEnd SubPrivate Sub Form_Load() Call Connectionstring Adodc1.RecordSource = Select * From 销售信息表 Adodc1.Refresh Open data.txt For Output As #1 Do While Not Adodc1.Recordset.EOF Write #1, Adodc1.Recordset.Fields(编号), Val(Adodc1.Recordset.Fields(数量) Adodc1.Recordset.MoveNext Loop Close #1End SubPrivate Sub zbx() Cls n = 0 max = 0 Open data.txt For Input As #1 Do While Not EOF(1) n = n + 1 ReDim Preserve a(n) ReDim Preserve b(n) Input #1, a(n), b(n) If b(n) max Then max = b(n) Loop Close #1 Me.Scale (-3, max * 1.2)-(max * 1.2, -max * 0.1) Line (0, 0)-(max * 1.2, 0): Line (0, max * 1.2)-(0, 0) CurrentX = -3: CurrentY = -1 Print 数据:; For i = 1 To UBound(a) Print a(i); b(i); ,; Next iEnd SubPrivate Sub menu1_Click() 绘制直方图 zbx X1 = max / 2 / n w = X1 For i = 1 To n X2 = X1 + w Y2 = b(i) Line (X1, 0)-(X2, Y2), QBColor(Rnd * 15), BF CurrentX = X1 CurrentY = Y2 + max * 0.1 Print a(i) X1 = X2 + w Next iEnd SubPrivate Sub menu2_Click() 绘制折线图 zbx w = max / 2 / n CurrentX = max / 2 / n: CurrentY = b(1) For i = 1 To n X = w * i Y = b(i) Line -(X, Y) DrawWidth = 10 PSet (X, Y) DrawWidth = 1 Next iEnd SubPrivate Sub menu3_Click() 绘制散点图 zbx w = max / 2 / n DrawWidth = 10 For i = 1 To n X = i * w Y = b(i) PSet (X, Y) Next iEnd SubPrivate Sub menu4_Click() 绘制饼图 zbx X = Abs(Me.ScaleHeight / 2) r = max / 4 For i = 1 To n Sum = Sum + b(i) Next i a1 = 0 FontSize = 10 For i = 1 To n a2 = a1 + 2 * 3.14159 * b(i) / Sum Me.FillStyle = 0 FillColor = QBColor(Rnd * 15) Circle (X, X), r, , -a1, -a2 CurrentX = X + r * Cos(a2 + a1) / 2) CurrentY = X + r * Sin(a2 + a1) / 2) Print Format(b(i) / Sum * 100, 0.00); % & & a(i) a1 = a2 Next iEnd SubPrivate Sub menu5_Click() 绘制立体直方图 zbx w = max / 2 / n X1 = w For i = 1 To n X2 = X1 + w Y2 = b(i) Line (X1, 0)-(X2, Y2), QBColor(Rnd * 15), BF Line (X1, Y2)-(X2 - w / 2, Y2 + w / 2) Line -(X2 + w / 2, Y2 + w / 2) Line -(X2, Y2) Line (X2 + w / 2, Y2 + w / 2)-(X2 + w / 2, w / 2) Line -(X2, 0) X1 = X1 + 2 * w Next iEnd Sub结 论经过半个月的努力，报告基本