该界面要实现以下合法性检查： ●当该学生已经选过此课，不能再选。 ●当课程名额为0，不能再选。 在Forml上建立的数据库组件对象及连接关系如下： Databasel-一Tablel(与course表相连)一DataSourcel一DBGrid1(显示课程信息) Databasel-Query1,Query2 其中为Tablel建立了永久字段：Tablelcno(课号)、Tablelcname(课程名)、Tablelquota (名额)等。 Query1的SQL语句如下： select cno from sc where sno =sno and cno =cno Query2的SQL语句如下： insert into sc values(sno cno null 下面是Unit1的代码实现部分，请完成程序填空： implementation ($R *dfm) procedure TForml.ButtonlClick(Sender:TObject);// begin query1.Close queryl..ParamByName(‘sno).Value:=① query1.ParamByName('cno').Value :tablelcno.Value; query1.Open if② <>null then begin showmessage(‘已选过该课程')； exit end; if③ =0 then begin showmessage(‘没有名额')； exit end; query2.Close 1400该界面要实现以下合法性检查 ·当该学生巳经选过此课，不能再选。 ·当课程名额为 0，不能再选。 建立 据库组 象及连接 Database1-Table1 (与 表相 o u e e (显示课程信息) Database1-Query 、Query2 其中为 久 字 Table1eno( 人Table1ename( 人Table1quota (名额)等。 Query1 的SQL select eno from se where sno = :sno and eno = : eno Query2 的SQL Insert Into se values( :sno , :eno , null ) 下面是 1的代码实现部分，请完成程序填空: 一一一一一一一一一一一一一一一一→一一一 一一一一一一一一一一一一一一一- implementation { $ dfm} procedure TForml. Button1Cliek(Sender: TObjeet); / /选课 begin queryl. Close; queryl. ParamByName( ‘sno'). Value:= queryl. ParamByName( ‘eno'). Value: = table1eno. Value; queryl. Open; • , if <> null then begin showmessage( ，已选过该课程，) ; exit ; end; if = 0 then begin showmessage( ) ; eXIt; end; query2. Close; 1400