begin MediaPlayer1.FileName :=3 MediaPlayerl.Open MediaPlayer1.Display:=Panell;/将Panell做为播放屏幕 MediaPlayer1.DisplayRect :=Rect(0,0,Panell.Width,Panell.Height); end end; procedure TForm1.Button2Click(Sender:TObject);// begin MediaPlayer1.④ end; procedure TForm1.Button3Click(Sender:TObject);// begin MediaPlayer1.Pause end; procedure TForm1.Button4Click(Sender:TObject);// begin if⑤ mrYes then close; end; end. 27.(10分，每空2分) 本程序实现一个简单的选课界面。设计界面和运行界面如下图所示： Form1 7 Form1 白x 课程信总： 士国倒 课程信意： 课号课名酒 学分时间名额色 课号课名]学分时间名额一 Cc01物理 11 199 c01 物理 11 199 c02 化学 2 14 99 c02 化学 14 38 c03 外语 1, 23 49 c03外语 23 49 学号：Editl 选课上國 学号： 040001 选课 该程序涉及到数据库中的两张表：course表（课程信息）和sc表（选课记录）。表结构如下： course(cno课号，cname课名，credit学分，ctime时间，quota名额) sc(sno学号，cno课号，grade成绩) 在用户界面，操作员选中一门课、输人学号后，按“选课”键完成选课功能，即在$c表中插 人一条选课记录，并将course表中该课程名额减l。 1399, • begin MediaPlayerl. FileName: =③ MediaPlayerl. Open; MediaPlayer1. Display : = Panel1; !!将 n做为播放屏幕 MediaPlayerl. DisplayRect : =Rect(O ,O ,Panell. Width ,Panell. Height); end; end; procedure TForml. Button2ClickCSender: TObject); !!播放 begin MediaPlayerL (z end; procedure TForml. Button3ClickCSender: TObject); /!暂停 begin MediaPlayerl. Pause; end; procedure TForml. Button4C1ickCSender: TObject); !!退出 begin if ( = mrYes then close; end; end. 27. (1 本程序实现一个简单的选课界面。设计界面和运行界面如下图所示: 翻翻 γ一 课程信息 cOl 物理 4 11 i99......J ~lc02 化学 2 14 98 c03 外语 1 ‘ 课号 时间各额二 ~Ic 物化 4 11 199 2 14 99 ~号。02 外掌 1 23 49~ 4 - """., .-ιj .主干部「 :噎 j恩 学号:庐衍了 该程序涉及到数据库中的两张表 e表(课程信息)和 c表(选课记录)。表结构如下 course(cno ，cname credit ，ctirn quota scCsno 学号 ，cno ，grade 成绩 在用户界面，操作员选中一门课、输入学号后，按"选课"键完成选课功能，即在c表中插 入一条选课记录，并将 o ur s e表中该课程名额减1. 1399