计算机等级考试二级VisualFoxPro上机试题及解题思路第二套题30
计算机等级考试二级VisualFoxPro上机试题及解题思路第二套题30 #
第一考试网整理了计算机等级考试二级VisualFoxPro上机试题及解题思路第二套题
#
二、简单应用(2小题,每题20分,计40分) #
在考生文件夹下完成如下简单应用:
#
1. 编写程序three.prg完成下列操作:根据"外汇汇率"表中的数据产生rate #
表中的数据。
#
要求:将所有"外汇汇率"表中的数据插入rate表中并且顺序不变,由于
"外汇汇率"中的币种1和币种2存放的是外币名称,而rate表中的币种1代码和币种
#
2代码应该存放外币代码,所以插入时要做相应的改动,外币名称与外币代码的对
应关系存储在"外汇代码"表中。
#
注意:程序必须执行一次,保证rate表中有正确的结果。
2. 使用查询设计器建立一个查询文件four.qpr。查询要求:外汇帐户中有
多少日元和欧元。查询结果包括了外币名称、钞汇标志、金额,结果按外币名 #
称升序排序,在外币名称相同的情况下按金额降序排序,并将查询结果存储于 #
表five.dbf 中。 #
第1题:本题的考查点是利用SQL_SELECT语句建立查询程序。第一步:在Visual FoxPro主窗口中按下组合键Ctrl+N,系统弹出"新建"对话框,在文件类型中选择"程序",点击"新建文件"按钮;
#
第二步:在弹出的代码编辑器窗口中输入以下代码: #
SELECT 外汇代码.外币代码 AS 币种1代码,;
外汇代码_a.外币代码 AS 币种2代码, 外汇汇率.买入价, 外汇汇率.卖出价; #
FROM 外汇!外汇代码 INNER JOIN 外汇!外汇汇率;
INNER JOIN 外汇!外汇代码外汇代码_a ; #
ON 外汇汇率.币种2 = 外汇代码_a.外币名称 ;
ON 外汇代码.外币名称 = 外汇汇率.币种1;
#
INTO TABLE rate.dbf #
第2题:本题的考查点是利用查询设计器建立查询。 #
建立查询可以使用"文件"菜单完成,选择文件--新建--查询--新建文件,将"外汇代码"和"外汇账户"表加入查询中,从字段中选择字段外汇代码.外币名称、外汇账户.钞汇标志和外汇账户.金额;切换到筛选中输入条件:
#
外币代码外币名称 = "日元" OR #
外币代码外币名称 = "欧元";
#
切换到"排序依据"中选择"外汇代码.外币名称"字段按升序排序和"外汇账户.金额"字段按降序排序。单击查询菜单下的查询去向,选择表,输入表名five.dbf,最后运行该查询。 #
三、综合应用(1小题,计30分)
设计一个文件名和表单名均为myaccount的表单。表单的标题为 #
"外汇持有情况"。表单中有一个选项按钮组控件(myOption)、一个表格控件
#
(Grid1)以及两个命令按钮"查询"(Command1)和"退出"(Command2)。其中,选项 #
按钮组控件有两个按钮"现汇"(Option1)、"现钞"(Option2)。 #
运行表单时,首先在选项组控件中选择"现钞"或"现汇",单击"查询"命令
按钮后,根据选项组控件的选择将"外汇账户"表的"现钞"或"现汇"(根据钞汇标 #
志字段确定)的情况显示在表格控件中。
#
单击"退出"按钮,关闭并释放表单。 #
注:在表单设计器中将表格控件Grid1的数据源类型设置为"SQL说明"。
本题主要考核点 #
控件的属性的修改、SQL语句运用、表单的退出等知识点 #
本题解题思路:
第一步:在Visual FoxPro主窗口中按下组合键Ctrl+N,系统弹出"新建"对话框,在文件类型中选择"表单",点击"新建文件"按钮(系统将打开表单设计器);或直接在命令窗口中输入 crea form myrate。
第二步:点击工具栏按钮"表单控件工具栏",在弹出的"表单控件"对话框中,选中"选项组"控件,在表单设计器中拖动鼠标,这样在表单上得到一个"选项组"控件optiongroup1,用类似的方法为表单再加入两个"命令按钮"控件command1和command2。 #
相关控件的属性值如下: #
对象 属性 属性值
Form1 Caption 外汇持有情况 #
选项组 Name myOption #
ButtonCount 2
MyOption.option1 Caption 现汇 #
MyOption.option2 Caption 现钞 #
Command1 Caption 查询 #
Command2 Caption 退出 #
***********命令按钮command1(查询)的Click事件代码如下************
DO CASE #
CASE THISFORM.myOption.VALUE=1
#
THISFORM.GRID1.RECORDSOURCE="SELECT 外币代码, 金额;
#
FROM 外汇账户; #
WHERE 钞汇标志 = [现汇]; #
INTO CURSOR TEMP"
#
CASE THISFORM.myOption.VALUE=2
THISFORM.GRID1.RECORDSOURCE="SELECT 外币代码, 金额; #
FROM 外汇账户;
#
WHERE 钞汇标志 = [现钞]; #
INTO CURSOR TEMP"
#
ENDCASE #
***********命令按钮command2(退出)的Click事件代码如下************
#
thisform.release #