第10章 Delphi程序设计综合实例.pptVIP

procedure TUsrForm.FormShow(Sender: TObject); var sqlstr,songname,songaddr: string; i: integer; begin localusrname := UsrForm.Caption; sqlstr := select * from UsrSong where UsrName = :iname order by SongName; DM.query.Close; DM.query.SQL.Clear; DM.query.SQL.Add(sqlstr); DM.query.Parameters.ParamByName(iname).Value := localusrname; DM.query.Open; DM.query.First; ListBox1.Clear; for i := 0 to DM.query.RecordCount - 1 do begin ListBox1.Items.Add(DM.query.FieldValues[SongName]); ListBox1.Items.Add(DM.query.FieldValues[SongAddr]); DM.query.Next; end; ListBox1.ItemIndex := 0; end; （5）单击“播放”图标 可以按顺序播放ListBox组件中选中的歌曲。ListBox组件的ItemIndex属性值为0，2，4，…，2n时，表示歌曲名称，当ItemIndex属性的值为1，3，5，…，2n+1时，表示对应歌曲的存储位置。这样不需要根据歌曲 名称就能查找歌曲在SongInf表中的位置。在播放过程中，进度条会显示歌曲播放进的进度。参考代码如下： procedure TUsrForm.SpeedButton1Click(Sender: TObject); begin if ListBox1.ItemIndex mod 2 0 then MessageDlg(请选中歌曲名称。,mtWarning,[mbOK],0) else begin MediaPlayer1.Close; MediaPlayer1.FileName := ListBox1.Items[ListBox1.itemIndex + 1]; ProgressBar1.Max := MediaPlayer1.Length; MediaPlayer1.Play; end; end; （6）单击“暂停”图标，则暂停当前播放的曲目，再次单击“暂停”按钮，可以继续播放歌曲。参考代码如下： procedure TUsrForm.SpeedButton2Click(Sender: TObject); begin MediaPlayer1.Pause; end; （7）单击“上一首”按钮 ，开始播放上一首歌曲，并自动选中ListBox组件中的上一首歌曲。如果已经是第一首歌曲了，则提示“已经是第一首歌曲了”。参考代码如下： procedure TUsrForm.SpeedButton4Click(Sender: TObject); begin if ListBox1.ItemIndex mod 2 0 then ListBox1.ItemIndex := ListBox1.ItemIndex - 1; if ListBox1.ItemIndex = 0 then MessageDlg(已经是第一首歌曲了。,mtWarning,[mbOK],0) else begin ListBox1.ItemIndex := ListBox1.ItemIndex - 2; MediaPlayer1.Close; MediaPlayer1.FileName := ListBox1.Items[ListBox1.ItemIndex + 1]; MediaPlayer1.Open; MediaPlayer1.Play; ProgressBar1.Max := MediaPlayer1.Length; end; end; （8）单击“下一首”按钮 ，开始播放下一首歌曲，并自动选中ListBox组件中的下一首歌曲。如果已经最后一首曲目了，则提示“已经是最后一首歌曲了”。参考代码如下： procedure TUsrForm.SpeedButton5Click(Sender