参考答案
基本操作题
【操作步骤】
(1)打开考生文件夹下的DB数据库，在数据库设计器中
右键单击TABB表，在弹出的快捷菜单中选择“修改”项，在表设计器窗口中为表添加字段“日期”，类型为日期型。
(2)新建一个程序two，在其中输入
UPDATE tabb SET日期={"2005/10/01}
最后保存并运行程序。
(3)新建一个程序three，在其中输入如下命令。
********”three”程序文件中的代码********SELECT DISTINCT*：
FROM TABA;
INTO TABLE TABC.dbf
******************最后保存并运行程序。
(4)通过报表向导建立报表，在“字段选取”对话框中选中“TABA”表，并将其中的所有字段添加到“选定字段”框中;在“分组依据”对话框中直接单击“下一步”按钮;在“选择报表样式”对话框中选择随意式;在“定义报表布局”对话框中选择“列数”为1，选中“字段布局”列中的“列”，选中“方向”列中的“横向”，然后单击“下一步”按钮;在“排序记录”对话框中选中“升序”，并将“N0”字段添加到选定字段框中;最后定义报表标题为“计算结果一览表”，并保存报表为“P—ONE”。
三、简单应用题
(1)【操作步骤】
新建程序four，并输入以下命令：
*******”four”程序文件中的代码******* CLOS ALL
USE TABA SCAN
IF A<>0 AND B*B一4*A*C>=0
REPL x1 WITH(-B+SQRT(B*B一4*A*C))/(2* A)，x2 WITH(-B-SQRT(B*B一4*A*C))/(2*A)
ELSE
REPL NOTE WITH”无实数解”ENDIF
ENDSCAN****************************最后保存运行程序。(2)
【操作步骤】
步骤1：打开表单“testa”。
步骤2：按Shift的同时选中“查询”和“退出”两个按钮，然后在属性窗口设定它们的Height属性为30，Width属性为B0，在系统菜单中选择“格式”→“对齐”→“顶边对齐”。
步骤3：在“查询”按钮的Click事件中输入下列代码。
*******”three”程序文件中的代码*******
SELECT *; FROM TABA; WHERE TABA.note=”无实数解”;
INTO TABLE TABD.dbf
****************************步骤4：在“退出”命令按钮的Click事件中输入“This.
Form.Release”。保存并运行表单。
四、综合应用题
【解题思路】新建表单，按要求修改表单控件的属性，完成
命令按钮的Click事件代码。
【操作步骤】
步骤1：打开数据库，在命令窗口输入“Crea form testb”，新建一个表单。按题目要求添加控件并修改各控件的属性，如下：
表单的AutoCenter属性为“.T.一真”。
表单的Caption属性为“查询”。
标签的Caption属性为“学生注册日期”。
命令按钮l的Caption属性为“查询”。命令按钮2的Caption属性为“退出”。
表格的ReeordSourceType属性为“4一SQL说明”。
步骤2：为表单添加数据环境“学生表”。
步骤3：输入查询按钮的Click事件代码。
*******”查询”按钮的Click事件代码*******
CLOSE ALL
SELECT*FROM学生表;
WHERE学生表.注册日期=CTOD(ThisForm.Textl.Val.
ue);
ORDER BY学生表.年龄DESC;
INTO TABLE temp.dbf
USE TABE DELE ALL PACK
APPEND FROM TEMP
THISFORM.GRIDl.RECORDSOURCE=”SELECT * FROM学生表WHERE学生表.注册l3期=CTOD(ThisForm. Text1.Value)INTO CURSOR XX ORDER BY学生表.年龄DE. SC”
*********************步骤4：输入退出按钮的Click事件代码“ThisForm.Re-lease”。
步骤5：保存并按要求运行表单。
