一、
一、命令方式：启动Visual Foxpro系统后，在命令窗口中输入
CREATE DATABASE 外汇数据 保留字可以取前四个字母
不出现“数据库设计器”对话框
二、可以使用菜单方式进行建立
1. 单击“文件\新建”命令项，弹出“新建”对话框。
2. 在“新建”对话框中，选择“数据库”单选钮，再按“新建文件”按钮，弹出“创建”对话框。
3. 在“创建”对话框中输入数据库名“外汇数据”，再按回车键或按“保存”按钮，这样就可以建立数据库了，并出现“数据库设计器”对话框。
可以有两种方法：一是命令方法，二是菜单方法。
命令方法：
OPEN DATABASE 外汇数据
ADD TABLE rate_exchange
ADD TABLE currency_sl
菜单方法：
1. 单击“文件\打开”命令项，选择“文件类型”为数据库，打开“外汇管理”。
2. 在“数据库设计器-外汇数据”中单击鼠标右键，显示右击菜单，选择“添加表”命令，并选择相应的表文件即可(rate_exchange和currency_sl)。
1. 打开并修改数据库
MODIFY DATABASE 外汇数据
2. 在“数据库设计器-外汇数据”中，选择表“rate_exchange”并单击鼠标右键，选择“修改”命令，在屏幕上显示“表设计器-rate_exchange.dbf”窗口，单击“索引”选项卡，然后输入索引名“外币代码”，选择类型为“主索引”，表达式为“外币代码”，最后单击“确定”按钮。
3. 在“数据库设计器-外汇数据”中，选择表“currency_sl”并单击鼠标右键，选择“修改”命令，在屏幕上显示“表设计器-currency_sl.dbf”窗口，单击“索引”选项卡，然后输入索引名“外币代码”，选择类型为“普通索引”，表达式为“外币代码”，最后单击“确定”按钮。
4. 在“数据库设计器-外汇数据”中，选择“rate_exchange”表中主索引键“外币代码”并按住不放，然后移动鼠标拖到“currency_sl”表中的索引键为“外币代码”处，松开鼠标即可。
1. 打开并修改表单
MODIFY FORM test_form
2. 单击“用户名”标签，并右击鼠标，在弹出菜单中“属性”菜单项，在“属性”对话框中，在FontName处选择“黑体”项。
3. 单击“口令”标签，并右击鼠标，在弹出菜单中“属性”菜单项，在“属性”对话框中，在FontName处选择“黑体”项。
二、
第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”，并关闭编辑窗口。