综合应用（1小题，计30分）

在考生文件夹下，打开SDB数据库，完成如下应用：

创建一个标题名为"查询"、文件名为testb的表单，如下图所示。

表单要求如下：

1. 为表单建立数据环境，向数据环境添加"学生表"。

2. 表单启动后自动居中。

3. 在该表单中设计一个标签、一个文本框、一个表格和两个命令按钮。

1) 标签对象标题文本为"学生注册日期"(Label1)；文本框用于输入学生注册日期(Text1)；表格控件用于显示结果(Grid1)。

2) 命令按钮的功能如下：

①"查询"按钮(Command1)：在该按钮的Click事件中使用SQL的SELECT命令从"学生表"中查询学生注册日期等于文本框中指定的注册日期的学生的学号、姓名、年龄、性别、班级和注册日期，查询结果按年龄降序排序，并将查询结果在表格控件中显示，同时将查询结果存储到表TABE中。

注意：查询结果存储到表TABE之前，应将表TABE中记录清空。TABE表是已经建立好的表，它与学生表的结构不完全一样，多两个字段。

②"退出"按钮(Command2)：的功能是"关闭和释放表单"。

注意：表格控件的RecordSourceType属性设置为"4－SQL说明"；表单设计完成后，运行该表单，查询注册日期等于2005年9月2日的学生信息。

解题思路：

1. 新建表单。 在“表单设计器”中，在“属性”的Caption处输入“查询”，在AutoCenter处选择“.T.- 真”。单击“显示\数据环境”菜单项，在“打开”对话框中双击表“学生表”，再单击“关闭”来关闭“添加表或视图”对话框。在“表单设计器-testb.scx”中，添加一个标签Label1，在其“属性”的Caption处输入“学生注册日期”。在“表单设计器-testb.scx”中，添加一个文本框Text1。在“表单设计器-testb.scx”中，添加一个表格Grid1，在其“属性”的RecordSourceType处选择“4 - SQL 说明”。在“表单设计器-testb.scx”中，添加两个命令按钮，在第1个命令按钮“属性”窗口的Caption处输入“查询”，在第2个命令按钮“属性”窗口的Caption处输入“退出”。在“表单设计器”中，双击“查询”命令按钮，在“Command1.Click”编辑窗口中输入下列语句，接着关闭编辑窗口。

ThisForm.Grid1.RecordSource = "SELECT 学号,姓名,年龄,性别,班级,注册日期 FROM 学生表;

WHERE 注册日期 = CTOD(ALLTRIM(ThisForm.Text1.Value)) ORDER BY 年龄 DESC INTO CURSOR lsb"

SELECT 学号,姓名,年龄,性别,班级,注册日期 FROM 学生表;

WHERE 注册日期 = CTOD(ALLTRIM(ThisForm.Text1.Value)) ORDER BY 年龄 DESC INTO table ls

USE TABE

ZAP

APPEND FROM ls

USE

9. 在“表单设计器”中，双击“退出”命令按钮，在“Command2.Click”编辑窗口中输入

“Release Thisform”语句，接着关闭编辑窗口。