vfp制作抽奖程序

admin管理员组

文章数量:1531437

2024年6月22日发(作者：)

用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由蓝底黄字变为醒目的黄底红字，

选中的记录就是“大奖的获得者",并保存到Text1～3。软件还应能对获奖者人

数进行累计(Text4~6）（如图2).抽奖活动结束后，系统应给出活动结束的提示。

有了构想，下面我们还等什么呢？赶快动手吧！：)

■表单Form1的属性：caption=电脑抽奖系统，Picture=图片的正确路径

（如："D:编程Vfpljxy29背景.bmp”),With=800，Height=te事件

代码:d=.F.,thisform。command2。enabled=。F。，Load

事件代码:publicnn=0.

■控件时钟timer1控制电话号码(标签label2）动态显示,属性：

interval=20*确定计时器控制的Timer事件的时间间隔,以毫秒为单位。

timer事件代码:

d=.t.

=thisform。label2。width+1

thisform。label2。visible=。t。

endif

ifthisform。label2。width=310

thisform。e=.f。

2。width=1

endif

■timer2控制图片(image1)动态显示，属性：interval=60。timer事件代

码:

&&1。picture=”PathPic1。bmp”

&＆thisform。e=""

&&else

＆&thisform。image1。picture="PathPic1。bmp"

&＆endif

ifthisform。image1。visible=.t.

thisform。e=.f.

else

thisform。image1。visible=.t.

endif

■timer3控制滚筒（编辑框Edit1）的动态显示。属性：interval=10。

timer事件代码:

ifthisform。d=.t.

1。controlsource=”身份证.身份证号”

thisform。lsource=”身份证.姓名"

skip+1

h

endif

ifeof()

gototop

endif

■命令按钮控件command1属性:caption=”开始"。

click事件代码：

thisform。command1。enabled=。F。

thisform。command2。enabled=.T.

thisform。edit1。forecolor=rgb(255,255，0)

2。forecolor=rgb(255，255，0）

1。backcolor=rgb（128,128,255)*淡蓝色

lor=rgb（128,128，255）

d=.T.

■命令按钮控件command2属性：caption="停止”。

d1。enabled=。T。

d=。F。

thisform。timer3。enabled=.F.

lor=rgb（255,0,0)*红色

thisform。lor=rgb（255,0，0)

1。backcolor=rgb(255，255,0)

lor=rgb(255，255，0)

n=n+1

h

ifn=1

thisform。n=”一等奖获得者"

thisform。=thisform。edit1。value

thisform。text4。value=n

endif

if2〈=nandn〈=3

thisform。label3。caption=”二等奖获得者”

thisform。=1。value

thisform。=n-1

endif

if4〈=nandn<=11

thisform。label3。caption="三等奖获得者"

thisform。=1。value

=n-3

endif

ifn〉=12

waitwindow”抽奖活动已经结束”+CHR(13）+”单击(恢复)重新开始"

d=.F.

endif

■设置标签LABEL1～12共同属性:backstyle=0,FontName=隶

书,FontBold=.T。。

★label1的属性：caption=咨询电话FontSize=26，ForeColor=rgb（0,0,255)

＊深蓝色

，Height=49，Left=146，Top=31,

With=179.

★label2的属性：Caption=，backstyle=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。

■设置编辑框Edit1~2的共同属性: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。

■设置Text1～3的共同属性：FontName=隶书

,FontSize=14，ForeColor=rgb(0,0,255），backColor=rgb(128，128,255)

＊淡蓝色

，Height=36,Left=605，With=188，ScrollBars=0。设置Text3～6的共同

属性：

With=25,High=25，left=568。

★Text1：Top=326。★Text2：Top=374。★Text3：Top=427。

★text4:Top=331。★text5：Top=379。★text6:Top=427。

完成以上的设计之后，我们即可连编成应用程序或完全脱离VisualPro数据

库系统的可执行程序。大功告成,（我唱）上看下看,左看右看，原来方法这么简

单……Vfp的初学者们尽可大胆地进行设计，设计出更好看的界面。“哇，我中

奖啦--可惜没奖品”：)。

本文标签： 属性设计控制控件记录