VFP表单设计摇奖程序

比如是对学生表抽神简念奖：

在数据环境添加"学生.dbf"

计时器timer1 的interval属性设为100（当然可以换成1000等也可以，随便咐磨设）

form1的init事游困件代码：

thisform.timer1.enabled=.f.

thisform.text1.value=“幸运者姓名”

按钮“开始滚动”的click事件

thisform.timer1.enabled=.t.

thisform.text1.value=姓名

按钮“停止”的click事件

thisform.timer1.enabled=.f.

timer1的timer事件代码

sele 学生

skip

if eof()

go top

endif

thisform.text1.value=姓名

一、步骤

1、打开表单设计器，建立一个空白表单。2、将兆腊脊页框添加到表单中。设置Pageframe1的PageCount属性值为2。3、在属性窗口的对族渗象列表框中选局铅择Page1，将Page1的Caption设置为“前两句”，用两样的方法将Page2的Caption设置为“后两句”。4、在Page1页添加一个标签，其Caption设置为诗的前两句，同样在Page2中将诗的后两句添加过来。最后保存即可

就教你做个登陆器

建：

点label按盯猜钮，建label1

的

caption为

QQ登陆

label2

的

caption为

密码

点combo按钮，建combo1

点text按钮，建立text1

点command按钮数则岁，建

command1

的

caption为

登陆

command2

的

caption为

退出

双薯睁击command1

中输入代码:

do

case

case

thisform.text1.value="user"

.and.thisform.text2.value="123"

i=messatextgebox("欢迎光临",48)

thisform.release

otherwise

i=messagebox("错了",32)

thisform.release

endcase

双击command2

中输入代码:

thisform.release

点击运行！OK啦！

这可是我手写的呵，希望采纳！

---