1．首先建立一個包含歌曲信息的數據庫Mid．dbf，該數據庫中有兩個字段，一個是Midname字段，長度為20個字符，存放的是Mid音樂文件的中文歌曲名（如“水中花”）；另一個是Filename字段，長度為8個字符，存放的是Mid文件的文件名（不含擴展名）。 建立好數據庫后，把Mid文件音樂文件的信息輸入數據庫中。注意：所有的歌曲文件要與程序和數據庫存放在一個目錄中。
2．建立一個表單Form1，在數據環(huán)境中添加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
這樣就建立了一個完整的歌曲點播器，運行表單后，只需在下拉列表框中選擇一首歌曲后，單擊“播放”按鈕，即進行播放。
2．建立一個表單Form1，在數據環(huán)境中添加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
這樣就建立了一個完整的歌曲點播器，運行表單后，只需在下拉列表框中選擇一首歌曲后，單擊“播放”按鈕，即進行播放。