计算机等级考试二级VF题库75套上机试题(58)
一、 可以有两种方法：一是命令方法，二是菜单方法。命令方法：
OPEN DATABASE rate
ADD TABLE rate_exchange
ADD TABLE currency_sl
菜单方法：
1. 单击“文件\打开”命令项，选择“文件类型”为数据库，打开“rate”。
2. 在“数据库设计器-rate”中单击鼠标右键，显示右击菜单，选择“添加表”命令，并选择相应的表文件即可(rate_exchange和currency_sl)。
1. 打开并修改数据库
MODIFY DATABASE rate
2. 在“数据库设计器-rate”中，选择表“rate_exchange”并单击鼠标右键，选择“修改”命令，在屏幕上显示“表设计器-rate_exchange.dbf”窗口，单击“索引”选项卡，然后输入索引名“外币代码”，选择类型为“主索引”，表达式为“外币代码”，最后单击“确定”按钮。
3. 在“数据库设计器-rate”中，选择表“currency_sl”并单击鼠标右键，选择“修改”命令，在屏幕上显示“表设计器-currency_sl.dbf”窗口，单击“索引”选项卡，然后输入索引名“外币代码”，选择类型为“普通索引”，表达式为“外币代码”，最后单击“确定”按钮。
1. 在“数据库设计器-rate”中，选择表“currency_sl”并单击鼠标右键，选择“修改”命令项。
2. 在“表设计器-currency_sl.dbf”中，选择“持有数量”字段，在“字段有效性”标签的“规则”处输入“持有数量0”，在“信息”处输入“"持有数量不能为0"”，最后单击“确定”按钮即可。
1. 打开并修改表单
MODIFY FORM test_form
2. 单击“登录”按钮，在“属性”对话框中，在Enable处选择“.T.”项。
二、
select 外币名称,持有数量 from currency_sl,rate_exchange ;
where 姓名='林诗因' and currency_sl.外币代码=rate_exchange.外币代码;
order by 持有数量 into dbf rate_temp
1. 单击“工具\向导\报表”菜单项，并显示“向导选取”对话框。
2. 在“向导选取”对话框中，选择“一对多报表向导”并单击“确定”按钮，并显示“一对多报表向导”对话框。
3. 在“一对多报表向导”对话框的“步骤1-从父表选择字段”中，首先要选取表“rate_exchange”，在“可用字段”列表框中显示表rate_exchange的所有字段名，并选定“外币名称”添加到“选定字段”列表框中，单击“下一步”按钮。
4. 在“一对多报表向导”对话框的“步骤2-从子表选择字段”中，选取表“currency_sl”，在“可用字段”列表框中显示表currency_sl的所有字段名，并选定所有的字段添加到“选定字段”列表框中，单击“下一步”按钮。
5. 在“一对多报表向导”对话框的“步骤3-为表建立关系”中，单击“下一步”按钮。
6. 在“一对多报表向导”对话框的“步骤4-排序记录”中，选定“外币代码”字段并选择“降序”单选钮，再单击“添加”按钮，单击“下一步”按钮。
7. 在“一对多报表向导”对话框的“步骤5-选择报表样式”中，在“样式”中选择“经营式”，在“方向”框中，单击“横向”单选钮，再单击“下一步”按钮。
8. 在“一对多报表向导”对话框的“步骤6-完成”中，在“报表标题”文本框中输入“股票持有情况”，单击“完成”。
9. 在“另存为”对话框中，输入保存报表名“currency_report”，再单击“保存”按钮，最后报表就生成了。
三、
1. 在命令窗口中输入建立表单命令
CREATE FORM currency_form
2. 在“表单设计器”中，在“属性”的Caption处输入“外币市值情况”，在Name处输入“currency_form”。
3. 在“表单设计器”中，添加两个文本框，名称分别为Text1和Text2。
4. 在“表单设计器”中，添加两个命令按钮，单击第1个命令按钮在“属性”的Caption处输入“查询”，单击第2个命令按钮在“属性”的Caption处输入“退出”。
5. 双击“查询”命令按钮，在“Command1.Click”编辑窗口中输入命令，接着关闭编辑窗口。
name= alltrim(thisform.text1.value)
open database rate
use currency_sl
locate for 姓名=name
summ=0
do while not eof()
select 现钞买入价 from rate_exchange;
where rate_exchange.外币代码=currency_sl.外币代码;
into array a
summ=summ+a*currency_sl.持有数量
continue
enddo
thisform.text2.value=summ
6. 双击“退出”命令按钮，在“Command2.Click”编辑窗口中输入“Release Thisform”，并关闭编辑窗口。
页:
[1]