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

《vb课设——超市收银系统报告样例》由会员分享，可在线阅读，更多相关《vb课设——超市收银系统报告样例（18页珍藏版）》请在金锄头文库上搜索。

1、沈 阳 航 空 航 天 大 学课课 程程 设设 计计学学 号号 _班班 级级 _3_ 姓姓 名名 _ 指导教师指导教师 _ 2014 年年 10 月月 24 日日沈沈阳阳航航空空航航天天大大学学课课程程设设计计任任务务书书学院：机电工程学院学院：机电工程学院 专业：机械设计制造及其自动化专业：机械设计制造及其自动化 班级：机械班级：机械学号：学号：201304060 题目：超市收银系统题目：超市收银系统一、课程设计时间一、课程设计时间 2014.10.192014.10.26二、课程设计内容二、课程设计内容 用 VB 编写模拟超市收银系统，具体要求如下： 1.信息输入 输入若干超市商品信息 A

2、ccess 表中存储； 2.顾客信息管理 顾客信息可分为会员和非会员，商品具有会员价和非会员价的区 分，会员持会员卡可以享受一定的折扣，并可以积分； 3.查询 会员可以凭借会员卡对积分进行查询； 4.修改 会员可以对个人信息进行修改； 5.结账 结账时应从数据库表中调取商品的价格库存等信息，生成顾客的账单；交 易成功后，要修改商品信息，如果顾客购物满 100 元，可以选择是否成为会员，如果 成为会员，应分配相应的会员卡号，并对会员信息进行存储。三、课程设计要求三、课程设计要求 程序质量： 贯彻事件驱动的程序设计思想。 用户界面友好，功能明确，操作方便。 代码应适当缩进，并给出必要的注释，以增强

3、程序的可读性。 课程设计说明书： 课程结束后，上交课程设计说明书和源程序。课程设计说明书的内容参见提 供的模板。四、指导教师和学生签字四、指导教师和学生签字指导教师：指导教师：_ 学生签名：学生签名：_五、成绩五、成绩六、教师评语六、教师评语沈沈阳阳航航空空航航天天大大学学设设计计用用纸纸第 3 页，共 18 页目 录需求分析.4设计分析.4技术要点.5主要界面截图.6总结.7完整的源程序.8参考文献.9沈沈阳阳航航空空航航天天大大学学设设计计用用纸纸第 4 页，共 18 页需求分析需求分析该软件作为一款超市收银软件，应该具有如下功能，以满足用户需求：1.信息输入 输入若干超市商品信息 Acc

4、ess 表中存储；2.顾客信息管理 顾客信息可分为会员和非会员，商品具有会员价和非会员价的区分，会员持会员卡可以享受一定的折扣，并可以积分；3.查询 会员可以凭借会员卡对积分进行查询；4.修改 会员可以对个人信息进行修改；5.结账 结账时应从数据库表中调取商品的价格库存等信息，生成顾客的账单；交易成功后，要修改商品信息，如果顾客购物满 100 元，可以选择是否成为会员，如果成为会员，应分配相应的会员卡号，并对会员信息进行存储。设计分析设计分析（1）概述：根据用户需求略。该软件通过 VB 设计出来需要用到以下几个方面的技术：沈沈阳阳航航空空航航天天大大学学设设计计用用纸纸第 5 页，共 18 页

5、1. 数据库的连接和运用，需要对数据库的数据进行修改和增加，需要用到 adodc 控件，以及代码语句对数据库内容修改和增加。2. 关于界面，可以设置多个界面，在数据库的修改和增加方面用不同的窗口，达到层次分明的效果。3. 关于数据库，建立两个数据库，一个存储顾客资料，一个存储商品资料。4. 控件方面，根据功能需求运用不同控件，达到要求。（2）总体设计：沈沈阳阳航航空空航航天天大大学学设设计计用用纸纸第 6 页，共 18 页（3）详细设计：Form3 form2Form1总程序图总程序图沈沈阳阳航航空空航航天天大大学学设设计计用用纸纸第 7 页，共 18 页技术技术要点要点略。文字部分，是课设报

6、告最重要的部分。阐述你所编写的程序用到哪些重要技术、重要算法、或者VB的知识点。分项说明，必要时配置程序代码片段作为佐证。1 关于数据库的连接：关于数据库的连接：（1）.数据库连接运用到 adodc 控件。该软件设计过程中，用到了四个 adodc 控件与两个数据库建立联系，其中包括：A.查询功能查询功能：Private Sub Command5_Click()If Text1.Text 100 Thenrvale = MsgBox(“亲爱的会员您购买的商品总价为“ & Text13.Text & “是否确定购买?“, 4 + 32, “结算“)If rvale = 6 ThenMsgBox “

7、谢谢购买，欢迎下次光临“, 0, “提示“ElseMsgBox “谢谢。“, 0, “提示“End IfEnd IfAdodc1.Recordset.UpdateAdodc1.Recordset.Fields(“会员积分“) = Val(Text10) + Val(Text13)Adodc1.Refresh End SubPrivate Sub Command2_Click()If Text12.Text 100 Thenrvale = MsgBox(“亲爱的顾客您购买的商品总价为“ & Text12.Text & “已满 100 元“ & “是否升级为会员?“, 4 + 32, “结算“)I

8、f rvale = 6 ThenMsgBox “你的回答是“是” ，请输入姓名。“, 0, “提示“ElseMsgBox “你的回答是“否” ，谢谢。“, 0, “提示“End IfEnd If End SubPrivate Sub Command3_Click()If Text7.Text “ ThenAdodc2.CommandType = adCmdUnknownAdodc2.RecordSource = “select * from 商品表 where 商品编号 = “ & Trim(Text1) & “Adodc2.RefreshElseMsgBox “请输入正确商品编号“End I

9、fIf Text1.Text = “SP001“ Then Picture1.Picture = LoadPicture(“耳机.jpg“)End IfIf Text1.Text = “SP002“ Then Picture1.Picture = LoadPicture(“相机.jpg“)End IfIf Text1.Text = “SP003“ Then Picture1.Picture = LoadPicture(“手机.jpg“)End IfIf Text1.Text = “SP004“ Then Picture1.Picture = LoadPicture(“网球拍.jpg“)End

10、IfDim a, b As Longa = a + Val(Text4) * Val(Text11)p = a沈沈阳阳航航空空航航天天大大学学设设计计用用纸纸第 15 页，共 18 页Text12.Text = Val(Text12) + pb = b + Val(Text5) * Val(Text11)V = bText13.Text = Val(Text13) + bText3.Text = Text3.Text & “ “ & Text6.Text & “ “ & “数量“ & Text11.TextText14.Text = Val(Text2) - Val(Text11) Adodc

11、2.Recordset.Fields(“商品数量“) = Text14.Text Adodc2.RefreshEnd Sub Private Sub Command6_Click()Form1.HideForm2.Show End SubPrivate Sub Command7_Click()Dim ask As Integerask = MsgBox(“是否真的要删除？“, vbYesNo)If ask = 6 ThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNextIf Adodc1.Recordset.EOF Then Adodc1.Ref

12、reshEnd If End SubPrivate Sub Command8_Click()Form1.HideForm3.Show End SubPrivate Sub Form_Click()Text1.Text = “0“Text2.Text = “0“Text3.Text = “Text4.Text = “0“Text5.Text = “0“Text6.Text = “0“沈沈阳阳航航空空航航天天大大学学设设计计用用纸纸第 16 页，共 18 页Text7.Text = “0“Text8.Text = “0“Text9.Text = “0“Text10.Text = “0“Text11

13、.Text = “1“Text12.Text = “0“Text13.Text = “0“Text14.Text = “1“ End SubPrivate Sub Form_Load()Text1.Text = “0“Text2.Text = “0“Text3.Text = “Text4.Text = “0“Text5.Text = “0“Text6.Text = “0“Text7.Text = “0“Text8.Text = “0“Text9.Text = “0“Text10.Text = “0“Text11.Text = “1“ End SubPrivate Sub Timer1_Time

14、r()Label6.Left = Label6.Left + 50If Label6.Left = Form1.Width ThenLabel6.Left = 0End If End SubForm2：Private Sub Command1_Click() Adodc1.Recordset.AddNewAdodc1.Recordset.Fields(“会员编号“) = Text1.TextAdodc1.Recordset.Fields(“会员姓名“) = Text2.Text沈沈阳阳航航空空航航天天大大学学设设计计用用纸纸第 17 页，共 18 页Adodc1.Recordset.Field

15、s(“办理时间“) = Text3.TextAdodc1.Recordset.Fields(“会员积分“) = Text4.TextMsgBox (“增加成功，继续结账“)End SubPrivate Sub Command2_Click()Form1.ShowForm2.Hide End SubForm3：Private Sub Command1_Click()Adodc1.Recordset.AddNewMsgBox (“增加成功，继续结账“)End SubPrivate Sub Command2_Click()Form1.ShowForm3.Hide End Sub沈沈阳阳航航空空航航天天大大学学设设计计用用纸纸第 18 页，共 18 页参考文献参考文献1 刘瑞新 Visual Basic 程序设计教程 北京：机械工业出版社，2003（等等）