二、
第1处 查找姓名,所以应改为:locate for 姓名="林诗因"
第2处 判断记录是否到底,应改为:DO WHILE NOT EOF()
第3处 累计人民币价值数量,所以应改为:summ=summ+a[1] * 持有数量
1. 单击“文件/新建”命令项。
2. 在“新建”对话框中选择“菜单”单选钮,再按“新建文件”按钮。
3. 在“新建菜单”对话框中选择“菜单”按钮,在菜单设计器中的“菜单名称”中输入“查询”和“退出”,然后“查询”菜单的“结果”中选择“子菜单”,单击“创建”按钮,在“菜单设计器”中,输入三个子菜单项“日元”、“欧元”和“美元”。
4. 在“退出”子菜单的“结果”选择“命令”并输入命令“set sysmenu to default”。
5. 单击工具栏上“保存”按钮,在弹出“保存”对话框中输入“menu_rate”即可。
6. 在“菜单设计器”下,单击“菜单”菜单栏,选择“生成”菜单项,生成“menu_rate.mpr”文件。
三、
1. 在命令窗口中输入建立表单命令
CREATE FORM myrate
2. 在“表单设计器”中,在“属性”的Caption处输入“外汇持有情况”,在Name处输入“myrate”。
3. 在“表单控件”对话框中选定“选项按钮组”控件,在“表单设计器”中建立这个选项组,在选项组“属性”的ButtonCount中输入“3”,在Name处输入“myOption”。
4. 选中这个选项组并单击鼠标右键,在弹出菜单中选择“编辑”菜单项,再单击“Option1”,在其“属性”的Caption处输入“日元”;单击“Option2”,在其“属性”的Caption处输入“美元”;单击“Option3”,在其“属性”的Caption处输入“欧元”。
5. 在“表单设计器”中添加两个命令按钮,在第1个命令按钮“属性”的Caption处输入“统计”,在第2个命令按钮“属性”的Caption处输入“退出”。
6. 双击“统计”按钮,在“Command1.Click”编辑窗口中编写相应的程序
if thisform.myOption.value=1
select 姓名,持有数量 from currency_sl where currency_sl.外币代码="27" into dbf rate_ry
else
if thisform.myOption.value=2
select 姓名,持有数量 from currency_sl where currency_sl.外币代码="14" into dbf rate_my
else
select 姓名,持有数量 from currency_sl where currency_sl.外币代码="38" into dbf rate_oy
endif
endif
7. 双击“退出”命令按钮,在“Command2.Click”编辑窗口中输入“Release Thisform”,并关闭编辑窗口。
① 凡本网注明稿件来源为"原创"的所有文字、图片和音视频稿件,版权均属本网所有。任何媒体、网站或个人转载、链接转贴或以其他方式复制发表时必须注明"稿件来源:我考网",违者本网将依法追究责任;
② 本网部分稿件来源于网络,任何单位或个人认为我考网发布的内容可能涉嫌侵犯其合法权益,应该及时向我考网书面反馈,并提供身份证明、权属证明及详细侵权情况证明,我考网在收到上述法律文件后,将会尽快移除被控侵权内容。