上機部分

　　1.基本操作題

　　在考生文件夾下，完成如下操作：

　　(1)建立數據庫ordersmanage.dbc，把自由表employee.dbf和orders.dbf添加到數據庫中。

　　(2)打開表單dh.scx，設置標簽控件中英文字母的字號為18，保存表單。

　　(3)打開表單dh.scx，為命令按鈕“隱藏”添加代碼，使表單運行時，單擊此按鈕隱藏表單上標簽控件label1;保存并運行該表單。

　　(4)利用報表向導建立一對多報表，以employee表為父表，選擇其中職工號、姓名和性別字段;以orders表為子表，選擇其全部字段。報表樣式為簡報式，表之間的關聯通過“職工號”字段實現，排序方式按職工號降序，報表標題為“職工訂單”。報表其他參數取默認值。最后將生成的報表保存為empord.frx。

　　【參考答案】

　　(1)具體步驟如下：

　　① 從“文件”菜單中選擇“打開”命令。在彈出的“打開”對話框中選擇考生目錄下的ordersmanage.dbc文件，單擊“確定”按鈕。

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

　　③ 在彈出的“打開”對話框中選擇employee.dbf文件。

　　④ 以同樣的方法添加另一個表。

　　(2)具體步驟如下：

　　① 從“文件”菜單中選擇“打開”命令，在彈出的“打開”對話框中選擇dh.scx，單擊“確定”按鈕。

　　② 系統打開“表單設計器”，并顯示dh.scx的內容。

　　③ 選中標簽文字，在“屬性”窗口中設置其FontSize屬性為18

　　④ 保存表單。

　　(3)具體步驟如下：

　　① 打開表單dh.scx。

　　② 選擇“隱藏”按鈕，在“屬性”窗口中雙擊Click事件，在彈出的代碼窗口中添加如下代碼：

　　thisform.label1.visible=.f.

　　③ 保存表單，并運行表單。

　　(4)具體步驟如下：

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

　　② 在彈出的“向導選取”對話框中選擇“一對多報表向導”

　　單擊“確定”按鈕。

　　③ 在彈出的對話框中選擇父表為employee，并選擇其中的“職工號”、“姓名”、“性別”字段

　　，單擊“下一步”按鈕。

　　④ 選擇子表為orders，并選擇所有字段，單擊“下一步”按鈕。

　　⑤ 設置兩個表之間通過“職工號”進行關聯，單擊“下一步”按鈕。

　　⑥ 選擇排序依據為“職工號”，并選中“降序”單選按鈕，單擊“下一步”按鈕。

　　⑦ 選擇報表樣式為“簡報式”，單擊“下一步”按鈕。

　　⑧ 輸入報表標題為“職工訂單”，單擊“完成”按鈕，在彈出的“另存為”對話框中將報表保存為empord.frx。

　　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

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