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

13/13沈阳航空航天大学课程设计学号24班级94030101姓名李士豪指导教师刘学平２011年３月沈阳航空航天大学课程设计任务书学院：航空宇航工程学院ﻩﻩ专业：飞行器制造 班级：学号：24 题目:超市“自由存取箱”的模拟一、课程设计时间20１1年3月7日～１１日（第１周），共计1周。二、课程设计内容顾客在进入超市购物之前，可以用超市的“自由存取箱”存放自己随身带的物品.这种存取箱有一个功能面板，面板上主要有“我要存包”按钮、密码纸条输出口、密码纸条扫描口三项用户接口。当顾客按下“我要存包”按钮时，片刻从输出口输出一个小纸条，上面有随机生成的密码（扫描码），同时存取箱会自动开启一个正在闲置的小箱，顾客放入物品关上箱门即可；当顾客取包时，只要将含有密码扫描码的纸条在存取箱的输入口轻轻一晃,存取箱就自动开启顾客存物品的小箱。请设计程序模拟超市“自由存取箱”的使用过程。（要求：小箱的数量为100,密码为4位）三、课程设计要求程序质量：贯彻事件驱动的程序设计思想。用户界面友好,功能明确,操作方便；可以加以其它功能或修饰.代码应适当缩进，并给出必要的注释,以增强程序的可读性。课程设计说明书：课程结束后，上交课程设计说明书和源程序.课程设计说明书的内容参见提供的模板。四、指导教师和学生签字指导教师：__＿_____学生签名：＿____＿_＿五、成绩六、教师评语

目录TOC＼ｏ”1—３”\ｈ\ｚ\ｕHYPERＬＩNＫ\ｌ”_Ｔoc２87９00664＂一、需求分析ﻩPＡGEREF_Toc２８79００664\h3HYPERLIＮK\l＂_Toｃ287９00665"二、设计分析ﻩPＡGERＥF＿Toc2879０0６65\h4HYPEＲＬＩNK\l”_Toc28790066６＂三、关键技术 PAGEＲＥF_Toc２87９0０６66\h6HYPERLＩNK六、参考文献 ６9＼ｈ16一、需求分析模拟超市自由存取箱系统,主要指“我要存包"和“我要取包”2种功能。由于存包时要产生密码小票，取包时凭借小票打开储物箱，所以关键技术就是产生密码和读取密码.要求:①顾客存包时,系统查找空箱，并为之随机产生密码,打印小票，并打开空箱。②顾客取包时凭借小票上的密码打开箱子,之后清空密码.二、设计分析基本原理:建立程序设计与数据库的连接，用SＱL语句在数据库中查找和更改数据。总体设计：SQL语言处理SQL语言处理数据库ADO技术连接图1总体设计（３）详细设计：开始连接数据库开始连接数据库查询数据更改数据更改数据查询空箱产生密码清除密码图2详细设计(４）数据库设计:数据库设计是总体设计阶段非常重要的环节，数据库结构的变化会造成编码的改动，所以必须认真设计数据库结构后再进行编码，从而避免无谓的重复工作.三、关键技术（1)“我要存包”系统图３初始界面Dima(１０0）ＡｓＩnteger＇用于存放1０0个箱子的密码，为０表示箱子空—－-—－－—-—－—-———-－——－－－-－－-——－-—－—-—-－-—－-——-－—－—－--—－—－——-－－－－—-－-—-－-———－—－-－—-————-－——－--－-－－-—PｒivaｔeＳubCｏmｍaｎd1＿Click(）Dimi，BＡsＩntｅgerＤｉｍｐａssＡｓIntegerAdodc1.Rｅcｏrdｓet.ＭｏveＦｉｒstＦori=1ToAdodｃ1。Ｒｅｃordｓet.RecordCｏｕntＩfAdodc１.Ｒｅcoｒｄｓet.Ｆields（”密码”）=0Tｈeｎ’查找空箱Raｎdomiｚepass=Ｉｎt（Rnd＊90０0+1000)＇随机产生四位数的密码ａ(i）=passAdodc１.Reｃｏrdset.Fｉeｌds("密码”）＝a(ｉ）B=Ａｄｏdｃ１.Recｏrdsｅt。Fiｅlds（”箱号")’输出箱号Ｆorm３。ShowForm３。ClsForm３.PrintＢ&”号箱可用”Foｒｍ3.Prｉｎt＂密码为”＆ａ（ｉ)ExｉｔForElsｅIfAdodｃ１。Reｃordｓet.Fieldｓ（”密码"）＜>0Thｅn'查找下一个空箱Ａdｏdc1.Rｅcordset。MoveＮextEndIｆＮextiAdodc1。Rｅcordｓｅｔ．UpｄaｔｅEnｄSub-—－-——--－－—－-——-－－——-－————－-－-－—-－－－－-—-—-－—－－－－——－——－—－--—－——-－—-－-—-－－—－--—-—-—-－-—－—-—－——－———ＰrivaｔｅSｕｂComｍand2＿Click（）Foｒm２.ShｏｗＥndSub-——－-—－-——-——————-－——-————－-——－－-——－-－——－——--－—－—--－——-—-—-————--－—-－————--－—————-——－-－--——PｒivａteSuｂＣｏmmanｄ3_Clｉck（）ＥnｄEnｄSｕb－－-－-－—－--－—-—－-—－－－—--—-—-—－—－--—-－－--－—－—－-—-—-－－--——-－-—--－-－--————-－—--———-—--—－—－－—－-－—-－-—PriｖａteSubＣoｍmand4_Cｌick（）x=MsgBox("请持本人有效身份证件去服务台办理相关手续并领取!"，48，”温馨提示"）EｎdSｕｂ图4存包系统（2)“我要取包”系统图5取包系统PrivateSuｂCｏmｍand6_Ｃlick()Dimm＆m=Ｔeｘt1Ａdoｄc１.Rｅcｏrdｓet．ＭoveFirsｔIfＮｏｔIｓNumerｉc(ｎub)Theｎm=0x=MsｇＢｏx(”请输入正确的箱号”，48,”温馨提示"）Elsｅ：Adodｃ1。Reｃoｒｄsｅt．Finｄ”箱号=＇”&m&”'”'查找箱号ＩfＡdodc１.Recｏrｄｓet.EOFThｅn'找不到相同的箱号x=ＭsgBox（"请输入正确的箱号＂，48，”温馨提示”)Eｌse'输出密码到ｔｅxt３Text3=Adodc1.Reｃordsｅt.Fieｌdｓ("密码"）IｆＴeｘt2=Text3Thｅn’确认密码是否正确x=MsgBｏx(＂箱子已经开启，欢迎下次使用!”,，"温馨提示”）Aｄodc1．Reｃordset。Fiｎd"箱号=’”&m＆”’”’清空该箱密码Ａdｏdc1．Ｒecordset．Fielｄs("密码＂）=0Aｄodc1。Rｅｃordｓet．UｐdateUnloadＦorm2Elsex＝MsｇBｏx（"密码错误,请重新输入！”，４8,”温馨提示＂）'密码错误Teｘt2=””ＥnｄIｆEｎdIfEndIｆＥnｄSub--————－—--－——－－—-－——————－—-－—-——－-－-—－——－—－-－—－———--－——--——-－-－－——－－—-－-－——-－－———－-－——ＰriｖaｔｅSubComｍａnd７_Ｃlick(）ＵｎloadFｏrｍ2ＥnｄSub四、总结这次课设我的题目是超市“自由存取箱”的模拟,通过这次课设让我了解了VB与数据库之间的联系,可以应用ADO技术使ＶB与数据库进行联系，还可以应用SQL语言查询和更改数据库中的信息。在课程设计的过程中，我遇到了重重困难，例如:VB与数据库的连接技术，通过老师的指点，同学的帮助和自己查阅资料,我克服了困难，顺利的完成了任务。同时我也了解了VB的出现是一场技术革命，它在生活中各个方面都能发挥巨大的作用,所以,学好VB是社会发展的需要。五、完整的源程序Foｒm1Dima（1０0)AsＩｎteger’用于存放1００个箱子的密码,为0表示箱子空——－－—－-—-－—－——————－-－－－－－--—-－--—-－－—-－—－-————－—-－－-－－——－-—－——-—-－--－—-—-—-—－-－-—－—-—-－－—-—-—ＰｒivａｔeSｕbCommand1_Cliｃk（)Dimi,BAsIntegeｒDimpａssＡsIｎteｇerAｄｏdc1.Recｏrdsｅt．MoｖeFirｓtFｏrｉ=1ToＡdoｄｃ1．Rｅcordｓet．RecorｄCountIｆAdoｄｃ1。Reｃｏrｄset．Fiｅｌds（＂密码”)=0Theｎ'查找空箱Ｒａndｏｍizepass=Int（Ｒnｄ＊9000+10００)’随机产生四位数的密码ａ(i）=ｐａssAdｏdｃ1。Recｏｒdset．Fieldｓ（＂密码”）＝a（i)B＝Adoｄc1。Ｒecorｄset.Ｆields（"箱号"）’输出箱号Ｆｏrm3．SｈowFoｒm3。ClｓFｏｒｍ3.ＰrintB＆＂号箱可用＂Ｆoｒm3。Ｐrｉnt”密码为"＆ａ（i）ＥｘitＦorＥlseＩfＡdodc１．Recorｄset．Fｉelds(”密码＂)〈＞0Ｔhen'查找下一个空箱Ａdｏｄc1。Recoｒｄsｅt．MｏｖeＮextEndIｆNｅxtiAdｏdc1。Reｃordset.ＵpdaｔeEndSuｂ－—－--－－-－——--－-－－-－——--—-－－-———-－—--—-－———－－—－——－—－－--—-－--—－-—－－————--—－——－-－—－－—-——－—--—－-－-——－－-－PｒivatｅＳｕbＣoｍmaｎｄ2＿Ｃlick()Forｍ2。ShowEnｄSub－－－-—－--－——-——-—－--—－－-－－－－－－—--—-—－--—-—-—-－-－—－—－－—－－-—-—————－——-—-－————－——--－-—-—－--－-—PrivatｅSｕｂCｏmmand3_Cｌick()EｎｄEｎdSuｂ--－－－—--－—－—－—－-—－-－-—--－-－—-—－－－——--—--－-－－－-—-—————－—-—-－-———－-—-—-———－—-—-－-——--－－-－—－--－———-PriｖateＳubCoｍmaｎd4_Click（)x=MsｇBox（＂请持本人有效身份证件去服务台办理相关手续并领取！＂，４8,"温馨提示")EｎｄSub—－—--———-—－—－—-－－-——－-－———-－—-—－--—-－－——－-－-—-—－--—－－-－—————-——－—-—-－－—－－-－—－－—-———-－——－-—-————————－Ｆoｒｍ2PrivateSuｂCoｍmａｎd6_Cliｃｋ（）Ｄimｍ＆m＝Text１Ａdodc１.Rｅcoｒdsｅt．MｏveFｉｒｓtIｆＮｏtIsNｕmeric（nｕb)Tｈeｎm=0x＝MsｇBox(＂请输入正确的箱号”,48，"温馨提示”）Else：Ａdｏdc1。Ｒecordseｔ.Find"箱号=’＂&m&"＇"'查找箱号IfAdｏdc1.Recordsｅt。EOＦＴhen’找不到相同的箱号x=MsgＢox(”请输入正确的箱号＂,4８,”温馨提示”)Elｓe＇输出密码到texｔ3Teｘｔ3＝Adｏｄc１.Recordset.Fieｌｄs（＂密码"）ＩｆText２=Text3Then’确认密码是否正确x=MsｇBｏx（"箱子已经开启，欢迎下次使用！”，,＂温馨提示”）Aｄodc1．Ｒeｃordset.Fｉnｄ＂箱号＝’"＆m＆”’"’清空该箱密码Adodc1。Recordsｅt。Ｆｉeldｓ(＂密码"）＝0Aｄodc1.Recordset。ＵpｄatｅＵnloaｄForm2Elｓｅ