一、

　　可以有兩種方法：一是命令方法，二是菜單方法。

　　命令方法：

　　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”，并關閉編輯窗口。

　　2011年計算機等級考試二級VFP復習指導匯總

　　2011年計算機等級考試二級VFP基礎教程匯總