VisualBasic课程设计-超销售管理系统

1、超市销售管理系统商品信息管理模块1 .课程设计的目的该课程设计的目的是进一步培养学生综合应用Visual Basic进行程序设计的能力。通过完成一个小型的管理系统，能达到具备设计功能较复杂的应用程序的能力。 学会利用 计算机解决实际问题的初步能力，具体掌握的基本能力有Visual Basic各种语句的综合使用能力、有关控件的使用能力、设计数据库管理系统的综合能力。超市销售管理系统是超市商品销售及商品管理的主要控制部分，直接影响销售的方便性及管理的规范性。随着信息时代的发展，对效率的要求日益提高，因而软件控制销 售和管理已经取代了传统全手工方式。超市具有自身的特点：商品要求一般齐全，进出 货关系

2、较为简单，员工人数种类不多；在软件角度看，数据较少，对存储和速度要求不 高。但正由于员工较少，使用软件控制成为必须。2 .设计方案论证2.1 需求分析随着科学技术的不断提高，计算机科学日渐成熟，其强大的功能已为人们深刻认识， 它已进入进入人类社会的各个领域并发挥着越来越重要的作用。而当今时代是飞速大战的信息时代，各行各业都离不开信息处理。计算机的最大好处在于可以利用其进行信息 管理。使用计算机进行信息管理，不仅提高了工作效率，更大大提高了其安全性。超市管理是超市中不可缺少的重要部分，超市的管理信息量繁多，包含很多信息的 数据管理。现今，大多数大型超市商场都使用计算机进行信息管理，而小型超市商店

3、仍 采用传统的人工管理方式，这种管理方式存在着许多缺点，比如，效率低、工作量大等， 而且，随着购买者与超市数量的增长，对于超市的商品、销售记录、员工等，使更新和 维护都带来了不少的困难。本系统就是为了改变传统的超市商店这种现状所设计的。2.2 设计思路该系统主要考虑了超市管理需求：由于该系统的使用对象多，要求有较好的权限管 理；原始数据修改简单方便，支持多条件修改；方便的数据查询，支持多条件查询；在相 应的情况下，删除数据方便简单，数据稳定性好。除系统的基本需求外，还有用来进行管 理的数据。由于每个数据内容具有较强的关联性，因此还需要有一些相应的数据库和数 据表。本组超市销售管理系统共5个模块

4、：超市管理登录系统模块、超市后台管理分支模 块、商品信息管理模块、销售记录管理模块、员工信息管理模块。系统组织结构图如图 1所示。图1系统组织结构图本课程设计完成商品信息管理，主要实现功能操作如下所示。(1)添加商品信息超市商品管理者登录超市管理系统，进入商品管理信息界面，完整输入“商品号”、“商品名称”、“厂商”、“商品类型”、“单价”，然后点击“添加”按钮完成商品添加操 作，并将信息保存至数据库。(2)查询商品信息管理者登录至商品管理信息界面，点击“添加”按钮，输入想要查询商品的商品号， 点击确认，即可显示查询的商品信息。(3)修改商品信息管理者登录至商品管理信息界面，查询到想要修改的商品

5、信息，修改商品的相关信 息，点击“修改”按钮完成对商品信息的修改，并将修改后的新信息保存至数据库。(4)删除商品信息管理者登录至商品管理信息界面，查询到想要删除的商品信息，点击“删除”按钮, 在弹出的对话框中，选择确定，即可删除想要删除的商品信息。(5)上一个查看当前商品信息的上一个商品信息。(6)下一个查看当前商品信息的下一个商品信息。(7)退出退出超市销售管理系统。本课程设计所设计的商品信息管理系统的流程图如图2所示图2商品信息管理系统流程图2.3 数据库设计数据库设计是数据库管理系统的第二个步骤，应根据系统功能模块绘制系统数据流 图，完成数据字典，设计数据库结构，建立数据库。根据超市销售

6、管理系统的需求，本 模块的数据字典为：商品信息数据：超市的商品的信息数据，包括的数据项有商品号、商品名称、厂商、 商品类型、单价。根据前面分析的数据字典，为建立一个商品信息数据表。商品信息数据表的的结构 如表1所小。表1商品信息表字段名数据类型数据长度说明商品号Long4PrimaryKey ,非空商品名称Text50非空J商Text50非空商品类型Text50非空单价r . -， / r > t-Tt_Long4r.-r-t、 、 .z> -一-sr-*xtz t非空本系统使用Visual Basic自带的功能创建超市销售管理系统的数据库，在 VB集成 开发环境中单击 外接程序”

7、 一可视化数据管理器”选项，弹出可视化数据管理器主窗口。在管理器界面中单击 文件” 一新建” 一 “ MicrosoAccess” 一 “Version7MDB命令，从 弹出的对话框中选择存储数据库的路径并为数据库起名db22.mdb”，然后单击 保存”按钮。右击 数据库窗口 ”，然后从快捷菜单中选择 新建表”命令，在弹出的 装结构”对话 框中创建数据表，为表起名为 员工信息表”。每次单击 添加字段”按钮向表中添加一个 字段。创建的表中包含如下字段：商品号（Long, 4）,商品名称（Text, 50）,厂商（Text, 50）,商品类型（Text, 50）,单价（Long, 4）。单击添加索

8、引”按钮，在弹出的对话框 中起名为PrimaryKey,在可用字段"双击商品号”字段添加到索引的字段”中。选中复 选框 主要的“、唯一的”，单击 确定”按钮，即为 商品信息表”创建了主键索引。如图 3, 4所示。表名称国）"jhwcpiracirixi字程列表名称：1商品号 .禳厂商1类型：LonP固定七1盥种大小：校对顺序：14F可篁长f2052r白动那加允许零长度1顺序位置：|0厂必要的珀证文本：验证规则：添加享粮.删除宝段国）蹦省值：索引列目名称：JiFr emaryKey1 FrfTiifylCe,i,卜部的添加W1 y1*口必要的L唯一由11 ?涧删除索引（M）不

9、限：+商品号L关闭©打印结构91图4表结构图2.4 详细设计建立商品信息管理窗体：在主系统建立的工程属性上右击，在弹出的快捷菜单上选 择“添加（A）” > “添加窗体（E）”新建一个本模块的窗体”相关商品信息”,保存名 为 “Form3.frm"。添加一个图片框（PictureBox）。在窗体上添加7个命令按钮（CommandButton）,分别用于处理本模块的7个功能： “添加”、“删除”、“修改”、“查询”、“上一个”、“下一个”、“退出”。相关属性如表 2 所示。表2命令按钮（Command属性表名称CaptionFontCommand1添加宋体，粗体，小四Co

10、mmand2删除宋体，粗体，小四Command3修改宋体，粗体，小四Command4查询宋体，粗体，小四Command5上一个宋体，粗体，小四Command6下一个宋体，粗体，小四Command7退出宋体，粗体，小四在窗体上添加5个标签控件（Label）,分别用于显示商品信息的5个类型：“商品号”、“商品名称”、“厂商”、“商品类型”、“单价”。相关属性如表3所示表3标签控件（Label ）属性表名称CaptionFontLabell商品号宋体，常规，三号Label2商品名称宋体，常规，三号Label3）商宋体，常规，三号Label4商品类型宋体，常规，三号Label5单价宋体，常规，三号在窗

11、体上添加一个数据控件Data,负责数据库与应用程序之间的数据交换，链接数据库如图5所示查找范围：| VB二回殍国名称修改日期7 直 TT1截图2012/7/91557文樽专业管理辍-包含海代码2012/7/914:刃文科I团此Lmdb2012/7/914:56Mic曲ZZmdb2012/7/915156Mic文件名00: 瓯蕊' |打开®文件类型仃）：懒据店3 取消系助算图5链接数据库图数据控件Data相关属性如表4所示。表4数据控件Data属性表名称CaptionDatabaseNameRecordSourceDatalDatalC:Userslibo.libo-PC.00

12、0DesktopVBdb2.mdbshangpinxinxi在窗体上添加5个文本框控件（TextBox）,分别显示商品信息管理中的详细信息相关属性如图5所示。表5文本框控件（TextBox）属性表名称TextDataSourceDataFieldTextl（空）Datal商品号Text2（空）Datal商品名称Text3（空）Datal）商Text4（空）Datal商品名称Text5（空）Datal单价商品信息管理窗口设计完成如图 6所示。司工程 1 MiCH95Cfi Visual Bask fiiir Il=1 F-orniJ (fcirm)l /jF3 .设计结果与分析通过与小组其他成员

13、交流后完成整个超市管理系统的设计，运行并登录系统，进入 到商品信息管理系统，主界面如图 7所示。图7商品信息管理系统主界面图本模块的各个功能如下(1)完整输入商品信息，点击“添加”按钮，将商品的各类信息添加到数据库中,如图8所示图8添加商品信息添加如图9所示的商品信息，方便下面的功能操作rW shangpinxinxi_F-X1商品号力有品1名称厂商 ，商晶类型,单仿科h111变形金刚江西凯凯玩具玩具类50112联想笔记本leHQVQ公司电子类8000113皮包b7皮具有限公娱乐休闲类10000114手套熊猫生活用品生活用品类20115苹果山东红富士水水果类S116圣诞帽圣诞老人用品娱乐休闲类

14、20117孔明灯心愿有限公司娱乐休闲类1511S罗技鼠标罗技有限公司电子类300119 Nokia 5800诺基亚手机电子类期125足球阿迪达斯运动类88 S来1记急H *第11项(共11 1*1队之W透叁1 4 im图9数据库数据(2)点击“查询”按钮，在弹出的输入框中输入商品的商品号，如图 10所示。图10输入查询商品号输入完成后，单击“确定”按钮，查询的商品信息显示在文本框内，如图 11所示。图11商品信息查询界面(3)删除商品信息时，首先查询到想要删除的商品信息，单击“删除”按钮，在弹出的删除确认对话框中点击“确定”，即可完成对本条商品信息的删除，如图12所示图12删除商品信息界面删除

15、商品后数据库记录如图12所示r百 shang pinxinxi1日 X商品号商品名称厂商 商品类型单价 添加新Ir ns联想笔记本1 enovo公司 1巴no V0公司80001113皮包工发皮具有限公娱乐休闲类10000114手套熊强生活用品生活用品类201115苹果山东红富士水水果究81116圣诞帽圣诞老人用品娱乐休闲类20117孔明灯心愿有限公司娱乐休闲类151118罗技鼠标罗技有限公司电子类3001119Nokia 5800诺基亚手机电子类999125足球阿迪达斯 运动类888米1记录：修MIO项洪10 J加彳L叩二1图13删除后数据库数据(4)修改商品信息时，首先将商品信息显示到需要

16、修改的商品上，直接更改商品信息，修改完成后，单击“修改”按钮，在弹出的修改确认对话框中点击“确定”，即可完成对商品信息的修改，如图14所示。图14修改商品信息界面修改商品信息后数据库数据记录如图 15所示shangpinxirui1 X商品号'T司品名“ '厂商 商品类型-单价 -_113皮包1k皮具有限公娱乐休闲类10000rin手套熊猫生活用品生活用品类20115苹果山东红富士水水果类8F116圣诞帽圣诞老人用品娱乐休闲类20r n7孔明灯心JS有限公司娱乐休闲类15I116罗技鼠标罗技有限公司电子类300119Nokia 5800诺基亚手机电子类999r120联想笔记本l

17、enwo有限公电子类8000125足球阿迪达斯运动类888米记录：M 第10项供101!口樽鑫 1 I业I图15修改后数据库数据(5)当点击“上一个”浏览商品信息到达第一条时，提示信息如图16所示。玩I50图16已经是第一条记录了(6)当点击“下一个”浏览商品信息到达最后一条时，提示信息如图17所示。图17已经是最后一条记录了(7)点击“退出”按钮，直接退出系统4 .设计体会一个星期的VB课程设计结束了，课程设计是培养学生综合运用所学知识 ，发现，提 出,分析和解决实际问题，锻炼实践能力的重要环节，是对学生实际工作能力的具体训练和 考察过程.经过这一周的VB课程设计，我解决实际问题的能力提高了

18、并学会了自主学习，自 我提高和自我完善，用已学过VB知识及数据库技术编写程序。不仅掌握了 Visual Basic 语言的编辑方法，提高了编程的能力，而且还增强了对各类问题的处理能力。同样也锻 炼了自己的动手能力，充分发挥了自己所能，运用在学校学习的知识，创造求新，做出 适合现代社会发展所需要的一些适用性， 从最基本的问题入手开始一个个的解决心中的 疑惑，这使我了解到，只有扎实的基本功和良好的学习习惯才能更好的学习新的知识。课程设计让我们学习与实践相结合，加深了了我们对书本知识的理解能力，学以致 用。锻炼了我的自主学习能力及创新能力。分小组模式进行课程设计，培养了团队合作 精神，锻炼了团队合作

19、意识。在今后的学习中，还要继续加强自主学习与实践的锻炼。回想课程设计的过程中，既有烦恼又有快乐。从思考题目的时候开始，到程序的编 写，上机调试，这中间我们遇到很多困难。程序设计期间，遇到问题大家共同讨论、思 考并积极去解决，也向同学，老师和网络寻求帮助。在编程过程中，我们就遇到了链接 数据库，各模块之间的调用，经过集思广益后，我们收获很大，不仅解决了问题，还增 进了同学之间的友谊。当解决一个问题时，我们都很有成就感；当问题很难解决时，我 们会回到课本，复习以前学过的知识，再思考问题，直至把问题解决。在上机调试的过 程中，我们还遇到许多类似的问题，最后在我们的共同努力下，通过向老师、同学请教，

20、查参考资料，我们把所有的困难都解决了！在程序没有问题，所有功能都能操作的情况 下，最后我们还要对显示的页面进行设计，要是输出页面清晰明了，这就要求我们对输 出进行正确的控制。通过这次课程设计使我懂得了理论与实际相结合是很重要的，只有理论知识是远远不够的，只有把所学的理论知识与实践相结合起来，从理论中得出结论，才能真正为社 会服务，从而提高自己的实际动手能力和独立思考的能力。通过这次课程设计，我基本 掌握了 VB设计的问题分析、总体结构设计、用户界面设计、程序设计基本技能和技巧， 并且加深理解课堂上学习的内容。在设计过程中，我逐步提高了程序设计和调试能力， 培养了我们解决问题的能力，算法分析能力

21、和，同时我也学到了以后解决问题的时候要 认真，仔细，考虑周全而且要有耐力，也看到了团队精神和互帮互助的重要性。这一点 会让我终生受益。这次课程设计终于顺利完成了，在设计中遇到了很多编程问题，最后在老师的辛勤 指导下，终于游逆而解。同时，在老师的身上我学得到很多实用的知识，在此我表示感 谢！同时，对给过我帮助的所有同学和小组内的组员们再次表示忠心的感谢！5 .参考文献1 Wayne Pruchniak. Visual Basic 6.0使用指南M.北京：电子工业出版社 20032 Ned Snell.中文版Microsoft Office 97自学通M.北京：机械工业出版社 20053 Micr

22、osoft.Visual Basic 6.0中文版控件大全M.北京：电子工业出版社 20044 Timothy Buchanan.中文Access 2000 24学时教程M.北京：机械工业出版社 20055乌云高娃.数据库应用系统开发 PowerBuilder实用编程技术M.北京：清华大学出 版社20016刘天惠.Visual Basic程序设计教程M.北京：清华大学出版社 2006附录Public msgPrivate Sub Command1_Click（）vb_msg = MsgBox（"请输入要添力口的数据 ", vbOKCancel）If vb_msg = vbC

23、ancel ThenExit SubEnd IfData1.Recordset.AddNewData1.Recordset.Fields（"商品号"）=Val（Text1.Text）Data1.Recordset.Fields（"商品名称"）=Text2.TextData1.Recordset.Fields（"厂商"）=Text3.TextData1.Recordset.Fields（"商品类型"）=Text4.TextData1.Recordset.Fields（"单价"）=Val（Text5

24、.Text）Data1.Recordset.UpdateEnd SubPrivate Sub Command2_Click（）Dim X As IntegerX = MsgBox（"你确定要删除记录吗 ？", vbYesNo）If X = vbYes ThenDatal.Recordset.DeleteDatal.Recordset.MoveNextIf Data1.Recordset.EOF ThenData1.Recordset.MoveLastData1.Recordset.UpdateEnd IfEnd IfEnd SubPrivate Sub Command3_Click（）Dim areturn As Integerareturn = MsgBox（"你确定要修改记录吗 ？", vbYesNo）If areturn = vbYes ThenData1.Recordset.EditData1.Recordset.Fields（"商品号"）=Val（Text1.Text）Data1.Recordset.Fields（"商品名称"）