1、第第1212章章表單設計基礎表單設計基礎 本本 章章 要要 點點n面向對象的基本概念面向對象的基本概念n設計類設計類n對象的操作對象的操作n對象設計實例對象設計實例任務一任務一 面向對象的基本概念面向對象的基本概念 1 1對象對象 （1 1）對象）對象 對象（Object）是反映客觀事物屬性及行為特征的描述。每個對象都具有描述其特征的屬性，及附屬于它的行為。對象把事物的屬性和行為封裝在一起，是一個動態(tài)的概念。（2 2）對象的三要素）對象的三要素 1）屬性 屬性(Attribute)是用來描述和反映對象特征的參數。 對象的每一種屬性，都有與其它對象加以區(qū)別的特性，都具有一定的含義，并賦予一定的值

2、。 訪問格式：對象引用.屬性 2 2）方法）方法 方法（Method)也叫“方法程序”。是指對象完成某種任務所固有的功能?？捎捎脩粼谛枰獣r調用。 調用格式：對象引用.方法 (參數名表) 常用的方法有： Cls 清除表單中的圖形與文本 Hide 通過修改Visable屬性來隱藏表單(集)或工具欄 Refresh 重新繪制表單或控件并刷新所有值 Release 從內存中釋放表單或表單集 Show 顯示表單并確定表單是模態(tài)的還是非模態(tài)的 3 3）事件）事件 事件(Event) 是每個對象可能用以識別和響應的某些行為和動作。它發(fā)生在用戶與應用程序交互時。如單擊控件、鼠標移動、鍵盤按下等。例如：單擊表單

3、時觸發(fā)了Click事件，屏幕顯示提示：你單擊了表單?？梢栽诒韱蔚腃lick事件中寫入代碼：MessageBox(“你單擊了表單”).在面向對象的程序設計中，要引用其中的某個對象，必須指出對象在嵌套層次中的位置，如同我們標識一個文件一樣。1. 1. 引用規(guī)則引用規(guī)則( (引用關鍵字開頭引用關鍵字開頭, ,逐級引用逐級引用) ) 格式：引用關鍵字.對象名(或對象的屬性、事件、方法程序)2. 2. 設置屬性值（編程方式）設置屬性值（編程方式） 格式: 對象.屬性=值例如：ThisForm.Caption=“退出”例: ThisForm.text1.value=date() 顏色設置 RGB屬性或屬性

4、或關鍵字關鍵字引引 用用 Parent當前對象的直當前對象的直接容器對象接容器對象This當前對象當前對象ThisForm當前對象所在當前對象所在的表單的表單ThisFormSet當前對象所在當前對象所在的表單集的表單集 (3) (3) 對象的引用對象的引用3. 3. 方法程序的調用方法程序的調用 通常在事件代碼中調用。 格式：對象.方法 例:Thisform.release 釋放表2 2類類 所謂類(Class)，就是一組相似對象的屬性和行為特征的抽象描述?；蛘哒f，類是具有共同屬性、共同操作性質的對象的集合。在Visual FoxPro系統(tǒng)中，類就像是一個模板，對象都是由類生成的，類定義了對

5、象所有的屬性、事件和方法，從而決定了對象的屬性和它的行為。Visual FoxPro系統(tǒng)為用戶提供的32個基類見下表： (1)(1)基類基類 基類又可以分成容器類和控件類。 容器類可以容納其它對象，并允許訪問所包含的對象。如表單，自身是一個對象，它又可以把按鈕、編輯框、文本框等放在表單中。 控件類不能容納其它對象，它沒有容器類靈活。如文本，自身是一個對象，在文本中不可放其它對象。由控件類創(chuàng)造的對象，是不能單獨使用和修改的，它只能做為容器類中的一個元素。父類子類子類繼承性繼承性繼承的方法與屬性添加的方法與屬性方法屬性 類具有繼承性、封裝性和多態(tài)性等特性。任務二任務二 表單設計表單設計1 1、什么

6、是表單、什么是表單表單（表單（FormForm）在系統(tǒng)中是用戶的主要界面，也有人把它稱為屏幕（）在系統(tǒng)中是用戶的主要界面，也有人把它稱為屏幕（ScreenScreen）或窗口。例如，對話框、向導、各種設計器等在或窗口。例如，對話框、向導、各種設計器等在VFPVFP中都視為表單。中都視為表單。2.2.表單設計器比表單向導靈活，不但能創(chuàng)建表單，且能修改表單設計器比表單向導靈活，不但能創(chuàng)建表單，且能修改表單；操作界面可視化；表單設計面向對象。表單；操作界面可視化；表單設計面向對象。1. 1. 表單設計的基本步驟表單設計的基本步驟2. 2. 快速創(chuàng)建表單快速創(chuàng)建表單3. 3. 表單設計常用的工具欄表單

7、設計常用的工具欄4. 4. 數據環(huán)境設計器數據環(huán)境設計器5. 5. 調整調整TabTab鍵次序鍵次序6. 6. 表單控件工具欄的使用表單控件工具欄的使用3. 3. 表單設計的基本步驟表單設計的基本步驟打開表單設計器：文件菜單（打開、新建）； 命令方式:CREATE FORM MODIFY FORM 對象操作與編碼：添加對象、設置屬性、編制事件代碼和方法程序代碼等；保存表單：文件/保存（不關閉設計器） Ctrl+W 窗口關閉按鈕產生兩個文件：表單文件（ .SCX）和表單備注文件（.SCT）執(zhí)行表單： 程序/運行 DO FORM 快捷菜單（返回表單設計器）表單文件和表單備注文件必須同時存在才能正確

8、運行。4. 4. 表單設計常用的工具欄表單設計常用的工具欄表單控件工具欄表單控件工具欄：用于在表單上創(chuàng)建控件。：用于在表單上創(chuàng)建控件。布局工具欄布局工具欄：用于放置控件、調整控件大小、對齊。：用于放置控件、調整控件大小、對齊。調色板工具欄調色板工具欄：用于指定控件的前景色和背景色。：用于指定控件的前景色和背景色。表單設計器工具欄表單設計器工具欄：包括設置：包括設置TabTab鍵次序、數據環(huán)境、屬性窗口、代鍵次序、數據環(huán)境、屬性窗口、代 碼窗口、上述碼窗口、上述3 3個工具欄、表單生成器、自動格式等按鈕。個工具欄、表單生成器、自動格式等按鈕。工具欄的顯示工具欄的顯示：通過：通過 “ “顯示顯示”

9、下拉菜單進行選擇。下拉菜單進行選擇。另外，屬性窗口、代碼窗口也是在表單設計中常用的。另外，屬性窗口、代碼窗口也是在表單設計中常用的。數據環(huán)境設計器數據環(huán)境設計器數據環(huán)境：數據環(huán)境：泛指定義表單或表單集時使用的數據源，包括表、視圖和關系?？呻S表單的打開或運行自動打開，隨表單的關閉或釋放自動關閉。數據環(huán)境設計器的作用：用于可視化地創(chuàng)建或修改數據環(huán)境。利用“數據環(huán)境”菜單命令，可添加、移去、瀏覽表和視圖，在父表和子表之間建立關聯等。6. 6. 表單控件工具欄的使用表單控件工具欄的使用首尾兩排4個按鈕是輔助按鈕，其余都是控件定義按鈕。（1）創(chuàng)建控件（2）控件基本操作選定控件，復制、移動、刪除，改變大小

10、、對齊等。作為控件定位參考，表單上可顯示網格線（顯示/網格線），網格線刻度可調整（格式/設置網格刻度），可設置對齊網格線（格式/對齊格線）（3）輔助按鈕的使用選定對象：可選定表單上控件或表示可創(chuàng)建控件。查看類：用于切換表單控件工具欄（“常用”/“ActiveX控件”）或添加控件按鈕。生成器鎖定：為添加控件鎖定相應的生成器，添加時自動打開。按鈕鎖定：用于連續(xù)創(chuàng)建若干個相同控件。任務三任務三 表單控件的介紹表單控件的介紹重點介紹以下幾種控件重點介紹以下幾種控件1 “標簽標簽”控件控件2 “計時器計時器”控件控件 3 “命令按鈕命令按鈕”控件控件4 “文本框文本框”控件控件 5 “組合框組合框”控件

11、控件6 “單選按鈕單選按鈕”控件控件 7 “微調微調”控件控件8 “復選框復選框” 9 “圖像圖像”控件控件10 “表格表格” 11 “命令按鈕組命令按鈕組”控件控件12 設計多頁表單設計多頁表單“表單設計器表單設計器”窗口窗口“屬性屬性”窗口窗口“ 表 單 控 件表 單 控 件”工具欄工具欄“表單設計器表單設計器” 工具欄工具欄“表單表單”菜單菜單空白表單空白表單表單設計器窗口表單設計器窗口一一 設計設計“標簽標簽”控件表單控件表單 1. 1. 標簽標簽(label)“標簽”控件主要用于在表單上顯示文本信息主要用于在表單上顯示文本信息, ,常用作提示或說明。常用作提示或說明。標簽標簽常用屬性

12、常用屬性: : Caption: 顯示文本信息的標題AutoSize：根據標題文本自動調整標簽大?。?F.）WordWrap：能否自動換行（.F.）BackColor：背景色BackStyle：標簽是否透明（0:透明, 1:不透明）BorderStyle：邊框樣式（0:無, 1:固定單線）Visible: 標簽是否顯示出來（.T.）Fontsize: 標題文字的字體大小Forecolor：標題文字的顏色Aligment: 標題文字對齊方式(0:左, 1:右, 2:居中)Name: 對象名稱, 主要用于對象的引用常用事件：常用事件： 單擊(click) 初始化(init)【例】【例】 建立一表單

13、，在表單上添加一個標簽控件，顯示文字為：建立一表單，在表單上添加一個標簽控件，顯示文字為：VFPVFP標簽示例標簽示例；字的大?。?；字的大?。?616。運行時單擊標簽，標簽文字修改。運行時單擊標簽，標簽文字修改為：為：Visual FoxPro 6.0Visual FoxPro 6.0標簽示例標簽示例設計步驟如下：創(chuàng)建表單。在表單上添加一個標簽控件。設置標簽控件屬性：Caption為：VFP標簽示例，FontSize為16，AutoSize為.T.。 雙 擊 標 簽 控 件 ， 編 輯 標 簽 C l i c k 事 件 代 碼 ：ThisForm.Label1.caption=Visual

14、FoxPro 6.0標簽示例保存表單文件BD1.SCX。單擊工具欄“運行”按鈕，執(zhí)行BD1.SCX。運行結果如圖所示。 計時器控件二二 “ “計時器計時器”控件表單控件表單 “計時器”控件允許在指定時間內周期性地自動地執(zhí)行其Timer事件代碼。計時器在表單設計過程中是可見的，但在運行時不可見，它的位置和大小都無關緊要。 “計時器”控件主要有兩個屬性，即Interval屬性和Enabled屬性。Interval屬性用于定義兩次計時器事件觸發(fā)的時間間隔（毫秒級）；Enabled屬性為真（.T.）表示啟動計時器，Enabled=.F.表示終止計時器。表單示意圖：計時器示例計時器示例-滾動文字Inte

15、rval屬性：50Enable屬性：.T.Timer事件代碼：(向左)If ThisForm.Label1.left1 ThisForm.Label1.left= ThisForm.Label1.left-2Else ThisForm.Label1.left= 420Endif命令按鈕命令按鈕三三 命令按鈕及命令按鈕組命令按鈕及命令按鈕組 (CommandGroup)(CommandGroup)控件控件“紅”按鈕Click代碼： ThisForm.BackColor=rgb(255,0,0)“綠”按鈕Click代碼： ThisForm.BackColor=rgb(0, 255, 0)“藍”按鈕

16、Click代碼： ThisForm.BackColor=rgb(0,0,255)“退出”按鈕Click代碼： ThisForm.Releasenrgb( ) 顏色函數n根據一組紅、綠、藍顏色成份返回一個單一的顏色值。Rgb(,)n注:色值范圍在0255之間四四 設計設計“文本框文本框”控件表單控件表單 文本框文本框【例】 創(chuàng)建一個如圖所示的登錄界面，標題為：登錄窗口；操作時若未輸入用戶名將彈出一個對話框顯示“必須輸入用戶名!”；輸入的口令限定為6位數字，假定口令是“123456”，但顯示6個“*”；如果操作正確，則彈出“祝賀登錄成功”畫面，并釋放表單。 創(chuàng)建一個表單FORM1，標題為：登錄窗口

17、；然后在表單上添加兩個標簽Label1、Label2，兩個文本框Text1、Text2。設置Label1、Label2的Caption屬性分別為：用戶名、口令。 Text2的InputMask屬性值為：999999；PasswordChar屬性值為：*號。雙擊Text1控件的Valid Event屬性,編寫Text1對象的Valid過程代碼如下： IF EMPTY(ThisForm.Text1.Value) MESSAGEBOX(“必須輸入用戶名!”,”驗證用戶口令”) RETURN .F. ENDIF同樣方法,編寫Text2對象的Valid過程代碼如下： IF ThisForm.Text2.

18、Value=123456 MESSAGEBOX(祝賀登錄成功!,歡迎光臨) ThisForm.RELEASE ENDIF保存表單，名稱為BD2.SCX，并運行表單。 五五 編輯框（編輯框（EDITBOXEDITBOX）用于輸入或編輯文本數據。常用于多段長文本和備注型字段內容的輸入和編輯。常用屬性屬屬 性性說說 明明默認值默認值NameName編輯框的名稱Edit1ControlSourceControlSource設置與編輯框綁定的數據源無HideSelectionHideSelection設置當編輯框失去焦點時，是否隱藏編輯框中選定文本的選定狀態(tài)。.T.-選定,.F.-非選定.T.Scrol

19、lBarsScrollBars設置編輯框是否有滾動條。0-沒有，2-垂直2SelStartSelStart返回用戶所選文本的起始點或插入點(沒有文本選定時)位置。0SelLengthSelLength返回用戶所選文本的字符數。0SelTextSelText返回用戶所選文本空串AllowTabsAllowTabs指定編輯框中能否使用TAB鍵。.T.-是,.F.-否.F.【例】 創(chuàng)建一個表單，添加一個編輯框Edit1和文本框Text1，將數據表DA.DBF中的“簡歷”字段與編輯框綁定，以便編輯備注型字段內容。當在編輯框中選定一段內容并單擊文本框Text1時，則在文本框中顯示所選內容。創(chuàng)建表單，在表

20、單上添加兩個標簽Label1、Label2，Caption屬性分別為：簡歷、所選內容。再添加一個編輯框Edit1和一個文本框Text1。 在 數 據 環(huán) 境 設 計 器 中 添 加 表 ： D A . D B F ， 再 將 E d i t 1 的ControlSourceControlSource屬性與屬性與DA.DBF中的備注字段“簡歷”綁定。雙擊編輯框Edit1，選擇LostFocus過程，編寫焦點離開時代碼如下： ThisForm.Edit1.HideSelection=.F.ThisForm.Edit1.HideSelection=.F.雙擊文本框Text1，選擇GotFocus過程

21、，編寫焦點移至時代碼如下： This.Value= ThisForm.Edit1.SelTextThis.Value= ThisForm.Edit1.SelText保存表單，名稱為BD3.SCX，并運行表單。 任務六任務六“單選按鈕單選按鈕” ” 控件表單控件表單 單選按鈕單選按鈕表單示意圖【例】 創(chuàng)建如上圖所示表單，定義一個名稱為“OptionGroup1”的單選按鈕組，所含按鈕個數為4，標題依次為“宋體”、“隸書”、“黑體”和“幼圓”，當選中某個按鈕時，文本框中的字體發(fā)生相應的變化，用Do Case結構編寫“OptionGroup1”的Click事件代碼；在控件窗口中選擇單選按鈕組控件，在

22、表單的適當位置拖放，在該控件的屬性窗口中，將ButtonCount設置為4，其中四個選項按鈕的Caption分別設置為“宋體”、“隸書”、“黑體”和“幼圓”,單選按鈕組Click事件代碼如下：do case case this.value=1 thisform.text1.fontname=宋體 case this.value=2 thisform.text1.fontname=隸書 case this.value=3 thisform.text1.fontname=黑體 case this.value=4 thisform.text1.fontname=幼圓 endcase 保存表單，并運行

23、表單。七七 “ “復選框復選框” ” 表單表單 復選框允許同時選擇多項，當處于“真”狀態(tài)時，復選框內顯示一個對勾（）；否則，復選框內為空白。主要屬性： 1 1ValueValue屬性屬性用來指明復選框的當前狀態(tài)。復選框的Value屬性值的設置有如下三種情況：0或.F. 未被選中（默認）1或.T. 被選中 灰色，只能通過代碼設置 2 2StyleStyle屬性屬性復選框的外觀： 0 方框按鈕（標準樣式，默認值），右側顯示Caption文本，選中出現“”標記。 1 圖形按鈕，在Picture屬性指定為圖形時，Caption文本圖形下方，選中按鈕呈按下。若Picture屬性未指定為圖形時，為文本按鈕

24、。復選框復選框復選框表單設計示例復選框表單設計示例八八 “ “微調微調” ” 表單表單 微調 “微調”控件可在控件框中輸入或選擇一個值，主要屬性有：KeyBoardHighValue、 KeyBoardLowValue、Increment、Value，分別用于表示：最大值、最小值、增減值與初始值。表單示意圖：九九 列表框與組合框列表框與組合框主要用于提供選項列表。前者始終顯示列表選項供選擇；后者通常主要用于提供選項列表。前者始終顯示列表選項供選擇；后者通常僅顯示一項，單擊下拉鈕才顯示下拉列表。僅顯示一項，單擊下拉鈕才顯示下拉列表。組合框又有下拉組合和下拉列表兩類，前者除有選項功能外還可輸組合框

25、又有下拉組合和下拉列表兩類，前者除有選項功能外還可輸入，后者則與列表框相同，僅有選項功能。入，后者則與列表框相同，僅有選項功能。常用屬性常用屬性RowsourceRowsource：指定值的來源：指定值的來源RowsourcetypeRowsourcetype：選項類型，：選項類型，1:1:值值,2-,2-別名別名,3-SQL,4-,3-SQL,4-查詢查詢,5:,5:數組數組,6:,6:字段字段,7-,7-文件文件,8-,8-結構結構,9-,9-彈出式菜單彈出式菜單（1 1）使用列表框生成器設置列表框常用屬性）使用列表框生成器設置列表框常用屬性指定選項：字段內容、輸入數值、數組值指定選項：字

26、段內容、輸入數值、數組值指定樣式：列表框的外觀指定樣式：列表框的外觀設置列寬設置列寬指定返回值及存儲指定返回值及存儲（2 2）使用組合框生成器設置組合框常用屬性）使用組合框生成器設置組合框常用屬性StyleStyle屬性：屬性：0 0：下拉組合，：下拉組合，1 1：下拉列表：下拉列表幾個有用的屬性：幾個有用的屬性：ListCountListCount：返回選項個數：返回選項個數ListIndexListIndex: : 返回或設置選定項序號返回或設置選定項序號SelectedSelected：判斷選定否，：判斷選定否，.T.T.為選定，為選定，.F.F.為未選定為未選定ValueValue：返

27、回列表中選定項的值：返回列表中選定項的值DisplayValueDisplayValue：返回組合框中輸入的文本：返回組合框中輸入的文本ListList：返回指定行、列位置的選項內容：返回指定行、列位置的選項內容例定義一個名稱為“Command1”，標題為“開始”的按鈕，當單擊該按鈕時，將1到20之間的數顯示在列表框“List1”中，編寫其Click事件代碼；FOR I=1 TO 20THISFORM.LIST1.additem(str(I)ENDFOR十 “組合框”控件表單 列表框在任何時候都能看到多個條目；而在下拉列表中，用戶只能看到一個條目，單擊向下的按鈕可顯示滾動的下拉列表框。而組合框用戶可以單擊下拉組合框上的按鈕查看選擇項的列表，也可直接在按鈕旁邊的框中直接輸入一個新項。表單示意圖：十一十一 “ “圖像圖