《2022年VB超市管理系统实验报告 .pdf》由会员分享，可在线阅读，更多相关《2022年VB超市管理系统实验报告 .pdf（11页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、实验报告超市管理实验报告课程名称：模拟超市管理系统班级：姓名：学号：一，实验内容：用 vb 和 access 实现超市管理系统要求 ;（1）使用 Access创建数据库各项管理列表，熟练掌握创建过程。（ 2）创建的系统能准确的实现超市的销售情况。满足超市进销超市信息管理的需求。（ 3）用 access创建数据库。（ 4）系统具备数据库维护功能，及时根据实际的要求添加或删除。二 实验目的熟悉 VB与 Access 的结合使用，掌握操作过程。在实验中，通过练习，能更深层的理解VB的操作环境与语法。三，操作步骤：1、数据库的概念数据库是一种存储数据并对数据进行操作的工具。数据库的作用在于组织和表达超
2、市信息，简而言之，数据库就是超市信息的集合。计算机的数据库可以分为两类：非关系数据库(flat-file)和关系数据库 （relational） 。关系数据库中包含了多个数据表的超市信息，数据库含有各个不同部分的术语，象记录、域等。2、新建一个数据库创建任何一个数据库的第一步是仔细的规划数据库，设计必须是灵活的、有逻辑的。创建一个数据库结构的过程被认为是数据模型设计。（1）标识需要的数据；（2）收集商品标识的字段到表中；名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 1 页，共 11
3、 页 - - - - - - - - - （3）标识主关键字字段；（4）规范数据；（5）标识指定字段的超市信息；3、修改已建的数据库数据库的修改分为；添加、编辑和删除记录。这三种操作均可由Visual Basic创建的程序来完成，下面的章节将详细描述实现的具体方法。四，总体设计：系统功能描述本系统的主要任务是实现对超市超市信息管理、进货管理、售出管理及相关超市超市信息。其主要功能包括：1、超市超市信息管理功能超市管理。提供给超市的超市信息更新、删除。以超市为单位，进行货物入库。其中分为单个添加和成批添加。删除货物。当货物过期后，超市超市信息转移备份数据库中，系统的基本数据库中需要删除货物超市信
4、息。超市管理。本部分的功能主要有超市货物导入、分配、及设置。超市货物导入实现从现存的EXCEL超市表中录入超市超市信息。分配功能实现按超市的导入、进货及出货进行分配。设置货物实现自动为超市编号。超市超市信息备份。在超市超市信息删除前，将其按超市为单位保存到备份数据库。 2超市超市信息管理功能超市信息录入。以超市为单位，录入各货物的进销情况。超市信息管理。提供本超市超市信息的录入、修改、删除。它是超市系统管理的基础。用以保证数据库中一致性原则。4、超市超市信息功能。超市超市信息超市超市信息。根据用户的要求，超市超市信息超市数据库的所有可能的超市信息。五，数据流图根据以上的系统功能描述，设计出数据
5、流图如下：超市超市信息管理货物管理当前日期超市超市信息管超 市 超 市信息系统时钟名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 2 页，共 11 页 - - - - - - - - - 实验报告超市管理货物超市信息管理超市超市信息要求超市超市信息结果统计表图 2-1 顶层数据流图二、基层数据流图超市数据处理结果超市数据处理要求超市超市信息超市超市信息管理要求超市名称及修改要求添加要求及超市数据当前时钟一、数据流条目：（1）超市超市信息管理模块：超市超市信息管理要求= 超市数据处理要
6、求| 超市数据管理要求| 添加数据要求| 数据删除要求| 数据备份要求 超市数据处理要求= 超市数据 | 货物数目 | 超市名称 | 超市数据管理要求= 超市名称 | 修改要求 添加数据要求= 单个超市数据单| 成批数据单 数据删除要求= 起止货物 | 超市名称 | 所有超市数据 数据备份要求= 超市名称 | 经营时间 （ 2）超市信息管理模块：共有六大模块：分别是：系统设定，商品盘点，销售超市信息，其他设置，报表，帮助。二、加工条目：（ 1）系统设定的条目：重新登录，授权用户，删除用户，修改个人超市信息，退出。（ 2）商品盘点的条目：超市信息修改，商品入库，库存修改，库存查询，入库查询。（
7、3）销售超市信息的条目：销售，按日和月盘点，总销售盘点。 (4)其他设置的条目：2 1 要求类 型 处理23 超市管理24 添加超市22 超市管理名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 3 页，共 11 页 - - - - - - - - - 供应商设置，省份设置，商品种类设置。（5）报表的条目：供应商报表，销售报表，入库盘点报表，种类报表。（6）帮助的条目：关于六，详细设计根据系统的主要功能及上一章的总体设计，系统开发进入第二个阶段：详细设计。在这一阶段的工作中，主要任务有
8、以下几项：1、根据原型化的开发原则，为系统的每个模块功能进行界面设计，作为进一步优化的基础。2、进行系统的流程分析，为模块的细化做好准备。3、对每个模块进行详细的算法设计。31 系统界面设计一、登录及系统主窗口界面设计该部分界面主要包括登录窗口、系统主窗口、修改密码窗口。1、登录窗口界面：本系统中使用到的数据表主要有超市表、成绩表、缴费表、超市信息、超市档案、用户资料，由这六个表，组成了名为超市信息的数据库（如图一）。其中超市档案是本系统主要的下面为其代码：Private Sub Command1_Click() Dim myCon As New ADODB.Connection Dim my
9、Rs As New ADODB.Recordset Dim ZhuanYe, NianJi, XueQi, KeCheng, JiaoCai, RenKLS, KeShi, ShangKeDD, KeChengXZ, KaoShiXZ As String ZhuanYe = Text1.Text NianJi = Text2.Text 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 4 页，共 11 页 - - - - - - - - - 实验报告超市管理XueQi = DTPick
10、er1.Value KeCheng = Text4.Text JiaoCai = Text5.Text RenKLS = Text6.Text Kasha = Text7.Text ShangKeDD = Text8.Text KeChengXZ = Combo1.Text KaoShiXZ = Combo2.Text If Trim( 面包 ) = Or Trim( 牛奶 ) = Or Trim( 香肠 ) = Or Trim( 矿泉水 ) = Or Trim( 书) = Then MsgBox 请填写要修改课程资料的内容！ Combo1.Text = Combo2.Text = Exit
11、Sub End If myCon.Open dsn= 超市信息 myRs.Open select * from 超市信息 where 专业 = & Text1.Text & , myCon, 3, 2 myRs!商品入库 = Text2.Text myRs!库存查询 = DTPicker1.Value myRs!库存修改 = Text4.Text myRs!销售 = Text5.Text myRs!按日销售 = Text6.Text myRs!总销售 = Text7.Text myRs!供应商 = Text8.Text myRs!商品种类 = Combo1.Text myRs!省份 = Com
12、bo2.Text myRs.Update myRs.Close myCon.Close MsgBox 您确定要修改吗？, vbyesno 提示 Frm_UpdateGrean.Adodc1.Refresh Frm_UpdateGrean.DataGrid1.Refresh Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = Text7.Text = Text8.Text = Combo1.Text = 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - -
13、- - - - - - 名师精心整理 - - - - - - - 第 5 页，共 11 页 - - - - - - - - - Combo2.Text = End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Command3_Click() Unload Me Frm_FindGrean.Show 1 End Sub Private Sub DataGrid1_Click() Frm_UpdateGrean.Adodc1.RecordSource = select * from 超 市 管 理where 货 物=
14、 & Trim(DataGrid1.Row) & Text1.Text = Frm_UpdateGrean.Adodc1.Recordset.Fields() Text2.Text = Frm_UpdateGrean.Adodc1.Recordset.Fields() Text3.Text = Frm_UpdateGrean.Adodc1.Recordset.Fields() Text4.Text = Frm_UpdateGrean.Adodc1.Recordset.Fields() Text5.Text = Frm_UpdateGrean.Adodc1.Recordset.Fields()
15、Text6.Text = Frm_UpdateGrean.Adodc1.Recordset.Fields() Text7.Text = Frm_UpdateGrean.Adodc1.Recordset.Fields() Text8.Text = Frm_UpdateGrean.Adodc1.Recordset.Fields() Combo1.Text = Frm_UpdateGrean.Adodc1.Recordset.Fields() Combo2.Text = Frm_UpdateGrean.Adodc1.Recordset.Fields() End Sub Private Sub DTP
16、icker1_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date) End Sub Private Sub Form_Activate() Frm_FindGrean.Adodc1.RecordSource = strTiaoJian Frm_FindGrean.Adodc1.Refresh Set DataGrid1.DataSource = Frm_FindGrean.Adodc1 End Sub Priva
17、te Sub Form_Load() Combo1.AddItem () Combo1.AddItem () Combo1.AddItem () Combo2.AddItem () 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 6 页，共 11 页 - - - - - - - - - 实验报告超市管理Combo2.AddItem () Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Tex
18、t = Text7.Text = Text8.Text = Combo1.Text = Combo2.Text = End Sub Private Sub Text1_Change() End Sub Private Sub Text2_Change() End Sub Private Sub Text8_Change() End Sub 超市管理：超市超市信息（如：界面如图二）（图三）当输入超市超市信息类别、运算符和条件后可以查找到所需要的超市信息设置，或按超市超市信息时间来超市超市信息，输入所要查找的时间段，就可查到所要的课程设置。代码如下：Dim sqlstr As String Pri
19、vate Sub Combo1_Change() 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 7 页，共 11 页 - - - - - - - - - End Sub Private Sub Combo2_Change() End Sub Private Sub Combo4_Change() End Sub Private Sub Combo5_Change() End Sub Private Sub Combo7_Change() End Sub Private Sub Co
20、mmand1_Click() Dim a As String Dim KCCX1 As String Dim KCCX2 As String Dim str1 As String Dim str2 As String If Option3.Value = True Then a = Trim(Combo2) Select Case a Case = KCCX1 = & Combo1.Text & & Combo2.Text & & Trim(Text1) & Case like KCCX1 = Instr(1, & Combo1.Text & , & Trim(Text1.Text) & )0
21、 End Select a = Trim(Combo4) Select Case a Case = KCCX2 = & Combo3.Text & & Combo4.Text & & Trim(Text2) & Case like KCCX2 = Instr(1, & Combo3.Text & , & Trim(Text2.Text) & )0 End Select If Option1.Value = True Then 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 8 页，共
22、 11 页 - - - - - - - - - 实验报告超市管理 If KCCX1 = Then strTiaoJian = select * from 超市信息 where & KCCX2 ElseIf KCCX2 = Then strTiaoJian = select * from 超市信息 where & KCCX1 Else strTiaoJian = select * from 超市信息 where & KCCX1 & and & KCCX2 End If ElseIf Option2.Value = True Then If KCCX1 = Then strTiaoJian = s
23、elect * from 超市信息 where & KCCX2 ElseIf KCCX2 = Then strTiaoJian = select * from 超市信息 where & KCCX1 Else strTiaoJian = select * from 超市信息 where & KCCX1 & or & KCCX2 End If Else If KCCX1 = Then strTiaoJian = select * from 超市信息 where & KCCX2 ElseIf KCCX2 = Then strTiaoJian = select * from 超市信息 where &
24、KCCX1 Else MsgBox 请选择连接方式！, vbOKOnly, 警告 Exit Sub End If End If If (KCCX1 & KCCX2) = Then MsgBox 请输入超市超市信息类别！, vbOKOnly, 警告 Exit Sub Else Unload Me Frm_UpdateGrean.Show 1 End If End If If Option4.Value = True Then If Val(Combo6) Val(Combo9) Then MsgBox 请正确选择年份！, vbOKOnly + vbExclamation, 超市信息提示 Comb
25、o6.SetFocus Exit Sub Else If Val(Combo6) = Val(Combo9) Then If Val(Combo7) Val(Combo10) Then 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 9 页，共 11 页 - - - - - - - - - MsgBox 请正确选择月份！, vbOKOnly + vbExclamation, 超市信息提示 Combo7.SetFocus Exit Sub Else If Val(Combo7) = V
26、al(Combo10) Then If Val(Combo8) Val(Combo11) Then MsgBox 请正确选择日期！, vbOKOnly + vbExclamation, 超市信息提示 Combo8.SetFocus Exit Sub End If End If End If End If End If If Combo6.Text = Or Combo7.Text = Or Combo8.Text = Or Combo9.Text = Or Combo10.Text = Or Combo11.Text = Then MsgBox 请输入完整的日期, vbOKOnly, 警告 E
27、xit Sub End If str1 = Trim(Combo6) & - & Trim(Combo7) & - & Trim(Combo8) str2 = Trim(Combo9) & - & Trim(Combo10) & - & Trim(Combo11) str1 = Format(str1, yyyy-mm-dd) str2 = Format(str2, yyyy-mm-dd) If sqlstr = Then sqlstr = & Trim(Combo5.Text) & =# & Format(str1, yyyy-mm-dd) & # and & Trim(Combo5.Tex
28、t) & =# & Format(str1, yyyy-mm-dd) & # and & Trim(Combo5.Text) & = # & Format(str2, yyyy-mm-dd) & # End If If sqlstr = Then MsgBox 请先输入查找时间！ Exit Sub End If strTiaoJian = select货物 from 超市信息 where & sqlstr Unload Me Frm_UpdateGrean.Show 1 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整
29、理 - - - - - - - 第 10 页，共 11 页 - - - - - - - - - 实验报告超市管理End If If Option3.Value True And Option4.Value True Then MsgBox 请选择超市超市信息方式！, vbOKOnly, 警告 Exit Sub End If End Sub 七，实验结果分析超市超市信息管理系统的完成，它在审核这一功能中能够对不同情况的资料进行设置，针对需要的超市信息进行设置。在本系统的开发过程中，由于本人是初次开发软件，在知识、经验方面都存在着不足。另外，在整个开发的过程中，时间也比较仓促。因此，该系统必然会存在一些缺陷和不足。 因为对超市管理的整个流程不够熟悉，在需求分析时未能做到完全满足用户的需求。虽然网络在超市管理系统中的应用不是很多，但是未来的发展方向，在本次开发过程由于硬件的限制，未能实现网络功能，因此在以后的系统更新过程中可能会造成一些不必要的数据损失。名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 11 页，共 11 页 - - - - - - - - -