計(jì)算機(jī)等級(jí)考試二級(jí)VFP上機(jī)試題及解題思路(68)

　　二、簡(jiǎn)單應(yīng)用(2小題，每題20分，計(jì)40分)

　　在考生文件夾下，完成如下簡(jiǎn)單應(yīng)用：

　　1. 打開(kāi)"TEST_DB"數(shù)據(jù)庫(kù)，根據(jù)表DEPT和表SELL并使用查詢?cè)O(shè)計(jì)器設(shè)計(jì)一個(gè)名稱為T(mén)HREE的查詢，按年度統(tǒng)計(jì)各部門(mén)的月平均銷(xiāo)售(通過(guò)銷(xiāo)售額計(jì)算)、月平均工資(通過(guò)工資額計(jì)算)和月平均利潤(rùn)(通過(guò)"月平均銷(xiāo)售-月平均工資"計(jì)算)。查詢統(tǒng)計(jì)結(jié)果按部門(mén)號(hào)、年度升序排序，并將查詢結(jié)果輸出到表TABB中。表TABB的字段名依次為：部門(mén)號(hào)、部門(mén)名、年度、月平均銷(xiāo)售、月平均工資、月平均利潤(rùn)。設(shè)計(jì)完成后，運(yùn)行該查詢。

　　2. 打開(kāi)文件名為"testA"的表單。該表單完成如下功能：

　　每當(dāng)用戶輸入用戶名和口令并按"確認(rèn)"按鈕后，利用表PASS中記錄檢查其輸入是否正確，若正確，就顯示"歡迎使用本系統(tǒng)!"字樣，并關(guān)閉表單;若不正確，則顯示"用戶名或口令不對(duì)，請(qǐng)重輸入!"字樣;如果三次輸入不正確，就顯示"用戶名或口令不對(duì)，登錄失敗!"字樣，并關(guān)閉表單。

　　(1) 修改口令輸入文本框，使輸入的口令顯示為"*"。

　　(2) 修改該表單"確認(rèn)"按鈕的Click事件中的程序。請(qǐng)將第2、3、4、7和12行語(yǔ)句修改正確。修改時(shí)不允許增加或刪除行，只能在錯(cuò)誤行上進(jìn)行修改。

　　本題主要考核點(diǎn)：建立查詢及表單等知識(shí)點(diǎn)。

　　本題解題思路：

　　1、打開(kāi)"TEST_DB"數(shù)據(jù)庫(kù),使用查詢?cè)O(shè)計(jì)器建立查詢：?jiǎn)螕?新建"按鈕，在彈出的對(duì)話框中選擇"新建查詢"->查詢?cè)O(shè)計(jì)器打開(kāi)，將"DEPT"和"SELL"表添加到查詢?cè)O(shè)計(jì)器中(將兩表之間通過(guò)"部門(mén)號(hào)"字段建立關(guān)聯(lián))->在查詢?cè)O(shè)計(jì)器下方的"字段"選項(xiàng)卡中選中并添加字段"部門(mén)號(hào)"、"部門(mén)名"、"年度"，在"函數(shù)和表達(dá)式"的"表達(dá)式"中輸入"AVG(Sell.銷(xiāo)售額) AS 月平均銷(xiāo)售"、 "AVG(Sell.工資額) AS 月平均工資"和"AVG(Sell.銷(xiāo)售額-Sell.工資額) AS 月平均利潤(rùn)"并添加此字段->在"排序依據(jù)"選項(xiàng)卡中選擇"部門(mén)號(hào)"和"年度"字段升序排列->在"分組依據(jù)"選項(xiàng)卡中選擇"部門(mén)號(hào)"和"年度"字段分組->單擊菜單欄上的"查詢"->"查詢?nèi)ハ?銨鈕->在彈出的"查詢?nèi)ハ?對(duì)話框中選擇表，并在表名處輸入表名TABB->單擊工具欄上的運(yùn)行銨鈕->單擊工具欄上的保存銨鈕，輸入查詢文件名THREE.qpr，保存查詢后關(guān)閉查詢?cè)O(shè)計(jì)器，最后運(yùn)行該查詢。

　　2、(1)PasswordChar屬性賦值為："*"，來(lái)使用戶在輸入口令時(shí)顯示"*"。

　　(2)修改該表單"確認(rèn)"按鈕的Click事件中的程序如下：

　　USE pass

　　Key1 = ALLTRIM(ThisForm.Text1.Value)

　　Key2 = ALLTRIM(ThisForm.Text2.Value)

　　LOCATE ALL FOR USER = Key1

　　IF FOUND() AND PASS = Key2

　　WAIT "歡迎使用本系統(tǒng)!" WINDOW TIMEOUT 1

　　THISFORM.RELEASE

　　ELSE

　　num = num + 1

　　IF num = 3

　　WAIT "用戶名或口令不對(duì)，登錄失敗!" WINDOW TIMEOUT 1

　　ThisForm.Release

　　ELSE

　　WAIT "用戶名或口令不對(duì)，請(qǐng)重輸入!" WINDOW TIMEOUT 1

　　ENDIF

　　ENDIF