计算机等级考试二级VF题库75套上机试题(58)

会计考友

一、　　可以有两种方法：一是命令方法，二是菜单方法。
- J" r' M  u, {4 ]+ x, y　　命令方法：
　　OPEN DATABASE rate
　　ADD TABLE rate_exchange
4 f" E; u% z/ q" f8 t* B! l　　ADD TABLE currency_sl
$ M6 P) b  x' y' n4 o　　菜单方法：
" H; ]3 e5 D: D　　1. 单击“文件\打开”命令项，选择“文件类型”为数据库，打开“rate”。
　　2. 在“数据库设计器-rate”中单击鼠标右键，显示右击菜单，选择“添加表”命令，并选择相应的表文件即可(rate_exchange和currency_sl)。
, f+ [6 |/ m' r; x' A　　1. 打开并修改数据库
& Y: j! d/ X% t8 W5 ]6 _# K! r) `　　MODIFY DATABASE rate
9 T1 H: O5 U" L/ A* i　　2. 在“数据库设计器-rate”中，选择表“rate_exchange”并单击鼠标右键，选择“修改”命令，在屏幕上显示“表设计器-rate_exchange.dbf”窗口，单击“索引”选项卡，然后输入索引名“外币代码”，选择类型为“主索引”，表达式为“外币代码”，最后单击“确定”按钮。
. |5 S; B8 c% @& z　　3. 在“数据库设计器-rate”中，选择表“currency_sl”并单击鼠标右键，选择“修改”命令，在屏幕上显示“表设计器-currency_sl.dbf”窗口，单击“索引”选项卡，然后输入索引名“外币代码”，选择类型为“普通索引”，表达式为“外币代码”，最后单击“确定”按钮。
. H8 ]) F! |7 l! l　　1. 在“数据库设计器-rate”中，选择表“currency_sl”并单击鼠标右键，选择“修改”命令项。
　　2. 在“表设计器-currency_sl.dbf”中，选择“持有数量”字段，在“字段有效性”标签的“规则”处输入“持有数量0”，在“信息”处输入“"持有数量不能为0"”，最后单击“确定”按钮即可。
　　1. 打开并修改表单
　　MODIFY FORM test_form
& y; x" H. ^6 m# ?; o8 j. U/ l　　2. 单击“登录”按钮，在“属性”对话框中，在Enable处选择“.T.”项。
9 ?& I. R( r# ?7 U2 D  X: V! S1 _$ F　　二、
　　select 外币名称,持有数量 from currency_sl,rate_exchange ;
　　where 姓名='林诗因' and currency_sl.外币代码=rate_exchange.外币代码;
- V  L/ p* N5 F6 d　　order by 持有数量 into dbf rate_temp
$ y5 ?2 \( o. L　　1. 单击“工具\向导\报表”菜单项，并显示“向导选取”对话框。
9 G5 r1 `+ D! [8 z0 I9 H  \　　2. 在“向导选取”对话框中，选择“一对多报表向导”并单击“确定”按钮，并显示“一对多报表向导”对话框。
% K) b) _. E3 h3 @# y　　3. 在“一对多报表向导”对话框的“步骤1-从父表选择字段”中，首先要选取表“rate_exchange”，在“可用字段”列表框中显示表rate_exchange的所有字段名，并选定“外币名称”添加到“选定字段”列表框中，单击“下一步”按钮。
- x) [; m7 Q) l; r- R8 d; G1 A) k　　4. 在“一对多报表向导”对话框的“步骤2-从子表选择字段”中，选取表“currency_sl”，在“可用字段”列表框中显示表currency_sl的所有字段名，并选定所有的字段添加到“选定字段”列表框中，单击“下一步”按钮。
　　5. 在“一对多报表向导”对话框的“步骤3-为表建立关系”中，单击“下一步”按钮。
　　6. 在“一对多报表向导”对话框的“步骤4-排序记录”中，选定“外币代码”字段并选择“降序”单选钮，再单击“添加”按钮，单击“下一步”按钮。
9 d6 c8 q' W' q, B5 H: I% U　　7. 在“一对多报表向导”对话框的“步骤5-选择报表样式”中，在“样式”中选择“经营式”，在“方向”框中，单击“横向”单选钮，再单击“下一步”按钮。
　　8. 在“一对多报表向导”对话框的“步骤6-完成”中，在“报表标题”文本框中输入“股票持有情况”，单击“完成”。
　　9. 在“另存为”对话框中，输入保存报表名“currency_report”，再单击“保存”按钮，最后报表就生成了。
- d7 O' N' \' `1 v　　三、
　　1. 在命令窗口中输入建立表单命令
　　CREATE FORM currency_form
& |1 g1 S7 A$ ^" N* m* t" B　　2. 在“表单设计器”中，在“属性”的Caption处输入“外币市值情况”，在Name处输入“currency_form”。
) `: G$ c( I1 L　　3. 在“表单设计器”中，添加两个文本框，名称分别为Text1和Text2。
8 Z9 V! `7 Z" Z　　4. 在“表单设计器”中，添加两个命令按钮，单击第1个命令按钮在“属性”的Caption处输入“查询”，单击第2个命令按钮在“属性”的Caption处输入“退出”。
/ h7 n1 d+ y/ P& X　　5. 双击“查询”命令按钮，在“Command1.Click”编辑窗口中输入命令，接着关闭编辑窗口。
　　name= alltrim(thisform.text1.value)
　　open database rate
1 p1 |& S  @' [  j7 E% N　　use currency_sl
6 j, h4 u1 B7 J  j　　locate for 姓名=name
　　summ=0
　　do while not eof()
　　select 现钞买入价 from rate_exchange;
6 k/ m3 N# r: A! x+ N3 i　　where rate_exchange.外币代码=currency_sl.外币代码;
+ e( V- G( s0 y　　into array a
　　summ=summ+a[1]*currency_sl.持有数量
$ U8 W$ h, y  z. t/ T　　continue
! T: c2 Q: o' `; n& m/ i2 \　　enddo
- Z8 r8 \5 d' P3 b　　thisform.text2.value=summ
　　6. 双击“退出”命令按钮，在“Command2.Click”编辑窗口中输入“Release Thisform”，并关闭编辑窗口。