本程序實現一個簡單的選課界面。設計界面和運行界面如下圖所示:
該程序涉及到數據庫中的兩張表:
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的代碼實現部分,請完成程序填空: