VB课程设计报告Word下载.docx
《VB课程设计报告Word下载.docx》由会员分享，可在线阅读，更多相关《VB课程设计报告Word下载.docx（21页珍藏版）》请在冰豆网上搜索。
目录
一、实验目的………………………………………………………………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
系统开发环境
visualbasic6.0
四、系统设计
1.总体结构设计
对上述各项功能进行集中、分块，按照结构化层序设计的要求，得到如下所示的系统功能功能模块图。
2.数据库设计
数据库在本超市销售管理系统中占有非常重要的地位，数据库结构的好坏将直接对应用系统的效率以及实现的效率产生影响。
合理的数据库及结构设计可以提高数据存储的效率，保证数据的完整和一致。
同时合理的数据库结构也将有利于程序的实现。
设计本系统的数据库应该充分满足用户的需求。
针对一般超市销售管理系统的需求，通过对销售的内容的分析，设计如下面所示的数据项和数据结构
（1）基本信息表：
包括的字段有：
商品记录号，商品名称，商品价格，销售情况，商品库存。
（2）得到上面的数据项就可以设计出能够满足用户需求的各种实体以及他们之间的关系。
由上面的设计规划出的实体有：
用户实体、信息实体。
按照以上实体进行设计：
（1）打开可视化数据管理器程序
（2）建立数据库（3）创建数据库表（4）添加字段（5）生成表⑹添加内容
基本信息表:
字段名称
数据类型
字段大小
商品记录号
文本
8
商品名称
7
商品价格
6
销售情况
数字
商品库存
五、系统实现
现在已经完成了程序各个功能模块的创建，现在可以进行系统的实现了
1、登录模块的设计和实现
用户名及密码默认为：
admin。
核心代码：
PrivateSubCommand1_Click（）
IfText1.Text="
admin"
AndText2.Text="
Then
Form2.Show‘用户名、密码正确则显示窗体2
UnloadMe‘然后自我卸载
Else‘用户名或者密码错误的情况下：
MsgBox"
用户或密码错误，请重新输入！
"
,"
提示：
Text1.Text="
Text2.Text="
Text1.SetFocus
EndIf
EndSub
PrivateSubCommand2_Click（）
UnloadMe
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="
商品库存"
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="
确定"
Iftxtname.Text<
>
"
Andtxtprice.Text<
Andtxtrecord.Text<
Data1.UpdateRecord‘数据库更新
Else
txtname.Locked=False
您还未输入完成，请补充完整！
EndSelect
PrivateSubCancel_Click（）‘实现取消添加和修改功能
Data1.Recordset.MoveFirst‘显示第一条数据
Edit.Caption="
修改"
PrivateSubDelet_Click（）‘实现商品信息删除功能
Dimi%
i=MsgBox（"
确认要删除此记录？
vbYesNo+vbExclamation,"
）
Ifi=vbYesThen
Data1.Recordset.Delete‘删除当前的数据库记录
PrivateSubEdit_Click（）‘实现商品信息修改功能
SelectCaseEdit.Caption
Data1.Recordset.Edit‘编辑当前数据记录
Data1.UpdateRecord
PrivateSubFirst_Click（）‘显示第一条
Data1.Recordset.MoveFirst
PrivateSubLast_Click（）‘显示最后一条
Data1.Recordset.MoveLast
PrivateSubNext_Click（）‘显示下一条
Data1.Recordset.MoveNext
IfData1.Recordset.EOFThenData1.Recordset.MoveLast
PrivateSubPrevious_Click（）‘显示上一条
Data1.Recordset.MovePrevious
IfData1.Recordset.BOFThenData1.Recordset.MoveFirst
PrivateSub查询_Click（）‘弹出查询体
Me.Hide
Form3.Show
PrivateSub统计_Click（）‘弹出统计窗体
Form4.Show
PrivateSub注销_Click（）‘返回登录界面
Form1.Show
3、查询的功能与实现：
Dimsql$
IfOption1（0）.Value=TrueThen
sql="
select商品记录号,商品名称,商品价格,销售情况,商品库存from销售管理where商品记录号='
+Text1（0）.Text+"
'
Adodc1.RecordSource=sql
Adodc1.Refresh
DataGrid1.Visible=True
select商品记录号,商品名称,商品价格,销售情况,商品库存from销售管理where商品名称='
+Text1
（1）.Text+"
4、销售统计的查看：
'
使用datagrid控件的visible属性值来实现查看功能
PrivateSublistshow_Click（）
DataGrid2.Visible=True
PrivateSubcmdok_Click（）
Dimh%
h=MsgBox（"
是否显示所有记录"
vbYesNo+vbInformation,"
Ifh=vbYesThen
5、退出系统的实现：
PrivateSub退出系统_Click（）‘退出系统
UnloadForm3
UnloadForm4
五、小结
1遇到及解决的问题
主要问题1：
数据库建立以后无法与控件绑定，在系统运行时，无法通过系统对数据库的信息进行编辑，修改，删除。
解决：
通过看课本，查资料，以及询问老师等途径知道自己没有设置data控件的数据绑定常用属性，还有一些代码不是和数据库相应的位置连接的。
主要问题2：
由于窗体喝控件太多，使得编写代码时，总是出现数据库与控件案不对应的情况。
解决方法：
只要细心，认真就可以做的好。
2心得体会
设计之前由于数据库知识的空白，使得我们毫无头绪，无从下去手，只是盲目的按照课本和参考资料进行设计和编程，没有动脑子思考，也没有进行结构的规划，使得我们的程序进行到一半时夭折，那时候我们就开始意识到，不应该盲目，我们认真地看了课本，有了数据库的思想和思路，自己又重新规划了系统的结构，但是由于时间的关系，我们错过了中期检查，但是我们并没有气馁，而是更加热情地的投入到系统的设计中，但我们又出现了新问题，我和另一个男生本来分工合作的，可是我们的窗体总是衔接不上，而且数据库也不同，而我们又都想尝试一下其他窗体的创建，获得更多的知识，于是我们最终各自完成了各自的管理系统。
这次课程设计实习我流的汗和泪，都是以成功的完成课程设计任务为收获的。
不断的调试，使我认识即时丁点的错误也可以导致系统的非正常运行，细节决定成败。
我只有在以后的学习之路上做到一丝不苟，才能获得成功.
升级会员 