FoxPro+for+Windows程序設計第11章.ppt

11.1繪制矩形及清除屏幕區(qū)域11.2屏幕的格式輸出、輸入命令,第11章屏幕格式及打印格式的設計,返回主目錄,11.1繪制矩形及清除屏幕區(qū)域,11.1.1繪制矩形框的命令在屏幕上繪制矩形的命令有兩種，其命令格式和功能稍有不同。1.命令格式之一格式：起始行,起始列,終止行，終止列BOX該命令以指定的起始行、列作為矩形的左上角，指定的終止行、列作為矩形的右下角，在屏幕上畫一個矩形框。例如：4,6,12,60BOX從屏幕的第4行到第12行，從第6列到第60列，畫出以線段為邊框的矩形，命令中指定的起止行、列被矩形的邊框所占用。,2.命令格式之二格式：起始行，起始列TO終止行,終止列DOUBLE|PANELCOLORSCHEME調(diào)色盤號|COLOR顏色對表該命令按指定的起始行、列和終止行、列，在屏幕上畫矩形框。命令中如果選擇DOUBEL，則矩形邊框為雙線；如果選擇PANEL，則畫出帶陰影的矩形。例如：4,4TO20,60PANEL由于命令中指定了PANEL，所以屏幕上顯示出一個帶陰影邊框的矩形。,(1)在一條命令中，DOUBLE、PANEL兩者只能選用一個。(2)如果選擇COLORSCHEME調(diào)色盤號，則按指定的調(diào)色盤號配置矩形邊框的顏色；如果選擇顏色對表，則按指定的顏色對配置邊框的顏色。但是，不同的顯示器、不同的Windows版本，會使矩形邊框的形狀和顏色有所不同，用戶應當通過調(diào)試，選擇較適于所用系統(tǒng)的邊框和顏色。FoxPro一共有24個調(diào)色盤，其中，第1324號調(diào)色盤系統(tǒng)未定義（可由用戶定義）。每個調(diào)色盤由10個色對組成，不同的調(diào)色盤影響不同的窗口或菜單的顏色，系統(tǒng)定義的12個調(diào)色盤號與所影響的對象見表11.1。,(3)可以利用返回當前光標所在行、列的函數(shù)ROW()、COL()，指定命令中的行、列數(shù)。例如，分別執(zhí)行下列命令，觀察所畫矩形邊框及其矩形的顏色：4,6TOROW()+8,COL()+50DOUBLECOLOSCHEME84,6TO12,60PANELCOLORSCHEME4第一條命令中，因為ROW()的函數(shù)值是4，所以ROW()+8=12，同理COL()+50=56。因此，下面的兩條命令是等價的：4,6TO12,56DOUBLECOLOSCHEME84,6TOROW()+8,COL()+50DOUBLECOLOSCHEME8,例11.1在數(shù)據(jù)庫瀏覽命令中，可以通過選擇調(diào)色盤號改變?yōu)g覽窗口的顏色。請執(zhí)行下面的程序，當改變調(diào)色盤號后，觀察BROWS窗口顏色的變化情況。CLEARUSED:rshDOWHIL.T.INPUT請輸入調(diào)色盤號(112,如果輸入100則退出)TOclIFcl=100ERROR只能輸入字符Y或N！,READ4)關于MESSAGE參數(shù)MESSAGE用于指定格式輸入語句的操作提示等說明性信息。MESSAGE信息顯示在屏幕的底行。如果程序中使用了SETMESSAGE命令，則MESSAGE信息顯示在此命令指定的位置。SETMESSAGE命令的一般格式是SETMESSAGETO行號LEFT|RIGHT|CENTER此命令不僅可以指定顯示MESSAGE信息的行號，還可以用關鍵字LEFT（左）、RIGHT（右）、CENTER（居中），指定在該行中的顯示位置。請看下例：例11.5執(zhí)行下面的程序，觀察MESSAGE信息在屏幕上的顯示位置。,SETMESSAGETO24CENTERMESSAGE請按月/日/年各兩位數(shù)字的順序輸入！READdd=CTOD(dt)DISPMEMOLIKEddRETU可見，GET語句中用關鍵字MESSAGE指定的信息在屏幕的24行居中顯示。,3.格式輸入、輸出語句綜合應用舉例例11.6這是一個工資管理系統(tǒng)程序的啟動畫面，它是這樣設計的：設置程序運行環(huán)境和初始化變量;先將整個屏幕從上下兩端向屏幕中間逐行畫“圓圈”；清除一個矩形區(qū)域內(nèi)寫本程序系統(tǒng)的有關信息；設置并詢問用戶口令，若三次回答不對，則退出FoxPro。其程序如下：*程序開始，先進行運行環(huán)境的設置和變量的初始化：,SETEXACTON&設置精確比較SETSTATUSOFF&關閉FoxPro系統(tǒng)信息SETCOLORTOW+/NCLEARSETCOLORTOG/Bk=1r=0*下面的循環(huán)是為了從屏幕兩端逐行畫“圓圈”：DOWHILEk=18&暫時按一屏輸出行ROW()+1,2SAY&結(jié)束頁的表格底線WAITWINDOWS按任意鍵繼續(xù)CLEAR5,4SAY單位：&mMC&使用絕對行、列號，相當換頁,5,4SAY單位：&mMC&使用絕對行、列號，相當換頁ROW()+1,2SAYROW()+1,2SAY|職工代碼|職工姓名|基本工資|職稱工資|地區(qū)補貼|實發(fā)工資|ROW()+1,2SAYSKIPLOOPELSE&不換頁時：IFEOF()&但是如果當前工資庫文件結(jié)束，輸出表格底線,ROW()+1,2SAYWAITWINDOWS按任意鍵繼續(xù)CLEAREXITELSE&繼續(xù)輸出當前庫的職工數(shù)據(jù)ROW()+1,2SAYENDIFENDIF,NDDOSELE1&一個處級單位輸出結(jié)束，為取下一個單位代碼SKIPIFEOF()&如果所有單位輸