本程序?qū)崿F(xiàn)一個(gè)簡單的選課界面。設(shè)計(jì)界面和運(yùn)行界面如下圖所示:
該程序涉及到數(shù)據(jù)庫中的兩張表:
course(課程表)和sc(選課表),表結(jié)構(gòu)如下:sc(sno學(xué)號(hào),cno課程號(hào),grade成績)course(cno課號(hào),cname課名,quota名額)
其中:sno和cno都是字符型。
在用戶界面,操作員選中一門書、輸入學(xué)號(hào)后,按“選課”鍵,完成選課功能,即在sc表中插入一條選課記錄,并將course表中該課程的名額減1。
該界面要實(shí)現(xiàn)以下合法性檢查:
1.當(dāng)該學(xué)生已經(jīng)選過此課,不能再選。
2.當(dāng)所選課程名額已為0,不能再選。
在Form1上建立的數(shù)據(jù)庫組件對(duì)象及連接關(guān)系如下:
Database1-Table1(與course表相連)-DataSource1-DBGrid1(顯示課程信息)
Database1-Table2(與sc表相連,用于插入選課記錄)
Database1-Query1
其中為Table1建立了3個(gè)永久字段:Table1cno(課程號(hào))、Table1cname(課程名)、Table1quota(名額)。
Query1的SQL語句如下:
select cno
from sc
where sno =:sno and cno=:cno
下面是Unit1的代碼實(shí)現(xiàn)部分,請(qǐng)完成程序填空:
本程序由主窗體form1和子窗體form2組成,設(shè)計(jì)界面如下圖所示:
主窗體Form1上建立的對(duì)象有Panel1、MediaPlayer1、OpenDialog1、Button1(打開文件)、Button2(播放)、Button3(暫停)、Button4(退出)。
子窗體Form2上建立的對(duì)象有Label1、BitBtm1(Yes)、BitBtm2(No)。
單擊“打開文件”按鈕,會(huì)彈出打開文件對(duì)話框。用戶指定一個(gè)要播放的文件后,單擊“播放”按鈕可播放多媒體文件,單擊“暫停”按鈕可暫停播放。
單擊“退出”按鈕,會(huì)彈出確認(rèn)對(duì)話框(Form2)。如果用戶按“Yes”鍵,程序結(jié)束;如果按“No”鍵,返回主窗體。
下面是Unit1的代碼部分,請(qǐng)?jiān)谙聞澗€處完成程序填空。