表單控件設(shè)計(jì)第1頁(yè)，共37頁(yè)，2023年，2月20日，星期二表單控件可分為5大類1）輸出類：標(biāo)簽，圖象，線條，形狀2）輸入類：文本框，編輯框，微調(diào)按鈕，列表框，組合框3）控制類：命令按鈕，命令按鈕組，復(fù)選框，選項(xiàng)按鈕組，計(jì)時(shí)器4）容器類：表格，頁(yè)框，Container容器5）連結(jié)類：ActiveX控件，ActiveX綁定控件，超級(jí)鏈接每個(gè)控件均具有若干特征屬性，有相同也有差別，通過(guò)屬性設(shè)置可以設(shè)計(jì)出滿足要求的控件。第2頁(yè)，共37頁(yè)，2023年，2月20日，星期二

7.1輸出類控件

輸出類控件用于在表單上設(shè)置文本和圖形一.標(biāo)簽Label用于在表單上顯示提示或說(shuō)明1.Caption屬性Caption屬性指定標(biāo)簽標(biāo)題，即顯示的文本內(nèi)容設(shè)置方法：1）屬性窗口設(shè)置Caption屬性2）代碼命令:THISFORM.LABEL1.Caption=“學(xué)生管理系統(tǒng)”

第3頁(yè)，共37頁(yè)，2023年，2月20日，星期二3）變量設(shè)置：mc=“學(xué)生管理系統(tǒng)”THISFORM.LABEL1.Caption=mc

mc是一個(gè)字符型公共變量2.部分屬性AutoSize（大小設(shè)置）：邏輯型，.T.表示自動(dòng)調(diào)整大小與文本內(nèi)容所占空間一致Fontbold（粗體設(shè)置）.T.FontSize（字體大?。?默認(rèn)值9)3.舉例7-1：創(chuàng)建一個(gè)表單，包含一個(gè)標(biāo)簽，要求LABEL1顯示“學(xué)生成績(jī)管理系統(tǒng)”，且背景顯示梅花（\梅花.bmp)第4頁(yè)，共37頁(yè)，2023年，2月20日，星期二表單設(shè)計(jì)示意圖第5頁(yè)，共37頁(yè)，2023年，2月20日，星期二操作步驟：1)命令窗口輸入：createformxscjgl2)添加標(biāo)簽控件Label13)各對(duì)象屬性設(shè)置Form1picture\梅花.bmpLabel1caption學(xué)生成績(jī)管理系統(tǒng)Label1FontSize26Label1Fontname楷體Label1Autosize.T.Label1

Backstyle0第6頁(yè)，共37頁(yè)，2023年，2月20日，星期二4)保存表單并運(yùn)行第7頁(yè)，共37頁(yè)，2023年，2月20日，星期二7.2輸入類控件文本框，編輯框，微調(diào)按鈕，列表框，組合框一.文本框（text)文本框供用戶顯示、輸入或編輯數(shù)據(jù)（數(shù)值型、字符型、日期型、邏輯型）1.文本框的值:由Value屬性確定1）屬性窗口修改Value屬性2）代碼命令:this.value="vfp"thisform.text1.value=“VFP"Value初值類型：數(shù)值型[0]、字符型[無(wú)]、日期型[{}]、邏輯型[.F.]第8頁(yè)，共37頁(yè)，2023年，2月20日，星期二2.控件與數(shù)據(jù)綁定控件的數(shù)據(jù)綁定指將控件與某個(gè)數(shù)據(jù)源聯(lián)系起來(lái)ControlSource屬性：文本框可以與內(nèi)存變量、數(shù)組、和表的非備注形字段實(shí)現(xiàn)數(shù)據(jù)綁定1）字段：控件的值由字段決定2）變量：控件的值由變量決定第9頁(yè)，共37頁(yè)，2023年，2月20日，星期二3.舉例:設(shè)計(jì)計(jì)算圓面積的程序第10頁(yè)，共37頁(yè)，2023年，2月20日，星期二操作步驟：1）打開(kāi)表單設(shè)計(jì)器createformjsmianji2）屬性設(shè)置

Formcaption計(jì)算圓面積Label1caption

請(qǐng)輸入圓半徑:Label2caption圓面積Command1caption計(jì)算Command2caption退出第11頁(yè)，共37頁(yè)，2023年，2月20日，星期二第12頁(yè)，共37頁(yè)，2023年，2月20日，星期二3)事件代碼Command1的click事件代碼：

r=val(thisform.text1.value)s=pi()*r*rthisform.text2.value=sCommand2的click事件代碼：

thisform.release4）保存并運(yùn)行表單第13頁(yè)，共37頁(yè)，2023年，2月20日，星期二二.列表框與組合框（ListCombo)列表框與組合框都有一個(gè)供用戶選擇的列表，區(qū)別在于：列表框任何時(shí)候都顯示它的列表，而組合框平時(shí)只顯示一個(gè)項(xiàng)；組合框又可分為下拉組合框（準(zhǔn)許輸入數(shù)據(jù)項(xiàng)）與下拉列表框；而列表框僅有選項(xiàng)功能。第14頁(yè)，共37頁(yè)，2023年，2月20日，星期二1.列表框生成器：指定要填充到列表框中的項(xiàng)用于指定返回值以及存儲(chǔ)返回值的字段第15頁(yè)，共37頁(yè)，2023年，2月20日，星期二2.組合框供用戶在其列表中選擇,或人工鍵入一個(gè)值.組合框和列表框生成器很相似,不再贅述.

列表框與組合框控件的值源類型

3.舉例:例7-3(p199頁(yè))列表.scx

在列表框中填充sb表的編號(hào)、名稱兩個(gè)字段，要求選定列表框中的任一項(xiàng)，就能使文本框中顯示編號(hào)字段第16頁(yè)，共37頁(yè)，2023年，2月20日，星期二操作步驟:1)打開(kāi)表單設(shè)計(jì)器,設(shè)置控件以及屬性設(shè)置:command1caption關(guān)閉第17頁(yè)，共37頁(yè)，2023年，2月20日，星期二2)打開(kāi)列表框生成器,設(shè)置列表選項(xiàng)卡和返回值第18頁(yè)，共37頁(yè)，2023年，2月20日，星期二當(dāng)用戶按鍵盤(pán)或鼠標(biāo)鍵時(shí)觸發(fā)3)事件代碼編寫(xiě)List1的InteractiveChange的代碼:

thisform.text1.value=this.value

command1的click事件代碼:

thisform.release

第19頁(yè)，共37頁(yè)，2023年，2月20日，星期二5)保存并運(yùn)行表單第20頁(yè)，共37頁(yè)，2023年，2月20日，星期二命令按鈕與命令按鈕組CommandgroupCommand一.命令按鈕的控制作用命令按鈕用于完成某一特定的操作，其操作代碼通常放置在命令按鈕的Click事件中[P206例7-7]1）在表單上創(chuàng)建一個(gè)標(biāo)簽和一個(gè)文本框控件，命令按鈕2個(gè)

7.3控制類控件第21頁(yè)，共37頁(yè)，2023年，2月20日，星期二7.3

控制類控件

命令按鈕(Command)

[例7-7]設(shè)計(jì)一個(gè)如圖7.8所示的密碼輸入窗口,要求最多允許輸入3次密碼。

(1)創(chuàng)建一個(gè)表單,然后在其中創(chuàng)建標(biāo)簽和文本框各1個(gè),命令按鈕2個(gè)。

(2)屬性設(shè)置：見(jiàn)表7.8。

(3)Form1的Load事件代碼編寫(xiě)如下：

publici&&i用于計(jì)算輸入次數(shù)

i=0(4)Command1的Click事件代碼編寫(xiě)如下：i=i+1IFTHISFORM.Text1.Value='123456'&&文本框輸入值與123456(預(yù)置的密碼)比較

THISFORM.Release&&本表單從內(nèi)存釋放ELSEIFi<3&&允許輸入3次

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

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

ELSEMESSAGEBOX('密碼錯(cuò),禁止進(jìn)入系統(tǒng)!')THISFORM.ReleaseENDIFENDIF

第22頁(yè)，共37頁(yè)，2023年，2月20日，星期二圖7.8輸入密碼表單窗口對(duì)象屬性屬性值說(shuō)明Form1Caption=DTOC(DATE())表單標(biāo)題欄顯示當(dāng)前日期Label1Caption密碼：設(shè)置標(biāo)簽的顯示文本Text1PasswordChar*設(shè)置占位符,輸入任何字符都顯示它Value(無(wú))清空文本框,否則初始時(shí)會(huì)顯示占位符Command1Caption確定設(shè)置命令按鈕的標(biāo)題文本Command2Caption取消表7.8“密碼輸入”屬性設(shè)置(5)Command2的Click事件代碼編寫(xiě)如下：THISFORM.Release第23頁(yè)，共37頁(yè)，2023年，2月20日，星期二二.命令按鈕的外觀設(shè)計(jì)標(biāo)題：Caption字體：FontName大小：FontSize，粗體：FontBold斜體：FontItalic劃線：FontUnderLine三.命令按鈕組及其命令按鈕的操作

1.Click事件的判別VFP必須區(qū)分操作的是命令按鈕組控件還是組內(nèi)的哪個(gè)命令按鈕，以便執(zhí)行相應(yīng)的動(dòng)作

第24頁(yè)，共37頁(yè)，2023年，2月20日，星期二1）命令按鈕組及其所包含的各命令按鈕分別設(shè)置Click事件代碼單擊組內(nèi)空白處，觸發(fā)組控件的Click事件單擊組內(nèi)某個(gè)命令按鈕，觸發(fā)該命令按鈕的Click事件2）命令按鈕組的Click事件代碼根據(jù)Value屬性值判斷。單擊組內(nèi)某個(gè)命令按鈕時(shí)，組控件的Value屬性就返回一個(gè)數(shù)值（設(shè)置為1時(shí)，依按鈕順序號(hào)）或一個(gè)字符串（設(shè)置為空時(shí)，依按鈕的Caption屬性）第25頁(yè)，共37頁(yè)，2023年，2月20日，星期二3)容器中對(duì)象的引用THISFORM.Commandgroup1.Command1THIS.Command12.命令按鈕組舉例第26頁(yè)，共37頁(yè)，2023年，2月20日，星期二例如圖7.11中，Commandgroup1的Click事件代碼編寫(xiě)如下：

DOCASECASETHIS.Value=1&&單擊Command1命令按鈕(下頁(yè))返回.T.IFrecno()<reccount()&&防止下移出界

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

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

ENDCASE圖7.9命令按鈕組生成器的按鈕選項(xiàng)卡圖7.11“修改SB表數(shù)據(jù)”表單窗口

第27頁(yè)，共37頁(yè)，2023年，2月20日，星期二7.4容器類控件表格、頁(yè)框和Container容器均可用表單控件工具欄中相應(yīng)的按鈕來(lái)創(chuàng)建.表格控件用于顯示表中的字段，用戶可以修改表格中的數(shù)據(jù)，VFP用Grid來(lái)表示表格.一.表格的組成1.表格（Grid)：由一或若干列組成2.列（Column）：一列顯示一個(gè)字段，由列標(biāo)題和列控件組成第28頁(yè)，共37頁(yè)，2023年，2月20日，星期二3.列標(biāo)題（Header1）：默認(rèn)顯示字段名4.列控件（如：Text1）：該列的所有單元格都可用此控件來(lái)顯示字段值列控件默認(rèn)為文本框，可修改為與字段類型相容的控件;表格、列、列標(biāo)題和列控件都有自己的屬性、事件和方法程序第29頁(yè)，共37頁(yè)，2023年，2月20日，星期二二.創(chuàng)建表格控件表格控件創(chuàng)建方法：2種

1.從數(shù)據(jù)環(huán)境創(chuàng)建打開(kāi)表單窗口→在數(shù)據(jù)環(huán)境添加SB表→用鼠標(biāo)將數(shù)據(jù)環(huán)境中SB表標(biāo)題欄拖至表單窗口后釋放。2.利用表格生成器創(chuàng)建用表單工具欄的表格控件在表單上創(chuàng)建一個(gè)表格→從表格控件的快捷菜單選擇生成器命令→在生成器對(duì)話框設(shè)置表格屬性第30頁(yè)，共37頁(yè)，2023年，2月20日，星期二第31頁(yè)，共37頁(yè)，2023年，2月20日，星期二3.表格生成器表格生成器有4個(gè)選項(xiàng)卡1）“表格項(xiàng)”選項(xiàng)卡：指定表格中顯示的字段第32頁(yè)，共37頁(yè)，2023年，2月20日，星期二（2）“樣式”選項(xiàng)卡：

指定表格顯示的樣式

第33頁(yè)，共37頁(yè)，2023年，2月20日，星期二（3）布局選項(xiàng)卡

指定列表標(biāo)題和表示字段的控件第34頁(yè)，共37頁(yè)，2023年，2月20日，星期二（4）“關(guān)系”選項(xiàng)卡

指定兩個(gè)表之間的關(guān)系

第35頁(yè)，共37頁(yè)，2023年，2月20日，星期二[例7-14]設(shè)計(jì)一個(gè)如圖7.16所示的表單,要求能按部門(mén)瀏覽所有設(shè)備數(shù)據(jù)。(1)創(chuàng)建表單,并在數(shù)據(jù)環(huán)境中建立如圖7.17所示4個(gè)表的兩級(jí)一多關(guān)系。(2)在表單上創(chuàng)建1個(gè)下拉列表框,2個(gè)標(biāo)簽,3個(gè)表格。表格控件可從數(shù)據(jù)環(huán)境創(chuàng)建,即將數(shù)據(jù)環(huán)境中SB窗口的標(biāo)題欄拖到表單釋放,從而產(chǎn)生GrdSb表格。然后可用同樣方法創(chuàng)建表格GrdDx和GrdZz,如圖7.16所示。表格創(chuàng)建后按圖調(diào)整好表格位置、大小與列寬。(3)如圖7.16所示創(chuàng)建矩形框形狀控件,然后選定格式菜單的置后命令。(4)屬性設(shè)置：見(jiàn)表7.14。(5)Combo1的Init事件:SELECTbmdmGOBOTTOM