打开考生文件夹下的 SDB 数据库, 完成如下综合应用:
创建一个标题名为“查询”、 文件名为 testb 的表单, 如下图所示。
新建表单, 按要求修改表单控件的属性, 完成命令按钮的 Click 事件代码。
【操作步骤】
步骤 1: 打开数据库, 在命令窗口输入“Crea form testb”, 新建一个表单。 按题目要求添加控件并修改各控件的属性, 如下:
表单的 AutoCenter 属性为“. T. _真”。
表单的 Caption 属性为“查询”。
标签的 Caption 属性为“学生注册日期”。
命令按钮 1 的 Caption 属性为“查询”。
命令按钮 2 的 Caption 属性为“退出”。
表格的 RecordSourceType 属性为“4- SQL 说明”。
步骤 2: 为表单添加数据环境“学生表”。
步骤 3: 输入查询按钮的 Click 事件代码。
********"查询"按钮的 Click 事件代码********
CLOSE ALL
SELECT*FROM 学生表;
WHERE 学生表, 注册日期=CTOD( ThisForm.Text1.Value);
ORDER BY 学生表, 年龄 DESC;
INTO TABLE temp.dbf
USE TABE
DELE ALL
PACK
APPEND FROM TEMP
THISFORM.GRIDl.RECORDSOURCE ="SELECT *
FROM 学生表 WHERE 学生表. 注册日期=CTOD(rrhisForm.
Text1.Value) INTO CURSOR XX ORDER BY 学生表. 年龄 DESC"
********************************
步骤 4: 输入退出按钮的 Click 事件代码"ThisForm.Re-lease"。
步骤 5: 保存并按要求运行表单。