超市“自由存取箱”的模拟.doc

沈 阳 航 空 航 天 大 学 课程设计学 号 2009040301014班 级 94030101 姓 名 李士豪 指导教师 刘学平 2011 年 3 月 18 日沈阳航空航天大学设计用纸沈阳航空航天大学课程设计任务书学院：航空宇航工程学院 专业：飞行器制造 班级：94030101学号：2009010301014 题目：超市“自由存取箱”的模拟一、课程设计时间2011年3月7日11日（第1周），共计1周。二、课程设计内容顾客在进入超市购物之前，可以用超市的“自由存取箱”存放自己随身带的物品。这种存取箱有一个功能面板，面板上主要有“我要存包”按钮、密码纸条输出口、密码纸条扫描口三项用户接口。当顾客按下“我要存包”按钮时，片刻从输出口输出一个小纸条，上面有随机生成的密码（扫描码），同时存取箱会自动开启一个正在闲置的小箱，顾客放入物品关上箱门即可；当顾客取包时，只要将含有密码扫描码的纸条在存取箱的输入口轻轻一晃，存取箱就自动开启顾客存物品的小箱。请设计程序模拟超市“自由存取箱”的使用过程。（要求：小箱的数量为100，密码为4位）三、课程设计要求程序质量： 贯彻事件驱动的程序设计思想。 用户界面友好，功能明确，操作方便；可以加以其它功能或修饰。 代码应适当缩进，并给出必要的注释，以增强程序的可读性。课程设计说明书： 课程结束后，上交课程设计说明书和源程序。课程设计说明书的内容参见提供的模板。四、指导教师和学生签字指导教师：_ 学生签名：_五、成绩六、教师评语目 录一、需求分析3二、设计分析4三、关键技术6四、总结12五、完整的源程序13六、参考文献16一、需求分析模拟超市自由存取箱系统，主要指“我要存包”和“我要取包”2种功能。由于存包时要产生密码小票，取包时凭借小票打开储物箱，所以关键技术就是产生密码和读取密码。要求：顾客存包时，系统查找空箱，并为之随机产生密码，打印小票，并打开空箱。顾客取包时凭借小票上的密码打开箱子，之后清空密码。二、设计分析（1） 基本原理：建立程序设计与数据库的连接，用SQL语句在数据库中查找和更改数据。（2） 总体设计：SQL语言处理数据库ADO技术连接图1 总体设计（3）详细设计：开始连接数据库查询数据更改数据更改数据查询空箱产生密码清除密码图2 详细设计（4）数据库设计：数据库设计是总体设计阶段非常重要的环节，数据库结构的变化会造成编码的改动，所以必须认真设计数据库结构后再进行编码，从而避免无谓的重复工作。三、关键技术（1）“我要存包”系统图3 初始界面Dim a(100) As Integer 用于存放100个箱子的密码，为 0 表示箱子空-Private Sub Command1_Click() Dim i, B As Integer Dim pass As Integer Adodc1.Recordset.MoveFirst For i = 1 To Adodc1.Recordset.RecordCount If Adodc1.Recordset.Fields(密码) = 0 Then 查找空箱 Randomize pass = Int(Rnd * 9000 + 1000) 随机产生四位数的密码 a(i) = pass Adodc1.Recordset.Fields(密码) = a(i) B = Adodc1.Recordset.Fields(箱号) 输出箱号 Form3.Show Form3.Cls Form3.Print B & 号箱可用 Form3.Print 密码为 & a(i) Exit For ElseIf Adodc1.Recordset.Fields(密码) 0 Then 查找下一个空箱 Adodc1.Recordset.MoveNext End If Next i Adodc1.Recordset.UpdateEnd Sub-Private Sub Command2_Click() Form2.ShowEnd Sub-Private Sub Command3_Click() EndEnd Sub-Private Sub Command4_Click() x = MsgBox(请持本人有效身份证件去服务台办理相关手续并领取！, 48, 温馨提示)End Sub图4 存包系统（2）“我要取包”系统图5 取包系统Private Sub Command6_Click() Dim m& m = Text1 Adodc1.Recordset.MoveFirst If Not IsNumeric(nub) Then m = 0 x = MsgBox(请输入正确的箱号, 48, 温馨提示) Else: Adodc1.Recordset.Find 箱号= & m & 查找箱号 If Adodc1.Recordset.EOF Then 找不到相同的箱号 x = MsgBox(请输入正确的箱号, 48, 温馨提示) Else 输出密码到text3 Text3 = Adodc1.Recordset.Fields(密码) If Text2 = Text3 Then 确认密码是否正确 x = MsgBox(箱子已经开启，欢迎下次使用！, , 温馨提示) Adodc1.Recordset.Find 箱号= & m & 清空该箱密码 Adodc1.Recordset.Fields(密码) = 0 Adodc1.Recordset.Update Unload Form2 Else x = MsgBox(密码错误,请重新输入！, 48, 温馨提示) 密码错误 Text2 = End If End If End IfEnd Sub-Private Sub Command7_Click() Unload Form2End Sub四、总结 这次课设我的题目是超市“自由存取箱”的模拟，通过这次课设让我了解了VB与数据库之间的联系，可以应用ADO技术使VB与数据库进行联系，还可以应用SQL语言查询和更改数据库中的信息。 在课程设计的过程中，我遇到了重重困难，例如：VB与数据库的连接技术，通过老师的指点,同学的帮助和自己查阅资料，我克服了困难，顺利的完成了任务。 同时我也了解了VB的出现是一场技术革命，它在生活中各个方面都能发挥巨大的作用，所以，学好VB是社会发展的需要。五、完整的源程序Form1Dim a(100) As Integer 用于存放100个箱子的密码，为 0 表示箱子空-Private Sub Command1_Click() Dim i, B As Integer Dim pass As Integer Adodc1.Recordset.MoveFirst For i = 1 To Adodc1.Recordset.RecordCount If Adodc1.Recordset.Fields(密码) = 0 Then 查找空箱 Randomize pass = Int(Rnd * 9000 + 1000) 随机产生四位数的密码 a(i) = pass Adodc1.Recordset.Fields(密码) = a(i) B = Adodc1.Recordset.Fields(箱号) 输出箱号 Form3.Show Form3.Cls Form3.Print B & 号箱可用 Form3.Print 密码为 & a(i) Exit For ElseIf Adodc1.Recordset.Fields(密码) 0 Then 查找下一个空箱 Adodc1.Recordset.MoveNext End If Next i Adodc1.Recordset.UpdateEnd Sub-Private Sub Command2_Click() Form2.ShowEnd Sub-Private Sub Command3_Click() EndEnd Sub-Private Sub Command4_Click() x = MsgBox(请持本人有效身份证件去服务台办理相关手续并领取！, 48, 温馨提示)End Sub-Form2Private Sub Command6_Click() Dim m& m = Text1 Adodc1.Recordset.MoveFirst If Not IsNumeric(nub) Then m = 0 x = MsgBox(请输入正确的箱号, 48, 温馨提示) Else: Adodc1.Recordset.Find 箱号= & m & 查找箱号 If Adodc1.Recordset.EOF Then 找不到相同的箱号 x = MsgBox(请输入正确的箱号, 48, 温馨提示) Else 输出密码到text3 Text3 = Adodc1.Recordset.Fields(密码) If Text2 = Text3 Then 确认密码是否正确 x = MsgBox(箱子已经开启，欢迎下次使用！, , 温馨提示) Adodc1.Recordset.Find 箱号= & m & 清空该箱密码 Adodc1.Recordset.Fields(密码) = 0 Adodc1.Recordset.Update Unload Form2 Else x = MsgBox(密码错误,请重新输入！, 48, 温馨提示) 密码错误 Text2 = End If End If End IfEnd Sub-Private Sub Command7_Click() Unload Form2End Sub-Form3Private Sub Co