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
⑦ 將表單保存,并運行表單。
北京 | 天津 | 上海 | 江蘇 | 山東 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
廣東 | 河北 | 湖南 | 廣西 | 河南 |
海南 | 湖北 | 四川 | 重慶 | 云南 |
貴州 | 西藏 | 新疆 | 陜西 | 山西 |
寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
黑龍江 | 內蒙古 |