2011年计算机二级VFP上机考试冲刺模拟试题(10)
第10套 一、ALTER TABLE TABB ADD COLUMN 日期 D
在文件two.prg中存放:
UPDATE TABB SET 日期 = {^2005.10.01}
在文件three.prg中存放:
SELECT DISTINCT * FROM TABA INTO TABLE TABC
1. 单击“工具\向导\报表”菜单项,并显示“向导选取”对话框。
2. 在“向导选取”对话框中,选择“报表向导”并单击“确定”按钮,并显示“报表向导”对话框。
3. 在“报表向导”对话框的“步骤1-字段选取”中,首先要选取表“taba”,在“数据库和表”列表框中,选择表“taba”,接着在“可用字段”列表框中显示表taba的所有字段名,并选定所有字段名至“选定字段”列表框中,单击“下一步”按钮。
4. 在“报表向导”对话框的“步骤2-分组记录”中,单击“下一步”按钮。
5. 在“报表向导”对话框的“步骤3-选择报表样式”中,在“样式”中选择“随意式”,单击“下一步”按钮。
6. 在“报表向导”对话框的“步骤4-定义报表布局”中,在“列数”处选择为“1”,在“方向”处选择“横向”,在“字段布局”处选择“列”,单击“下一步”按钮。
7. 在“报表向导”对话框的“步骤5-排序次序”中,选定“No”字段并选择“升序”,再单击“添加”按钮,单击“完成”按钮。
8. 在“报表向导”对话框的“步骤6-完成”中,在“报表标题”文本框中输入“计算结果一览表”,单击“完成”。
9. 在“另存为”对话框中,输入保存报表名“p_one”,再单击“保存”按钮,最后报表就生成了。
二、
在文件four.prg中存放:
USE TABA
SCAN
X = B**2 - 4*A*C
IF X >= 0
XX1 = (-B + SQRT(X))/(2*A)
XX2 = (-B - SQRT(X))/(2*A)
REPLACE x1 with xx1,x2 with xx2
ELSE
REPLACE x1 with .null.,x2 with .null.,NOTE WITH "无实数解"
ENDIF
ENDSCAN
1. 打开并修改表单
MODIFY FORM testA
2. 先按住Shift键,同时选中“查询”和“退出”两个按钮,在其“属性”的Width处输入“80”,在Height处输入“30”,在Top处输入某一个数即可。
3. 双击“查询”按钮,在Command1.Click编辑窗口中输入“SELECT * FROM TABA WHERE note = "无实数解" into table TABD”语句,并关闭编辑窗口。
4. 双击“退出”按钮,在Command2.Click编辑窗口中输入“RELEASE THISFORM”语句,并关闭编辑窗口。
2011年计算机二级VFP上机考试冲刺模拟试题(10)
</p> 三、1. 新建表单
CREATE FORM testb
2. 在“表单设计器”中,在“属性”的Caption处输入“查询”,在AutoCenter处选择“.T. - 真”。
3. 单击“显示\数据环境”菜单项,在“打开”对话框中双击表“学生表”,再单击“关闭”来关闭“添加表或视图”对话框。
4. 在“表单设计器-testb.scx”中,添加一个标签Label1,在其“属性”的Caption处输入“学生注册日期”。
5. 在“表单设计器-testb.scx”中,添加一个文本框Text1。
6. 在“表单设计器-testb.scx”中,添加一个表格Grid1,在其“属性”的RecordSourceType处选择“4 - SQL 说明”。
7. 在“表单设计器-testb.scx”中,添加两个命令按钮,在第1个命令按钮“属性”窗口的Caption处输入“查询”,在第2个命令按钮“属性”窗口的Caption处输入“退出”。
8. 在“表单设计器”中,双击“查询”命令按钮,在“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”语句,接着关闭编辑窗口。
页:
[1]