华南俳烁实业有限公司

綜合應(yīng)用（1小題，計(jì)30分）

基于數(shù)據(jù)庫(kù)pdtmng建立如圖所示頂層表單應(yīng)用，表單文件名為myform.scx，表單控件名為goods，表單標(biāo)題為"商品"；

1. 表單內(nèi)含一表格控件Grid1（默認(rèn)控件名），當(dāng)表單運(yùn)行時(shí)，該控件將按用戶的選擇（單擊菜單）來(lái)顯示products.dbf中某一類商品數(shù)據(jù)，RecordSourceType的屬性為4（SQL說(shuō)明）；

2. 建立如圖所示的菜單(菜單文件名為mymenu.mnx), 其條形菜單的菜單項(xiàng)為"商品分類"和"退出"，"商品分類"的下拉菜單為"小家電"、"飲料"和"酒類"；單擊下拉菜單中任何一個(gè)菜單命令后，表格控件均會(huì)顯示該類商品；

3. 在表單的Load事件中執(zhí)行菜單程序mymenu.mpr；

4. 菜單項(xiàng)"退出"的功能是關(guān)閉表單并返回到系統(tǒng)菜單（在過(guò)程中完成）。

解題思路：

一、建立表單

1. 建立表單，在“表單設(shè)計(jì)器”中，在其“屬性”的Name處輸入“goods”，在Caption處輸入“商品”，在ShowWindow處選擇“2-作為頂層表單”，雙擊“Load Event”，在“goods.Load”編輯窗口中輸入“do mymenu.mpr”。在“屬性”中，雙擊“Init Event”，在“myform.Init”編輯窗口中輸入“do mymenu.mprwith this ,'xxx'”，啟動(dòng)菜單命令。在“屬性”中，雙擊“Destroy Event，在“myform.Destroy”編輯窗口中輸入“release menu xxx extended”，在表單退出時(shí)釋放菜單。在“表單設(shè)計(jì)器”中，添加一個(gè)表格控件Grid1，在其“屬性”的 RecordSourceType處選擇“4-SQL說(shuō)明”。

二、建立菜單

1. 單擊“文件\新建”命令項(xiàng)。在“新建”對(duì)話框中選擇“菜單”單選鈕，再按“新建文件”按鈕。在“新建菜單”對(duì)話框中選擇“菜單”按鈕，在菜單設(shè)計(jì)器中的“菜單名稱”中依次輸入“商品分類”和“退出”這兩個(gè)主菜單項(xiàng)，然后選擇“商品分類”菜單項(xiàng)，在“結(jié)果”中選擇“子菜單”，單擊“創(chuàng)建”按鈕，在“菜單設(shè)計(jì)器”中，輸入兩個(gè)子菜單項(xiàng)“小家電”、“飲料”和“酒類”。在“小家電”子菜單的“結(jié)果”選擇“過(guò)程”并輸入命令下列語(yǔ)句myform.grid1.recordsource="select * from products where 分類編碼='4001' into cursor lsb"

在“飲料”子菜單的“結(jié)果”選擇“過(guò)程”并輸入命令下列語(yǔ)句myform.grid1.recordsource="select * from products where 分類編碼='1001' into cursor lsb"

在“酒類”子菜單的“結(jié)果”選擇“過(guò)程”并輸入命令下列語(yǔ)句myform.grid1.recordsource="select * from products where 分類編碼='3001' into cursor lsb"

在“退出”主菜單的“結(jié)果”選擇“過(guò)程”并輸入下列命令

myform.release

set sysmenu to default

單擊“顯示/常規(guī)選項(xiàng)”，在“常規(guī)選項(xiàng)”對(duì)話框中選中“頂層表單”。單擊工具欄上“保存”按鈕，在彈出“保存”對(duì)話框中輸入“mymenu”即可。在“菜單設(shè)計(jì)器”窗口下，單擊“菜單”菜單欄，選擇“生成”菜單項(xiàng)，生成“mymenu.mpr”文件。