繼電保護(hù)實(shí)驗(yàn)五 菜單、表單、報(bào)表設(shè)計(jì)操作指南_20131217

1、實(shí)驗(yàn)五 菜單、表單、報(bào)表設(shè)計(jì)(設(shè)計(jì)性實(shí)驗(yàn))實(shí)驗(yàn)內(nèi)容及步驟任務(wù)1 菜單設(shè)計(jì)任務(wù)1-1 利用菜單設(shè)計(jì)器建立下拉菜單，包括如下菜單：數(shù)據(jù)維護(hù)、查詢、打印和退出，其中，數(shù)據(jù)維護(hù)菜單包括“瀏覽記錄”和“修改記錄”，打印菜單包括“設(shè)備表”和“設(shè)備價(jià)格表”兩項(xiàng)，數(shù)據(jù)維護(hù)菜單的“瀏覽記錄”菜單項(xiàng)能用來打開一個(gè)設(shè)備瀏覽窗口。操作：1）打開菜單設(shè)計(jì)器窗口：鍵入MODIFY MENU SB“新建”。2）設(shè)置菜單欄頁：在菜單設(shè)計(jì)器窗口填入4個(gè)菜單項(xiàng)“數(shù)據(jù)維護(hù)（子菜單）”、“查詢”、“打印（子菜單）”、“退出”。3）為“數(shù)據(jù)維護(hù)”菜單建立選項(xiàng)：點(diǎn)擊“數(shù)據(jù)維護(hù)”行某處“創(chuàng)建”子菜單頁建立兩個(gè)菜單項(xiàng)“瀏覽記錄”和“修改記錄

2、”。4）為“瀏覽記錄”菜單項(xiàng)定義快捷鍵：選定“瀏覽記錄”菜單行的“選項(xiàng)”列按鈕設(shè)置CRTL+X為快捷鍵“確定”按鈕返回“菜單設(shè)計(jì)器”窗口選定“菜單級(jí)”組合框“菜單欄”選項(xiàng)返回菜單欄頁。5）為“打印”子菜單建立兩個(gè)選項(xiàng)，并設(shè)置公共過程：選定“打印”菜單行的“創(chuàng)建”按鈕在子菜單頁建立“設(shè)備表”和“設(shè)備價(jià)格表”兩個(gè)菜單項(xiàng)，“結(jié)果”列組合框都選用“菜單項(xiàng)#”；選定“顯示”菜單的“菜單選項(xiàng)”命令在“菜單選項(xiàng)”對(duì)話框的“過程”編輯框內(nèi)輸入代碼，比如：鍵入“?尚未完成”進(jìn)行提示。6）設(shè)置菜單程序的初始化代碼：“顯示”菜單“常規(guī)選項(xiàng)”命令“常規(guī)選項(xiàng)”對(duì)話框選定“設(shè)置”復(fù)選框在彈出的“設(shè)置”編輯窗口鍵入如下代碼

3、：CLEAR ALLCLEARKEYBOARD Ctrl+F4 && 關(guān)閉命令窗口MODIFY WINDOW SCREEN TITLE 設(shè)備管理系統(tǒng)USE SB7）定義“退出”菜單項(xiàng)功能：在菜單欄頁中選定“退出”菜單項(xiàng)的“創(chuàng)建”或“編輯”按鈕，在過程編輯窗口輸入如下代碼：USE MODIFY WINDOW SCREENSET SYSMENU TO DEFAULT &&恢復(fù)系統(tǒng)菜單的默認(rèn)配置ACTIVATE WINDOW COMMAND8）保存菜單定義：“文件”菜單“保存”生成SB.MNX 和 SB.MNT文件。注意：菜單文件保存在自己的默認(rèn)工作目錄。9）生成菜單

4、程序：“菜單”菜單“生成”選定“生成菜單”對(duì)話框“生成”按鈕生成菜單程序SB.MPR。10）運(yùn)行菜單程序：執(zhí)行命令DO SB.MPR。任務(wù)1-2建立一個(gè)具有撤消和剪貼板功能的快捷菜單，供瀏覽SB表時(shí)使用。操作：1）打開“快捷菜單設(shè)計(jì)器”窗口：“文件”菜單“新建”命令在“新建”對(duì)話框選定“菜單選項(xiàng)”按鈕“新建文件”按鈕“快捷菜單”按鈕“快捷菜單設(shè)計(jì)器”窗口。2）插入系統(tǒng)菜單項(xiàng)：在“快捷菜單設(shè)計(jì)器窗口”中選定“插入欄”按鈕在“插入系統(tǒng)菜單欄”對(duì)話框中選定“粘貼”選項(xiàng)，并選定“插入”按鈕類似地插入“復(fù)制”“剪切”“撤消”選項(xiàng)“關(guān)閉”按鈕返回“快捷菜單設(shè)計(jì)器”窗口。3）生成菜單程序：“菜單”菜單“生成

5、”命令保存菜單文件E7-3.MNX和菜單備注文件E7-3.MNT在“生成菜單”對(duì)話框中選定“生成”按鈕生成菜單程序E7-3.MPR。4）編寫如下調(diào)用程序E7-3.PRG：CLEAR ALL PUSH KEY CLEARON KEY LABEL RIGHTMOUSE DO E7-3.MPRUSE SBBROWSEUSEPUSH KEY CLEAR5）運(yùn)行調(diào)用程序及快捷菜單程序：在命令窗口鍵入DO E7-3，屏幕即會(huì)出現(xiàn)一個(gè)設(shè)備瀏覽窗口。選定任何數(shù)據(jù)后，右擊會(huì)彈出快捷菜單，進(jìn)行相應(yīng)的操作。任務(wù)2表單設(shè)計(jì)任務(wù)2-1創(chuàng)建一個(gè)用于按照部門維護(hù)設(shè)備的涉及BMDM和SB兩張表的表單。操作：1）打開“表單向?qū)?/p>

6、”對(duì)話框：“工具”菜單“向?qū)А弊硬藛巍氨韱巍泵钤凇跋驅(qū)нx取”對(duì)話框中選定“一對(duì)多表單向?qū)А边x項(xiàng)“一對(duì)多表單向?qū)А睂?duì)話框。 2）從父表中選定字段：?jiǎn)螕簟耙粚?duì)多表單向?qū)А睂?duì)話框中“數(shù)據(jù)庫和表”區(qū)域的對(duì)話按鈕在“打開”對(duì)話框中選定BMDM表將“可用字段”列表框的所有字段移到“選定字段”列表框中，并將名稱字段移到代碼字段之上“下一步”按鈕。 3）從子表中選定字段：在“數(shù)據(jù)庫和表”組合框下的列表框中選定SB表將“可用字段”列表框中除部門字段外的所有字段移到“選定字段”列表框中“下一步”按鈕。4）關(guān)聯(lián)表：在關(guān)聯(lián)設(shè)置對(duì)話框中選擇兩表中的關(guān)聯(lián)字段（此處采取默認(rèn)設(shè)置）“下一步”按鈕。5）選擇表單樣式：在“選擇

7、表單樣式”窗口點(diǎn)擊“凹陷式”樣式和“文本按鈕”類型“下一步”按鈕。6）排序記錄：省略該步驟，直接選定“下一步”按鈕。7）設(shè)置“完成”對(duì)話框：“完成”對(duì)話框“請(qǐng)鍵入標(biāo)題”文本框中輸入“部門設(shè)備表”“完成”按鈕在“另存為”對(duì)話框中輸入表單文件名BMSB.SCX“保存”按鈕生成BMSB.SCX和BMSB.SCT備注文件。 8）執(zhí)行表單：“程序”菜單“運(yùn)行”命令“表單”選項(xiàng)列表選定BMSB.SCX“運(yùn)行”按鈕。任務(wù)2-2在列表框中填充SB表的編號(hào)和名稱兩個(gè)字段，要求選定列表框中的任何一項(xiàng)，就能在文本框中顯示編號(hào)字段。操作：1）創(chuàng)建表單，并添加1個(gè)列表框控件List1和1個(gè)文本框控件Text1。2）在數(shù)

8、據(jù)環(huán)境對(duì)話框中添加SB表。 3）打開列表框生成器（右鍵單擊列表框控件，從彈出菜單中選擇“生成器”）在列表項(xiàng)選項(xiàng)卡的“用此填充列表”組合框中選定“表或視圖中的字段”選項(xiàng)選出SB表，將編號(hào)和名稱字段添入選定字段列表“確定”按鈕。4）List1的Interactive Change事件（鼠標(biāo)左鍵雙擊List1控件，打開該控件的代碼編輯窗口）。代碼編寫如下：Thisform.Text1.Value=This.Value &&事件執(zhí)行時(shí)屬性賦值5）運(yùn)行表單。任務(wù)2-3 第一，先根據(jù)課本P175的例6-3利用表單設(shè)計(jì)器設(shè)計(jì)表單SBQ.SCX：操作：（1）打開表單設(shè)計(jì)器：命令窗口輸入MODI

9、FY FORM SBQ出現(xiàn)標(biāo)題為SBQ.SCX的“表單設(shè)計(jì)器”窗口。（2）產(chǎn)生快速表單：“表單”菜單“快速表單”命令在“表單生成器”對(duì)話框的“字段選取”選項(xiàng)卡中選出SB.DBF及需要的字段在“樣式”選項(xiàng)卡中選取“浮雕式”樣式“確定”按鈕生成快速定義表單窗口。 （3）執(zhí)行表單：右擊表單窗口空白處調(diào)出快捷菜單選定“執(zhí)行表單”命令是否保存？是運(yùn)行結(jié)果。第二，以SBQ.SCX為基礎(chǔ)，設(shè)計(jì)能修改SB表數(shù)據(jù)的表單。要求如下（參見課本P216的例7-10）：A）若輸入編號(hào)代碼為全零，或以9開頭給予信息提示（動(dòng)作部分）；B）在名稱1文本框之下添加一個(gè)組合框，以便既可在文本框中修改名稱，也可在組合框中選用名稱；

10、C）將部門1文本框設(shè)置為只讀，然后在其右側(cè)添加一個(gè)列表框，并使在列表框中選取的部門顯示在該文本框中；D）刪除價(jià)格1文本框，然后添加一個(gè)微調(diào)控件來替代它，使價(jià)格直接輸入或微調(diào)；E）使主要設(shè)備1復(fù)選框的標(biāo)題隨其值而變化，值為.T.時(shí)顯示為主要設(shè)備，否則顯示非主要設(shè)備；F）在窗口右上角添加兩個(gè)標(biāo)簽，分別用來顯示“第”和“頁”字樣，在這兩個(gè)標(biāo)簽中間添加一個(gè)文本框用來顯示記錄號(hào)；G）添加命令按鈕組，其中包含3個(gè)命令按鈕，分別用于使記錄指針下移一個(gè)記錄、上移一個(gè)記錄和關(guān)閉表單；H）在表單中添加兩條下緣發(fā)亮的線條。操作（控件調(diào)整屬性設(shè)置動(dòng)作編碼）：1）復(fù)制表單并打開表單設(shè)計(jì)器：MODIFY FORM SBQ

11、“文件”菜單的“另存為”命令鍵入文件名“sbxg”保存按鈕。 第一部分 控件調(diào)整及屬性設(shè)置2）按要求調(diào)整以下控件：按圖7-11（課本P216）移動(dòng)控件位置：添加combo1組合框控件和List1列表框控件。添加線條：一條灰線下面一條白線，緊靠在一起。注意調(diào)整線條line的Bordercolor屬性。在表單底部居中創(chuàng)建包含下頁、上頁和退出命令按鈕的命令按鈕組：點(diǎn)擊表單控件工具欄中的“命令按鈕組”控件，將其放置在表單下部。右鍵單擊該控件，從彈出菜單中選擇“生成器”命令，進(jìn)入“命令組生成器”界面。按下圖所示進(jìn)行調(diào)整。 窗口右上角添加Label1和Label2兩個(gè)標(biāo)簽和Text1文本框。屬性按下表設(shè)置

12、：對(duì)象屬性屬性值說明Label1Caption第指定標(biāo)簽標(biāo)題Label2Caption頁指定標(biāo)簽標(biāo)題Text1ControlSourceyh與公共變量yh綁定以顯示頁號(hào)BorderStyle0無設(shè)置為無邊框BackStyle0透明設(shè)置為與表單底色相同刪除價(jià)格1文本框，添加一個(gè)微調(diào)控件（Spinner1）替代它，并將其ControlSource屬性與SB.價(jià)格綁定，使價(jià)格直接輸入或微調(diào)； 調(diào)整控件后的表單設(shè)計(jì)界面如下圖所示（紅色圈標(biāo)志有改動(dòng)之處）： 3）將部門1文本框設(shè)置為只讀（在文本框生成器或?qū)傩源翱诰稍O(shè)置）；4）數(shù)據(jù)環(huán)境設(shè)置：在數(shù)據(jù)環(huán)境中添加BMDM表，并取消SB表與它的關(guān)聯(lián)（避免記錄指針

13、隨列表框的選定選項(xiàng)移動(dòng)）；5）部分控件的屬性設(shè)置：所有標(biāo)簽字體設(shè)置為宋體，10號(hào)字，其它屬性見下表：對(duì)象屬性屬性值說明Form1Caption設(shè)備表維護(hù)設(shè)置表單標(biāo)題欄標(biāo)題Combo1Style2下拉列表框指定組合框類型RowSourceType5數(shù)組指定值源類型為數(shù)組RowSourcemc指定數(shù)組名，數(shù)組在表單Init事件建立List1RowSourceType2別名定值源類型為表，由數(shù)據(jù)環(huán)境提供RowSourceBmdm指定表名ColumnCount2確定列數(shù)BoundColumn1默認(rèn)值，第1列有效Check1ControlSourceSB.主要設(shè)備復(fù)選框與 SB.主要設(shè)備綁定 第二部分

14、動(dòng)作編碼 Form1的Init事件代碼：Public array mc(10,1) Copy To Array Mc Fields Sb.名稱go 1 Form1的Refresh事件代碼：yh=recno() && 表單刷新時(shí)用變量yh存儲(chǔ)當(dāng)前記錄號(hào) 編號(hào)1文本框的Valid事件代碼：if This.Value<="000-0" or This.Value>="9" Messagebox("超出范圍！") Endif Combo1的Click事件代碼（使用戶可在組合框中選用所需名稱）： Thisform.名

15、稱1.Value=This.Valuejlh=Recno()Copy To Array Mc Fields SB.名稱Thisform.Combo1.Numberofelements=Reccount()Go jlh List1的Click事件代碼：Thisform.部門1.Value=This.Value 復(fù)選框主要設(shè)備1的InteractiveChange事件代碼：If This.ValueThis.Caption="主要設(shè)備"elseThis.Caption="非主要設(shè)備"endif復(fù)選框主要設(shè)備1的Refresh事件代碼：If Evaluate(

16、This.Controlsource)This.Caption="主要設(shè)備"elseThis.Caption="非主要設(shè)備"endif 命令按鈕組Commandgroup1的Click事件代碼：do case case this.value=1 if Recno()<Reccount() skip endif Thisform.refresh case this.value=2 If Recno()>1 skip-1 endif Thisform.Refresh Case This.value=3 Thisform.releaseendcas

17、e最后，運(yùn)行表單，結(jié)果如下圖所示：任務(wù)3報(bào)表設(shè)計(jì)任務(wù)3-1 利用快速制表功能，為SB.DBF設(shè)計(jì)一個(gè)包括編號(hào)、名稱和價(jià)格的報(bào)表，并具有正確的表格線。操作：1）打開報(bào)表設(shè)計(jì)器窗口：命令窗口鍵入MODIFY REPORT SBJGB，打開報(bào)表設(shè)計(jì)器窗口。2）設(shè)置數(shù)據(jù)源：在報(bào)表設(shè)計(jì)器窗口右鍵調(diào)出快捷菜單，選定“數(shù)據(jù)環(huán)境”命令，在數(shù)據(jù)環(huán)境設(shè)計(jì)器窗口添加SB表。3）啟動(dòng)快速制表：選定報(bào)表設(shè)計(jì)器窗口選定“快速報(bào)表”命令顯示快速報(bào)表對(duì)話框。注意：報(bào)表設(shè)計(jì)器窗口的細(xì)節(jié)帶區(qū)為空時(shí)才能點(diǎn)擊快速報(bào)表命令。 4）設(shè)置快速報(bào)表屬性：選定快速報(bào)表對(duì)話框的“字段”按鈕在字段選擇器中依次選出編號(hào)、名稱和價(jià)格3個(gè)字段選定“確定

18、”按鈕返回快速報(bào)表對(duì)話框選定“確定”按鈕返回報(bào)表設(shè)計(jì)器窗口。5）調(diào)整各報(bào)表帶區(qū)的高度：移動(dòng)報(bào)表控件建立表名畫出表格線。首先把頁標(biāo)頭帶區(qū)高度加大，然后添加標(biāo)簽控件“設(shè)備價(jià)格表”（調(diào)整好字體大小和粗體格式）。然后添加線條控件，2條水平線條和4條垂直線條（設(shè)置好合適的線條寬度）。可以隨時(shí)預(yù)覽各控件的布局，以便調(diào)整到合適位置。然后調(diào)節(jié)細(xì)節(jié)帶區(qū)的控件位置，可以采用“復(fù)制粘貼”的方式，把頁標(biāo)頭帶區(qū)的水平線條和垂直線條復(fù)制并移動(dòng)到細(xì)節(jié)帶區(qū)合適位置。1條水平線條和4條垂直線條。并把頁注腳帶區(qū)的日期和頁碼控件刪掉。得到下圖的格式和預(yù)覽結(jié)果。6）保存報(bào)表定義：“文件”菜單“保存”選項(xiàng)產(chǎn)生報(bào)表文件SBJGB.FRX

19、及其備注文件SBJGB.FRT。7）報(bào)表預(yù)覽：“顯示”菜單或快捷菜單預(yù)覽報(bào)表。程序中如果需要調(diào)用設(shè)計(jì)好的報(bào)表，只需要在相應(yīng)控件的相應(yīng)事件代碼中添加代碼：REPORT FROM * PREVIEW &&*表示報(bào)表名任務(wù)3-2 打印如下圖所示的主要設(shè)備的設(shè)備役齡表，要求包括記錄序號(hào)和設(shè)備役齡，部門在打印時(shí)使用漢字部門名。提示：本題設(shè)計(jì)到多表數(shù)據(jù)環(huán)境，而且需要自定義報(bào)表設(shè)計(jì)中的報(bào)表變量和域控件。操作：1）打開“報(bào)表設(shè)計(jì)器”窗口：MODIFY REPORT SBYL。2）設(shè)置數(shù)據(jù)環(huán)境：在數(shù)據(jù)環(huán)境中添加SB表和BMDM表，并使SB.部門與BMDM.代碼關(guān)聯(lián)。3）定義快速報(bào)表：“報(bào)表”菜單“快速報(bào)表”命令在“快速報(bào)表”對(duì)話框中選定“字段”按鈕在“字段選擇器”對(duì)話框的SB表中挑選編號(hào)、名稱、部門3個(gè)字段“確定”按鈕返回“快速報(bào)表”對(duì)話框“確定”按鈕返回“報(bào)表設(shè)計(jì)器”窗口出現(xiàn)編號(hào)、名稱、部門標(biāo)簽（頁標(biāo)頭帶區(qū)）和字段控件（細(xì)節(jié)帶