一、

　　一、命令方式：启动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处选择“黑体”项。 [NextPage]

　　二、

　　第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”，并关闭编辑窗口。