一、

　　可以有两种方法：一是命令方法，二是菜单方法。

　　命令方法：

　　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[1]*currency_sl.持有数量

　　continue

　　enddo

　　thisform.text2.value=summ

　　6. 双击“退出”命令按钮，在“Command2.Click”编辑窗口中输入“Release Thisform”，并关闭编辑窗口。