某厂对使用的原材料钢筋进行用前检测。要求输入钢筋的直径进行检查。标准品为10.0毫米直径。实际产品的直径与标准品之间的误差为±0.5毫米以下（含0.5毫米）的都认为是合格的，提示“检测为合格品”。否则提示“检测为废品”。
本程序设计界面及运行界面如下：

请编写单击“检测”（Button1）按钮的事件处理程序。

某俱乐部实行会员注册收费，每位会员按整月每月收费500元整。但是对注册时期较长的会员有价格优惠。规则如下：注册6个月以下（含6个月）每月收费金额不变，6至12个月实行9折收费，12个月以上（不含12个月）8折收费。编程在“注册月数”框中输入会员欲注册的月数，单击“计算”按钮后在“应收金额”框中显示应收会费总钱数。单击“结束”按钮结束程序。
本程序设计界面及运行界面如下：

请编写单击“计算”（Button1）按钮的事件处理程序。

本程序由主窗体form1和子窗体form2组成，设计界面如下图所示：

主窗体上建立的对象有Panel1、Animate1、Button1（加载AVI文件）、Button2（退出）、Button3（播放）、Button4（停止）和OpenDialog1。 
子窗体上建立的对象有Label1、BitBtm1（Yes）、BitBtm2（No）。 
单击“加载AVI文件”按钮，会弹出打开文件对话框。用户指定一个.avi的文件后，动画文件加载到Animate1显示区中。单击“播放”按钮可播放动画，单击“停止”按钮可停止播放。 
单击“退出”按钮，会弹出确认对话框（Form2）。如果用户按“Yes”键，程序结束；如果按“No”键，返回主窗体。 
下面是Unit1的代码部分，请在下划线处完成程序填空。

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

本程序由主窗体form1和子窗体form2组成，设计界面如下图所示：

主窗体Form1上建立的对象有Panel1、MediaPlayer1、OpenDialog1、Button1（打开文件）、Button2（播放）、Button3（暂停）、Button4（退出）。
子窗体Form2上建立的对象有Label1、BitBtm1（Yes）、BitBtm2（No）。 
单击“打开文件”按钮，会弹出打开文件对话框。用户指定一个要播放的文件后，单击“播放”按钮可播放多媒体文件，单击“暂停”按钮可暂停播放。 
单击“退出”按钮，会弹出确认对话框（Form2）。如果用户按“Yes”键，程序结束；如果按“No”键，返回主窗体。 
下面是Unit1的代码部分，请在下划线处完成程序填空。

本程序的功能是实现对dep表（系）－student表（学生）的主从查询。用户可以依次查询系的记录，也可以通过指定系号，查找并定位到指定的记录。每当显示一个系的记录后，系统自动显示该系的学生记录。设计界面和运行界面如下：

在Form1上建立的主要对象及连接如下： 
Database1－Table1（与dep表相连）－DataSource1－DBEdit1～DBEdit3 
Database1－Query1－DataSource2－DBGrid1（显示学生信息）
Edit1、Button1（查找）、Button2（下一记录）、Button3（上一记录）等。 
Query1的SQL语句是： 
select * 
from student 
where dno = :dno 
下面是Unit1单元的代码实现部分，请完成程序填空。

本程序根据用户选择的运算符对输入的二个操作数进行运算，并显示运算结果。设计界面和运行界面如图所示。其中，运算符是一个含有4个单选按纽的RadioGroup1对象。

下面是单击“运算”按钮的事件处理程序，请根据功能要求完成程序填空。

数据库mydb中有关系表student，其结构如下：
student（sno学号，sname姓名，sex性别，birthday生日） 
现编写一个学生信息浏览程序，设计界面和运行界面如下图所示：

在下划线处填写相应数据库组件的属性值：

应用程序的用户界面如下图所示：

功能说明：
该界面是一个教师信息录入界面。 
用户在编辑框（Edit1）中输入姓名，利用单选按钮（RadioGroup1）指定性别，利用组合框（ComboBox1）选择或直接输入所在系，利用列表框（ListBox1）指定职称。当输入完上述信息后，单击“确定”按钮，教师信息将显示在右边的Memo1编辑窗口中。 
下面是开发过程，请完成填空部分：

本程序实现一个简单的借书界面。程序的设计界面和运行界面如下图所示：

该程序涉及到数据库中的两张表：books（图书信息）和borrow（借书记录）。表的结构为： 
books（bno，书号，bname书名，num现有册数） 
borrow（rno 读者号，bno书号，rdate还书日期）
其中，rno和bno都是字符型（3位）。 
在用户界面，操作员选中一本书、输入借书证号后，按“借书”键完成借书功能，即在borrow表中插入一条借书记录，并将books表中该书现有册数减1。 
该界面要实现以下合法性检查： 
1.当该读者已经借了此书，不能再借。   
2.当所借的书现有册数为0，不能再借。 
在Form1上建立的数据库组件对象及连接关系如下： 
Database1－Table1（与books表相连）－DataSource1－DBGrid1（显示图书信息） 
Database1－Table2（与borrow表相连，用于插入借书记录） 
Database1－Query1 
其中为Table1建立了3个永久字段：Table1bno（书号）、Table1bname（书名）、Table1num（现有册数）。 
Query1的SQL语句如下： 
select bno 
from borrow 
where rno = :rno and bno = :bno  
下面是Unit1的代码实现部分，请完成程序填空：