亚洲欧洲国产欧美一区精品,激情五月亚洲色五月,最新精品国偷自产在线婷婷,欧美婷婷丁香五月天社区

綜合應用（1小題，計30分）

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

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

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

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

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

解題思路：

一、建立表單

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

二、建立菜單

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

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

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

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

myform.release

set sysmenu to default

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