参考答案
基本操作题
【操作步骤】
(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:保存并按要求运行表单。