用VFP编制多媒体歌曲的点播器

1.首先建立一个包含歌曲信息的数据库Mid.dbf。这个数据库有两个字段，一个是Midname字段，20个字符长，存储Mid音乐文件的中文歌名(比如《水中的花》)；另一个是文件名字段，它有8个字符长，存储Mid文件的文件名(不带扩展名)。数据库建立后，将Mid文件和音乐文件的信息输入数据库。注意:所有的歌曲文件都应该保存在一个有程序和数据库的目录下。

2.建立一个表单Form1，在数据环境中添加Mid.dbf，将Form1的标题设置为“多媒体歌曲播放器”，编写Form1的加载过程:
setlibraryofoxtools . FLL
public playsound
playsound = regfn(" MCI execute "，

3.创建一个组合框Combo1，设置Style的属性为2(下拉列表框)，Displayvalue的属性为Mid.dbf的数据库中第一首歌的歌名，Rowsource的属性为Midname，Rowsourcetype的属性为6(字段)。

4.在下拉列表框的顶部创建一个标签Label1，并将caption的属性设置为“Please order songs:”。

5.创建第一个按钮(Command1)，设置标题的属性为“Play”，编写Click的过程:
midt = " open "
midw = " type sequencer "
locateformadname = thisform.com BOL . value
midd = midt+space(1)+rtrim(文件名)+"。mid "+ space(1)+midw
= CALLFN(PlaySound，midd)
=CALLFN(PlaySound，″play″+rtrim(filename)+″。mid ")
this form . combol . enabled = . f

6.设置第二个按钮(Command2)，设置caption属性为“stop”，编写点击过程:
=CALLFN(PlaySound，“close”+rtrim(filename)+”。mid ")
thisform.com BOL . enabled = . t .

7.建立第三个按钮(Command3)，设置标题的属性为“退出”，编写点击过程:
release FORM
CLEAR EVENTS
set library TO
CLEAL ALL
这样，一个完整的歌曲播放器就建立了。运行表单后，