程序設(shè)計(jì)表單設(shè)計(jì)

會(huì)計(jì)學(xué)1程序設(shè)計(jì)表單設(shè)計(jì)本章的主要內(nèi)容：6.1案例引入 6.2表單設(shè)計(jì)基礎(chǔ)（重點(diǎn)）6.3利用表單設(shè)計(jì)器設(shè)計(jì)表單（重點(diǎn)） 6.4表單控件設(shè)計(jì)（重點(diǎn)、難點(diǎn)）第1頁(yè)/共103頁(yè)6.1案例引入

在學(xué)習(xí)表的操作的時(shí)候，我們對(duì)表中數(shù)據(jù)的操作一般都是在VisualFoxPro提供的界面中進(jìn)行，例如我們?cè)诒淼臑g覽窗口中瀏覽表中記錄，修改表中原有數(shù)據(jù)，并可以追加新的記錄。我們?nèi)绾蚊撾xVisualFoxPro系統(tǒng)提供的操作界面，按照自己的需要定制更加友好的數(shù)據(jù)輸入和輸出界面呢？這就需要用到表單（Form）。VisualFoxPro中的表單類似于Windows中的窗口與對(duì)話框，利用表單、表單中的控件以及程序代碼，可以輸出數(shù)據(jù)、接受用戶的數(shù)據(jù)輸入，還可以對(duì)數(shù)據(jù)進(jìn)行各種處理。第2頁(yè)/共103頁(yè)例如，我們要處理學(xué)生檔案表（xsda.dbf）中的數(shù)據(jù)，就可以以學(xué)生檔案表為數(shù)據(jù)源建一個(gè)表單，通過(guò)這個(gè)表單，可以十分方便地對(duì)學(xué)生檔案表中的數(shù)據(jù)進(jìn)行處理。在這一表單界面中，用戶只要單擊界面上的各個(gè)按鈕，就可以馬上實(shí)現(xiàn)相應(yīng)操作，單擊“上一條記錄”、“下一條記錄”按鈕可以移動(dòng)記錄指針，單擊“增加”按鈕可以添加新的記錄，單擊“編輯”按鈕可以編輯當(dāng)前記錄，如圖6-2所示。

第3頁(yè)/共103頁(yè)

圖6-2通過(guò)表單來(lái)處理學(xué)生檔案表中的數(shù)據(jù)第4頁(yè)/共103頁(yè)6.2表單設(shè)計(jì)基礎(chǔ)1.使用“表單向?qū)А眲?chuàng)建表單

VisualFoxPro提供了兩種表單向?qū)?lái)幫助用戶創(chuàng)建表單：“表單向?qū)А边m合于創(chuàng)建基于一個(gè)表的表單?！耙粚?duì)多表單向?qū)А边m合于創(chuàng)建基于兩個(gè)具有一對(duì)多關(guān)系的表的表單。調(diào)用表單向?qū)в袃煞N方法：

第5頁(yè)/共103頁(yè)

方法一：1）在“項(xiàng)目管理器”中選擇“文檔”選項(xiàng)卡，選擇其中的“表單”，如圖6-3所示。2）單擊“新建”按鈕，系統(tǒng)彈出“新建表單”對(duì)話框，如圖6-4所示。3）單擊“表單向?qū)А眻D標(biāo)按鈕，打開(kāi)“向?qū)нx取”對(duì)話框，如圖6-4所示。4）從列表框中選擇要使用的向?qū)?，然后單擊“確定”按鈕。5）接下來(lái)，系統(tǒng)打開(kāi)相應(yīng)的對(duì)話框，一步一步地向用戶詢問(wèn)一些簡(jiǎn)單的問(wèn)題，并根據(jù)用戶的回答自動(dòng)創(chuàng)建表單。第6頁(yè)/共103頁(yè)

方法二：菜單方式調(diào)用。在“文件”菜單中選擇“新建”選項(xiàng)，然后在打開(kāi)的“新建”對(duì)話框中選擇“表單”文件類型并單擊“向?qū)А卑粹o。或者在“工具”菜單中的“向?qū)А弊硬藛沃羞x擇“表單”選項(xiàng)。第7頁(yè)/共103頁(yè)

2.使用“表單設(shè)計(jì)器”（FormDesigner）創(chuàng)建表單可以使用以下三種方法中的一種來(lái)調(diào)用表單設(shè)計(jì)器：方法一：在項(xiàng)目管理器中調(diào)用。1）在“項(xiàng)目管理器”中選擇“文檔”選項(xiàng)卡，選定“表單”選項(xiàng)。2）單擊“新建”命令按鈕，系統(tǒng)彈出“新建表單”對(duì)話框。3）單擊“新建表單”按鈕。方法二：菜單方式調(diào)用。1）選擇“文件”菜單中的“新建”選項(xiàng)，打開(kāi)“新建”對(duì)話框。2）選擇“表單”文件類型，然后單擊“新建文件”按鈕。

第8頁(yè)/共103頁(yè)

方法三：命令方式調(diào)用。在命令窗口中輸入CREATEFORM命令。無(wú)論采用上面哪種方法，系統(tǒng)將打開(kāi)“表單設(shè)計(jì)器”窗口，如圖6-5所示。圖6-5表單設(shè)計(jì)器窗口第9頁(yè)/共103頁(yè)

3.使用“表單生成器”（FormBuilder）來(lái)創(chuàng)建表單在“表單設(shè)計(jì)器”的環(huán)境下，也可以調(diào)用表單生成器（如圖6-6所示）。其方法有以下三種：方法一：選擇“表單”菜單中的“快速表單”選項(xiàng)。方法二：?jiǎn)螕簟氨韱卧O(shè)計(jì)器”工具欄中的“表單生成器”按鈕。方法三：右鍵單擊表單窗口，然后在彈出的快捷菜單中選擇“生成器”選項(xiàng)。“表單生成器”對(duì)話框如圖6-6所示，其中，有兩個(gè)選項(xiàng)卡：“字段選取”和“樣式”。第10頁(yè)/共103頁(yè)6.2.2保存表單

若要保存設(shè)計(jì)好的表單，可以在“表單設(shè)計(jì)器”中選擇“文件”菜單中的“保存”選項(xiàng)，然后在打開(kāi)的對(duì)話框中指定表單文件的文件名。設(shè)計(jì)的表單將被保存在一個(gè)表單文件（.scx）和一個(gè)表單備注文件（.sct）中。第11頁(yè)/共103頁(yè)6.2.3修改表單修改表單的方法有如下三種：方法一：在“項(xiàng)目管理器”中修改。1）在“項(xiàng)目管理器”中選擇“文檔”選項(xiàng)卡；2）如果表單類文件沒(méi)有展開(kāi)，單擊“表單”圖標(biāo)左邊的加號(hào)；3）選擇需要修改的表單文件，然后單擊“修改”按鈕。方法二：菜單方式調(diào)用。1）選擇“文件”菜單中的“打開(kāi)”選項(xiàng)；2）在“打開(kāi)”對(duì)話框中選擇需要修改的表單文件。方法三：命令方式調(diào)用。在命令窗口中輸入MODIFYFORM<表單文件名>。第12頁(yè)/共103頁(yè)6.2.4運(yùn)行表單根據(jù)表單文件和表單備注文件的內(nèi)容產(chǎn)生表單對(duì)象就是運(yùn)行表單，可以采用如下四種方法來(lái)運(yùn)行表單文件：方法一：在項(xiàng)目管理器中運(yùn)行。1）在“項(xiàng)目管理器”中選擇要運(yùn)行的表單；2）單擊“項(xiàng)目管理器”窗口里的“運(yùn)行”按鈕。方法二：在表單設(shè)計(jì)器環(huán)境下選擇“表單”菜單中的“執(zhí)行表單”選項(xiàng)，或單擊工具欄上的“運(yùn)行”按鈕。第13頁(yè)/共103頁(yè)

方法三：選擇“程序”菜單中的“運(yùn)行”選項(xiàng)，打開(kāi)“運(yùn)行”對(duì)話框。在對(duì)話框中指定要運(yùn)行的表單文件，單擊“運(yùn)行”按鈕。方法四：命令方式調(diào)用。在命令窗口中輸入以下命令：DOFORM<表單文件名>[NAME<變量名>]WITH<實(shí)參1>[,<實(shí)參2>,…][LINKED][NOSHOW]第14頁(yè)/共103頁(yè)6.3利用表單設(shè)計(jì)器設(shè)計(jì)表單6.3.1表單設(shè)計(jì)器簡(jiǎn)介如果要完全按照自己的要求來(lái)設(shè)計(jì)表單，就需要用到表單設(shè)計(jì)器。表單設(shè)計(jì)器是系統(tǒng)提供給用戶用來(lái)設(shè)計(jì)表單的工作界面，利用它，用戶可以用一種可視化的方式來(lái)建立和修改表單。第15頁(yè)/共103頁(yè)

1.打開(kāi)表單設(shè)計(jì)器通過(guò)如下方法中的任何一種，都可以打開(kāi)表單設(shè)計(jì)器。1）單擊VisualFoxPro系統(tǒng)工具欄上的“新建”按鈕，在新建表單對(duì)話框選擇“新建表單”；2）在“項(xiàng)目管理器”中選定“表單”，并選擇“新建”按鈕；3）在命令窗口輸入命令CREATEFORM表單文件名；4）在命令窗口輸入命令MODIFYFORM表單文件名。第16頁(yè)/共103頁(yè)

2.表單設(shè)計(jì)器工作界面圖6-7表單設(shè)計(jì)器的常用工具第17頁(yè)/共103頁(yè)

3.表單的基本屬性1）表單的基本屬性表單的基本屬性如表6-2所示。表單的常用屬性說(shuō)明如表6-3所示。2）表單的基本事件表單的常用事件如表6-4所示。3）表單的基本方法表單的基本方法如表6-5所示。第18頁(yè)/共103頁(yè)

4．表單基本屬性的設(shè)置方法1）利用屬性窗口進(jìn)行設(shè)置打開(kāi)“屬性”窗口的基本方法：用鼠標(biāo)右擊設(shè)計(jì)器窗口中的新表單，在彈出的快捷菜單中選擇“屬性”菜單項(xiàng)，或直接單擊“窗體設(shè)計(jì)器”工具欄中的“屬性窗口”按鈕，便可出現(xiàn)“屬性”窗口，（如圖6-11所示）。設(shè)置屬性的方法：先在屬性列表中選定某個(gè)屬性名，然后在列表上方的編輯框中直接輸入或重新選定一個(gè)屬性值即可。有的屬性可能需要單擊屬性編輯框右側(cè)的編輯按鈕，在彈出的對(duì)話框中進(jìn)行設(shè)置（如顏色、圖片等）。第19頁(yè)/共103頁(yè)

2）以代碼方式設(shè)置屬性可在表單或控件的事件代碼中設(shè)置表單的相關(guān)屬性。如：This.BackColor=RGB(0,0,255)3）鼠標(biāo)拖動(dòng)設(shè)置對(duì)于表單的Height（高度）和Width（寬度）屬性，可通過(guò)鼠標(biāo)拖動(dòng)的方式來(lái)設(shè)置。第20頁(yè)/共103頁(yè)

5．設(shè)置表單的數(shù)據(jù)環(huán)境數(shù)據(jù)環(huán)境是一個(gè)容器類對(duì)象。用戶可在數(shù)據(jù)環(huán)境中預(yù)定義表單中各控件的數(shù)據(jù)來(lái)源。一旦將數(shù)據(jù)表或視圖添加到表單的數(shù)據(jù)環(huán)境中，它們就會(huì)隨著表單設(shè)計(jì)器的打開(kāi)或表單的運(yùn)行而自動(dòng)打開(kāi)，當(dāng)關(guān)閉或釋放表單時(shí)，它們也會(huì)隨之關(guān)閉?！皩傩浴贝翱谥校瑢?duì)象的ControlSource（控件的數(shù)據(jù)源）屬性與數(shù)據(jù)環(huán)境中的所有字段相連。第21頁(yè)/共103頁(yè)

1）數(shù)據(jù)環(huán)境常用屬性如下：AutoOpenTables：當(dāng)打開(kāi)或運(yùn)行表單時(shí)，控制是否打開(kāi)數(shù)據(jù)環(huán)境中的表或視圖，默認(rèn)值為“真”。AutoCloseTables：當(dāng)關(guān)閉或釋放表單時(shí)，控制是否關(guān)閉由數(shù)據(jù)環(huán)境指定的表或視圖，默認(rèn)值為“真”。InitialSelectedAlias：運(yùn)行表單時(shí)選定的表或視圖，如果沒(méi)有指定，在運(yùn)行時(shí)首先加到“數(shù)據(jù)環(huán)境”中的臨時(shí)表最先被選中。第22頁(yè)/共103頁(yè)

2）啟動(dòng)數(shù)據(jù)環(huán)境設(shè)計(jì)器利用數(shù)據(jù)環(huán)境設(shè)計(jì)器能可視化地創(chuàng)建、修改表單的數(shù)據(jù)環(huán)境。打開(kāi)數(shù)據(jù)環(huán)境設(shè)計(jì)器的方法：?jiǎn)?dòng)“表單設(shè)計(jì)器”后，在選擇“顯示”菜單中的“數(shù)據(jù)環(huán)境”命令，打開(kāi)數(shù)據(jù)環(huán)境設(shè)計(jì)器窗口。第一次打開(kāi)數(shù)據(jù)環(huán)境設(shè)計(jì)器窗口時(shí)，要求打開(kāi)一個(gè)數(shù)據(jù)表?？梢韵驍?shù)據(jù)環(huán)境設(shè)計(jì)器窗口添加、移去數(shù)據(jù)表或者視圖。此外，還可在表單的右鍵快捷菜單中選擇“數(shù)據(jù)環(huán)境”命令和“表單設(shè)計(jì)器”工具欄中選擇“數(shù)據(jù)環(huán)境”按鈕。第23頁(yè)/共103頁(yè)

3）向數(shù)據(jù)環(huán)境中添加、移去數(shù)據(jù)表或視圖在數(shù)據(jù)環(huán)境設(shè)計(jì)器窗口中右擊，從彈出的快捷菜單中可以選擇“添加”（如圖6-12所示），來(lái)添加表或視圖；選中已經(jīng)添加進(jìn)數(shù)據(jù)環(huán)境的表或視圖，右擊，從彈出的快捷菜單中可以選擇“移去”，可以移去表或視圖。第24頁(yè)/共103頁(yè)

4）設(shè)置數(shù)據(jù)表之間的關(guān)系如果兩張數(shù)據(jù)表已經(jīng)建立永久關(guān)系，則將這兩張數(shù)據(jù)表添加進(jìn)數(shù)據(jù)環(huán)境時(shí)，將自動(dòng)得到一個(gè)臨時(shí)關(guān)系。如果添加進(jìn)“數(shù)據(jù)環(huán)境”中的兩張數(shù)據(jù)表事先沒(méi)有建立永久關(guān)系，可以在“數(shù)據(jù)環(huán)境設(shè)計(jì)器”中為它們?cè)O(shè)置臨時(shí)關(guān)系，方法是將主表字段拖動(dòng)到子表相應(yīng)的索引標(biāo)志上，或者使用命令代碼段來(lái)實(shí)現(xiàn)。第25頁(yè)/共103頁(yè)

5）直接拖放數(shù)據(jù)至表單可以將數(shù)據(jù)直接從數(shù)據(jù)環(huán)境拖到表單中，這樣可以直觀、快速得到用于處理這些數(shù)據(jù)的對(duì)象，例如，將一個(gè)字符型字段從數(shù)據(jù)環(huán)境拖到表單中，可以得到一個(gè)標(biāo)簽和文本框，用于顯示提示信息和字段中的數(shù)據(jù)；將一張數(shù)據(jù)表從數(shù)據(jù)環(huán)境拖到表單中，可以得到一個(gè)表格。第26頁(yè)/共103頁(yè)

6）數(shù)據(jù)環(huán)境中對(duì)象的屬性設(shè)置數(shù)據(jù)環(huán)境默認(rèn)的名字叫DataEnvironment，添加進(jìn)來(lái)的數(shù)據(jù)表或視圖默認(rèn)的名字依次為：Cursor1，Cursor2，……，每一個(gè)Cursor對(duì)象的Alias屬性就是它所對(duì)應(yīng)的數(shù)據(jù)表或視圖，通過(guò)設(shè)置Cursor對(duì)象的Order屬性，可以指定表的主控索引。第27頁(yè)/共103頁(yè)

6.向表單中添加控件表單中可以有兩類控件，一類是內(nèi)容可以與后端的表、視圖或查詢中的字段或內(nèi)存變量相關(guān)聯(lián)的控件，稱為綁定型控件；另一類是內(nèi)容不與后端的表、視圖或查詢中的字段或內(nèi)存變量相關(guān)聯(lián)的控件，稱為非綁定型控件。第28頁(yè)/共103頁(yè)

不同的控件，其功能是不同的，對(duì)于某個(gè)特定的任務(wù)，我們應(yīng)當(dāng)選擇合適的控件來(lái)完成。添加控件的方法：1）使用“表單”菜單項(xiàng)中的快速表單向?qū)砑涌丶?）由數(shù)據(jù)環(huán)境直接添加控件。注意：字段類型與控件類型的對(duì)應(yīng)關(guān)系。3）用“窗體控件”工具欄創(chuàng)建控件。第29頁(yè)/共103頁(yè)

7.設(shè)置控件的必要屬性及編寫(xiě)事件代碼1）控件的通用屬性控件的通用屬性如表6-7所示。2）設(shè)置控件的必要屬性使用代碼設(shè)置對(duì)象屬性一般可分為三種情況。（1）一條語(yǔ)句設(shè)置一個(gè)對(duì)象的一個(gè)屬性。例如設(shè)置表單中文本框Text1的相關(guān)屬性：This.Text1.Enabled=.T.&&控件有效This.Text1.Value=DATE（）&&顯示當(dāng)前日期This.Text1.ForeColor=RGB（0，0，0)

&&黑色文本This.Text1.BackColor=RGB（128，128，128）&&灰色背景第30頁(yè)/共103頁(yè)

（2）使用WITH…ENDWITH語(yǔ)法結(jié)構(gòu)設(shè)置一個(gè)對(duì)象的多個(gè)屬性。例如同樣設(shè)置文本框的上述4個(gè)屬性，可以使用如下語(yǔ)句：WITHThis.Text1Enabled=.T.Value=DATE（）ForeColor=RGB（0，0，0）第31頁(yè)/共103頁(yè)

BackColor=RGB（128，128，128）ENDWITH（3）使用容器對(duì)象的SETALL方法設(shè)置容器中所有對(duì)象的同一屬性。例如為了把表格控件中列對(duì)象的BackColor屬性設(shè)置為紅色，可以使用下列語(yǔ)句：Form1.Grid1.SetAll(“BackColor”,RGB(255,0,0),“Column”)第32頁(yè)/共103頁(yè)

8.在表單中調(diào)用對(duì)象的方法程序在VisualFoxPro中對(duì)象一經(jīng)創(chuàng)建，用戶便可以在應(yīng)用程序的任何一個(gè)地方調(diào)用這個(gè)對(duì)象的方法。調(diào)用對(duì)象方法的語(yǔ)法格式如下：Parent.Object.Method例如下列語(yǔ)句調(diào)用方法程序來(lái)顯示表單，并將焦點(diǎn)設(shè)置在文本框上：第33頁(yè)/共103頁(yè)

ThisFormSet.Form1.ShowThisFormSet.Form1.Text1.SetFocus如果用戶調(diào)用的方法程序含有參數(shù)，那么所需傳遞給方法程序的參數(shù)必須放在方法程序名后面的圓括號(hào)中。例如，F(xiàn)orm1.Show(nStyle)，將參數(shù)nStyle傳遞給Form1的Show方法程序代碼。第34頁(yè)/共103頁(yè)

9.在表單中響應(yīng)對(duì)象的事件當(dāng)用戶的操作（鼠標(biāo)動(dòng)作或按鍵）激發(fā)了對(duì)象的某個(gè)事件，該事件中的過(guò)程代碼將被執(zhí)行。例如，當(dāng)用戶單擊命令按鈕時(shí)，命令按鈕的Click事件過(guò)程代碼將被執(zhí)行。事件中的過(guò)程代碼也可以在程序運(yùn)行時(shí)由程序調(diào)用而激活，這時(shí)事件代碼就如同一般過(guò)程一樣。例如我們需要在關(guān)閉表單Form1前自動(dòng)執(zhí)行命令第35頁(yè)/共103頁(yè)

按鈕Command1的Click事件，我們可以在表單的卸載事件Destory中輸入如下語(yǔ)句：This.Command1.Click（）10.保存、修改、運(yùn)行和關(guān)閉表單第36頁(yè)/共103頁(yè)6.3.2設(shè)計(jì)一個(gè)簡(jiǎn)單的表單下面我們使用表單設(shè)計(jì)器來(lái)設(shè)計(jì)一個(gè)只顯示一行提示文字的表單實(shí)例。我們假定要在表單上顯示的這行文字是“VisualFoxPro程序設(shè)計(jì)”，并假定我們要求的表單大小為寬300像素，高150像素。第37頁(yè)/共103頁(yè)

1.進(jìn)入表單設(shè)計(jì)器單擊VisualFoxPro系統(tǒng)主界面工具欄上的“新建”按鈕，在“新建”對(duì)話框中選擇文件類型為表單，再選擇“新建文件”，就可以進(jìn)入表單設(shè)計(jì)器。第38頁(yè)/共103頁(yè)

2.設(shè)置表單屬性如果進(jìn)入表單設(shè)計(jì)器后屬性窗口并未顯示出來(lái)，只需要把鼠標(biāo)指向表單后右擊，從彈出的快捷菜單中選擇“屬性”，屬性窗口就會(huì)出現(xiàn)。在屬性窗口中找到表單的Width屬性，將其設(shè)置為300，再單擊按鈕確認(rèn)，如圖6-13所示。第39頁(yè)/共103頁(yè)

3.放入控件如果在表單設(shè)計(jì)器界面上看不到表單控件工具欄，可以單擊“顯示”菜單，選擇“表單控件工具欄”來(lái)調(diào)出表單控件工具。表單控件工具欄上的標(biāo)簽按鈕，用來(lái)顯示文本信息。我們單擊這一工具，然后在表單上用鼠標(biāo)拖出一個(gè)矩形區(qū)域，表示標(biāo)簽控件占據(jù)的位置，就將一個(gè)標(biāo)簽控件放置到了表單上，如圖6-14所示。一般情況下，這個(gè)標(biāo)簽會(huì)有一個(gè)默認(rèn)的名字，叫“Label1”，它顯示的內(nèi)容也是“Label1”。第40頁(yè)/共103頁(yè)

4.設(shè)置標(biāo)簽屬性決定標(biāo)簽顯示內(nèi)容的是它的Caption屬性。現(xiàn)在已經(jīng)有兩個(gè)對(duì)象：表單Form1和標(biāo)簽Label1，要對(duì)標(biāo)簽進(jìn)行屬性設(shè)置的話，先要在屬性窗口上部的組合框中選擇對(duì)象為標(biāo)簽Label1，然后找到標(biāo)簽的Caption屬性，將其設(shè)置為“VisualFoxPro程序設(shè)計(jì)”這樣一個(gè)字符串，過(guò)程如圖6-15所示。第41頁(yè)/共103頁(yè)

5.保存并運(yùn)行表單表單設(shè)計(jì)完成后，單擊系統(tǒng)工具欄上的存盤(pán)按鈕，在存盤(pán)對(duì)話框中指定表單保存的位置和名稱，即可將表單文件保存起來(lái)，表單文件的擴(kuò)展名是“.scx”，我們輸入表單存盤(pán)的主文件名為：exam1。存盤(pán)后，單擊工具欄上的運(yùn)行按鈕，就可以運(yùn)行表單，也可以用命令：DOFORM表單文件名來(lái)執(zhí)行表單。表單exam1運(yùn)行后的界面如圖6-15所示。第42頁(yè)/共103頁(yè)

6.修改表單已經(jīng)保存好的表單可以再次打開(kāi)進(jìn)行修改，方法是直接打開(kāi)表單文件或是在命令窗口中輸入命令：MODIFYFORM表單文件名這樣就會(huì)再次進(jìn)入表單設(shè)計(jì)器，用戶可以對(duì)原有的表單進(jìn)行修改。第43頁(yè)/共103頁(yè)6.4表單控件設(shè)計(jì)

6.4.1輸出類控件1．標(biāo)簽標(biāo)簽（Label）是一個(gè)圖形控件，常用于顯示文本信息。標(biāo)簽在表單設(shè)計(jì)中常用于顯示提示信息或說(shuō)明信息。如果要在表單上創(chuàng)建一個(gè)標(biāo)簽控件，只需要單擊控件工具欄中的標(biāo)簽按鈕，然后在表單中合適的位置單擊即可。一個(gè)標(biāo)簽最多可容納256個(gè)字符。第44頁(yè)/共103頁(yè)

2.圖象、線條與形狀創(chuàng)建圖象（Image）的步驟如下：在表單上創(chuàng)建一個(gè)圖象控件，在屬性窗口選定Picture屬性，并通過(guò)文本框右側(cè)的對(duì)話按鈕選定一個(gè)圖象，該圖象即顯示在圖象控件處。線條控件（Line）用于在表單上畫(huà)各種類型的線條，包括斜線、水平線和垂直線。第45頁(yè)/共103頁(yè)

形狀控件（Shape）是可以顯示矩形、圓或橢圓的圖形控件，這些圖形不能直接修改。但是，因?yàn)樾螤羁丶ê芏嗥渌刂凭哂械膶傩浴⑹录头椒?，所以形狀控件能響?yīng)事件，并且在運(yùn)行時(shí)可動(dòng)態(tài)地修改。Curvature屬性決定顯示什么樣的圖形，它的變化范圍是0到99。0表示無(wú)曲率，用來(lái)創(chuàng)建矩形；99表示最大曲率，創(chuàng)建圓和橢圓。[例題6.1]設(shè)計(jì)如圖6-16所示的應(yīng)用程序封面。第46頁(yè)/共103頁(yè)6.4.2輸入類控件1.文本框文本框（Text）是一類基本控件，是最常用的控件。主要用于數(shù)據(jù)表中某些數(shù)據(jù)的輸入輸出或編輯，以及從窗口給內(nèi)存變量賦值等操作。文本框有自己的數(shù)據(jù)源，通常是以表的一個(gè)非備注字段或一個(gè)內(nèi)存變量作為自己的數(shù)據(jù)源。1）文本框的常用屬性、事件和方法如果設(shè)置了文本框的ControlSource屬性，則顯示在文本框中的值將保存在文本框的Value屬性中，同時(shí)保存在ControlSource屬性指定的變量或字段中。文本框的常用屬性如表6-11所示。第47頁(yè)/共103頁(yè)

2）文本框生成器文本框生成器是設(shè)置屬性的向?qū)В褂蒙善鳛榭丶O(shè)置常用的屬性非常方便。3）在文本框中接受用戶密碼在應(yīng)用程序設(shè)計(jì)中，經(jīng)常需要獲得某些安全信息，如密碼。這時(shí)需要設(shè)置文本框的passwordchar屬性為“*”或其它一些字符，用文本框的Value和Text來(lái)接收這一信息，而不在屏幕上顯示其實(shí)際內(nèi)容。參見(jiàn)例題6.8，如圖6-30所示。第48頁(yè)/共103頁(yè)

2.列表框列表框（List）主要用來(lái)顯示選擇項(xiàng)，并且維護(hù)其ControlSource屬性所結(jié)合的數(shù)據(jù)。列表框控件可同時(shí)顯示圖形與項(xiàng)目文字，可以多重選擇，并具有移動(dòng)項(xiàng)目位置的功能。列表框和下拉列表框（即Style屬性為2的組合框控件）中包含了一些選項(xiàng)和信息的可滾動(dòng)列表。列表框中任何時(shí)候都能看到多個(gè)項(xiàng)，下拉列表框中只能看到一個(gè)項(xiàng)，可單擊向下按鈕來(lái)顯示可滾動(dòng)的下拉列表框。第49頁(yè)/共103頁(yè)

1）列表框的常用屬性和方法程序列表框的Value屬性可以是數(shù)值型，也可以是字符型，默認(rèn)值為數(shù)值型。如果RowSource是字符型值，并且要讓Value屬性反映列表中選定的字符串，則應(yīng)將Value屬性設(shè)置為空字符串。（1）列表框的常用屬性常用列表框的屬性如表6-13所示。第50頁(yè)/共103頁(yè)

（2）列表框中常用的方法有：①AddItem：當(dāng)RowSourceType屬性為0（默認(rèn)值）或1時(shí)，給列表框添加一項(xiàng)。②RemoveItem：當(dāng)RowSourceType屬性為0（默認(rèn)值）或1時(shí)，從列表框中刪除一項(xiàng)。③Requery：當(dāng)RowSource中的值改變時(shí)更新列表。與其他控件不同，使用列表框的Refresh方法無(wú)法刷新列表框數(shù)據(jù)源。第51頁(yè)/共103頁(yè)

2）列表框中的數(shù)據(jù)源類型列表框中的數(shù)據(jù)源類型由RowSourceType屬性決定，該屬性有以下幾種常用設(shè)置：（1）RowSourceType為0：無(wú)數(shù)據(jù)源，需通過(guò)編程向列表框中添加項(xiàng)。（2）RowSourceType為1：可用RowSource屬性指定多個(gè)要在列表框中顯示的值。（3）RowSourceType為2：別名，可以在列表框中包含打開(kāi)表的一個(gè)或多個(gè)字段的值。字段的個(gè)數(shù)由列表框的ColumnCount屬性決定。第52頁(yè)/共103頁(yè)

如果ColumnCount為0或1，則列表框?qū)@示表中的第一個(gè)字段；如果ColumnCount為2，列表框?qū)@示表中的前兩個(gè)字段；依次類推。（4）RowSourceType為3：SQL語(yǔ)句，在RowSource屬性中應(yīng)包含一個(gè)SELECT-SQL查詢語(yǔ)句。（5）RowSourceType為4：查詢，可以將查詢的結(jié)果填充到列表框，查詢是在查詢?cè)O(shè)計(jì)器中設(shè)計(jì)的。第53頁(yè)/共103頁(yè)

（6）RowSourceType為5：數(shù)組，即列表框中的項(xiàng)取自數(shù)組。RowSource屬性可以是表單或表單集中的數(shù)組屬性，也可以是應(yīng)用查詢中的其它數(shù)組屬性。（7）RowSourceType為6：字段，列表項(xiàng)是一個(gè)字段或用逗號(hào)分隔的一系列字段。與RowSourceType值為2不同，此時(shí)，允許字段不按表中的順序來(lái)顯示。（8）RowSourceType為7：文件，將用當(dāng)前目錄下的文件填充列表，并允許選擇不同的驅(qū)動(dòng)器和目錄。此時(shí)RowSource屬性可設(shè)置為列表中顯示的文件類型。第54頁(yè)/共103頁(yè)

3）列表框的基本操作列表框包含以下基本操作：（1）使用列表框的計(jì)數(shù)屬性：ListCount。引用Listcount屬性可得到列表框中的項(xiàng)目總數(shù)。如要將List1中的列表項(xiàng)數(shù)目顯示在Text1文本框中，只需在表單的Init事件中添加以下代碼：This.text1.value=This.list1.listcount第55頁(yè)/共103頁(yè)

（2）訪問(wèn)列表框中的某一項(xiàng)可使用List[n]（3）添寫(xiě)列表框中最頂端的數(shù)據(jù)項(xiàng)若用戶需將列表框中的最頂端數(shù)據(jù)項(xiàng)設(shè)置為默認(rèn)選擇項(xiàng)，則可使用列表框的Topindex屬性，在列表框的Init事件中增加以下代碼：var=This.TopindexThis.Value=This.List[var]或This.Value=This.List[This.Topindex]第56頁(yè)/共103頁(yè)

（4）確認(rèn)某一項(xiàng)被選中可使用Selected屬性。例如，選中第二項(xiàng)，其代碼為：Thisform.List1.Selected[2]=.T.4）列表框中多選項(xiàng)的選擇在缺省情況下，一次只能選定列表框中的一項(xiàng)，但通過(guò)修改MultiSelect屬性為真（.T.），使得用戶能夠同時(shí)選擇列表框中的多個(gè)列表項(xiàng)。第57頁(yè)/共103頁(yè)

[例題6.4]一個(gè)列表框列出一組學(xué)生信息，選擇其中的多名學(xué)生，用另一個(gè)列表框顯示所選的學(xué)生名單。允許重選，能正常結(jié)束。如圖6-23所示。操作步驟如下：〈1〉新建表單Form1?！?〉打開(kāi)表單的“數(shù)據(jù)環(huán)境設(shè)計(jì)器”窗口，將課程表xsda.dbf添加到表單中?！?〉在表單中的合適位置分別添加如圖6-22所示的2個(gè)列表框控件list1、list2，2個(gè)命令按鈕，其部分屬性值的設(shè)置如表6-13示。第58頁(yè)/共103頁(yè)

〈4〉在表單form1的Init事件的代碼窗口輸入代碼：thisform.list1.columncount=5&&五列，有幾個(gè)字段就有幾列〈5〉在列表框List1的Interactivechange事件的代碼窗口輸入代碼：ThisForm.List2.AddItem(This.Value)Thisform.List2.Requery〈6〉在命令按鈕Command1的Click事件的代碼窗口輸入代碼：第59頁(yè)/共103頁(yè)

forn=ThisForm.List2.Listcountto1step-1ThisForm.List2.RemoveItem(n)endfor〈7〉在命令按鈕Command2的Click事件的代碼窗口輸入代碼：ThisForm.Release〈8〉保存表單。第60頁(yè)/共103頁(yè)

圖6-23列表框應(yīng)用示例的設(shè)計(jì)界面圖6-23列表框應(yīng)用示例運(yùn)行結(jié)果第61頁(yè)/共103頁(yè)

3.組合框組合框（Combo）兼有列表框與文本框的功能，其功能和列表框類似，不同之處是列表框任何時(shí)候都顯示它的列表，而組合框平時(shí)只顯示一項(xiàng)，當(dāng)用戶單擊它的向下按鈕后才顯示下拉列表。一般當(dāng)選項(xiàng)很少時(shí)，用組合框，當(dāng)選項(xiàng)較多時(shí)，用列表框。組合框和列表框的主要區(qū)別在于：第62頁(yè)/共103頁(yè)

（1）對(duì)于組合框來(lái)說(shuō)，通常只有一個(gè)條目是可見(jiàn)的。用戶可以單擊組合框上的下拉箭頭按鈕打開(kāi)條目列表，以便從中選擇。（2）組合框不提供多重選擇的功能，沒(méi)有MultiSelect屬性。（3）組合框有兩種形式：下拉組合框（Style屬性為0）和下拉列表框（Style屬性為2）。對(duì)下拉組合框，用戶既可以從列表中選擇，也可以在編輯區(qū)輸入。對(duì)下拉列表框，用戶只可從列表中選擇。第63頁(yè)/共103頁(yè)

組合框又分為下拉組合框（組合框的Style屬性值為０）和下拉列表框（組合框的Style屬性值為2），前者既可以在列表中選項(xiàng)，也可以在組合框中輸入一個(gè)值，而后者和列表框一樣只能在列表中選項(xiàng)。組合框的常用屬性如表6-15所示。2）將數(shù)據(jù)項(xiàng)添加到下拉組合框中用戶在使用列表框和下拉列表框時(shí)，只能選擇其中的選項(xiàng)，不能交互輸入新數(shù)據(jù)或進(jìn)行編輯，而下拉組合框卻可以。第64頁(yè)/共103頁(yè)

為了使用戶能夠直接在下拉組合框中輸入數(shù)據(jù)，應(yīng)進(jìn)行如下設(shè)置：（1）設(shè)置組合框的以下屬性值：Style屬性為：0RowSourceType屬性為：0（無(wú)）RowSource屬性為：（無(wú)）（2）在組合框的Valid事件的方法程序中使用AddItem方法添加所需的文本，代碼為：This.AddItem(This.Text)第65頁(yè)/共103頁(yè)

[例題6.5]學(xué)生檔案表xsda.dbf中，通過(guò)下拉組合框輸入學(xué)生的學(xué)號(hào)查詢并顯示學(xué)生的姓名、性別、出生日期、專業(yè)班級(jí)和簡(jiǎn)歷等信息。如圖6-25所示。圖6-25組合框應(yīng)用示例的運(yùn)行結(jié)果第66頁(yè)/共103頁(yè)

操作步驟如下：〈1〉新建表單Form1?！?〉按圖在表單中加入五個(gè)文本框、1個(gè)組合框Combo1，1個(gè)命令按鈕Command1和1個(gè)標(biāo)簽label1，如圖6-24所示，其部分屬性如表6-16所示。〈3〉打開(kāi)表單的“數(shù)據(jù)環(huán)境設(shè)計(jì)器”窗口，將學(xué)生檔案表xsda.dbf添加到表單中。〈4〉在“數(shù)據(jù)環(huán)境設(shè)計(jì)器”窗口，將學(xué)生檔案表xsda.dbf中的字段姓名、性別、出生日期、專業(yè)班級(jí)和簡(jiǎn)歷分別拖到表單中的合適位置，第67頁(yè)/共103頁(yè)

即分別添加了如圖6-24所示的標(biāo)簽控件和對(duì)應(yīng)的文本框控件、編輯框控件，其中文本框和編輯框的ReadOnly屬性均設(shè)置為.T.

〈5〉在表單Form1的Init事件的代碼窗口輸入代碼：*讓表單運(yùn)行后，文本框、編輯框的值顯示為空gobottomskipThisForm.Refresh第68頁(yè)/共103頁(yè)

6〉在組合框Combo1的InteractiveChange事件的代碼窗口輸入代碼：locateforxsda.學(xué)號(hào)=This.valueThisForm.Refresh〈7〉在命令按鈕Command1的Click事件的代碼窗口輸入代碼：thisform.release〈8〉保存表單。第69頁(yè)/共103頁(yè)

4．編輯框編輯框（Edit）與文本框一樣，可以接受數(shù)據(jù)的輸入?/?輸出，但編輯框只能接受字符型數(shù)據(jù)。編輯框一般用來(lái)編輯長(zhǎng)字段或備注型字段，允許自動(dòng)換行，并能使用箭頭鍵、PageUp和PageDown鍵以及滾動(dòng)條來(lái)瀏覽文本。１）編輯框常用屬性編輯框的屬性與文本框類似，表6-17列出了編輯框常見(jiàn)的屬性。第70頁(yè)/共103頁(yè)

[例題6.6]設(shè)計(jì)一表單如圖6-26所示，使用編輯框修改學(xué)生檔案表“xsda.dbf”的“簡(jiǎn)歷”字段的內(nèi)容。在文本框中輸入學(xué)生的學(xué)號(hào)，若未找到該學(xué)號(hào)，則給出相應(yīng)的提示信息，讓用戶重新輸入；若找到，則顯示學(xué)生姓名、班級(jí)和簡(jiǎn)歷，單擊“修改”按鈕可以修改簡(jiǎn)歷。圖6-26編輯框應(yīng)用示例第71頁(yè)/共103頁(yè)

５．微調(diào)控件（Spinner）微調(diào)控件（Spinner）可以接收給定范圍內(nèi)的數(shù)值輸入。除了能夠用鼠標(biāo)單擊控件右邊向上和向下的箭頭來(lái)增減其當(dāng)前值外，還能像編輯框那樣用鍵盤(pán)直接輸入數(shù)值數(shù)據(jù)。１）微調(diào)控件的常用屬性微調(diào)控件的常用屬性如表6-19所示。２）微調(diào)非數(shù)值型的值微調(diào)控件值一般為數(shù)值型，可利用微調(diào)控件和文本框來(lái)微調(diào)多種類型的數(shù)值。第72頁(yè)/共103頁(yè)

[例題6.7]如圖6-29所示，?設(shè)計(jì)控件使用戶可微調(diào)一定范圍的日期。圖6-29微調(diào)控件使用實(shí)例設(shè)計(jì)界面和運(yùn)行結(jié)果第73頁(yè)/共103頁(yè)

操作步驟如下：〈1〉在表單上放置一個(gè)標(biāo)簽Label1，設(shè)置其Caption屬性為“日期”?！?〉在表單上放置一個(gè)文本框Text1，設(shè)置其Format屬性為“D”（數(shù)據(jù)類型為日期型）。〈3〉在表單上放置一個(gè)微調(diào)控件Spinner1，調(diào)整微調(diào)控件的大小，使其只顯示按鈕。用戶可使用Shift+箭頭鍵小間距地調(diào)整按鈕的高度和寬度，使其與文本框相配。第74頁(yè)/共103頁(yè)

〈4〉在表單的Init事件中編寫(xiě)如下代碼，使文本框顯示系統(tǒng)當(dāng)天的日期：This.Text1.Value=Date(?)〈5〉在微調(diào)控件的UpClick事件中編寫(xiě)如下代碼，表示當(dāng)單擊向上按鈕時(shí)文本框顯示的日期減1：Thisform.Text1.Value=Thisform.Text1.Value?-?1Thisform.refresh第75頁(yè)/共103頁(yè)

〈6〉在微調(diào)控件的DownClick事件中編寫(xiě)如下代碼，表示當(dāng)單擊向下按鈕時(shí)文本框顯示的日期加1：Thisform.Text1.Value=Thisform.Text1.Value+1Thisform.refresh第76頁(yè)/共103頁(yè)6.4.3控制類控件１．命令按鈕命令按鈕控件（Command）主要用來(lái)控制程序代碼的執(zhí)行、操作。在表單中添加具有不同功能的命令按鈕，供用戶選擇各種不同的操作。如關(guān)閉表單、在表中移動(dòng)記錄指針、保存編輯內(nèi)容、運(yùn)行查詢、運(yùn)行報(bào)表等。只要在命令按鈕的Click事件中輸入相應(yīng)的操作代碼，當(dāng)用戶單擊命令按鈕時(shí)，即可觸發(fā)Click事件，執(zhí)行Click中的代碼來(lái)完成指定操作。第77頁(yè)/共103頁(yè)

1）命令按鈕控件功能命令按鈕典型地用來(lái)啟動(dòng)某個(gè)事件代碼、完成特定功能，如關(guān)閉表單、移動(dòng)記錄指針、打印報(bào)表等2）命令按鈕控件常用屬性在表單中可以建立一個(gè)命令按鈕控件用于執(zhí)行命令。一般都將特定操作代碼放置在命令按鈕的click事件中，對(duì)命令按鈕的使用最重要的是編寫(xiě)Click事件代碼。設(shè)計(jì)時(shí)經(jīng)常需要設(shè)置命令按鈕屬性。命令按鈕常用屬性如表6-20所示。第78頁(yè)/共103頁(yè)

３）設(shè)置命令按鈕的訪問(wèn)鍵。訪問(wèn)鍵可使用戶在表單中通過(guò)按ALT+訪問(wèn)鍵來(lái)選擇一個(gè)控件。指定控件的訪問(wèn)鍵的方法是：在控件的Caption屬性中，在作為訪問(wèn)鍵的字母前鍵入一個(gè)反斜杠和一個(gè)小于符號(hào)（\<）。例如，設(shè)置命令按鈕Exit的訪問(wèn)鍵為X，只需在其Caption屬性中輸入：E\<XIT用戶可按下ALT+X鍵快速地選擇該命令。第79頁(yè)/共103頁(yè)

[例題6.8]設(shè)計(jì)一個(gè)如圖6-30所示的密碼輸入窗口，要求最多允許輸入3次密碼。圖6-30命令按鈕應(yīng)用設(shè)計(jì)界面第80頁(yè)/共103頁(yè)

操作步驟如下：〈1〉創(chuàng)建一個(gè)表單，然后在其中創(chuàng)建標(biāo)簽和文本框各1個(gè)，命令按鈕2個(gè)?！?〉屬性設(shè)置如表6-21所示?！?〉Form1的Load事件代碼編寫(xiě)如下：publici&&i用于計(jì)算輸入次數(shù)i=0〈4〉Command1的Click事件代碼編寫(xiě)如下i=i+1第81頁(yè)/共103頁(yè)

IFTHISFORM.Text1.Value='888888'&&文本框輸入值與888888（預(yù)置的密碼）比較THISFORM.Release&&本表單從內(nèi)存釋放ELSEIFi<3&&允許輸入3次

MESSAGEBOX('密碼錯(cuò)，請(qǐng)重新輸入!')THISFORM.Text1.Value=''&&為重新輸入清空文本框

THISFORM.Text1.Setfocus&&使文本框獲得焦點(diǎn)，就是使光標(biāo)在其中閃爍

第82頁(yè)/共103頁(yè)

ELSEMESSAGEBOX('密碼錯(cuò)，禁止進(jìn)入系統(tǒng)!')THISFORM.ReleaseENDIF〈5〉Command2的Click事件代碼編寫(xiě)如下THISFORM.Release第83頁(yè)/共103頁(yè)

２.命令按鈕組命令按鈕組（Commandgroup）控件是表單上的一種容器，它可以包含若干個(gè)命令按鈕，命令按鈕組控件是命令按鈕的集合。如果表單上有多個(gè)命令按鈕，可以考慮使用命令按鈕組。使用命令按鈕組可以使代碼更整潔，界面更加整齊。命令按鈕組與組內(nèi)的各個(gè)命令按鈕都有自己的屬性、事件和方法。１）命令按鈕組屬性常用命令按鈕組屬性如表6-22所示。第84頁(yè)/共103頁(yè)

２）設(shè)置命令按鈕組中各按鈕的屬性在表單設(shè)計(jì)器中，既可設(shè)置命令按鈕組的屬性，也可以設(shè)置其中各命令按鈕的屬性。有兩種方法可對(duì)單個(gè)按鈕的屬性進(jìn)行編輯。（1）先用鼠標(biāo)選擇命令組，再單擊右鍵選擇“編輯”選項(xiàng)，然后單擊命令組中任何一個(gè)按鈕，再單擊右鍵，選擇“屬性”選項(xiàng)。（2）用鼠標(biāo)選擇命令組，再單擊右鍵選擇“屬性”選項(xiàng)，然后在“屬性”窗口上部的對(duì)象下拉框中選擇相應(yīng)的按鈕。第85頁(yè)/共103頁(yè)

３）命令按鈕組生成器Click事件的判別方法：例如圖6-34所示，Commandgroup1的Click事件代碼編寫(xiě)如下：DOCASECASETHIS.Value=1&&單擊Command1命令按鈕（下頁(yè)）返回.T.IFrecno()<reccount()&&防止下移出界

SKIPENDIFTHISFORM.Refresh第86頁(yè)/共103頁(yè)

CASETHIS.Value=2&&單擊Command2命令按鈕（上頁(yè)）返回.T.IFRECNO()>1&&防止上移出界

SKIP-1ENDIFTHISFORM.RefreshCASETHIS.Value=3&&單擊Command3命令按鈕（退出）返回.T.THISFORM.Release&&表單從內(nèi)存釋放

ENDCASE第87頁(yè)/共103頁(yè)

[例題6.10]設(shè)計(jì)一個(gè)瀏覽學(xué)生所在班級(jí)基本情況的程序，如圖6-35所示。學(xué)生基本情況包括：學(xué)號(hào)、姓名、班級(jí)。設(shè)計(jì)一個(gè)包含4個(gè)按鈕的命令按鈕組，1個(gè)獨(dú)立的命令按鈕，分別代表對(duì)記錄指針的操作，以改變顯示內(nèi)容，從左至右分別表示：“第一條記錄”、“上一條記錄”、“下一條記錄”、“最后一條記錄”和“關(guān)閉”。第88頁(yè)/共103頁(yè)

圖6-35命令按鈕組應(yīng)用示例操作步驟：參考書(shū)上153頁(yè)。第89頁(yè)/共103頁(yè)

３．復(fù)選框復(fù)選框（Check）為表單添加“微調(diào)”控件，定義其主要屬性：允許同時(shí)選擇多項(xiàng)，所以復(fù)選框可以在表單中獨(dú)立存在，選項(xiàng)按鈕只能存在于它的容器選項(xiàng)按鈕組中。復(fù)選框主要反映某些條件是否成立，用于選擇取值為“真”或“假”的一種現(xiàn)象?？梢詥螕羰髽?biāo)左鍵改變其值。復(fù)選框控件是一種數(shù)據(jù)綁定型控件，在數(shù)據(jù)編輯或條件選擇等方面有廣泛的應(yīng)用。第90頁(yè)/共103頁(yè)

復(fù)選框的值Value屬性：0或.F.表示清除；1或.T.表示選定；2表示灰色狀態(tài)。其中數(shù)字為默認(rèn)值。選項(xiàng)按鈕的Value屬性：1表示選定，0表示未選定。選項(xiàng)按鈕組（Optiongroup）的Value屬性：表明被選定按鈕的序號(hào)，默認(rèn)為1。例如第2個(gè)按鈕被選定時(shí)Value值為2。第91頁(yè)/共103頁(yè)

[例題6.11]設(shè)計(jì)一個(gè)能編輯或?yàn)g覽關(guān)于學(xué)生信息的4個(gè)數(shù)據(jù)庫(kù)表