第三十二套
一、基本操作題（共4小題，第1和2題是7分、第3和4題是8分）
在考生文件夾下完成如下操作:
1. 新建一個(gè)名稱為"外匯數(shù)據(jù)"的數(shù)據(jù)庫(kù)。
2. 將自由表rate_exchange和currency_sl添加到數(shù)據(jù)庫(kù)中。
3. 通過(guò)"外幣代碼"字段為rate_exchange 和currency_sl 建立永久聯(lián)系（如果
必要請(qǐng)建立相關(guān)索引）。
4. 打開表單文件test_form，該表單的界面如下圖所示，請(qǐng)將標(biāo)簽"用戶名"和
"口令"的字體都改為"黑體"。
本題主要考核點(diǎn)：
數(shù)據(jù)庫(kù)的建立、將自由表添加到數(shù)據(jù)庫(kù)中、表索引的建立、表之間的永久聯(lián)系的建立等知識(shí)點(diǎn)
本題解題思路：
第一步：在Visual FoxPro主窗口中按下組合鍵Ctrl+N，系統(tǒng)彈出"新建"對(duì)話框，在文件類型中選擇"數(shù)據(jù)庫(kù)"，點(diǎn)擊"新建文件"按鈕，在彈出的對(duì)話框的"數(shù)據(jù)庫(kù)名"處輸入"外匯數(shù)據(jù)"，單擊保存按鈕。
第二步：打開考生文件夾下的"外匯數(shù)據(jù)"數(shù)據(jù)庫(kù)。
第三步：打開數(shù)據(jù)庫(kù)菜單選擇"添加表(A)"，在彈出的"打開"對(duì)話框中，選定考生文件夾下的 rate_exchange表，再點(diǎn)擊"確定"即可,這樣表rate_exchange就添加到了"外匯數(shù)據(jù)"數(shù)據(jù)庫(kù)中，用同樣的方法，將 currency_sl表也添加到"外匯數(shù)據(jù)"數(shù)據(jù)庫(kù)中。
第四步：在數(shù)據(jù)庫(kù)設(shè)計(jì)器中選中表rate_exchange，在主菜單中選擇"修改(Y)"，彈出表設(shè)計(jì)器，選擇表設(shè)計(jì)器"索引"標(biāo)簽，在索引名列中填入"外幣代碼",在索引類型列中選擇"主索引"，在索引表達(dá)式列中填入"外幣代碼"，點(diǎn)擊"確定"按鈕，保存表結(jié)構(gòu)，用類似的方法，為currency_sl表建立普通索引。
第五步：在數(shù)據(jù)庫(kù)設(shè)計(jì)器中，選中rate_exchange表中的索引"外幣代碼"并拖動(dòng)到表currency_sl的"外幣代碼"的索引上并松開，這樣兩個(gè)表之間就建立起了永久聯(lián)系。
第六步：打開考生文件夾下的"test_form"表單，按CTRL鍵選中標(biāo)簽"用戶名"和"口令"后，按鼠標(biāo)右鍵，選擇"屬性(P)"，在彈出的"屬性"對(duì)話框中將標(biāo)簽"用戶名"和"口令"的"FontName"值置為"黑體"，保存表單即可。
二、簡(jiǎn)單應(yīng)用（2小題，每題20分，計(jì)40分）
在考生文件夾下完成如下簡(jiǎn)單應(yīng)用:
1. rate_pro.prg中的程序功能是計(jì)算出"林詩(shī)因"所持有的全部外幣相當(dāng)于
人民幣的價(jià)值數(shù)量，summ中存放的是結(jié)果。注意:某種外幣相當(dāng)于人民幣數(shù)量的
計(jì)算公式：人民幣價(jià)值數(shù)量= 該種外幣的"現(xiàn)鈔買入價(jià)"* 該種外幣"持有數(shù)量"。
請(qǐng)?jiān)谥付ㄎ恢眯薷某绦虻恼Z(yǔ)句，不得增加或刪除程序行，請(qǐng)保存所做的修改。
2. 建立一個(gè)名為menu_rate的菜單，菜單中有兩個(gè)菜單項(xiàng)"查詢"和"退出"。
"查詢"項(xiàng)下中還有一個(gè)子菜單，子菜單有"日元"、"歐元"、"美元"三個(gè)選項(xiàng)。
在"退出"菜單項(xiàng)下創(chuàng)建過(guò)程，該過(guò)程負(fù)責(zé)返回系統(tǒng)菜單。
本題主要考核點(diǎn)：
文件菜單建立等知識(shí)點(diǎn)
本題解題思路
第1題：本題是一個(gè)程序修改題，題中的第一個(gè)錯(cuò)誤是find for 姓名="林詩(shī)因"，應(yīng)改為loca for 姓名="林詩(shī)因"；第二個(gè)錯(cuò)誤while not eof()，應(yīng)改為do while not eof()；第三個(gè)錯(cuò)誤是"summ=summ+a[1]*rate_exchange.持有數(shù)量"，應(yīng)改為summ=summ+a[1] *currency_sl.持有數(shù)量。
第2題，本題的主要考核點(diǎn)是菜單的建立。新建菜單可按下列步驟：選擇"文件"菜單中的"新建"命令，在"新建"對(duì)話框中選擇"菜單"，單擊"新建文件"按鈕。在"新建菜單"對(duì)話框中選擇"菜單"按鈕，調(diào)出"菜單設(shè)計(jì)器"。也可用CREATE MENU命令直接調(diào)出菜單設(shè)計(jì)器。在菜單名稱中填入"查詢"、"退出"，"查詢"結(jié)果為子菜單，單擊編輯；在子菜單的菜單名稱中輸入"日元"、"歐元"、 "美元"，"退出"結(jié)果為過(guò)程"SET SYSMENU TO DEFAULT"。
三、綜合應(yīng)用（1小題，計(jì)30分）
設(shè)計(jì)一個(gè)文件名和表單名均為myrate的表單，所有控件的屬性必須在表單設(shè)
計(jì)器的屬性窗口中設(shè)置。表單的標(biāo)題為"外匯持有情況"。表單中有一個(gè)選項(xiàng)組控
件(命名為myOption)和兩個(gè)命令按鈕"統(tǒng)計(jì)"(command1)和"退出"(command2)。其
中，選項(xiàng)組控件有三個(gè)按鈕"日元"、"美元"和"歐元"。
運(yùn)行表單時(shí),首先在選項(xiàng)組控件中選擇"日元"、"美元"或"歐元",單擊"統(tǒng)計(jì)"
命令按鈕后，根據(jù)選項(xiàng)組控件的選擇將持有相應(yīng)外幣的人的姓名和持有數(shù)量分別
存入rate_ry.dbf（日元）或rate_my.dbf（美元）或rate_oy（歐元）中。
單擊"退出"按鈕時(shí)關(guān)閉表單。
表單建成后，要求運(yùn)行表單，并分別統(tǒng)計(jì)"日元"、"美元"和"歐元"的持有數(shù)
量。
本題主要考核點(diǎn)
控件的屬性的修改、SQL語(yǔ)句運(yùn)用、表單的退出等知識(shí)點(diǎn)
本題解題思路：
第一步：在Visual FoxPro主窗口中按下組合鍵Ctrl+N，系統(tǒng)彈出"新建"對(duì)話框，在文件類型中選擇"表單"，點(diǎn)擊"新建文件"按鈕（系統(tǒng)將打開表單設(shè)計(jì)器）；或直接在命令窗口中輸入 crea form myrate。
第二步：點(diǎn)擊工具欄按鈕"表單控件工具欄"，在彈出的"表單控件"對(duì)話框中，選中"選項(xiàng)組"控件，在表單設(shè)計(jì)器中拖動(dòng)鼠標(biāo)，這樣在表單上得到一個(gè)"選項(xiàng)組"控件optiongroup1，用類似的方法為表單再加入兩個(gè)"命令按鈕"控件command1和command2。
相關(guān)控件的屬性值如下：
對(duì)象 屬性 屬性值
Form1 Caption 外匯持有情況
選項(xiàng)組 Name myOption
ButtonCount 3
MyOption.option1 Caption 日元
MyOption.option2 Caption 美元
MyOption.option3 Caption 歐元
Command1 Caption 統(tǒng)計(jì)
Command2 Caption 退出
***********命令按鈕command1(統(tǒng)計(jì))的Click事件代碼如下************
DO CASE
CASE thisform.myOption.option1.value=1
SELECT Currency_sl.姓名, Currency_sl.持有數(shù)量;
FROM 外匯數(shù)據(jù)!rate_exchange INNER JOIN 外匯數(shù)據(jù)!Currency_sl ;
ON rate_exchange.外幣代碼 = Currency_sl.外幣代碼;
WHERE rate_exchange.外幣名稱 = "日元";
INTO TABLE rate_ry.DBF
CASE thisform.myOption.option2.value=1
SELECT Currency_sl.姓名, Currency_sl.持有數(shù)量;
FROM 外匯數(shù)據(jù)!rate_exchange INNER JOIN 外匯數(shù)據(jù)!Currency_sl ;
ON rate_exchange.外幣代碼 = Currency_sl.外幣代碼;
WHERE rate_exchange.外幣名稱 = "美元";
INTO TABLE rate_my.DBF
CASE thisform.myOption.option3.value=1
SELECT Currency_sl.姓名, Currency_sl.持有數(shù)量;
一、基本操作題（共4小題，第1和2題是7分、第3和4題是8分）
在考生文件夾下完成如下操作:
1. 新建一個(gè)名稱為"外匯數(shù)據(jù)"的數(shù)據(jù)庫(kù)。
2. 將自由表rate_exchange和currency_sl添加到數(shù)據(jù)庫(kù)中。
3. 通過(guò)"外幣代碼"字段為rate_exchange 和currency_sl 建立永久聯(lián)系（如果
必要請(qǐng)建立相關(guān)索引）。
4. 打開表單文件test_form，該表單的界面如下圖所示，請(qǐng)將標(biāo)簽"用戶名"和
"口令"的字體都改為"黑體"。
本題主要考核點(diǎn)：
數(shù)據(jù)庫(kù)的建立、將自由表添加到數(shù)據(jù)庫(kù)中、表索引的建立、表之間的永久聯(lián)系的建立等知識(shí)點(diǎn)
本題解題思路：
第一步：在Visual FoxPro主窗口中按下組合鍵Ctrl+N，系統(tǒng)彈出"新建"對(duì)話框，在文件類型中選擇"數(shù)據(jù)庫(kù)"，點(diǎn)擊"新建文件"按鈕，在彈出的對(duì)話框的"數(shù)據(jù)庫(kù)名"處輸入"外匯數(shù)據(jù)"，單擊保存按鈕。
第二步：打開考生文件夾下的"外匯數(shù)據(jù)"數(shù)據(jù)庫(kù)。
第三步：打開數(shù)據(jù)庫(kù)菜單選擇"添加表(A)"，在彈出的"打開"對(duì)話框中，選定考生文件夾下的 rate_exchange表，再點(diǎn)擊"確定"即可,這樣表rate_exchange就添加到了"外匯數(shù)據(jù)"數(shù)據(jù)庫(kù)中，用同樣的方法，將 currency_sl表也添加到"外匯數(shù)據(jù)"數(shù)據(jù)庫(kù)中。
第四步：在數(shù)據(jù)庫(kù)設(shè)計(jì)器中選中表rate_exchange，在主菜單中選擇"修改(Y)"，彈出表設(shè)計(jì)器，選擇表設(shè)計(jì)器"索引"標(biāo)簽，在索引名列中填入"外幣代碼",在索引類型列中選擇"主索引"，在索引表達(dá)式列中填入"外幣代碼"，點(diǎn)擊"確定"按鈕，保存表結(jié)構(gòu)，用類似的方法，為currency_sl表建立普通索引。
第五步：在數(shù)據(jù)庫(kù)設(shè)計(jì)器中，選中rate_exchange表中的索引"外幣代碼"并拖動(dòng)到表currency_sl的"外幣代碼"的索引上并松開，這樣兩個(gè)表之間就建立起了永久聯(lián)系。
第六步：打開考生文件夾下的"test_form"表單，按CTRL鍵選中標(biāo)簽"用戶名"和"口令"后，按鼠標(biāo)右鍵，選擇"屬性(P)"，在彈出的"屬性"對(duì)話框中將標(biāo)簽"用戶名"和"口令"的"FontName"值置為"黑體"，保存表單即可。
二、簡(jiǎn)單應(yīng)用（2小題，每題20分，計(jì)40分）
在考生文件夾下完成如下簡(jiǎn)單應(yīng)用:
1. rate_pro.prg中的程序功能是計(jì)算出"林詩(shī)因"所持有的全部外幣相當(dāng)于
人民幣的價(jià)值數(shù)量，summ中存放的是結(jié)果。注意:某種外幣相當(dāng)于人民幣數(shù)量的
計(jì)算公式：人民幣價(jià)值數(shù)量= 該種外幣的"現(xiàn)鈔買入價(jià)"* 該種外幣"持有數(shù)量"。
請(qǐng)?jiān)谥付ㄎ恢眯薷某绦虻恼Z(yǔ)句，不得增加或刪除程序行，請(qǐng)保存所做的修改。
2. 建立一個(gè)名為menu_rate的菜單，菜單中有兩個(gè)菜單項(xiàng)"查詢"和"退出"。
"查詢"項(xiàng)下中還有一個(gè)子菜單，子菜單有"日元"、"歐元"、"美元"三個(gè)選項(xiàng)。
在"退出"菜單項(xiàng)下創(chuàng)建過(guò)程，該過(guò)程負(fù)責(zé)返回系統(tǒng)菜單。
本題主要考核點(diǎn)：
文件菜單建立等知識(shí)點(diǎn)
本題解題思路
第1題：本題是一個(gè)程序修改題，題中的第一個(gè)錯(cuò)誤是find for 姓名="林詩(shī)因"，應(yīng)改為loca for 姓名="林詩(shī)因"；第二個(gè)錯(cuò)誤while not eof()，應(yīng)改為do while not eof()；第三個(gè)錯(cuò)誤是"summ=summ+a[1]*rate_exchange.持有數(shù)量"，應(yīng)改為summ=summ+a[1] *currency_sl.持有數(shù)量。
第2題，本題的主要考核點(diǎn)是菜單的建立。新建菜單可按下列步驟：選擇"文件"菜單中的"新建"命令，在"新建"對(duì)話框中選擇"菜單"，單擊"新建文件"按鈕。在"新建菜單"對(duì)話框中選擇"菜單"按鈕，調(diào)出"菜單設(shè)計(jì)器"。也可用CREATE MENU命令直接調(diào)出菜單設(shè)計(jì)器。在菜單名稱中填入"查詢"、"退出"，"查詢"結(jié)果為子菜單，單擊編輯；在子菜單的菜單名稱中輸入"日元"、"歐元"、 "美元"，"退出"結(jié)果為過(guò)程"SET SYSMENU TO DEFAULT"。
三、綜合應(yīng)用（1小題，計(jì)30分）
設(shè)計(jì)一個(gè)文件名和表單名均為myrate的表單，所有控件的屬性必須在表單設(shè)
計(jì)器的屬性窗口中設(shè)置。表單的標(biāo)題為"外匯持有情況"。表單中有一個(gè)選項(xiàng)組控
件(命名為myOption)和兩個(gè)命令按鈕"統(tǒng)計(jì)"(command1)和"退出"(command2)。其
中，選項(xiàng)組控件有三個(gè)按鈕"日元"、"美元"和"歐元"。
運(yùn)行表單時(shí),首先在選項(xiàng)組控件中選擇"日元"、"美元"或"歐元",單擊"統(tǒng)計(jì)"
命令按鈕后，根據(jù)選項(xiàng)組控件的選擇將持有相應(yīng)外幣的人的姓名和持有數(shù)量分別
存入rate_ry.dbf（日元）或rate_my.dbf（美元）或rate_oy（歐元）中。
單擊"退出"按鈕時(shí)關(guān)閉表單。
表單建成后，要求運(yùn)行表單，并分別統(tǒng)計(jì)"日元"、"美元"和"歐元"的持有數(shù)
量。
本題主要考核點(diǎn)
控件的屬性的修改、SQL語(yǔ)句運(yùn)用、表單的退出等知識(shí)點(diǎn)
本題解題思路：
第一步：在Visual FoxPro主窗口中按下組合鍵Ctrl+N，系統(tǒng)彈出"新建"對(duì)話框，在文件類型中選擇"表單"，點(diǎn)擊"新建文件"按鈕（系統(tǒng)將打開表單設(shè)計(jì)器）；或直接在命令窗口中輸入 crea form myrate。
第二步：點(diǎn)擊工具欄按鈕"表單控件工具欄"，在彈出的"表單控件"對(duì)話框中，選中"選項(xiàng)組"控件，在表單設(shè)計(jì)器中拖動(dòng)鼠標(biāo)，這樣在表單上得到一個(gè)"選項(xiàng)組"控件optiongroup1，用類似的方法為表單再加入兩個(gè)"命令按鈕"控件command1和command2。
相關(guān)控件的屬性值如下：
對(duì)象 屬性 屬性值
Form1 Caption 外匯持有情況
選項(xiàng)組 Name myOption
ButtonCount 3
MyOption.option1 Caption 日元
MyOption.option2 Caption 美元
MyOption.option3 Caption 歐元
Command1 Caption 統(tǒng)計(jì)
Command2 Caption 退出
***********命令按鈕command1(統(tǒng)計(jì))的Click事件代碼如下************
DO CASE
CASE thisform.myOption.option1.value=1
SELECT Currency_sl.姓名, Currency_sl.持有數(shù)量;
FROM 外匯數(shù)據(jù)!rate_exchange INNER JOIN 外匯數(shù)據(jù)!Currency_sl ;
ON rate_exchange.外幣代碼 = Currency_sl.外幣代碼;
WHERE rate_exchange.外幣名稱 = "日元";
INTO TABLE rate_ry.DBF
CASE thisform.myOption.option2.value=1
SELECT Currency_sl.姓名, Currency_sl.持有數(shù)量;
FROM 外匯數(shù)據(jù)!rate_exchange INNER JOIN 外匯數(shù)據(jù)!Currency_sl ;
ON rate_exchange.外幣代碼 = Currency_sl.外幣代碼;
WHERE rate_exchange.外幣名稱 = "美元";
INTO TABLE rate_my.DBF
CASE thisform.myOption.option3.value=1
SELECT Currency_sl.姓名, Currency_sl.持有數(shù)量;