vfp制作抽奖程序.doc

用VisualPoxpro6.0设计一个“电脑抽奖”小软件小程序教育用VisualPoxpro6.0设计一个“电脑抽奖”小软件题外话:“啪”，打开电视机又是电脑抽大奖，祝您好运！小弟我虽然梦想赚大钱，吃燕窝熊掌（吃保护动物可是违法的哦:)），但是对不劳而获的“大奖”可从来不敢奢望呀。可是坐在电视银幕前看了很多很多的精彩节目后。小弟心想：何不做个“电脑抽奖”小软件Happy,Happy？家庭Party，“抽”个大奖送给老爸老妈，哄哄老人家开心；同学聚会，“抽”个大奖，把好运带给转眼就要各奔东西的亲爱的同学们，其乐无穷也！您愿意与我分享这份心情吗？那且看下文分解。初步构想：设计一个可抽出一等奖1名，二等奖2名，三等奖8名的应用软件（如图1）。第一，当然是先建立包含所有记录的表（如同学录.dbf,身份证.dbf）。第二，主界面：主办单位的电话号码在银幕左上方由左至右逐渐显现(由Timer1控制），右上方放置有关合办单位的“动画”图片，如果该抽奖软件是为家庭Party设计，您可放几幅全家福照片，动画效果设置计时器Timer2实现。第三，设置计时器Timer3,记录指针自动(循环)指向在同学录.dbf所有记录，从而在编辑框Edit1中显示数字的滚动，达到随机抽取获奖者。第四，当Click&Enter命令按钮Command1时,Timer3控件由禁用变为可用,数字开始滚动。Enter命令按钮Command2。Edit1,Edit2由蓝底黄字变为醒目的黄底红字，选中的记录就是“大奖的获得者”,并保存到Text13.软件还应能对获奖者人数进行累计(Text46)（如图2）。抽奖活动结束后,系统应给出活动结束的提示。有了构想，下面我们还等什么呢？赶快动手吧！:)表单Form1的属性：caption=电脑抽奖系统,Picture=图片的正确路径(如:D:编程Vfpljxy29背景.bmp),With=800,Height=560。Activate事件代码:thisform.timer3.enabled=.F.,mand2.enabled=.F.,Load事件代码:publicnn=0。控件时钟timer1控制电话号码(标签label2)动态显示,属性:interval=20*确定计时器控制的Timer事件的时间间隔,以毫秒为单位。timer事件代码:ifthisform.label2.enabled=.t.thisform.label2.width=thisform.label2.width+1thisform.label2.visible=.t.endififthisform.label2.width=310thisform.label2.visible=.f.thisform.label2.width=1endiftimer2控制图片(image1)动态显示,属性：interval=60。timer事件代码:&ifthisform.image1.picture=PathPic1.bmp&thisform.image1.picture=PathPic2.bmp&else&thisform.image1.picture=PathPic1.bmp&endififthisform.image1.visible=.t.thisform.image1.visible=.f.elsethisform.image1.visible=.t.endiftimer3控制滚筒(编辑框Edit1)的动态显示。属性：interval=10。timer事件代码:ifthisform.edit1.enabled=.t.thisform.edit1.controlsource=身份证.身份证号thisform.edit2.controlsource=身份证.姓名skip+1thisform.refreshendififeof()gototopendif命令按钮控件command1属性:caption=开始。click事件代码:mand1.enabled=.F.mand2.enabled=.T.thisform.edit1.forecolor=rgb(255,255,0)thisform.edit2.forecolor=rgb(255,255,0)thisform.edit1.backcolor=rgb(128,128,255)*淡蓝色thisform.edit2.backcolor=rgb(128,128,255)thisform.timer3.enabled=.T.命令按钮控件command2属性:caption=停止。mand1.enabled=.T.mand2.enabled=.F.thisform.timer3.enabled=.F.thisform.edit1.forecolor=rgb(255,0,0)*红色thisform.edit2.forecolor=rgb(255,0,0)thisform.edit1.backcolor=rgb(255,255,0)thisform.edit2.backcolor=rgb(255,255,0)n=n+1thisform.refreshifn=1thisform.label3.caption=一等奖获得者thisform.text1.value=thisform.edit1.valuethisform.text4.value=nendifif2=nandn=3thisform.label3.caption=二等奖获得者thisform.text2.value=thisform.edit1.valuethisform.text5.value=n-1endifif4=nandn=12waitwindow抽奖活动已经结束+CHR(13)+单击(恢复)重新开始mand1.enabled=.F.endif设置标签LABEL112共同属性:backstyle=0,FontName=隶书,FontBold=.T.。label1的属性：caption=咨询电话FontSize=26,ForeColor=rgb(0,0,255)*深蓝色,Height=49,Left=146,Top=31,With=179。label2的属性：Captionbackstyle=0,FontName=隶书,FontSize=36,ForeColor=rgb(255,255,0)*黄色,Height=49,Left=48,Top=108,With=307。label的属性3：Caption=准备开始抽奖FontSize=20,ForeColor=rgb(255,255,0),Height=37,Left=180,Top=295,With=169。label4的属性:Caption=身份证号FontSize=16,ForeColor=rgb(0,0,255),Height=27,Left=16,Top=363,With=93。label5的属性：Caption=姓名FontSize=18,ForeColor=rgb(0,0,255),Height=25,Left=21,Top=73,With=423。label6的属性：Caption=一等奖FontSize=16,ForeColor=rgb(0,0,255),Height=25,Left=480,Top=335,With=69。label7的属性：Caption=二等奖FontSize=16,ForeColor=rgb(0,0,255),Height=25,Left=480,Top=383,With=73。label8的属性：Caption=三等奖FontSize=16,ForeColor=rgb(0,0,255),Height=25,Left=480,Top=428,With=73。label9的属性:Caption=合作单位FontSize=28,ForeColor=rgb(128,64,64)*深锗色,Height=145,Left=502,Top=36,With=37,WordWrap=.T.。label10的属性:Caption=退出FontSize=20,ForeColor=rgb(0,0,255),Height=25,Left=186,Top=500,With=59.label11的属性:Caption=恢复FontSize=20,ForeColor=rgb(0,0,255),Height=25,Left=36,Top=500,With=61。Label12的属性:Caption=合作单位FontSize=28,ForeColor=rgb(255,255,0),Height=145,Left=488,Top=36,With=37。Image1的属性：Picture=Path位图，backstyle=0。设置编辑框Edit12的共同属性：FontName=隶书,FontSize=20,ForeColor=rgb(0,0,255)*黄色,backColor=rgb(128,128,255)*淡蓝色,Height=49,Left=120,With=265,ScrollBars=0。Edit1:Top=353。Edit2:Top=413。设置Text13的共同属性：FontName=隶书,FontSize=14,ForeColor=rgb(0,0,255),backColor=rgb(128,128,255)*淡蓝色,Height=36,Left=605,With=188,ScrollBars=0。设置Text36的共同属性：With=25,High