本程序实现一个简单的选课界面。设计界面和运行界面如下图所示:
该程序涉及到数据库中的两张表:
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的代码实现部分,请完成程序填空: