表單設(shè)計(jì)及運(yùn)行

表單設(shè)計(jì)及運(yùn)行第1頁(yè)，課件共34頁(yè)，創(chuàng)作于2023年2月8.1使用表單向?qū)?chuàng)建表單8.1.1表單向?qū)褂帽韱蜗驅(qū)?chuàng)建一對(duì)一表單的步驟如下：一、從“文件”菜單,選擇“新建”、“表單”,然后在新建對(duì)話框中選擇向?qū)?在向?qū)нx取對(duì)話框中使用鼠標(biāo)選擇“表單向?qū)А?。二、單擊確定按鈕進(jìn)入“表單向?qū)А辈襟E一。三、確定表單的數(shù)據(jù)源。然后進(jìn)行字段選取。四、選擇好表單樣式及按鈕類型。五、按照每組記錄的排序順序選擇字段。六、選擇建立好表單后的存儲(chǔ)方式，“完成”。第2頁(yè)，課件共34頁(yè)，創(chuàng)作于2023年2月8.2數(shù)據(jù)環(huán)境設(shè)置8.2.1打開(kāi)“數(shù)據(jù)環(huán)境設(shè)計(jì)器”在創(chuàng)建表單或已有打開(kāi)表單的情況下，可以從“顯示”菜單中，也可在表單快捷菜單中選擇“數(shù)據(jù)環(huán)境”。8.2.2數(shù)據(jù)信息與數(shù)據(jù)環(huán)境第3頁(yè)，課件共34頁(yè)，創(chuàng)作于2023年2月8.3用表單設(shè)計(jì)器創(chuàng)建表單、控件所謂控件是指可以用于交互式操作界面的圖形對(duì)象。表單中的控件是用以顯示數(shù)據(jù)、執(zhí)行操作或使表單更易閱讀的圖形對(duì)象?？梢暂斎胼敵鰯?shù)據(jù)、完成具有某種特定功能的操作，構(gòu)建用戶和計(jì)算機(jī)之間相互溝通的操作界面。在表單中有兩類控件：與表中數(shù)據(jù)綁定的控件和不與數(shù)據(jù)綁定的控件。當(dāng)使用綁定型控件時(shí)，所輸入或所選擇的值將保存在數(shù)據(jù)源中（數(shù)據(jù)源可以是表中的字段、臨時(shí)表的字段或變量）。要使控件在表單中正確運(yùn)行，可以設(shè)置控件的有關(guān)屬性（如：controlsource或recordsource），把控件與數(shù)據(jù)結(jié)為一體。最好保持控件使用方法特征的一致性，給用戶一個(gè)明確的提示。第4頁(yè)，課件共34頁(yè)，創(chuàng)作于2023年2月8.3.1表單設(shè)計(jì)器與表單控件工具欄

使用表單設(shè)計(jì)器創(chuàng)建表單一般需要進(jìn)行的工作如下：明確創(chuàng)建表單的目標(biāo)、表單應(yīng)具備的功能、用途。在表單中添加與此相關(guān)的控件。為表單及其控件設(shè)置好與之匹配的數(shù)據(jù)環(huán)境及數(shù)據(jù)源。為表單中的每一個(gè)控件做恰當(dāng)?shù)膶傩栽O(shè)置。選擇與對(duì)象、目標(biāo)相關(guān)的事件。設(shè)計(jì)好事件觸發(fā)的方法程序代碼。第5頁(yè)，課件共34頁(yè)，創(chuàng)作于2023年2月第6頁(yè)，課件共34頁(yè)，創(chuàng)作于2023年2月

8.3.3命令按鈕與命令按鈕組“命令按鈕”控件主要用來(lái)控制程序代碼的執(zhí)行、操作。在表單中添加具有不同功能的命令按鈕，供用戶選擇各種不同的操作。命令按鈕的不同功能是通過(guò)為各個(gè)按鈕“click”事件編寫(xiě)不同的方法程序代碼設(shè)置的?！懊畎粹o組”控件是命令按鈕的集合?！懊畎粹o”的主要屬性是：位置及大?。簍op、left、height、width

標(biāo)題：caption

名稱：name

控件自動(dòng)改變：autosize

字體字號(hào)：fontname、fontsize“命令按鈕”經(jīng)常選用的事件：click第7頁(yè)，課件共34頁(yè)，創(chuàng)作于2023年2月

8.3.4文本框文本框是最常用的控件主要用于數(shù)據(jù)表中某些數(shù)據(jù)的輸入輸出或編輯，以及從窗口給內(nèi)存變量賦值等操作。文本框?qū)ο蟮某Ｓ脤傩栽O(shè)置：文本框名稱：name

文本框標(biāo)題：caption

文本框內(nèi)容的字體大小：fontsize

文本框數(shù)據(jù)初始值與類型：value

設(shè)置輸入和顯示數(shù)據(jù)的格式與長(zhǎng)度：inputmask

設(shè)定是否只讀狀態(tài)：readonly

在應(yīng)用程序中，經(jīng)常需要獲得某些安全信息如：口令。這時(shí)需要設(shè)置文本框的passwordchar屬性為“*”或其它一些字符；用文本框來(lái)接收這一信息，而不在屏幕上顯示其實(shí)際內(nèi)容。第8頁(yè)，課件共34頁(yè)，創(chuàng)作于2023年2月例8-4用文本框、標(biāo)簽、命令按鈕組設(shè)計(jì)一個(gè)可以使用口令進(jìn)行操作權(quán)限檢驗(yàn)的表單。操作步驟：（1）打開(kāi)“表單設(shè)計(jì)器”為表單設(shè)置屬性，屬性值如下：AlwaysOnTop=.T.AutoCenter=.T.Caption=系統(tǒng)檢驗(yàn)（2）打開(kāi)“表單控件工具欄”，從中選擇“命令按鈕組”設(shè)定命令按鈕數(shù)目?jī)蓚€(gè)，為命令按鈕組設(shè)定如下屬性：Caption=cmdgp1Value=1（3）為兩個(gè)命令按鈕設(shè)定如下屬性：Caption=確認(rèn)Caption=退出ClickEvent=用戶自定義過(guò)程第9頁(yè)，課件共34頁(yè)，創(chuàng)作于2023年2月（4）在表單中添加文本框控件，為其設(shè)定屬性：PasswordChar=*Name=klmmClickEvent=用戶自定義過(guò)程FontName=宋體（5）在表單中添加標(biāo)簽，設(shè)定屬性：Caption=操作口令FontName=宋體（6）為命令按鈕一設(shè)計(jì)方法程序代碼：iftrim(thisform.klmm.value)<>'pass'ifmessagebox("請(qǐng)重新出入口令",0+16,"提示")=1thisform.klmm.setfocusendifendififtrim(thisform.klmm.value)='pass'doform教學(xué)數(shù)據(jù)庫(kù)例題.scxreleasethisformendif第10頁(yè)，課件共34頁(yè)，創(chuàng)作于2023年2月（7）為命令按鈕二設(shè)計(jì)方法程序代碼：a=messagebox("你真的要退出嗎?",4+16+0,"對(duì)話窗口")ifa=3releasethisformendif結(jié)果如圖8-19所示。圖8-9例8-4結(jié)果顯示第11頁(yè)，課件共34頁(yè)，創(chuàng)作于2023年2月

8.3.5選項(xiàng)按鈕“選項(xiàng)按鈕”也叫“單選按鈕”常用于從多項(xiàng)控制中選擇其一，把事先設(shè)計(jì)好具有特定目的的整套操作過(guò)程提供給“選項(xiàng)按鈕組”，用戶可以從中選擇一項(xiàng)?！斑x項(xiàng)按鈕”控件的屬性主要是“單選按鈕”的個(gè)數(shù)及按鈕次序。例8-5

設(shè)計(jì)一個(gè)課程查詢表單，在表單中使用單選按鈕控件和按鈕、文本框（在以后的例題中，Top，Height，Left，Width4個(gè)最常用屬性省略）。打開(kāi)表單設(shè)計(jì)器，使用表單控件工具欄、屬性窗口、數(shù)據(jù)環(huán)境設(shè)計(jì)器，進(jìn)行以下操作：（1）設(shè)計(jì)、定義表單屬性：Caption=課程查詢Name=Form1Visable=.T.第12頁(yè)，課件共34頁(yè)，創(chuàng)作于2023年2月（2)在表單中添加一個(gè)選擇按鈕組,在其中用兩個(gè)選擇按鈕：AutoSize=.T.ControlSize=無(wú)Name=OptionGroup1Visable=.T.l“課程號(hào)”按鈕

Caption=課程號(hào)

Name=Opti1AutoSize=.T.ClickEvent=用戶自定義過(guò)程

Style=0-標(biāo)準(zhǔn)

Value=.T.l“課程名”按鈕

Caption=課程名

Name=Opti2Autosize=.f.第13頁(yè)，課件共34頁(yè)，創(chuàng)作于2023年2月ClickEvent=用戶自定義過(guò)程

Style=0-標(biāo)準(zhǔn)

Value=.f.（3）添加一個(gè)文本框用來(lái)輸入課程號(hào)：Name=Text1AutoSize=.t.ClickEvent=用戶自定義過(guò)程Style=0-標(biāo)準(zhǔn)Value=1FontSize=8Format=1InitEvent=用戶自定義過(guò)程InputMask=無(wú)MaxLenth=7Seconds=2-默認(rèn)SelectOnEntry=.T.TabIndex=0第14頁(yè)，課件共34頁(yè)，創(chuàng)作于2023年2月（4）添加一個(gè)文本框用來(lái)輸入課程名稱：NAME=Text2Alignment=0Autosize=.t.ClickEvent=用戶自定義過(guò)程ControlSource=無(wú)DateFormat=14-漢語(yǔ)Enabled=.T.HideSelection=.F.Style=0-標(biāo)準(zhǔn)Value=FontSize=10Format=KInitEvent=用戶自定義過(guò)程InputMask=無(wú)MaxLenth=8第15頁(yè)，課件共34頁(yè)，創(chuàng)作于2023年2月PasswordChar=無(wú)ReadOnly=.F.Seconds=2-默認(rèn)SelectOnEntry=.T.Style=0TabIndex=4Visable=.T.（5）添加“開(kāi)始”命令按鈕：NAME=Command1AutoSize=.F.ClickEvent=用戶自定義過(guò)程Enabled=.T.Style=0-標(biāo)準(zhǔn)FontSize=9Style=0TabIndex=2Visable=.T.第16頁(yè)，課件共34頁(yè)，創(chuàng)作于2023年2月（6）添加“退出”命令按鈕：NAME=Command2Autosize=.F.ClickEvent=用戶自定義過(guò)程Enabled=.T.Style=0-標(biāo)準(zhǔn)FontSize=9Style=0TabIndex=2Visible=.T.Caption=退出（7）為“開(kāi)始”按鈕Click事件編寫(xiě)代碼：cxp1=this.parent.optiongroup1.opti1.valuecxp2=this.parent.optiongroup1.opti2.valuevalue1=this.parent.text1.valuevalue2=this.parent.text2.value第17頁(yè)，課件共34頁(yè)，創(chuàng)作于2023年2月（8）為“退出”按鈕Click事件編寫(xiě)代碼：relethisformsele1restorescreen結(jié)果如圖8-20所示。

圖8-20

本例題設(shè)計(jì)時(shí)應(yīng)注意：“課程號(hào)”按鈕與文本框一、“課程名”按鈕與文本框二在使用上的配合一致性,在編寫(xiě)“開(kāi)始”按鈕程序代碼時(shí)應(yīng)嚴(yán)謹(jǐn)統(tǒng)一。第18頁(yè)，課件共34頁(yè)，創(chuàng)作于2023年2月8.3.6微調(diào)按鈕微調(diào)控件用于接受給定范圍之內(nèi)的數(shù)值輸入。它既可用鍵盤(pán)輸入，也可單擊該控件的上、下箭頭按鈕來(lái)增減其當(dāng)前值。下面是該控件的常用屬性：lValue：表示微調(diào)控件的當(dāng)前值。lKeyBoardHighValue：設(shè)定鍵盤(pán)輸入數(shù)值高限。lKeyBoardLowValue：設(shè)定鍵盤(pán)輸入數(shù)值低限。lSpinnerHighValue：設(shè)定按鈕微調(diào)數(shù)值高限。lSpinnerLowValue：設(shè)定按鈕微調(diào)數(shù)值低限。lIncrement：設(shè)定按一次箭頭按鈕的增減數(shù)，默認(rèn)為1.00。lInputMask：設(shè)置輸入掩碼。若微調(diào)控件綁定到表的字段，則輸入掩碼位數(shù)不得小于字段寬度。lcontrolsource：數(shù)據(jù)控制源。第19頁(yè)，課件共34頁(yè)，創(chuàng)作于2023年2月

8.3.7復(fù)選框復(fù)選框?yàn)楸韱翁砑印拔⒄{(diào)”控件，定義其主要屬性：允許同時(shí)選擇多項(xiàng)，所以復(fù)選框可以在表單中獨(dú)立存在，選項(xiàng)按鈕只能存在于它的容器選項(xiàng)按鈕組中。復(fù)選框主要反映某些條件是否成立，用于選擇取值為“真”或“假”的一種現(xiàn)象。可以單擊鼠標(biāo)左鍵改變其值。復(fù)選框控件是一種數(shù)據(jù)綁定型控件，在數(shù)據(jù)編輯或條件選擇等方面有廣泛的應(yīng)用。

8.3.8編輯框在編輯框中允許編輯長(zhǎng)字段或備注字段文本，允許自動(dòng)換行并能用方向鍵、PageUp和PageDown鍵以及滾動(dòng)條來(lái)瀏覽文本。第20頁(yè)，課件共34頁(yè)，創(chuàng)作于2023年2月

8.3.9列表框與組合框列表框主要用來(lái)顯示選擇項(xiàng)，并且維護(hù)其ControlSource屬性所結(jié)合的數(shù)據(jù)。列表框控件可同時(shí)顯示圖形與項(xiàng)目文字，可以多重選擇，并具有移動(dòng)項(xiàng)目位置的功能。組合框兼有列表框與文本框的功能。它可以有兩種形式，即下拉列表框和下拉組合框?？梢酝ㄟ^(guò)設(shè)置組合框的Style屬性來(lái)選擇。列表框與組合框都有一個(gè)供用戶選項(xiàng)的列表，但兩者有兩個(gè)區(qū)別：列表框任何時(shí)候都顯示它的列表；組合框平時(shí)只顯示一個(gè)項(xiàng)，待用戶單擊它的向下按鈕后才能顯示可滾動(dòng)的下拉列表。下拉組合框允許鍵入數(shù)據(jù)項(xiàng)，而列表框與下拉列表框都僅有選項(xiàng)功能。以下是一些常用屬性：lfontSize：設(shè)定顯示字體大小。lRowSourceType：設(shè)定項(xiàng)目來(lái)源方式。lRowSource：設(shè)定項(xiàng)目來(lái)源。第21頁(yè)，課件共34頁(yè)，創(chuàng)作于2023年2月

8.3.10表格

VisualFoxPro用一個(gè)強(qiáng)有力的工具——表格對(duì)象來(lái)顯示和操作多行數(shù)據(jù)。表8-2給出了表格的常用屬性。表格（grid）是將數(shù)據(jù)以表格形式表示出來(lái)的一種控件、容器。表格提供了一個(gè)全屏幕輸入輸出數(shù)據(jù)表記錄的方式，它也是一個(gè)以行列的方式顯示數(shù)據(jù)的對(duì)象容器控件。一個(gè)表格控件包含一些列（Column）控件，每個(gè)列控件能夠容納一個(gè)標(biāo)頭對(duì)象（Header）和文本框（Text）及其他普通控件，標(biāo)頭在列的頂部顯示一個(gè)標(biāo)題，并能響應(yīng)一些事件。這些列除了包含標(biāo)頭和控件外，每一個(gè)列還擁有自己的一組屬性、事件和方法程序，可以配備適當(dāng)?shù)臄?shù)據(jù)源，從而為表格提供了極其靈活、廣泛的使用功能。表格對(duì)象能在表單或頁(yè)面中顯示并操作行和列中的數(shù)據(jù)。使用表格控件的一個(gè)非常有效的應(yīng)用是創(chuàng)建一對(duì)多表單。

第22頁(yè)，課件共34頁(yè)，創(chuàng)作于2023年2月若要將表格控件添加到表單，請(qǐng)?jiān)凇氨韱慰丶惫ぞ邫谥羞x擇“表格”按鈕，并在“表單”窗口中調(diào)整為期望的大小。（1）首先需要設(shè)置的表格控件屬性為“列數(shù)”。在設(shè)計(jì)時(shí)人工調(diào)整表格的顯示效果，在屬性和方法程序列表中選擇ColumnCount屬性，在屬性框中，鍵入需要的列值。在表格中加入列后應(yīng)設(shè)置、改變列的寬度和行的高度?？梢栽凇皩傩浴贝翱谥腥斯ぴO(shè)置列和行對(duì)象的高度和寬度屬性，也可以在設(shè)計(jì)表格時(shí)以可視方式設(shè)置這些屬性。

l 調(diào)整表格中列的寬度在表格設(shè)計(jì)方式下，將鼠標(biāo)指針置于表格列的標(biāo)頭之間，這時(shí)指針變?yōu)閹в凶笥覂蓚€(gè)方向箭頭的豎條，按住鼠標(biāo)左鍵，將列拖動(dòng)到需要的寬度;或者在“屬性”窗口設(shè)置列的Width屬性。

l 調(diào)整表格中行的高度在表格設(shè)計(jì)方式下，將鼠標(biāo)指針置于“表格”控件左側(cè)的第1個(gè)按鈕和第2個(gè)按鈕之間，這時(shí)指針將變成帶有向上和向下箭頭的橫條。按住鼠標(biāo)左鍵，將行拖動(dòng)到需要的寬度?；蛘咴凇皩傩浴贝翱谥性O(shè)置列的Height屬性。第23頁(yè)，課件共34頁(yè)，創(chuàng)作于2023年2月（2）可以為整個(gè)表格設(shè)置數(shù)據(jù)源，也可以為每個(gè)列單獨(dú)設(shè)置數(shù)據(jù)源。選擇表格，然后單擊“屬性”窗口的RecordSourceType屬性。為整個(gè)表格設(shè)置數(shù)據(jù)源打開(kāi)方式。如果讓VisualFoxPro打開(kāi)表，請(qǐng)將RecordSourceType屬性設(shè)置為“0-表”；如果在表格中放入打開(kāi)表的字段，則將RecordSourceType屬性設(shè)置為“1-別名”。單擊“屬性”窗口中的RecordSource屬性，指定與表格對(duì)象建立聯(lián)系的數(shù)據(jù)源。如果沒(méi)有指定表格的RecordSource屬性，同時(shí)在當(dāng)前工作區(qū)中有一個(gè)打開(kāi)的表，那么表格將顯示這個(gè)表的所有字段。鍵入作為表格數(shù)據(jù)源的別名或表名。如果想在特定的列中顯示一個(gè)特定字段，也可以為列設(shè)置數(shù)據(jù)源。選擇列，然后單擊“屬性”窗口的ControlSource屬性。鍵入作為列的數(shù)據(jù)源的別名、表名或字段名。例如，可以鍵入“課程表.課程號(hào)”。第24頁(yè)，課件共34頁(yè)，創(chuàng)作于2023年2月（3）向表格添加記錄。將表格的AllowAddNew屬性設(shè)置為.T.，可以允許用戶向表格中顯示的表中添加新的記錄。當(dāng)用戶選中了最后一個(gè)記錄，并且按下向下箭頭鍵時(shí)，就向表中添加了新記錄。如果表單的數(shù)據(jù)環(huán)境包含兩表之間的一對(duì)多關(guān)系，那么要在表單中顯示這個(gè)一對(duì)多關(guān)系非常容易。表格最常見(jiàn)的用途之一是，當(dāng)文本框顯示父記錄數(shù)據(jù)時(shí)，表格顯示表的子記錄；當(dāng)用戶在父表中瀏覽記錄時(shí)，表格將顯示相應(yīng)的子記錄。（4）設(shè)置具有數(shù)據(jù)環(huán)境的一對(duì)多表單。將需要的字段從“數(shù)據(jù)環(huán)境”中的父表拖動(dòng)到表單中?；驈摹皵?shù)據(jù)環(huán)境”中將相關(guān)的表拖動(dòng)到表單中（5）創(chuàng)建沒(méi)有數(shù)據(jù)環(huán)境的一對(duì)多表單。將文本框添加到表單中，顯示主表中需要的字段。設(shè)置文本框的ControlSource屬性為“主表?！?/p>

l將表格的RecordSource屬性設(shè)置為相關(guān)表的名稱。

l設(shè)置表格的LinkMaster屬性為主表名稱。第25頁(yè)，課件共34頁(yè)，創(chuàng)作于2023年2月

l 設(shè)置表格的ChildOrder屬性為相關(guān)表中索引標(biāo)識(shí)的名稱，索引標(biāo)識(shí)和主表中的關(guān)系表達(dá)式相對(duì)應(yīng)。

l 將表格的RelationalExpr屬性設(shè)置為聯(lián)接相關(guān)表和主表的表達(dá)式。例如，如果ChildOrder標(biāo)識(shí)是以“l(fā)astname+firstname”建立的索引，應(yīng)將RelationalExpr也設(shè)置為相同的表達(dá)式。（6）在表格中嵌入控件。除了在表格中顯示字段數(shù)據(jù)，還可以在表格的列中嵌入控件，這樣就為用戶提供了可以嵌入的文本框、復(fù)選框、下拉列表框、微調(diào)按鈕和其他控件。例如，如果表中有一個(gè)邏輯字段，當(dāng)運(yùn)行該表單時(shí)，通過(guò)辨認(rèn)復(fù)選框可以判定哪個(gè)記錄值是.T.和哪個(gè)記錄值是.F.。修改這些值只需設(shè)置或清除復(fù)選框即可?？梢栽凇氨韱卧O(shè)計(jì)器”中交互地向表格列中添加控件，也可以通過(guò)編寫(xiě)代碼在運(yùn)行時(shí)添加控件。例8-8

創(chuàng)建一個(gè)可以表現(xiàn)課程安排、反映學(xué)習(xí)成績(jī)的表單。構(gòu)思：使用一個(gè)表格體現(xiàn)課程的有關(guān)安排信息；再用一個(gè)表格體現(xiàn)學(xué)習(xí)成績(jī)有關(guān)信息。第26頁(yè)，課件共34頁(yè)，創(chuàng)作于2023年2月

l為第1個(gè)表格控件設(shè)置屬性：ColumnCount=4ChildOrder=課程號(hào)DeleteMark=.F.Height=72Left=24LinkMaster=課程表ReadOnly=.T.RecordMark=.F.RecordSource=課程表RalationalExpr=課程表.課程號(hào)RowHeigh=18ScrollBars=3Top=48Width=337Name=課第27頁(yè)，課件共34頁(yè)，創(chuàng)作于2023年2月

l設(shè)置表格1各列屬性：Column1的標(biāo)題屬性：

Alignment=2Caption=課程號(hào)Column1的文本框?qū)傩裕?/p>

BorderStyle=0Margin=0ReadOnly=.T.ColorSource=3ForeColor=0,0,0ControlSource=課程號(hào)

BackColor=192,192,192第1列的屬性設(shè)置

ControlSource=無(wú)

Width=75ReadOnly=.T.其他3列與第1列略同。第28頁(yè)，課件共34頁(yè)，創(chuàng)作于2023年2月l設(shè)置第2個(gè)表格的屬性ColumnCount=4ChildOrder=課程號(hào)DeleteMark=.F.Height=73Left=24LinkMaster=課程表ReadOnly=.T.RecordMark=.F.RecordSource=分?jǐn)?shù)RalationalExpr=課程表.課程號(hào)RowHeigh=18ScrollBars=3-既水平又垂直Top=156Width=337第29頁(yè)，課件共34頁(yè)，創(chuàng)作于2023年2月l設(shè)置表格2中Column1的屬性Column1標(biāo)題屬性為：Alignment=2Caption=班級(jí)Name=Column1Column1的文本框?qū)傩詾椋築orderStyle=0Margin=0ReadOnly=.T.ColorSource=3ForeColor=0,0,0BackColor=192,192,192Name=Text1第1列的屬性設(shè)置：ControlSource=學(xué)生表.班級(jí)Width=75ReadOnly=.T.Name=Column1第30頁(yè)，課件共34頁(yè)，創(chuàng)作于2023年2月第3列的屬性設(shè)置：Alignment=2Caption=成績(jī)Name=Column3BorderStyle=0Margin=0ReadOnly=.T.ColorSource=3ForeColor=0,0,0BackColor=192,192,192Name=Header1ControlSo