2.簡單應用題

　　在考生文件夾下，完成如下簡單應用：

　　(1)打開程序文件progerr.prg，按文件中給出的功能要求改正其中的錯誤，以文件名為prognew.prg重新保存該文件并運行程序。

　　(2)表單文件名為myform.scx，控件名為myform，表單標題為“頂層表單”。

　　(3)為頂層表單建立菜單mymenu。

　　單擊“退出”菜單時，關閉釋放此頂層菜單，并返回到系統菜單(在過程中完成)。

　　【參考答案】

　　(1)具體步驟如下：

　　① 打開progerr.prg文件。

　　② 將程序修改如下：

　　OPEN DATABASE ordersmanage

　　CREATE view viewes AS SELECT職工號,SUM(金額)AS總金額FROM orders;

　　GROUP BY職工號

　　SELECT * FROM viewes WHERE總金額>=30000 ORDER BY總金額DESC;

　　into dbf newtable

　　③ 執行“文件”菜單中的“另存為”命令，將程序另存為prognew.prg。

　　(2)具體步驟如下：

　　① 從“文件”菜單中選擇“新建”命令，在彈出的“新建”對話框中選中“菜單”單選按鈕，單擊“新建文件”按鈕。

　　② 彈出“新建菜單”對話框，單擊“菜單”按鈕，進入“菜單設計器”窗口。

　　③ 在“菜單設計器”窗口中輸入三個菜單名稱“文件”、“編輯”、“退出”，并在“退出”菜單項的“結果”下拉列表中選擇“過程”選項，單擊“創建”按鈕，在彈出的代碼窗口中輸入如下代碼：

　　myform.release

　　set sysmenu to default

　　④ 執行“顯示”菜單中的“常規選項”命令，在彈出的“常規選項”對話框中選中“頂層表單”復選框。

　　⑤ 單擊“保存”按鈕，將菜單保存為mymenu.mnx。

　　⑥ 執行“菜單”菜單中的“生成”命令，在彈出的對話框中單擊“生成”按鈕。

　　⑦ 關閉“菜單設計器”窗口。

　　⑧ 從“文件”菜單中選擇“新建”命令，在彈出的“新建”對話框選中“表單”單選按鈕，單擊“新建文件”按鈕。

　　⑨ 在打開的“表單設計器”窗口中更改表單的Caption屬性為“頂層表單”。

　　⑩ 修改表單的ShowWindow屬性為“2-作為頂層表單”。

　　給表單的Init事件添加如下代碼：

　　do mymenu.mpr with this,”mymenu”

　　將表單保存為myform.scx，并運行表單。

　　3.綜合應用題

　　在考生文件夾下，完成如下綜合應用：

　　打開表單文件sapp，并完成如下操作(不得有多余操作)：

　　(1)將“課程”表添加到表單的數據環境中;

　　(2)使列表框List1中的數據項為“課程”表中的課程名稱(課程.課程名);

　　(3)單擊列表框中的數據項時，統計選修了所選課程的學生人數(從“考試成績”表)，并將結果存儲在以課程名命名的表中，表中只有一個字段“人數”;

　　(4)添加一個命令按鈕Command1，單擊該按鈕時關閉表單。

　　【參考答案】

　　① 打開表單文件sapp，單擊鼠標右鍵，在彈出的快捷菜單中選擇“數據環境”命令。

　　② 在打開的“數據環境設計器”窗口中單擊鼠標右鍵，在彈出的快捷菜單中選擇“添加”命令。

　　③ 系統彈出“打開”對話框，選擇“課程”表，單擊“確定”按鈕。

　　④ 選擇列表框List1，在“屬性”窗口中設置RowSourceType屬性為“6-字段”，設置RowSource屬性為“課程.課程名”。

　　⑤ 為列表框List1的Click事件添加如下代碼：

　　filename=this.value

　　select count(考試成績.學號)as 人數 from 課程inner join考試成績;

　　on 課程.課程編號=考試成績.課程編號;

　　where 課程.課程名=this.value into dbf &filename

　　⑥ 在控件工具欄中選擇命令按鈕，在表單中的合適位置單擊，添加一個Command1按鈕，并為其Click事件添加如下代碼：

　　Thisform.release

　　⑦ 將表單保存，并運行表單。