用VFP制作演员表-先飞网电脑教程文章

>> 我们从网络和杂志上收集了近100000余篇各类电脑技术、网络技术、软件技术等方面的文章教程,我们的收录原则:不是精华拒不收录!

用VFP制作演员表

［作者：佚名转贴自：本站原创阅读次数：20 更新时间：2005-11-30 12:56:00 录入：刘光勇］

我们观看的电视节目结束时，经常会看到演员列表从屏幕底部往上翻滚，用VFP也能实现此功能，当我们完成编写多媒体程序，在结束处，用此功能可以显示此程序的所有编制人员。
　　现举演员列表程序来说明此功能的实现：首先，需建立一个包含所有演员的数据表，例如，我建立一个名为Name的数据表，此表包含两个字段，一为Fname，代表演员所演的角色名，一为Tname，代表演员的真实姓名，表建立完后，我们建立一个窗体Form，在窗体内加入两个时间控件Tmer 1和TImer 2，将Tmer 1的Interval属性设为600，在窗体Form的Init事件中加入如下代码：
PUBLIC N
N=1
USE NAME
在时间控件TIMER1的TIMER事件中加入如下代码：
@ 10,10 say fname style 't' ＊在窗体FORM中显示FNAME字段的内容
if .not.eof()
@ 10,21 say '－－' style 't'
endif ＊如果到记录尾，就不显示
@ 10,35 say tname style 't' ＊在窗体FORM中显示TNAME字段的内容
if eof()
if n<5
n=n＋1
else
@ 10,20 say 'THE END' FONT 'IMPACT' ,20 style 't'
thisform.timer1.interval=0
THISFORM.TIMER2.INTERVAL=2000
endif
else
skip
endif
scroll 2,5,16,50,1
在TIMER2的TIMER事件中加入如下代码：
RELEASE THISFORM
RELEASE N
　　程序编制完成，存盘，运行它，看看结果吧！

上一篇:Visual FoxPro的性能调整技巧下一篇: VFP视图技术应用介绍