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

　　(1)打開“課程管理”數(shù)據(jù)庫(kù),使用SQL語(yǔ)句建立一個(gè)視圖salary,該視圖包括系號(hào)和平均工資兩個(gè)字段,

　　并且按平均工資降序排列。將該SQL語(yǔ)句存儲(chǔ)在four.prg文件中。

　　(2)打開考生文件夾下的表單six,如下圖所示,“登錄”命令按鈕的功能是：當(dāng)用戶輸入用戶名和口令以后,單擊“登錄’’按鈕時(shí),程序在自由表“用戶表”中進(jìn)行查找,若找不到相應(yīng)的用戶名,則提示“用戶名錯(cuò)誤”,若用戶名輸入正確,而口令輸入錯(cuò)誤,則提示“口令錯(cuò)誤”。修改“登錄”命令按鈕Click事件中標(biāo)有錯(cuò)誤的語(yǔ)句,使其能夠正確運(yùn)行。注意：不得做其他修改。

　　參考解析：

　　(1)[操作步驟]

　　步驟l：?jiǎn)螕艄ぞ邫谥械摹按蜷_”按鈕，打開考生文件夾下的數(shù)據(jù)庫(kù)文件“課程管理”。

　　步驟2：?jiǎn)螕艄ぞ邫谥械摹靶陆ā卑粹o，新建-個(gè)程序，輸入如下代碼。

　　CREATE sql VIEW salary AS SELECT教師表.系號(hào)，AV

　　(教師表.工資)As平均工資FROM教師表;

　　GROUP BY教師表.系號(hào)0RDER BY 2 DESC

　　步驟3：保存程序?yàn)閒our.prg，并運(yùn)行該程序。

　　(2)[操作步驟]

　　步驟l：?jiǎn)螕艄ぞ邫谥械摹按蜷_”按鈕，打開考生文件夾下的表單six.SCX，“登錄”按鈕中的代碼如下。

　　**********“登錄”按鈕的Click事件代碼**********

　　USE用戶表

　　GO

　　flag=0

　　&&下面語(yǔ)句有錯(cuò)誤

　　WHILE.NOT.EOF()

　　IF Alhrim(用戶名)==Alltrim(Thisform.Tma1.Value)

　　IF Alltrim(口令)==Alhrim(Thisfonn.Texl2.Value)

　　WAIT”歡迎使用”WINDOW TIMEOUT 2

　　ELSE

　　WAIT”口令錯(cuò)誤”WINDOW TIMEOUT 2

　　ENDIF

　　nag=1

　　EXIT

　　ENDIF

　　&&下面語(yǔ)句有錯(cuò)誤

　　NEXT

　　ENDDO

　　&&下面語(yǔ)句有錯(cuò)誤

　　CASE FLAG=0

　　WAIT”用戶名錯(cuò)誤”WINDOW TIMEOUT 2

　　ENDIF

　　********************************

　　步驟2：修改程序中的錯(cuò)誤如下。

　　錯(cuò)誤1：將“WHILE”改為“DO WHIIE”。

　　錯(cuò)誤2：將“NEXT”改為“SKIP”。

　　錯(cuò)誤3：將“CASE”改為“IF”。

　　步驟3：保存并運(yùn)行表單。

　　四、綜合應(yīng)用題

　　43利用菜單設(shè)計(jì)器建立一個(gè)菜單TJ_MENU3,要求如下：

　　(1)主菜單(條形菜單)的菜單項(xiàng)中有“統(tǒng)計(jì)”和“退出”兩項(xiàng)。

　　(2)“統(tǒng)計(jì)”菜單下只有一個(gè)“平均”菜單項(xiàng),該菜單項(xiàng)用來(lái)統(tǒng)計(jì)各門課程的平均成績(jī),統(tǒng)計(jì)結(jié)果包含“課程名,,和“平均成績(jī)”兩個(gè)字段,并將統(tǒng)計(jì)結(jié)果按課程名升序保存在表NEW TABLE32中。

　　(3)“退出”菜單項(xiàng)的功能是返回Visual FoxPro系統(tǒng)菜單(只能在命令框中填寫相應(yīng)命令)。菜單建立后。運(yùn)行該菜單中的各個(gè)菜單項(xiàng)。

　　參考解析：

　　[操作步驟]

　　步驟1：通過(guò)菜單設(shè)計(jì)器新建-個(gè)菜單，輸入菜單項(xiàng)“統(tǒng)計(jì)”和“退出”。

　　步驟2：為“統(tǒng)計(jì)”菜單項(xiàng)建立子菜單，并輸入菜單項(xiàng)“平均”。

　　步驟3：在“平均”菜單的“結(jié)果”中選擇“過(guò)程”，單擊“編輯”按鈕，在彈出的程序編輯窗口中輸入下列代碼。

　　******“平均”菜單項(xiàng)中的過(guò)程代碼******

　　SETTALKOFF

　　OPEN DATABASE SCORE_MANAGER

　　SELECT Course.課程名，AVG(Seorel.成績(jī))∞平均

　　成績(jī);

　　FROM cour8e，score1;

　　WHERE Course.課程號(hào)=Scowl.課程號(hào);

　　GROUP BY Course.課程名;

　　ORDER BY Course.課程名;

　　INTO TABLE NEW_KBLE32

　　CLOSE ALL

　　SETTALKON

　　**************************

　　步驟4：在“退出”菜單的結(jié)果中選擇。命令”，輸入語(yǔ)句：

　　SET SYSMENU TO DEFAULT。

　　步驟5：保存菜單為TJ_MENU3，生成萊單的可執(zhí)行程序。

　　步驟6：運(yùn)行菜單并執(zhí)行菜單中的各菜單項(xiàng)。