你可能感興趣的試題

本程序實現一個簡單的選課界面。設計界面和運行界面如下圖所示：
該程序涉及到數據庫中的兩張表：
course（課程表）和sc（選課表），表結構如下：sc（sno學號，cno課程號，grade成績）course（cno課號，cname課名，quota名額）
其中：sno和cno都是字符型。
在用戶界面，操作員選中一門書、輸入學號后，按“選課”鍵，完成選課功能，即在sc表中插入一條選課記錄，并將course表中該課程的名額減1。
該界面要實現以下合法性檢查：
1.當該學生已經選過此課，不能再選。
2.當所選課程名額已為0，不能再選。
在Form1上建立的數據庫組件對象及連接關系如下：
Database1－Table1（與course表相連）－DataSource1－DBGrid1（顯示課程信息）
Database1－Table2（與sc表相連，用于插入選課記錄）
Database1－Query1
其中為Table1建立了3個永久字段：Table1cno（課程號）、Table1cname（課程名）、Table1quota（名額）。
Query1的SQL語句如下：
select cno
from sc
where sno =:sno and cno=:cno
下面是Unit1的代碼實現部分，請完成程序填空：

本程序由主窗體form1和子窗體form2組成，設計界面如下圖所示：

主窗體Form1上建立的對象有Panel1、MediaPlayer1、OpenDialog1、Button1（打開文件）、Button2（播放）、Button3（暫停）、Button4（退出）。
子窗體Form2上建立的對象有Label1、BitBtm1（Yes）、BitBtm2（No）。 
單擊“打開文件”按鈕，會彈出打開文件對話框。用戶指定一個要播放的文件后，單擊“播放”按鈕可播放多媒體文件，單擊“暫停”按鈕可暫停播放。 
單擊“退出”按鈕，會彈出確認對話框（Form2）。如果用戶按“Yes”鍵，程序結束；如果按“No”鍵，返回主窗體。 
下面是Unit1的代碼部分，請在下劃線處完成程序填空。