VB课程设计报告.docx
《VB课程设计报告.docx》由会员分享，可在线阅读，更多相关《VB课程设计报告.docx（21页珍藏版）》请在冰豆网上搜索。
VB课程设计报告
课程设计报告
课程设计题目：
超市销售管理
学生姓名：
专业：
班级：
学号：
指导教师：
年月日
摘要
超市销售管理是相当繁重的工作，牵涉到超市商品入库管理、更新管理和销售统计管理等。
由于商品记录的数量众多、管理复杂容易造成混乱，超市销售管理系统可以实现对整个商品信息进行准确而高效的记载。
本系统的主要功能及任务是：
·方便顾客对商品信息进行浏览；
·方便工作人员对超市的商品信息进行浏览、查找并进行管理；
·提供一个电子化的超市销售管理平台。
为满足为超市服务这一基本功能，数字超市应定位于信息服务，对商品的记录的高效而准确的管理系统设计的出发点和最终目的，既要能够满足顾客和服务人员的一般需求，又要能够针对用户的类型、需求特征等确定它的的权限以便进行管理。
超市销售管理系统以超市实际销售管理情况为依据，提供了商品入库、查找和更新，统计查询等实用而丰富的功能。
本系统使用VisualBasic6.0中文版作为开发工具，后台数据库采用MicrosoftAccess的MDB数据库。
关键词：
超市销售管理系统，SQL，VB，数据库，控件，控件与数据库的绑定
目录
一、实验目的………………………………………………………………4
二、实验要求……………………………………………………………………4
三．系统功能简介……………………………………………………………4
1系统概述…………………………………………………………………4
2系统的组成及各模块的功能……………………………………………4
3系统的运行环境…………………………………………………………4
四．系统设计…………………………………………………………………5
1总体结构设计…………………………………………………………5
2数据库设计……………………………………………………………6
五．系统实现…………………………………………………………………7
1登录模块的设计和实现…………………………………………………7
2主界面的设计与功能……………………………………………8
3查询的功能与实现……………………………………………17
4销售统计的查看…………………………………………18
5退出系统的实现…………………………………………19
六.总结…………………………………………………………19
1遇到及解决的问题………………………………………………19
2心得体会……………………………………………………………20
一、实验目的：
使学生在理论课程结束之后，通过课程设计能进一步巩固对VB编程机制的理解，真正掌握运用VB进行软件开发的方法和原理，从而锻炼学生开发能力、程序调试能力，及程序错误处理能力
二、实验要求：
要求实现登录管理，超市销售商品管理（商品的添加，删除，和修改），查看超市的全部销售记录，可按销售记录号，销售商品名称查询相关销售记录、销售统计功能
三、系统功能简介：
1.系统概述
随着超市的规模不断扩大，商品数量急剧增加，有关商品的各种信息量也成倍增长。
面对庞大的信息量，需要有超市销售管理系统来提高销售管理工作的效率。
通过这样的系统，可以做到信息的规范管理、科学统计和快速的查询，从而减少管理方面的工作量。
2.系统的组成以及各模块的功能
系统开发的总任务是实现商品信息关系的系统化、规范化和自动化。
系统主要由五部分组成：
系统用户的管理、商品销售的管理、销售记录信息的管理、信息的查询，其中还包括登录界面以及销售的统计模块。
各模块的主要功能如下：
●系统用户的管理：
实现用户的登陆
●商品销售的管理：
实现商品信息的添加、删除和修改。
●销售记录的查询：
实现销售记录的查询、成绩的查询。
3.系统的运行环境
系统使用环境
操作系统：
windowsxp/2000/me/98
系统支持：
visualbasic6.0及以上版本
数据库：
access
系统开发环境
操作系统：
windowsxp/2000/me/98
系统支持：
visualbasic6.0
四、系统设计
1.总体结构设计
对上述各项功能进行集中、分块，按照结构化层序设计的要求，得到如下所示的系统功能功能模块图。
2.数据库设计
数据库在本超市销售管理系统中占有非常重要的地位，数据库结构的好坏将直接对应用系统的效率以及实现的效率产生影响。
合理的数据库及结构设计可以提高数据存储的效率，保证数据的完整和一致。
同时合理的数据库结构也将有利于程序的实现。
设计本系统的数据库应该充分满足用户的需求。
针对一般超市销售管理系统的需求，通过对销售的内容的分析，设计如下面所示的数据项和数据结构
（1）基本信息表：
包括的字段有：
商品记录号，商品名称，商品价格，销售情况，商品库存。
（2）得到上面的数据项就可以设计出能够满足用户需求的各种实体以及他们之间的关系。
由上面的设计规划出的实体有：
用户实体、信息实体。
按照以上实体进行设计：
（1）打开可视化数据管理器程序
（2）建立数据库（3）创建数据库表（4）添加字段（5）生成表⑹添加内容
基本信息表:
字段名称
数据类型
字段大小
商品记录号
文本
8
商品名称
文本
7
商品价格
文本
6
销售情况
数字
8
商品库存
数字
8
五、系统实现
现在已经完成了程序各个功能模块的创建，现在可以进行系统的实现了
1、登录模块的设计和实现
用户名及密码默认为：
admin。
核心代码：
PrivateSubCommand1_Click（）
IfText1.Text="admin"AndText2.Text="admin"Then
Form2.Show‘用户名、密码正确则显示窗体2
UnloadMe‘然后自我卸载
Else‘用户名或者密码错误的情况下：
MsgBox"用户或密码错误，请重新输入！
",,"提示：
"
Text1.Text=""
Text2.Text=""
Text1.SetFocus
EndIf
EndSub
PrivateSubCommand2_Click（）
UnloadMe
EndSub
2、主界面的设计与功能：
使用一个data控件与数据库连接在文本框上一一将数据库里的内容显示出来。
核心代码：
PrivateSubForm_Load（）
‘初始化设置
Form2.Left=（Screen.Width-Form1.Width）/4
Form2.Top=（Screen.Height-Form1.Height）/4
Timer1.Interval=200
Text1.ForeColor=vbRed
Data1.RecordSource="销售管理"
Data1.Refresh
txtname.Locked=True
txtprice.Locked=True
txtrecord.Locked=True
txtsale.Locked=True
txtstore.Locked=True
txtname.DataField="商品名称"
txtprice.DataField="商品价格"
txtrecord.DataField="商品记录号"
txtsale.DataField="销售情况"
txtstore.DataField="商品库存"
EndSub
PrivateSubAddnew_Click（）‘实现商品添加功能
SelectCaseAddnew.Caption
Case"添加"
txtname.Locked=False‘解除文本框锁定，进行添加
txtprice.Locked=False
txtrecord.Locked=False
txtsale.Locked=False
txtstore.Locked=False
txtrecord.SetFocus
Data1.Recordset.Addnew‘商品信息加入数据库
Addnew.Caption="确定"
Case"确定"
Iftxtname.Text<>""Andtxtprice.Text<>""Andtxtrecord.Text<>""Then
Data1.UpdateRecord‘数据库更新
Addnew.Caption="添加"
Else
txtname.Locked=False
txtprice.Locked=False
txtrecord.Locked=False
txtsale.Locked=False
txtstore.Locked=False
MsgBox"您还未输入完成，请补充完整！
"
EndIf
txtname.Locked=True
txtprice.Locked=True
txtrecord.Locked=True
txtsale.Locked=True
txtstore.Locked=True
EndSelect
EndSub
PrivateSubCancel_Click（）‘实现取消添加和修改功能
Data1.Recordset.MoveFirst‘显示第一条数据
Addnew.Caption="添加"
Edit.Caption="修改"
EndSub
PrivateSubDelet_Click（）‘实现商品信息删除功能
Dimi%
i=MsgBox（"确认要删除此记录？
",vbYesNo+vbExclamation,"提示：
"）
Ifi=vbYesThen
Data1.Recordset.Delete‘删除当前的数据库记录
Data1.Refresh
EndIf
EndSub
PrivateSubEdit_Click（）‘实现商品信息修改功能
SelectCaseEdit.Caption
Case"修改"
txtname.Locked=False
txtprice.Locked=False
txtrecord.Locked=False
txtsale.Locked=False
txtstore.Locked=False
Data1.Recordset.Edit‘编辑当前数据记录
Edit.Caption="确定"
Case"确定"
Data1.UpdateRecord
txtname.Locked=True
txtprice.Locked=True
txtrecord.Locked=True
txtsale.Locked=True
txtstore.Locked=True
Edit.Caption="修改"
EndSelect
EndSub
PrivateSubFirst_Click（）‘显示第一条
Data1.Recordset.MoveFirst
EndSub
PrivateSubLast_Click（）‘显示最后一条
Data1.Recordset.MoveLast
EndSub
PrivateSubNext_Click（）‘显示下一条
Data1.Recordset.MoveNext
IfData1.Recordset.EOFThenData1.Recordset.MoveLast
EndSub
PrivateSubPrevious_Click（）‘显示上一条
Data1.Recordset.MovePrevious
IfData1.Recordset.BOFThenData1.Recordset.MoveFirst
EndSub
PrivateSub查询_Click（）‘弹出查询体
Me.Hide
Form3.Show
EndSub
PrivateSub统计_Click（）‘弹出统计窗体
Me.Hide
Form4.Show
EndSub
PrivateSub注销_Click（）‘返回登录界面
UnloadMe
Form1.Show
EndSub
3、查询的功能与实现：
核心代码：
PrivateSubCommand1_Click（）
Dimsql$
IfOption1（0）.Value=TrueThen
sql="select商品记录号,商品名称,商品价格,销售情况,商品库存from销售管理where商品记录号='"+Text1（0）.Text+"'"
Adodc1.RecordSource=sql
Adodc1.Refresh
DataGrid1.Visible=True
Else
sql="select商品记录号,商品名称,商品价格,销售情况,商品库存from销售管理where商品名称='"+Text1
（1）.Text+"'"
Adodc1.RecordSource=sql
Adodc1.Refresh
DataGrid1.Visible=True
EndIf
EndSub
4、销售统计的查看：
核心代码：
'使用datagrid控件的visible属性值来实现查看功能
PrivateSublistshow_Click（）
DataGrid2.Visible=True
EndSub
PrivateSubcmdok_Click（）
Dimh%
h=MsgBox（"是否显示所有记录",vbYesNo+vbInformation,"提示：
"）
Ifh=vbYesThen
DataGrid1.Visible=True
EndIf
5、退出系统的实现：
PrivateSub退出系统_Click（）‘退出系统
UnloadMe
UnloadForm3
UnloadForm4
EndSub
五、小结
1遇到及解决的问题
主要问题1：
数据库建立以后无法与控件绑定，在系统运行时，无法通过系统对数据库的信息进行编辑，修改，删除。
解决：
通过看课本，查资料，以及询问老师等途径知道自己没有设置data控件的数据绑定常用属性，还有一些代码不是和数据库相应的位置连接的。
主要问题2：
由于窗体喝控件太多，使得编写代码时，总是出现数据库与控件案不对应的情况。
解决方法：
只要细心，认真就可以做的好。
2心得体会
设计之前由于数据库知识的空白，使得我们毫无头绪，无从下去手，只是盲目的按照课本和参考资料进行设计和编程，没有动脑子思考，也没有进行结构的规划，使得我们的程序进行到一半时夭折，那时候我们就开始意识到，不应该盲目，我们认真地看了课本，有了数据库的思想和思路，自己又重新规划了系统的结构，但是由于时间的关系，我们错过了中期检查，但是我们并没有气馁，而是更加热情地的投入到系统的设计中，但我们又出现了新问题，我和另一个男生本来分工合作的，可是我们的窗体总是衔接不上，而且数据库也不同，而我们又都想尝试一下其他窗体的创建，获得更多的知识，于是我们最终各自完成了各自的管理系统。
这次课程设计实习我流的汗和泪，都是以成功的完成课程设计任务为收获的。
不断的调试，使我认识即时丁点的错误也可以导致系统的非正常运行，细节决定成败。
我只有在以后的学习之路上做到一丝不苟，才能获得成功.
升级会员 