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