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

1．首先建立一个包含歌曲信息的数据库Mid．dbf，该数据库中有两个字段，一个是Midname字段，长度为20个字符，存放的是Mid音乐文件的中文歌曲名（如“水中花”）；另一个是Filename字段，长度为8个字符，存放的是Mid文件的文件名（不含扩展名）。 建立好数据库后，把Mid文件音乐文件的信息输入数据库中。注意：所有的歌曲文件要与程序和数据库存放在一个目录中。
2．建立一个表单Form1，在数据环境中添加Mid．dbf，设定Form1的caption的属性为“多媒体歌曲点播器”，编写Form1的load过程：
setlibrarytofoxtools．fll
publicPlaySound
PlaySound=REGFN（″MCIExecute″，″C″，″I″，″MSYSTEM″）
3．建立一个组合框Combo1，把Style的属性设定为2（下拉列表框），把Displayvalue的属性设定为Mid．dbf信息库中的第一首歌的歌曲名，把Rowsource的属性设定为Midname，把Rowsourcetype的属性设定为6（字段）。
4．在下拉列表框上方建立一个标签Label1，把caption的属性设定为“请点播歌曲：”。
5．建立第一个按钮（Command1），设定caption的属性为“播放”，编写Click的过程：
midt=″Open″
midw=″TypeSEQUENCER″
Locateformidname=thisform．combol．value
midd=midt＋space（1）＋rtrim（filename）＋″．mid″＋space（1）＋midw
=CALLFN（PlaySound，midd）
=CALLFN（PlaySound，″play″＋rtrim（filename）＋″．mid″）
thisform．combol．enabled=．F．
6．建立第二个按钮（Command2），设定caption的属性为“停止”，编写Click的过程：
=CALLFN（PlaySound，″close″＋rtrim（filename）＋″．mid″）
thisform．combol．enabled=．T．
7．建立第三个按钮（Command3），设定caption的属性为“退出”，编写Click的过程：
relethisform
clearevents
setlibraryto
closeall
这样就建立了一个完整的歌曲点播器，运行表单后，只需在下拉列表框中选择一首歌曲后，单击“播放”按钮，即进行播放。