VB课设――超市收银系统 报告样例

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

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

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

4、要用到以下几个方面的技术：1. 数据库的连接和运用，需要对数据库的数据进行修改和增加，需要用到adodc控件，以及代码语句对数据库内容修改和增加。2. 关于界面，可以设置多个界面，在数据库的修改和增加方面用不同的窗口，达到层次分明的效果。3. 关于数据库，建立两个数据库，一个存储顾客资料，一个存储商品资料。4. 控件方面，根据功能需求运用不同控件，达到要求。（2）总体设计：（3）详细设计：总程序图 Form3 form2Form1技术要点略。文字部分，是课设报告最重要的部分。阐述你所编写的程序用到哪些重要技术、重要算法、或者VB的知识点。分项说明，必要时配置程序代码片段作为佐证。1关于数据库的

5、连接： （1）.数据库连接运用到adodc控件。该软件设计过程中，用到了四个adodc控件与两个数据库建立联系，其中包括： A.查询功能：Private Sub Command5_Click() If Text1.Text Then Adodc2.CommandType = adCmdUnknown Adodc2.RecordSource = select * from 商品表 where 商品编号= & Trim(Text1) & Adodc2.Refresh Else MsgBox 请输入正确商品编号 End IfEnd SubB.数据修改：Private Sub Command4_Cli

6、ck() Adodc1.Recordset.Update MsgBox 修改成功End SubC数据新增：Private Sub Command1_Click() Adodc1.Recordset.AddNew Adodc1.Recordset.Fields(会员编号) = Text1.Text Adodc1.Recordset.Fields(会员姓名) = Text2.Text Adodc1.Recordset.Fields(办理时间) = Text3.Text Adodc1.Recordset.Fields(会员积分) = Text4.Text MsgBox (增加成功，继续结账)End

7、SubD.窗体切换：Private Sub Command2_Click() Form1.Show Form3.HideEnd SubE.图片加载：Private Sub Command5_Click() If Text1.Text = SP001 ThenPicture1.Picture = LoadPicture(耳机.jpg) End If If Text1.Text = SP002 ThenPicture1.Picture = LoadPicture(相机.jpg) End If If Text1.Text = SP003 ThenPicture1.Picture = LoadPict

8、ure(手机.jpg) End If If Text1.Text = SP004 ThenPicture1.Picture = LoadPicture(网球拍.jpg) End IfEnd Sub2 SQL语句的应用： 无主要界面截图图1 按商品，会员编号查询界面图2 商品新增加进数据库界面图3 会员新增加进数据库界面总结 略。文字部分。个人对此次课设的感想。完整的源程序Form1Private Sub Command1_Click() If Text13.Text 100 Then rvale = MsgBox(亲爱的会员您购买的商品总价为 & Text13.Text & 是否确定购买?,

9、4 + 32, 结算) If rvale = 6 Then MsgBox 谢谢购买，欢迎下次光临, 0, 提示 Else MsgBox 谢谢。, 0, 提示 End If End If Adodc1.Recordset.Update Adodc1.Recordset.Fields(会员积分) = Val(Text10) + Val(Text13) Adodc1.RefreshEnd SubPrivate Sub Command2_Click() If Text12.Text 100 Then rvale = MsgBox(亲爱的顾客您购买的商品总价为 & Text12.Text & 已满100

10、元 & 是否升级为会员?, 4 + 32, 结算) If rvale = 6 Then MsgBox 你的回答是“是”，请输入姓名。, 0, 提示 Else MsgBox 你的回答是“否”，谢谢。, 0, 提示 End If End IfEnd SubPrivate Sub Command3_Click() If Text7.Text Then Adodc1.CommandType = adCmdUnknown Adodc1.RecordSource = select * from 会员信息表 where 会员编号= & Trim(Text7) & Adodc1.Refresh Else Ms

11、gBox 请输入正确会员编号 End IfEnd SubPrivate Sub Command4_Click() Adodc1.Recordset.Update MsgBox 修改成功End SubPrivate Sub Command5_Click() If Text1.Text Then Adodc2.CommandType = adCmdUnknown Adodc2.RecordSource = select * from 商品表 where 商品编号= & Trim(Text1) & Adodc2.Refresh Else MsgBox 请输入正确商品编号 End If If Text

12、1.Text = SP001 ThenPicture1.Picture = LoadPicture(耳机.jpg) End If If Text1.Text = SP002 ThenPicture1.Picture = LoadPicture(相机.jpg) End If If Text1.Text = SP003 ThenPicture1.Picture = LoadPicture(手机.jpg) End If If Text1.Text = SP004 ThenPicture1.Picture = LoadPicture(网球拍.jpg) End If Dim a, b As Long a

13、 = a + Val(Text4) * Val(Text11) p = a Text12.Text = Val(Text12) + p b = b + Val(Text5) * Val(Text11) V = b Text13.Text = Val(Text13) + b Text3.Text = Text3.Text & & Text6.Text & & 数量 & Text11.Text Text14.Text = Val(Text2) - Val(Text11) Adodc2.Recordset.Fields(商品数量) = Text14.Text Adodc2.Refresh End S

14、ubPrivate Sub Command6_Click() Form1.Hide Form2.ShowEnd SubPrivate Sub Command7_Click() Dim ask As Integer ask = MsgBox(是否真的要删除？, vbYesNo) If ask = 6 Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Refresh End IfEnd SubPrivate Sub Command8_Click() Form1.Hid

15、e Form3.ShowEnd SubPrivate Sub Form_Click() 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 Text12.Text = 0 Text13.Text = 0 Text14.Text = 1End SubPrivate Sub Form_Load() Text1.Text =

16、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 = 1End SubPrivate Sub Timer1_Timer() Label6.Left = Label6.Left + 50 If Label6.Left = Form1.Width Then Label6.Left = 0 End IfEnd SubForm2：Private Sub Command1_Click()Adodc1.Recordset.AddNew Adodc1.Recordset.Fields(会员编号) = Text1.Text Adodc1.Recordset.Fields(会员姓名) = Text2.Text Adodc1.Recordset.Fields(办理时间) = Text3.Text Adodc1.Recordset.Fields(会员积分) = Text4.Text MsgBox