超市管理系统VB课设报告.docx

1、超市管理系统VB课设报告 沈 阳 航 空 航 天 大 学 课程设计学 号 班 级 姓 名 嘿嘿 指导教师 2016年 11月 17 日沈阳航空航天大学课程设计任务书学院：能源与环境学院 专业： 环境工程 班级；学号： 题目：超市销售管理系统一、课程设计时间2016-2017学年第一学期12周 11.14-11.18 共计1周 20学时二、课程设计内容 用VB设计一个超市销售管理系统，商品信息包括商品的编号，名称，进价，售价，数量等，要求实现登录管理；超市商品管理（商品的添加、删除和修改）；商品销售管理（售出的商品的编号、数量、折扣等）；查询统计管理（可查询超市的库存情况，查询超市的销售记录，统

2、计超市利润等功能）。三、课程设计要求程序质量： 贯彻事件驱动的程序设计思想。 用户界面友好，功能明确，操作方便；可以增加其它功能或修饰。 代码应适当缩进，并给出必要的注释，以增强程序的可读性。课程设计说明书： 课设结束后，上交课程设计说明书和源程序。课程设计说明书的内容参见提供的模板。四、指导教师和学生签字指导教师：_ 学生签名：_五、成绩六、教师评语一、 系统分析与总体设计1. 系统需求分析超市销售管理系统的用户是负责超市销售管理的超市管理员，系统主要包括商品基本信息管理、超市商品管理、商品销售管理、查询统计管理、管理员登录管理。具体功能如下：(1) 商品基本信息管理:商品的编号、名称、进价

3、、售价、数量；(2) 超市商品管理：商品的添加、修改、删除；(3) 商品销售管理：售出商品的编号、数量、折扣；(4) 查询统计管理：超市的库存情况、销售记录、利润；(5) 管理员登录管理：账号密码登录。2. 系统总体结构设计根据需求分析中总结的用户需求设计系统的体系结构。系统的功能模块设计如图1所示。 图1 系统功能模块图二、 数据库结构设计本系统采用Access作为后台数据库，文件名为db.mdb。数据库中包含3个表，即商品信息、销售信息、用户表。下面分别介绍这些表的结构。（1）用户表（管理员信息表），结构如表1所示。在系统初始化时，已经将管理员用户的信息添加到用户表中，系统提供管理员用户的

4、创建、删除等功能。管理员用户密码可以在程序中进行修改。 表1 用户表(2)商品信息表，结构如表2所示。在系统初始化时，已经将商品的信息添加到商品信息表中，系统提供了创建，删除等功能。 表2 商品信息表(3)销售信息表，结构如表3所示。在系统初始化时，已经将商品的销售信息添加到销售信息表中，系统提供了修改功能。 表3 销售信息表三、 窗体与功能设计1. 登录窗体设计该窗体实现的功能是管理员用户的登录，用户的信息已经存储在数据库中。管理员用户在程序运行时，首先需要输入用户名和密码，然后单击登录按钮，后台的程序代码会对管理员输入内容的准确性进行检查，如果输入内容错误，程序会给出提示“用户名密码错误”

5、，若正确，则登录成功。 (1) 界面设计管理员登录窗体的名称为Form4，界面中的基本控件包括了2个文本框、2个标签和2个命令按钮。窗体中采用Adodc控件实现与Access数据库“db.mdb”的连接，其界面布局如图2所示。 图2 登录窗体界面(2) 登录窗体的主要控件属性登录窗体的主要控件属性如表4所示，Adodc控件的属性设置采用代码实现。表4 登录界面控件属性对象名称属性名称属性值Form1Caption登录Command1Caption登录Command2Caption退出(3) 程序代码在登录窗体Form1中添加如下代码：Private Sub Command1_Click()Ad

6、odc1.RecordSource = select * from 用户表 where 用户名= & Text1.Text & and 密码= & Text2.Text & 查询表中是否有对应条件记录Adodc1.Refresh刷新纪录If Adodc1.Recordset.RecordCount = 0 Then 如果没记录 MsgBox 用户名密码错误, , 提示Else Form1.Show Unload MeEnd IfEnd SubPrivate Sub Command2_Click()End 退出End Sub2. 系统主窗体设计当管理员用户登录成功后，将显示系统主界面。在此界面中

7、，管理员可以选择“超市销售管理系统”菜单中的“用户管理”命令，而后在弹出的“用户管理”窗体中执行修改密码、添加用户密码；菜单中的“商品管理”命令，可以进入“商品管理”窗体，并在该窗体中进行商品信息的查询、修改、新增、删除功能；菜单中的“销售管理”命令，可以进入“销售管理”窗体，并在该窗体中进行商品信息的查询功能、输入购买数量后可以更改数据库信息；菜单中的“查询统计”菜单命令，可以进入“查询统计”窗体，并在该窗体中进行商品信息的查询，输入名称后，可查询库存、利润； “退出”菜单命令可结束系统的运行。（1）界面设计主窗体的名称为Form1，界面布局如图3所示。图3 主窗体界面设计（2）菜单项设计主

8、窗体的主要控件属性如表5所示。表5 主界面菜单项的属性标 题名 称用户管理菜单项 商品还管理菜单项销售管理菜单项查询统计菜单项退出菜单项（3）程序代码Private Sub 用户管理_Click()Form1.HideForm5.ShowEnd SubPrivate Sub 商品管理_Click()Form1.HideForm2.ShowEnd SubPrivate Sub 销售管理_Click()Form1.HideForm6.ShowEnd SubPrivate Sub 查询统计_Click()Form1.HideForm3.ShowEnd SubPrivate Sub 退出_Click(

9、)EndEnd Sub3. 用户管理窗体设计进入用户管理界面后，管理员可以选择 “添加”命令，输入用户名、密码；点击“保存”按钮，可以将添加的用户或修改密码的用户保存；点击“取消”按钮，可以将文本框清空；“删除”按钮可以删除数据库中的用户信息；“退出”按钮可以返回主窗体。（1）界面设计用户管理窗体的名称为Form5，界面布局如图4所示。 图4 用户管理窗体界面设计（2）菜单项设计用户管理窗体的主要控件属性如表6所示，DataGrid控件通过代码实现。表6 用户管理界面菜单项的属性标 题名 称添加Command1保存Command2取消Command3删除Command4退出Command5（3

10、）程序代码Private Sub Command1_Click()Text1.Text = Text2.Text = Command2.Tag = 添加Adodc1.Enabled = FalseCommand1.Enabled = FalseCommand3.Enabled = TrueCommand4.Enabled = FalseEnd SubPrivate Sub Command2_Click()If Command2.Tag = 添加 Then Adodc1.Recordset.AddNew 添加记录Command1.Enabled = TrueCommand3.Enabled =

11、FalseCommand4.Enabled = TrueAdodc1.Enabled = TrueAdodc1.Recordset(用户名) = Text1.TextAdodc1.Recordset(密码) = Text2.TextAdodc1.Recordset.Update 更新数据Adodc1.RefreshEnd SubPrivate Sub Command3_Click()If Adodc1.Recordset.EOF = False And Adodc1.Recordset.BOF = False Then Text1.Text = Adodc1.Recordset(用户名) Te

12、xt2.Text = Adodc1.Recordset(密码)End IfAdodc1.Enabled = TrueCommand1.Enabled = TrueCommand3.Enabled = FalseCommand4.Enabled = TrueEnd SubPrivate Sub Command4_Click()If Adodc1.Recordset.RecordCount 0 Then Adodc1.Recordset.Delete 删除数据 Adodc1.Recordset.Update 更新删除 Adodc1.Refresh If Adodc1.Recordset.EOF =

13、 False And Adodc1.Recordset.BOF = False Then Text1.Text = Adodc1.Recordset(用户名) Text2.Text = Adodc1.Recordset(密码) End IfElse MsgBox 没有记录End IfEnd SubPrivate Sub Command5_Click()Unload MeForm1.ShowEnd SubPrivate Sub Form_Load()Command3.Enabled = FalseAdodc1.RefreshEnd Sub4. 商品管理窗体设计进入商品管理界面后，管理员可以选择

14、“新增”命令，输入商品名称、进价、售价、数量；点击“修改”按钮，管理员可以对数据库中存在的商品进行修改；点击“保存”按钮，可以将添加的商品或修改过的商品保存；点击“取消”按钮，可以将文本框清空；“删除”按钮可以删除数据库中的商品信息；“退出”按钮可以返回主窗体。（1）界面设计商品管理窗体的名称为Form2，界面布局如图5所示。 图5 商品管理窗体界面设计（2）菜单项设计商品管理窗体的主要控件属性如表8所示，Adodc控件的属性设置采用代码实现，DataGrid控件通过代码实现。表7 用户管理界面菜单项的属性标 题名 称新增Command1修改Command2保存Command3取消Comman

15、d6删除Command4退出Command5（3）程序代码Private Sub Command1_Click()Dim I As IntegerFor I = 0 To 3Text1(I).Text = 文本框内容清空NextText1(4).Text = 1Command3.Tag = 新增Command1.Enabled = FalseCommand2.Enabled = FalseCommand4.Enabled = FalseCommand3.Enabled = True 设置按钮可用Command6.Enabled = TrueEnd SubPrivate Sub Command2

16、_Click()Dim I As IntegerIf Adodc1.Recordset.RecordCount 0 Then 如果数据行数大于0 For I = 0 To 4 Text1(I).Text = Adodc1.Recordset(I + 1) 字段内容赋值给文本框 Next Command3.Tag = 修改 Command1.Enabled = False Command2.Enabled = False Command4.Enabled = False Command3.Enabled = True 设置按钮可用 Command6.Enabled = TrueEnd IfEnd

17、 SubPrivate Sub Command3_Click()Dim I As IntegerFor I = 0 To 4 If Text1(I).Text = Then 如果文本框内容为空 MsgBox 请完整填写数据内容, , 提示 Exit Sub 退出过程 End IfNextIf Command3.Tag = 新增 Then Adodc1.Recordset.AddNew 添加新记录For I = 0 To 4 Adodc1.Recordset(I + 1) = Val(Text1(I).Text) 将文本框内容赋值给字段NextAdodc1.Recordset.Update 更新

18、For I = 0 To 3Text1(I).Text = NextText1(4).Text = 1Command6_ClickEnd SubPrivate Sub Command4_Click()If Adodc1.Recordset.RecordCount 0 Then 如果数据行数大于0 Adodc1.Recordset.Delete 删除数据 Adodc1.Recordset.Update 更新数据End IfEnd SubPrivate Sub Command5_Click()Unload Me 退出本窗体Form1.ShowEnd SubPrivate Sub Command6_

19、Click()Command3.Tag = For I = 0 To 3Text1(I).Text = NextText1(4).Text = 1Command1.Enabled = TrueCommand2.Enabled = TrueCommand4.Enabled = TrueCommand3.Enabled = FalseCommand6.Enabled = FalseEnd SubPrivate Sub Form_Load()Command3.Enabled = FalseCommand6.Enabled = FalseAdodc1.RefreshEnd Sub5. 销售管理窗体设计

20、进入销售管理界面后，管理员可以选择 “查询”命令，输入商品编号，即可查询该商品名称、售价、库存、折扣；输入购买数量，点击“确定”可以验证是否可以购买； “退出”按钮可以返回主窗体。（1）界面设计销售管理窗体的名称为Form6，界面布局如图6所示。 图6 销售管理窗体界面设计（2）菜单项设计销售管理窗体的主要控件属性如表9所示，Adodc控件的属性设置采用代码实现；DataGrid控件通过代码实现。表8 用户管理界面菜单项的属性标 题名 称查询Command1确定Command2退出Command3（3）程序代码Private Sub Form_Load()Adodc1.Refresh 刷新控件

21、数据Adodc2.RefreshEnd SubPrivate Sub Command1_Click()Dim I As IntegerIf Adodc1.Recordset.RecordCount 0 Then Adodc1.Recordset.Find 编号= & Val(Text1(4).Text) If Adodc1.Recordset.EOF = False And Adodc1.Recordset.BOF = False Then For I = 0 To 2 Text1(I).Text = Adodc1.Recordset(I + 1) 字段内容赋值给文本框 Next Text1(

22、3).Text = Adodc1.Recordset(5) Else For I = 0 To 3 Text1(I).Text = Next End IfEnd IfEnd SubPrivate Sub Command2_Click()Dim I As IntegerIf Adodc1.Recordset.RecordCount 0 Then 如果数据行数大于0 If Adodc1.Recordset.EOF = False And Adodc1.Recordset.BOF = False Then If Val(Text1(5).Text) = Val(Text1(2).Text) Then

23、 Adodc2.Recordset.AddNew Adodc2.Recordset(商品编号) = Adodc1.Recordset(编号) Adodc2.Recordset(名称) = Adodc1.Recordset(名称) Adodc2.Recordset(利润) = (Adodc1.Recordset(售价) * Adodc1.Recordset(折扣) - Adodc1.Recordset(进价) * Val(Text1(5).Text) Adodc2.Recordset(数量) = Val(Text1(5).Text) Adodc2.Recordset.Update Adodc1.

24、Recordset(数量) = Adodc1.Recordset(数量) - Val(Text1(5).Text) Adodc1.Recordset.Update MsgBox 购买成功 Text1(5).Text = Else MsgBox 库存不足 Exit Sub End If End IfEnd IfEnd SubPrivate Sub Command3_Click()Unload Me 退出本窗体Form1.ShowEnd Sub6. 查询统计窗体设计进入查询统计界面后，管理员可以选择 “查询”命令，输入商品名称，可在数据库中查询销售情况，利润； “退出”按钮可以返回主窗体。（1）界

25、面设计查询统计窗体的名称为Form3，界面布局如图7所示，DataGrid控件通过代码实现。 图7 查询统计窗体界面设计（2）菜单项设计查询统计窗体的主要控件属性如表9所示，。表9 查询统计界面菜单项的属性标 题名 称查询Command1查询Command2退出Command3（3）程序代码Private Sub Command1_Click()If Text1(0).Text = Then Adodc1.RecordSource = select * from 商品信息Else Adodc1.RecordSource = select * from 商品信息 where 名称= & Text

26、1(0).Text & End IfAdodc1.Refresha = Adodc1.Recordset(数量)Label1.Caption = 库存： & aSet DataGrid1.DataSource = Adodc1DataGrid1.RefreshEnd SubPrivate Sub Command2_Click()If Text1(1).Text = Then Adodc2.RecordSource = select * from 销售信息Else Adodc2.RecordSource = select * from 销售信息 where 名称= & Text1(1).Text

27、 & End IfAdodc2.Refreshl = Adodc2.Recordset(利润)Label3.Caption = 利润： & lSet DataGrid2.DataSource = Adodc2DataGrid2.RefreshEnd SubPrivate Sub Command3_Click()Form3.HideForm1.ShowEnd Sub四、 总结通过此次课设，一周的时间，较为熟练掌握数据库的连接。如何将数据库信息连接到窗体中， 如何控制按钮是否可用，如何浏览数据库信息，如何控制窗体的显示与否;准确知道Recordest，Refresh，Datagrid，EOF，BO

28、F，Tag，if条件语句，for循环语句的使用方法。经过不懈的努力，经过无数次的调试和运行，完成了程序。不断的调试，使我认识到即使一丁点的错误也会导致系统的不正常运行，细节决定成败。另外老师对我的提问让我知道了自己对于基础知识的掌握还不够熟练。大一对VB掌握不是十分熟练，所以在这次的课程设计中，我在教材和网络的帮助下比较顺利的完成了此次课设，这使我认识到学习每一门知识的重要性，在今后的学习与工作中，我都需要具备多种技能，所以学习的重要性不言而喻，让我意识到了VB语言对于学生的重要性。最后，对于此次成功完成课程设计要求，我感到十分高兴，付出便会有收获！五、 参考文献1 王亚杰Visual Basic程序设计教程北京：高等教育出版社，2015 2 杨日璟 郑江超计算机基础与Visual Basic 程序设计清华大学出版社3 龚沛曾 杨志强 陆慰民. Visual Basic程序设计教程高等教育出版社，20074 常桂英 蔚淑君Visual Basic与Access 2010数据库应用系统开发清华大学出版社