VB超市管理系统实验报告

1、 实验报告 课程名称：模拟超市管理系统班 级：姓 名：学 号： 一， 实验内容：用vb和access实现超市管理系统 要求;（1）使用Access创建数据库各项管理列表，熟练掌握创建过程。 （2）创建的系统能准确的实现超市的销售情况。满足超市进销超市信息管理的需求。 （3）用access创建数据库。 （4）系统具备数据库维护功能，及时根据实际的要求添加或删除。二 实验目的熟悉VB与Access的结合使用，掌握操作过程。在实验中，通过练习，能更深层的理解VB的操作环境与语法。三，操作步骤：1、数据库的概念数据库是一种存储数据并对数据进行操作的工具。数据库的作用在于组织和表达超市信息，简而言之，数

2、据库就是超市信息的集合。计算机的数据库可以分为两类：非关系数据库(flat-file)和关系数据库（relational）。关系数据库中包含了多个数据表的超市信息，数据库含有各个不同部分的术语，象记录、域等。2、新建一个数据库创建任何一个数据库的第一步是仔细的规划数据库，设计必须是灵活的、有逻辑的。创建一个数据库结构的过程被认为是数据模型设计。（1）标识需要的数据；（2）收集商品标识的字段到表中；（3）标识主关键字字段；（4）规范数据；（5）标识指定字段的超市信息；3、修改已建的数据库 数据库的修改分为；添加、编辑和删除记录。这三种操作均可由Visual Basic创建的程序来完成，下面的章节

3、将详细描述实现的具体方法。四，总体设计：系统功能描述本系统的主要任务是实现对超市超市信息管理、进货管理、售出管理及相关超市超市信息。其主要功能包括：1、超市超市信息管理功能超市管理。提供给超市的超市信息更新、删除。以超市为单位，进行货物入库。其中分为单个添加和成批添加。删除货物。当货物过期后，超市超市信息转移备份数据库中，系统的基本数据库中需要删除货物超市信息。超市管理。本部分的功能主要有超市货物导入、分配、及设置。超市货物导入实现从现存的EXCEL超市表中录入超市超市信息。分配功能实现按超市的导入、进货及出货进行分配。设置货物实现自动为超市编号。超市超市信息备份。在超市超市信息删除前，将其按

4、超市为单位保存到备份数据库。 2超市超市信息管理功能超市信息录入。以超市为单位，录入各货物的进销情况。超市信息管理。提供本超市超市信息的录入、修改、删除。它是超市系统管理的基础。用以保证数据库中一致性原则。4、超市超市信息功能。超市超市信息超市超市信息。根据用户的要求，超市超市信息超市数据库的所有可能的超市信息。五，数据流图 根据以上的系统功能描述，设计出数据流图如下：超市超市信息管理系统用户超市超市信息管理系统系统时钟超市超市信息管理货物管理当前日期货物超市信息管理超市超市信息要求超市超市信息结果统计表图2-1 顶层数据流图二、基层数据流图 22超市管理 超市数据处理结果 23超市管理超市数

5、据处理要求超市超市信息超市超市信息管理要求超市名称及修改要求21要求类型处理24添加超市添加要求及超市数据当前时钟一、数据流条目：（1）超市超市信息管理模块：超市超市信息管理要求=超市数据处理要求|超市数据管理要求|添加数据要求|数据删除要求|数据备份要求超市数据处理要求=超市数据|货物数目|超市名称|超市数据管理要求=超市名称|修改要求添加数据要求=单个超市数据单|成批数据单数据删除要求=起止货物|超市名称|所有超市数据数据备份要求=超市名称|经营时间（2）超市信息管理模块： 共有六大模块：分别是：系统设定，商品盘点，销售超市信息，其他设置，报表，帮助。 二、加工条目： （1）系统设定的条目

6、： 重新登录，授权用户，删除用户，修改个人超市信息，退出。 （2）商品盘点的条目：超市信息修改，商品入库，库存修改，库存查询，入库查询。 （3）销售超市信息的条目：销售，按日和月盘点，总销售盘点。 (4)其他设置的条目： 供应商设置，省份设置，商品种类设置。 （5）报表的条目： 供应商报表，销售报表，入库盘点报表，种类报表。 （6）帮助的条目： 关于六，详细设计根据系统的主要功能及上一章的总体设计，系统开发进入第二个阶段：详细设计。在这一阶段的工作中，主要任务有以下几项：1、根据原型化的开发原则，为系统的每个模块功能进行界面设计，作为进一步优化的基础。2、进行系统的流程分析，为模块的细化做好准

7、备。3、对每个模块进行详细的算法设计。 31 系统界面设计一、登录及系统主窗口界面设计该部分界面主要包括登录窗口、系统主窗口、修改密码窗口。1、登录窗口界面： 本系统中使用到的数据表主要有超市表、成绩表、缴费表、超市信息、超市档案、用户资料，由这六个表，组成了名为超市信息的数据库（如图一）。其中超市档案是本系统主要的下面为其代码：Private Sub Command1_Click()Dim myCon As New ADODB.ConnectionDim myRs As New ADODB.RecordsetDim ZhuanYe, NianJi, XueQi, KeCheng, JiaoC

8、ai, RenKLS, KeShi, ShangKeDD, KeChengXZ, KaoShiXZ As StringZhuanYe = Text1.TextNianJi = Text2.TextXueQi = DTPicker1.ValueKeCheng = Text4.TextJiaoCai = Text5.TextRenKLS = Text6.TextKasha = Text7.TextShangKeDD = Text8.TextKeChengXZ = Combo1.TextKaoShiXZ = Combo2.TextIf Trim(面包) = Or Trim(牛奶) = Or Trim

9、(香肠) = Or Trim(矿泉水) = Or Trim(书) = Then MsgBox 请填写要修改课程资料的内容！ Combo1.Text = Combo2.Text = Exit SubEnd IfmyCon.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!按日销售 = Tex

10、t6.Text myRs!总销售 = Text7.Text myRs!供应商 = Text8.Text myRs!商品种类 = Combo1.Text myRs!省份 = Combo2.TextmyRs.UpdatemyRs.ClosemyCon.CloseMsgBox 您确定要修改吗？, vbyesno 提示Frm_UpdateGrean.Adodc1.RefreshFrm_UpdateGrean.DataGrid1.RefreshText1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = Tex

11、t7.Text = Text8.Text = Combo1.Text = Combo2.Text = End SubPrivate Sub Command2_Click() Unload MeEnd SubPrivate Sub Command3_Click() Unload Me Frm_FindGrean.Show 1End SubPrivate Sub DataGrid1_Click()Frm_UpdateGrean.Adodc1.RecordSource = select * from 超市管理where 货物 = & Trim(DataGrid1.Row) & Text1.Text

12、= 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()Text6.Text = Frm_UpdateGrean.Adodc1.Recor

13、dset.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 SubPrivate Sub DTPicker1_CallbackKeyDown(ByVal KeyCode As Integer

14、, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)End SubPrivate Sub Form_Activate()Frm_FindGrean.Adodc1.RecordSource = strTiaoJianFrm_FindGrean.Adodc1.RefreshSet DataGrid1.DataSource = Frm_FindGrean.Adodc1End SubPrivate Sub Form_Load()Combo1.AddItem ()Combo1.AddItem ()Co

15、mbo1.AddItem ()Combo2.AddItem ()Combo2.AddItem ()Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = Text7.Text = Text8.Text = Combo1.Text = Combo2.Text = End SubPrivate Sub Text1_Change()End SubPrivate Sub Text2_Change()End SubPrivate Sub Text8_Change()End Sub超市管理：超市超市信息（如

16、：界面如图二）（图三）当输入超市超市信息类别、运算符和条件后可以查找到所需要的超市信息设置，或按超市超市信息时间来超市超市信息，输入所要查找的时间段，就可查到所要的课程设置。代码如下：Dim sqlstr As StringPrivate Sub Combo1_Change()End SubPrivate Sub Combo2_Change()End SubPrivate Sub Combo4_Change()End SubPrivate Sub Combo5_Change()End SubPrivate Sub Combo7_Change()End SubPrivate Sub Comman

17、d1_Click()Dim a As StringDim KCCX1 As StringDim KCCX2 As StringDim str1 As StringDim str2 As StringIf Option3.Value = True Thena = Trim(Combo2)Select Case a Case = KCCX1 = & Combo1.Text & & Combo2.Text & & Trim(Text1) & Case like KCCX1 = Instr(1, & Combo1.Text & , & Trim(Text1.Text) & )0 End Select

18、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 If KCCX1 = Then strTiaoJian = select * from 超市信息 where & KCCX2 ElseIf KCCX2 = Then strTiaoJian = s

19、elect * from 超市信息 where & KCCX1 Else strTiaoJian = select * from 超市信息 where & KCCX1 & and & KCCX2 End IfElseIf Option2.Value = True Then If KCCX1 = Then strTiaoJian = select * from 超市信息 where & KCCX2 ElseIf KCCX2 = Then strTiaoJian = select * from 超市信息 where & KCCX1 Else strTiaoJian = select * from

20、超市信息 where & KCCX1 & or & KCCX2 End IfElse If KCCX1 = Then strTiaoJian = select * from 超市信息 where & KCCX2 ElseIf KCCX2 = Then strTiaoJian = select * from 超市信息 where & KCCX1 Else MsgBox 请选择连接方式！, vbOKOnly, 警告 Exit Sub End IfEnd If If (KCCX1 & KCCX2) = Then MsgBox 请输入超市超市信息类别！, vbOKOnly, 警告Exit SubEls

21、e Unload Me Frm_UpdateGrean.Show 1End IfEnd IfIf Option4.Value = True Then If Val(Combo6) Val(Combo9) Then MsgBox 请正确选择年份！, vbOKOnly + vbExclamation, 超市信息提示 Combo6.SetFocus Exit Sub Else If Val(Combo6) = Val(Combo9) Then If Val(Combo7) Val(Combo10) Then MsgBox 请正确选择月份！, vbOKOnly + vbExclamation, 超市信

22、息提示 Combo7.SetFocus Exit Sub Else If Val(Combo7) = Val(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, 警告 Exit Sub End If str1 = Trim(Combo6) & - & Trim(Combo7) & - & Trim(Combo8) str2 = Trim(Combo9) & - & Trim(Combo10) & - & Trim(Combo11) str1 = Format(str1