計算機等級考試二級VFP上機試題及解題思路(61)

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

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

　　1. 打開數(shù)據(jù)庫文件"課程管理"，使用SQL語句建立一個視圖salary，該視圖包括了系號和(該系的)平均工資兩個字段，并且按平均工資降序排列。請將該SQL語句存儲在four.prg文件中，否則不得分。

　　2. 打開考生文件夾下的表單six(如圖所示)，"登錄"命令按鈕Click事件中的程序功能是：當用戶輸入用戶名和口令以后，單擊"登錄"按鈕時，程序根據(jù)自由表"用戶表"的內(nèi)容進行操作，若在"用戶表"中找不到相應(yīng)的用戶名，則提示"用戶名錯誤"，若用戶名輸入正確，而口令輸入錯誤，則提示"口令錯誤"。在"登錄"命令按鈕Click事件中空行處填加適當?shù)恼Z句，使其能夠正確運行。注意：不得做其他修改。

　　本題的主要考核點是SQL語句的應(yīng)用、文件的創(chuàng)建、表單控件代碼等。

　　1.利用"文件"菜單下的"打開"命令來打開數(shù)據(jù)庫文件"課程管理"，或使用命令MODIFY DATABASE 課程管理。使用SQL語句來建立視圖salary，SQL命令為：

　　create sql view salary as;

　　select 教師表.系號, AVG(教師表.工資) AS 平均工資;

　　FROM 課程管理!教師表;

　　GROUP BY 教師表.系號;

　　ORDER BY 2 DESC

　　并將此命令語句存儲在four.prg文件中。

　　2.利用"文件"菜單下的"打開"命令來打開表單six，或使用命令MODIFY FORM six。根據(jù)題目要求在"登錄"命令按鈕的Click事件的空行處添加適當?shù)恼Z句：

　　USE 用戶表

　　GO TOP

　　flag=0

　　do while not eof() &&添加一條語句

　　IF Alltrim(用戶名)==Alltrim(Thisform.Text1.Value)

　　IF Alltrim(口令)==Alltrim(Thisform.Text2.Value)

　　WAIT "歡迎使用" WINDOW TIMEOUT 2

　　ELSE

　　WAIT "口令錯誤" WINDOW TIMEOUT 2

　　endif &&添加一條語句

　　flag=1

　　EXIT

　　ENDIF

　　skip &&添加一條語句

　　ENDDO

　　IF flag=0 &&添加一條語句

　　WAIT "用戶名錯誤" WINDOW TIMEOUT 2

　　ENDIF