vb课设——超市收银系统报告样例(1)

《vb课设——超市收银系统报告样例(1)》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、沈阳航空航天大学课程设计学号.班级_3姓名指导教师_2014年10月24E)沈阳航空航天大学课程设计任务书学院：机电工程学院专业：机械设计制造及其自动化班级：机械学号：201304060题目：超市收银系统一、课程设计时间2014.10.19-2014.10.26二、课程设计内容用VB编写模拟超市收银系统，具体要求如下：1.信息输入输入若干超市商品信息Access表中存储；2.顾客信息管理顾客信息可分为会员和非会员，商品具有会员价和非会员价的区分，会员持会员卡可以享受一定的折扣，并可以积分；3.查询会员可以凭借会员卡对积分进行查询；4.修改会员可以对个人信息

2、进行修改；5.结账结账时应从数据库表中调取商品的价格库存等信息，生成顾客的账单；交易成功后，要修改商品信息，如果顾客购物满100元，可以选择是否成为会员，如果成为会员，应分配相应的会员卡号，并对会员信息进行存储。三、课程设计要求程序质量：◊贯彻事件驱动的程序设计思想。◊用户界面友好，功能明确，操作方便。◊代码应适当缩进，并给出必要的注释，以增强程序的可读性。课程设计说明书：◊课程结束后，上交课程设计说明书和源程序。课程设计说明书的内容参见提供的模板。四、指导教师和学生签字指导教师：学生签名：五、成绩六、教师评语需求分析4设计分析4技术要点7主要界面截图10

3、总结12完整的源程序13参考文献18需求分析该软件作为一款超市收银软件，应该具有如下功能，以满足用户需求：1.信息输入输入若干超市商品信息Access表中存储；2•顾客信息管理顾客信息可分为会员和非会员，商品具有会员价和非会员价的区分，会员持会员卡可以享受一定的折扣，并可以积分；3•查询会员可以凭借会员卡对积分进行查询；4•修改会员可以对个人信息进行修改；5.结账结账时应从数据库表中调取商品的价格库存等信息，生成顾客的账单；交易成功后，要修改商品信息，如果顾客购物满100元，可以选择是否成为会员，如果成为会员，应分配相应的会员卡号，并对会员信息进行存储。设

4、计分析(1)概述：根据用户需求略。该软件通过VB设计出来需要用到以下几个方面的技术:1.数据库的连接和运用，需要对数据库的数据进行修改和增加，需要用到adodc控件，以及代码语句对数据库内容修改和增加。2.关于界面，可以设置多个界面，在数据库的修改和增加方面用不同的窗口，达到层次分明的效果。3.关于数据库，建立两个数据库，一个存储顾客资料，一个存储商品资料。4•控件方面，根据功能需求运用不同控件，达到要求。(2)总体设计：程序系统商品会员收银怙息查询(3)详细设计:总程序图Form3form2Forml技术要点略。文字部分,是课设报告最重要的部分。阐述你所

5、编写的程序用到哪些重要技术、重要算法、或者VB的知识点。分项说明,必要时配置程序代码片段作为佐证。1关于数据库的连接：（1）•数据库连接运用到adodc控件。该软件设计过程中，用到了四个adodc控件与两个数据库建立联系，其中包括:A.查询功能:PrivateSubCommand5_Click()IfText1.Text<>,n,ThenAdodc2.CommandType=adCmdUnknownAdodc2.RecordSource=Hselect*from商品表where商品编号二&Trim(Textl)&Adodc2.RefreshElseMsgB

6、ox”请输入正确商品编号”EndIfEndSubB・数据修改：PrivateSubCommand4_Click（）Adodc1.Recordset.UpdateMsgBox”修改成功”EndSubC.数据新增:PrivateSubCommand1_C1ick（）Adodc1.Recordset.AddNewAdodc1.Recordset.Fields（"会员编号”）=Text1.TextAdodc1.Recordset.Fields（H会员姓名"）=Text2.TextAdodc1.Recordset.Fields（n办理时间"）=Text3.TextA

7、dodc1.Recordset.Fields（"会员积分"）=Text4.TextMsgBoxC增加成功，继续结账”）EndSubD•窗体切换：PrivateSubCommand2_Click（）Form1.ShowForm3.HideEndSubE・图片加载：PrivateSubCommand5_Click（）IfText1.Text=”SPOOLThenPicture1.Picture=LoadPicture（H耳机.jpgn）EndIfIfText1.Text二”SP002”ThenPicture1.Picture=LoadPicture（n相机.j

8、pgn）EndIfIfTextl.Text=”SPOO3”Then