面向?qū)ο蟪绦蛟O(shè)計控件

面向?qū)ο蟪绦蛟O(shè)計控件§8.3表單控件設(shè)計

1．控件分類

VFP“表單控件”工具欄上有21個基類控件，按功能可分成以下5類：（1）輸出類：標(biāo)簽、圖像、線條、形狀。（2）輸入類：文本框、編輯框、微調(diào)控件、列表框、組合框。（3）控制類：命令按鈕、命令按鈕組、復(fù)選框、選項(xiàng)按鈕組、計時器。（4）容器類：表格、頁框、Contain容器、表單集。（5）連接類：ActiveX控件、ActiveX挷定控件、超級鏈接控件。

2．各類控件的缺省名稱各類控件的缺省名稱見表8－10。第2頁,共105頁，2024年2月25日，星期天2．各類控件的缺省名稱各類控件的缺省名稱見下表?？丶笔∶Q控件缺省名稱表單Form微調(diào)控件Sprinner標(biāo)簽Label表格Grid命令按鈕Command圖像Image文本框Text計時器Timer編輯框Edit頁框Pageframe命令按鈕組Commandgroup容器Container選項(xiàng)按鈕組Optiongroup線條Line復(fù)選框Ckeck形狀Shape組合框ComboActive挷定控件Oleboundctrol列表框List超級鏈接Hyperlink第3頁,共105頁，2024年2月25日，星期天標(biāo)簽控件(Label)常用于顯示說明信息和對象的標(biāo)題。1．標(biāo)簽常用屬性標(biāo)簽的常用屬性見下表：§8.3.1標(biāo)簽屬性功能Caption指定標(biāo)簽的標(biāo)題，字符型數(shù)據(jù)WordWrap為.T.時，標(biāo)簽的內(nèi)容自動換行，缺省值為.F.第4頁,共105頁，2024年2月25日，星期天

1．圖像（Image）（1）圖像控件的作用圖像控件用于在其中顯示圖像文件的圖片。（2）圖像常用屬性圖象對象常用屬性見下表：

§8.3.2圖像、線條、形狀屬性作用Picture圖像文件名Strech指定圖像填充方式：0—剪裁（默認(rèn)值），1—等比，2—變比第5頁,共105頁，2024年2月25日，星期天

2．線條（Line）（1）線條控件的作用線條控件用于在表單上創(chuàng)建直線或斜線。默認(rèn)創(chuàng)建一條。（2）線條常用屬性線條對象常用屬性見下：

屬性作用LineSlant\（默認(rèn)值）——斜線方向從左上角到右下角/——斜線方向從右上角到左下角BorderColor指定線條的顏色BorderStyle指定線條的樣式（實(shí)線、虛線、點(diǎn)線、點(diǎn)劃線……）BorderWidth指定線條的寬度（粗細(xì)）Height0—水平線Width0—垂直線第6頁,共105頁，2024年2月25日，星期天

3．形狀（Shape）（1）形狀控件的作用形狀控件用于在表單上創(chuàng)建圓、橢圓、正方形、矩形、圓角正方形和圓角矩形等幾何形狀。（2）形狀設(shè)置形狀對象常用屬性見下表：屬性作用BorderColor指定形狀控件邊框線的顏色BorderStyle指定形狀控件邊框線的樣式（實(shí)線、虛線、點(diǎn)線、點(diǎn)劃線……）BorderWidth指定形狀控件邊框線的寬度Curvature0（若Width與Height的值相等，則為正方形；若Width與Height的值不等，則為矩形）1→99（若Width與Height的值相等，則小圓角正方形→大圓角正方形→圓；若Width與Height的值不等，則小圓角矩形→大圓角矩形→橢圓）SpecialEffect指定形狀控件特殊效果（1－平面，0—三維）第7頁,共105頁，2024年2月25日，星期天

4．應(yīng)用舉例【例8－8】設(shè)計一個如圖8－41所示的應(yīng)用程序封面，顯示“職工管理系統(tǒng)”和“福建商業(yè)高等?？茖W(xué)校研制”，使用圖片start.jpg作為封面的背景圖案。單擊“登錄系統(tǒng)”按鈕，則打開登錄窗口。封面停留半分鐘后自動關(guān)閉。（1）設(shè)計界面在表單上創(chuàng)建2個標(biāo)簽Label1與Label2、1個形狀控件Shape1、1條水平線Line1、1個計時器Timer1與1個命令按鈕Command1。（2）設(shè)置對象屬性在“屬性”窗口中，分別設(shè)置各對象的屬性值如下表：第8頁,共105頁，2024年2月25日，星期天對象屬性名屬性值說明Form1PictureAutoCenterShowWindowd:\vfp\start.jpg.T.2指定表單背景圖案文件運(yùn)行時自動居中作為頂層表單Label1CaptionAutoSizeBackStyleForeColorFontNameFontSize職工管理系統(tǒng).T.0255,0,0隸書48自動大小透明紅色字符字體字號Label2CaptionAutoSizeBackStyleForeColorFontNameFontSizeFontBold福建商業(yè)高等專科學(xué)校研制.T.00,0,255楷體＿231220.T.自動大小透明藍(lán)色字符字體字號加粗第9頁,共105頁，2024年2月25日，星期天對象屬性名屬性值說明Shape1CurvatureHeightWidthBackStyleBorderColorBorderWidth991006000255,0,03橢圓橢圓外切矩形的高橢圓外切矩形的寬透明紅色線粗Line1HeightWidthTopLeftBorderColor03362043480,0,255水平線水平線長左上角的縱坐標(biāo)左上角的橫坐標(biāo)藍(lán)色Timer1Interval30000單位為毫秒Command1Caption登錄系統(tǒng)第10頁,共105頁，2024年2月25日，星期天（3）編寫事件代碼

1）計時器控件timer1的timer事件代碼如下：

Thisform.Release &&30秒后關(guān)閉表單

2）命令按鈕Command1的Click事件代碼如下：

DOFORMLogin.scx

&&調(diào)用登錄表單（4）保存表單以“Start.scx”為名稱保存表單。第11頁,共105頁，2024年2月25日，星期天圖8－41應(yīng)用程序封面

（5）運(yùn)行表單單擊“常用”工具欄中的“運(yùn)行”按鈕，表單運(yùn)行效果如圖8－41所示。第12頁,共105頁，2024年2月25日，星期天文本框(Text)又稱為輸入框,用于輸入數(shù)據(jù)和顯示數(shù)據(jù),它可接受字符型、數(shù)值型、日期型和邏輯型的數(shù)據(jù)。使用文本框只能輸入一段文本。也就是說,按回車鍵即終止輸入。

1．文本框常用屬性文本框常用屬性見表8－17。

Format屬性取值見表8－18。

InputMark屬性取值見表8－19。§8.3.3文本框第13頁,共105頁，2024年2月25日，星期天屬性作用Value文本框存放的值，類型可以是C、N、D、L，分別對應(yīng)于（無）、0、{}、.F.。其中（無）表示C型數(shù)據(jù)，也是默認(rèn)值。設(shè)計時可對此屬性賦初值，初值的類型決定文本框數(shù)據(jù)的類型ControlSource指定與文本框綁定的數(shù)據(jù)源。數(shù)據(jù)源可以是字段變量或內(nèi)存變量Format指定Value屬性輸入時的約束或顯示方式（參數(shù)的意義見表8－18）InputMask控制輸入數(shù)據(jù)格式和顯示方式（參數(shù)的意義見表8－19）PasswordChar指定文本框內(nèi)顯示輸入的占位符Alignment指定文本框中數(shù)據(jù)對齊的方式：0—左對齊，1—右對齊，2—居中（默認(rèn)值）SelLength文本框中被選擇的文本的字?jǐn)?shù)SelText文本框中被選擇的文本內(nèi)容表8－17文本框?qū)ο蟪Ｓ脤傩缘?4頁,共105頁，2024年2月25日，星期天表8－8－17Format屬性取值屬性值作用A只允許字母字符（無空格和標(biāo)點(diǎn)符號）D使用SETDATE命令設(shè)置當(dāng)前的日期格式E按BRITISH日期格式編輯日期型數(shù)據(jù)K當(dāng)光標(biāo)移到文本框上時，框中數(shù)據(jù)就被選定L在文本框中顯示數(shù)值型數(shù)據(jù)的前導(dǎo)0（以取代空格），只使用于數(shù)值型數(shù)據(jù)R顯示文本框的格式屏蔽，屏蔽不放入控制源中，只使用于字符型或數(shù)值型數(shù)據(jù)T截去輸入字段中前導(dǎo)空格和尾隨空格!小寫字母轉(zhuǎn)換成大寫字母，只使用于字符型數(shù)據(jù)^用科學(xué)表示法顯示數(shù)值型數(shù)據(jù)，只使用于數(shù)值型數(shù)據(jù)$顯示貨幣符，只使用于數(shù)值型和貨幣型數(shù)據(jù)第15頁,共105頁，2024年2月25日，星期天屬性作用X允許輸入任何字符A只允許輸入字母9允許輸入數(shù)字和正負(fù)號#允許輸入數(shù)字、正負(fù)號和空格$顯示當(dāng)前貨幣符號（由SETCURRENCY命令指定）*在數(shù)字左邊顯示星號*.指示小數(shù)點(diǎn)位置,分隔小數(shù)點(diǎn)左邊的數(shù)字串表8－19InputMask屬性取值第16頁,共105頁，2024年2月25日，星期天

2．文本框常用方法

SetFocus：文本框獲得焦點(diǎn)。

3．文本框常用事件（1）Valid：在失去焦點(diǎn)之前發(fā)生。（2）KeyPress：按下并釋放一個鍵盤鍵時發(fā)生。（3）LostFocus：按下并釋放一個鍵盤鍵時發(fā)生。（4）MouseDown：在該對象按下鼠標(biāo)時發(fā)生。（5）MouseUp：在該對象釋放鼠標(biāo)時發(fā)生。（6）InteractivateChange：文本框的值時發(fā)生。

【例8－9】設(shè)計如圖8－42所示的表單，其功能是：從鍵盤輸入職工的職工號，即顯示該職工的姓名和基本工資。第17頁,共105頁，2024年2月25日，星期天

（1）設(shè)計界面在表單上創(chuàng)建兩個標(biāo)簽Label1和Label2，一個文本框Text1和一個命令按鈕Command1。

（2）設(shè)置數(shù)據(jù)環(huán)境

1）右擊表單，在彈出的快捷菜單中選擇“數(shù)據(jù)環(huán)境”命令。

2）在彈出的“添加表或視圖”對話框中，選擇Zgjk.dbf表，單擊“添加”按鈕，將其添加到“數(shù)據(jù)環(huán)境設(shè)計器”窗口中。（3）創(chuàng)建字段映像用鼠標(biāo)將“數(shù)據(jù)環(huán)境設(shè)計器”窗口中Zgjk.dbf表的“姓名”和“基本工資”字段拖放到表單上，從而在表單上產(chǎn)生兩個標(biāo)簽控件（lbl姓名，lbl基本工資）和兩個文本框控件（txt姓名，txt基本工資）。第18頁,共105頁，2024年2月25日，星期天

對

象屬

性

名屬

性

值說明

Label1Caption職工號Label2CaptionAutoSize提示：.T.自動大小

Text1InputMark9999允許輸入4位任意數(shù)字

Txt姓名Readonly.T.只讀

Txt基本工資Readonly.T.只讀

Command1Caption查詢（4）設(shè)置對象屬性

（5）編寫事件代碼1）表單Form1的Init事件代碼如下：

*將記錄指針移出界，使運(yùn)行時“姓名”與“基本工資”文本框內(nèi)無內(nèi)容

GoBottomSkip第19頁,共105頁，2024年2月25日，星期天2）命令按鈕Command1的Click事件代碼如下：If!Empty(Thisform.Text1.Value) &&若文本框非空

GoTopLocateFor職工號=Alltrim(Thisform.Text1.Value)IfFound()Thisform.Label2.Caption="提示：記錄找到,相關(guān)內(nèi)容顯示如下："ElseThisform.Label2.Caption="提示：未找到相關(guān)記錄！"EndifThisform.Refresh &&刷新表單ElseThisform.Label2.Caption="提示：請?jiān)谖谋究蛑休斎氩檎覂?nèi)容！"Endif第20頁,共105頁，2024年2月25日，星期天圖8－42查詢職工的姓名和基本工資（6）保存表單以“查詢姓名和工資.scx”為名稱保存表單。

（7）執(zhí)行表單

單擊“常用”工具欄中的“運(yùn)行”按鈕，表單運(yùn)行效果如圖8－42所示。第21頁,共105頁，2024年2月25日，星期天編輯框(Edit)實(shí)際上是一個字處理器，可以輸入和編輯字符型數(shù)據(jù)，常作為備注型字段數(shù)據(jù)的綁定控件。編輯框只能輸入字符型的數(shù)據(jù)，且可以輸入多段文本。

1．編輯框常用屬性編輯框常用屬性見下頁表8－20。

2．編輯框常用方法和事件編輯框常用方法和事件與文本框相似?！?.3.4編輯框第22頁,共105頁，2024年2月25日，星期天屬性作用ControlSource指定編輯框的數(shù)據(jù)源。通常與備注型字段綁定Enabled指定編輯框是否有效（.T.－有效.F.－無效）HideSelection.T.（缺省值）—失去焦點(diǎn)時，編輯框中選定的文本不顯示為選定狀態(tài)；.F.—失去焦點(diǎn)時，編輯框中選定的文本仍顯示為選定狀態(tài)ReadOnly指定編輯框中內(nèi)容的只讀屬性（.T.—只讀，.F.［缺省值］—可寫）ScrollBars指定編輯框是否有滾動條（0—無，2［缺省值］—有）SelText編輯框中被選擇的文本內(nèi)容SelStart編輯框中被選擇的文本的起始位置SelLength編輯框中被選擇的文本的字?jǐn)?shù)Value指定編輯框中的值，并在編輯框中顯示（只能是C類型數(shù)據(jù)）表8－21編輯框的常用屬性第23頁,共105頁，2024年2月25日，星期天

【例8－10】創(chuàng)建一個如圖8－43所示的“剪貼板”表單。要求如下：

1）文本框中選定內(nèi)容后，“復(fù)制”命令按鈕被激活；

2）按下“復(fù)制”命令按鈕，實(shí)現(xiàn)文本框選定內(nèi)容復(fù)制到剪貼板；

3）按下“粘貼”命令按鈕，實(shí)現(xiàn)剪貼板內(nèi)容粘貼到編輯框。（1）設(shè)計界面新建一個表單，在表單上添加2個標(biāo)簽Label1和Label2，1個文本輯框Text1、1個編輯框Edit1和2個命令按鈕Command1和Command2。（2）設(shè)置對象屬性在“屬性”窗口中，分別設(shè)置各對象的屬性值，見表8－21。第24頁,共105頁，2024年2月25日，星期天

對

象屬

性屬

性

值說明

Form1

Caption剪貼板Label1

Caption文本框Label2

Caption編輯框Command1CaptionEnabled復(fù)制.F.失效Command2CaptionEnabled粘貼.F.失效表8－21對象屬性值的設(shè)置第25頁,共105頁，2024年2月25日，星期天（3）編寫事件代碼1）表單Form1的Init事件的代碼如下：Thisform.Text1.SetFocus &&文本框獲得焦點(diǎn)2）文本框Text1的MouseUp事件的代碼如下：LPARAMETERSnButton,nShift,nXCoord,nYCoord*判斷文本框中是否有選定內(nèi)容，有則激活Command1IfLen(this.SelText)>0 &&若文本框中有被選定的內(nèi)容

Thisform.Command1.Enabled=.T.&&“復(fù)制”命令按鈕有效Endif3）“復(fù)制”命令按鈕Command1的Click事件的代碼如下：

_CLIPTEXT=Thisform.Text1.selText&&將選定內(nèi)容復(fù)制到剪貼板

This.Enabled=.F. &&“復(fù)制”命令按鈕失效

Thisform.Command2.Enabled=.T.&&“粘貼”命令按鈕有效第26頁,共105頁，2024年2月25日，星期天圖8－43例8－10運(yùn)行的結(jié)果4）“粘貼”命令按鈕Command2的Click事件的代碼如下：

Thisform.Edit1.SelText=_CLIPTEXT

&&將剪貼板內(nèi)容粘貼到編輯框

Thisform.Edit1.SetFocus &&編輯框獲得焦點(diǎn)（4）以“剪貼板.SCX”為文件名保存表單。（5）單擊“常用”工具欄中的“運(yùn)行”按鈕，表單運(yùn)行結(jié)果如圖8－43所示。第27頁,共105頁，2024年2月25日，星期天【例8－11】創(chuàng)建如圖8－44所示的修改表的簡歷字段的表單。要求如下：1）在文本框中輸入要修改記錄的職工號，若該職工號存在，即顯示其姓名和簡歷，此時“修改簡歷”按鈕有效；若該職工號不存在，即彈出提示框，要求重新輸入。2）單擊“修改簡歷”命令按鈕，則光標(biāo)移入編輯框。3）按下“確認(rèn)退出”命令按鈕，則關(guān)閉表單。（1）設(shè)計界面新建一個表單，在表單上添加1個標(biāo)簽Label1，1個文本輯框Text1和2個命令按鈕Command1和Command2。（2）創(chuàng)建字段映像1）打開“數(shù)據(jù)環(huán)境設(shè)計器”窗口，添加Zgjk.dbf表。2）用鼠標(biāo)將“數(shù)據(jù)環(huán)境設(shè)計器”窗口中的“姓名”字段拖放到表單上，生成2個字段映像控件：標(biāo)簽“l(fā)bl.姓名”和文本框“txt.姓名”；將“簡歷”字段拖放到表單上，生成2個字段映像控件：標(biāo)簽“l(fā)bl.簡歷”和編輯框“edt.簡歷”。第28頁,共105頁，2024年2月25日，星期天

表8－22對象屬性值的設(shè)置（2）設(shè)置對象屬性對象屬性屬性值說明Form1Caption修改簡歷Label1Caption輸入職工號：Command1Caption修改簡歷Command2Caption確認(rèn)退出第29頁,共105頁，2024年2月25日，星期天（3）編寫事件代碼1）表單Form1的Init事件的代碼如下：GoBottSkip &&將指針移出記錄，使運(yùn)行初始界面無數(shù)據(jù)Thisform.edt.簡歷.Enabled=.F.&&簡歷編輯框失效Thisform.Command1.Enabled=.F.&&“修改簡歷”按鈕失效2）文本框Text1的InteractivateChange事件的代碼如下：LocateFOR職工號=ALLTRIM(This.Value)IFFOUND()

Thisform.edt.簡歷.Enabled=.F. &&簡歷編輯框有效

Thisform.Command1.Enabled=.T. &&“修改簡歷”按鈕有效ELSE

MESSAGEBOX("輸入的職工號不存在，請重新輸入！")

This.Value="" &&清空輸入職工號文本框

This.SetFocus &&輸入職工號文本框獲得焦點(diǎn)ENDIFThisform.Refresh &&刷新表單第30頁,共105頁，2024年2月25日，星期天圖8－44“修改簡歷”表單運(yùn)行的結(jié)果3）“確認(rèn)退出”命令按鈕Command2的Click事件代碼如下：ThisForm.Release &&釋放表單

（5）以“修改簡歷.SCX”為文件名保存表單。（6）單擊“常用”工具欄中的“運(yùn)行”按鈕，表單運(yùn)行結(jié)果如圖8－44所示。

第31頁,共105頁，2024年2月25日，星期天列表框(List)與組合框(Combo)

都是提供選擇一個或多個輸入項(xiàng)的列表，二者之間又存在如下區(qū)別：（1）列表框顯示全部選項(xiàng)列表；組合框只顯示一條選項(xiàng)，單擊右端下拉按鈕，才顯示全部選項(xiàng)列表。（2）組合框又分為下拉組合框和下拉列表框，前者允許輸入數(shù)據(jù)，后者與列表框一樣僅有選取功能。

1．列表框與組合框常用屬性列表框與組合框的常用屬性見表8－23。

§8.3.5列表框與組合框

第32頁,共105頁，2024年2月25日，星期天屬性作用ColumnCount指定列表框或組合框中的列數(shù)ControlSource指定存儲列表框或組合框選定項(xiàng)的數(shù)據(jù)綁定字段DisplayValue指定列表框或組合框中所選定項(xiàng)第一列的內(nèi)容ListCount返回列表框或組合框中列表項(xiàng)的個數(shù)ListIndex返回列表框或組合框中選定項(xiàng)的序號List(i,j)返回列表框或組合框第i行第j列的值MultiSelect指定是否允許多重選擇(0或.F.［缺省值］—不允許，1或.T.—允許）RowSourceType指定列表框或組合框數(shù)據(jù)源的類型（共9類，見表8－24）RowSource指定列表框或組合框的數(shù)據(jù)源Selected(i)若i行被選中，則返回.T.；否則返回.F.Style指定組合框的類型：0—下拉組合框，2—下拉列表框Value返回列表框或組合框中的選定項(xiàng)（若為數(shù)值型，則返回被選定項(xiàng)的序號；若為字符型，則返回被選定項(xiàng)的本身內(nèi)容。對于多列列表框，則返回由BoundCount屬性指定的列的數(shù)據(jù)項(xiàng)）表8－23列表框與組合框的常用屬性第33頁,共105頁，2024年2月25日，星期天RowSourceTypeRowSource在控件中顯示0－無（默認(rèn)值）在程序中用AddItem()添加條目用RemoveItem()移去條目1－值RowSource=one,two,three,fourone,two,three,fou2－別名RowSource的表由數(shù)據(jù)環(huán)境提供顯示字段數(shù)目由olumnCount確定3－SQL語句RowSource="select*FROMzgINTOCURSORtemp"SQL語句執(zhí)行的結(jié)果(記錄)4－查詢RowSource=查詢文件名.qpr查詢文件執(zhí)行的結(jié)果(記錄)，列數(shù)由ColumnCount確定5－數(shù)組RowSource=數(shù)組名數(shù)組元素的值6－字段RowSource=字段名字段的值7－文件例如：RowSource=*.dbf以目錄與文件名填充8－結(jié)構(gòu)RowSource的表由數(shù)據(jù)環(huán)境提供表的全部字段名9－彈出式菜單RowSource="彈出式菜單名"菜單選項(xiàng)2．RowSourceType與RowSource屬性（見下表）第34頁,共105頁，2024年2月25日，星期天

3．列表框與組合框常用方法（1）AddItem：當(dāng)組合框或列表框的RowSourceType屬性值為0時，可使用此方法在列表中添加一條新選項(xiàng)。（2）RemoveItem：當(dāng)組合框或列表框的RowSourceType屬性值為0時，可使用此方法刪除列表中一條選項(xiàng)。

（3）Clear：清除列表框中所有選項(xiàng)。

4．列表框與組合框常用事件（1）InteractivateChange：列表框或組合框的值發(fā)生改變時引發(fā)。（2）Click：單擊列表框或組合框時引發(fā)。

5．列表框和組合框生成器使用生成器可方便地設(shè)置列表框和組合框的屬性。第35頁,共105頁，2024年2月25日，星期天

【例8－12】設(shè)計一個如圖8－51所示的表單，用于選拔職工參加演講比賽。在組合框中顯示職工簡況表中所有職工的姓名，單擊“添加”按鈕，將其添加到列表框中；單擊“刪除”按鈕，則移去列表框中被選中的職工姓名；單擊“全部清除”按鈕，則清除列表框中所有的職工姓名。（1）設(shè)計界面創(chuàng)建表單，并在表單上添加兩個標(biāo)簽Label1和Label2，一個組合框Combo1，一個列表框List1，三個命令按鈕Command1、Command2和Command3。第36頁,共105頁，2024年2月25日，星期天（2）設(shè)置對象屬性對

象屬

性屬

性

值說

明Form1Caption選拔職工Label1Caption請選擇職工姓名Label2Caption被選中職工姓名列表Combo1RowsourceTypeRowsource

6－字段

zgjk.姓名字段Command1Caption添加Command2Caption刪除Command3Caption全部清除第37頁,共105頁，2024年2月25日，星期天（3）編寫事件代碼

1）命令按鈕Command1的Click事件的代碼如下：IfEmpty(Thisform.Combo1.Value) &&若組合框?yàn)榭?，則什么都不做

ReturnEndifFori=1toThisform.List1.Listcount &&歷遍列表框的所有選項(xiàng)

IfThisform.Combo1.Value=Thisform.List1.List(i)

&&若組合框中的選項(xiàng)已存在于列表框，則提示

Messagebox("已存在該列表項(xiàng)")ReturnEndifEndforThisform.List1.Additem(Thisform.Combo1.Value)

&&將組合框內(nèi)容添加到列表框Thisform.Combo1.Value="" &&清空組合框Thisform.Combo1.Setfocus &&組合框獲得焦點(diǎn)第38頁,共105頁，2024年2月25日，星期天2）命令按鈕Command2的Click事件的代碼如下：IfThisform.List1.Listindex>0&&若列表框有選中項(xiàng)，則刪除

Thisform.List1.Removeitem(Thisform.List1.Listindex)EndifThisform.List1.Listindex=Thisform.List1.Listcount

&&將末項(xiàng)設(shè)為選中項(xiàng)3）命令按鈕Command3的Click事件的代碼如下：Thisform.List1.Clear

&&清空列表框（4）以“選拔職工.SCX”為文件名保存表單。（5）單擊“常用”工具欄中的“運(yùn)行”按鈕，表單運(yùn)行結(jié)果如圖8－51所示。

圖8－51例L8-13運(yùn)行的結(jié)果

第39頁,共105頁，2024年2月25日，星期天【例8－13】設(shè)計一個如圖8－52所示表單，用于瀏覽職工銷售業(yè)績。在組合框中選定職工號，即在列表框中顯示該職工的銷售業(yè)績信息，包括：姓名、銷售數(shù)量、商品編號、商品名稱、規(guī)格型號和單價。

（1）設(shè)計界面

創(chuàng)建表單，并在表單上添加三個標(biāo)簽Label1、Label2和Label3，一個組合框Combo1和一個列表框List1。

（2）設(shè)置對象屬性（

如下頁表所示）。第40頁,共105頁，2024年2月25日，星期天對

象屬

性屬性值說

明Label1CaptionAutoSizeFontSizeFontBold職工銷售業(yè)績20.T..T.自動大小字號加粗Label2Caption請選擇職工號Label3Caption姓名

銷售數(shù)量

商品編號

商品名稱

規(guī)格型號

單價Combo1RowSourceTypeRowSource6－字段Zgjk.職工號字段List1RowSourceTypeColumnCount36SQL語句列數(shù)第41頁,共105頁，2024年2月25日，星期天（3）編寫事件代碼

組合框Combo1的InteractivateChange事件代碼如下：

Thisform.List1.Rowsource=;"SelectZgjk.姓名,Xs.銷售數(shù)量,Sp.商品編號,Sp.商品名稱,Sp.規(guī)格型號,;Sp.單價FromZgjk,Xs,Sp;WhereSp.商品編號=Xs.商品編號AND;Zgjk.職工號=Xs.職工號ANDZgjk.職工號=This.Value; IntoCursortemptable“

&&從3個表選擇符合條件的記錄放入臨時表，作為list1的數(shù)據(jù)源

Thisform.Refresh &&刷新表單第42頁,共105頁，2024年2月25日，星期天（4）以“瀏覽銷售業(yè)績.SCX”為文件名保存表單。（5）單擊“常用”工具欄中的“運(yùn)行”按鈕，表單運(yùn)行結(jié)果如圖8－52所示。圖8－52例8－13運(yùn)行的結(jié)果

第43頁,共105頁，2024年2月25日，星期天命令按鈕(Commmand)常用于啟動事件,以執(zhí)行某項(xiàng)操作，如關(guān)閉表單、移動記錄指針等。

1．命令按鈕常用屬性（見下表）§8.3.6命令按鈕屬性作用Caption按鈕標(biāo)題，若含“\<字符”，則該字符成為熱鍵Default為.T.時，按回車鍵執(zhí)行該命令按鈕Click事件（缺省值為.F.）Cancel為.T.時，按ESC鍵執(zhí)行該命令按鈕Click事件（缺省值為.F.）Enable指定是否響應(yīng)用戶引發(fā)的事件（.T.（缺省值）—響應(yīng)，.F.—不響應(yīng)）Visible指定對象可見或隱藏（缺省值為.T.）

2．命令按鈕常用方法（1）Click（2）RightClick第44頁,共105頁，2024年2月25日，星期天3．應(yīng)用舉例【例8－14】創(chuàng)建一個如圖8－53所示的表單。若單擊“表單背景色”命令按鈕，則隨機(jī)地改變表單背景的顏色；若單擊“標(biāo)簽前景色”命令按鈕，則隨機(jī)地改變標(biāo)題的顏色。操作步驟如下：（1）設(shè)計界面1）打開“表單設(shè)計器”窗口，并創(chuàng)建一個空白表單。2）在表單上創(chuàng)建1個標(biāo)簽控件Label1與2個命令按鈕

Command1和Command2。（2）設(shè)置對象屬性在“屬性”窗口中，分別設(shè)置各對象的屬性值，見表8－28第45頁,共105頁，2024年2月25日，星期天對象屬性名屬性值說明Form1Caption隨機(jī)改變顏色Label1CaptionAutoSizeFontNameFontSizeBackStyle職工管理系統(tǒng).T.華文新魏360自動大小字體字號透明Command1CaptionAutoSize表單背景色.T.自動大小Command2CaptionAutoSize標(biāo)簽前景色.T.自動大小表8－28對象屬性值的設(shè)置（3）編寫事件代碼1）命令按鈕Command1的Click事件代碼如下：a=INT(RAND()*255) &&隨機(jī)函數(shù)RAND()產(chǎn)生不大于1的隨機(jī)數(shù)b=INT(RAND()*255)c=INT(RAND()*255)Thisform.BackColor=RGB(a,b,c)第46頁,共105頁，2024年2月25日，星期天2）命令按鈕Command2的Click事件代碼如下：a=INT(RAND()*255)b=INT(RAND()*255)c=INT(RAND()*255)Thisform.Label1.ForeColor=RGB(a,b,c)（4）保存表單以“隨機(jī)改變顏色.scx”為文件名，保存表單。表8－53隨機(jī)改變顏色（5）運(yùn)行表單單擊“常用”工具欄中的“運(yùn)行”按鈕，表單運(yùn)行結(jié)果如圖8－53所示。第47頁,共105頁，2024年2月25日，星期天命令按鈕組(CommmandGroup)是包含若干個命令按鈕的容器。命令按鈕組和組內(nèi)各命令按鈕都有各自的屬性、方法和事件。

1．命令按鈕組常用屬性（見下表）§8.3.7命令按鈕組屬性功能ButtonCount設(shè)置組容器所包含的命令按鈕數(shù)Value為1（默認(rèn)值）時，單擊組控件內(nèi)某命令按鈕，將返回此命令按鈕的序號；值為“空”時，單擊組控件內(nèi)某命令按鈕，將返回此命令按鈕的Caption屬性第48頁,共105頁，2024年2月25日，星期天2．命令按鈕組中命令按鈕的編輯要編輯命令按鈕組中的命令按鈕，必須先激活組容器。激活組容器有如下兩種方法：（1）右擊命令按鈕組，在彈出的快捷菜單中選擇“編輯”命令。組容器被激活后，呈現(xiàn)綠色斜線邊框。（2）在“屬性”窗口中，選定組容器內(nèi)的對象，即進(jìn)入編輯態(tài)。推而廣之，容器類的對象，如命令按鈕組、選項(xiàng)按鈕組、表格、頁框等，若要編輯其中的對象，都先激活它們，使其進(jìn)入編輯狀態(tài)。3．命令按鈕組常用事件Click：單擊命令按鈕組中的按鈕時引發(fā)第49頁,共105頁，2024年2月25日，星期天4．應(yīng)用舉例【例8－15】創(chuàng)建簡單加減計算器，如圖8－54所示。該計算器的功能如下：

1）單擊按鈕，則清空文本框中的內(nèi)容；2）單擊正負(fù)號、數(shù)字和小數(shù)點(diǎn)按鈕，將在文本框中輸入相應(yīng)的內(nèi)容；3）單擊按鈕，將計算的結(jié)果顯示于文本框內(nèi)。操作步驟如下：

（1）設(shè)計界面創(chuàng)建表單,并在表單上添加一個文本框Text1和命令按鈕組CommandGroup1。第50頁,共105頁，2024年2月25日，星期天對

象屬

性屬

性

值屬

性

值Form1Caption加減計算器Command-Group1ButtonCountValue15=""組中的按鈕數(shù)目返回命令按鈕Caption屬性值Command1~Command15Caption1，2，3，4，5，6，7，8，9，0，．，＋，－，＝，C等號用全角字符，其它皆用半角字符Text1AlignmentValue1無字符右對齊字符型（2）設(shè)置對象屬性第51頁,共105頁，2024年2月25日，星期天（3）編寫事件代碼

命令按鈕組CommandGroup1的Click事件的代碼如下：IfThisForm.Commandgroup1.Value<>“＝”AND;ThisForm.Commandgroup1.Value<>"C"ThisForm.Text1.Value=;ThisForm.Text1.Value+ThisForm.Commandgroup1.ValueEndifIfThisForm.Commandgroup1.Value="＝"S=ThisForm.Text1.ValueThisForm.Text1.Value=&S&&將字符型內(nèi)存變量S的內(nèi)容宏替換出來放入文本框EndifIfThisForm.Commandgroup1.Value="C"ThisForm.Text1.Value=""&&清空文本框EndifThisform.Refresh &&刷新表單第52頁,共105頁，2024年2月25日，星期天圖8－54簡單加減計算器（4）保存表單以“加減計算器.SCX”為文件名保存表單。（5）執(zhí)行表單單擊“常用”工具欄中的“運(yùn)行”按鈕，表單運(yùn)行結(jié)果如圖8－54所示。第53頁,共105頁，2024年2月25日，星期天復(fù)選框(CheckBox)由一個方框和標(biāo)題說明組成，用于標(biāo)記一個兩值狀態(tài)：為真（.T.）狀態(tài)，為假（.F.）狀態(tài)。用戶可選擇若干個復(fù)選框中的一個或多個。

1．復(fù)選框常用屬性（見下表）§8.3.8復(fù)選框?qū)傩哉f明Caption指定顯示在復(fù)選框旁的標(biāo)題文字Value設(shè)置或返回復(fù)選框當(dāng)前狀態(tài)（0或.F.（缺省值）—未被選中，1或.T.—選定，2或.NULL.—禁用（灰色顯示））ControlSource指定復(fù)選框的數(shù)據(jù)源，通常與邏輯型字段綁定Style指定復(fù)選框的顯示風(fēng)格（0（缺省值）—標(biāo)準(zhǔn)樣式，1—圖形樣式）第54頁,共105頁，2024年2月25日，星期天

2．復(fù)選框常用事件（1）Click：單擊復(fù)選框時引發(fā)。（2）InteractivateChange：復(fù)選框值發(fā)生改變時引發(fā)。

【例8－16】設(shè)計一個表單，用于分別統(tǒng)計男女職工的人數(shù)和基本工資總額。若選中復(fù)選框，則統(tǒng)計男職工的人數(shù)和基本工資總額；否則統(tǒng)計女職工的人數(shù)和基本工資總額。操作步驟如下：（1）設(shè)計界面創(chuàng)建表單，并在表單上添加3個標(biāo)簽Label1、Label2和Label3，一個復(fù)選框Check1，兩個文本框Text、Text2和一個命令按鈕Command1。第55頁,共105頁，2024年2月25日，星期天對

象屬

性屬性值說明Label1CaptionAutoSizeFontSizeFontBold統(tǒng)計男女職工人數(shù)和基本工資總額.T.14.T.自動大小字號加粗Check1CaptionValue性別（選中為男，否則為女）0數(shù)值型Command1Caption統(tǒng)計（2）設(shè)置對象屬性在“屬性”窗口中，分別設(shè)置各對象的屬性值，見表8－32。第56頁,共105頁，2024年2月25日，星期天（3）編寫事件代碼命令按鈕Command1的Click事件代碼如下：DimensionX(2) &&定義數(shù)組Chx=ThisForm.Check1.Value &&復(fù)選框的值為0或1Sex=Iif(chx=0,“女”,“男”)

&&若chx=0，則Sex="女"；否則Sex="男SelectCount(*),SUM(基本工資)FromZgjkWhere性別=SexIntoArrayXThisform.Label2.Caption=Sex+"職工人數(shù)"Thisform.Label3.Caption=Sex+"職工基本工資總額"Thisform.Text1.value=X(1)Thisform.Text2.value=X(2)Thisform.Refresh &&刷新表單（4）以“統(tǒng)計男女職工人數(shù).SCX”為文件名保存表單。第57頁,共105頁，2024年2月25日，星期天（5）單擊“常用”工具欄中的“運(yùn)行”按鈕，表單運(yùn)行結(jié)果如圖8－55所示。圖8－55表單運(yùn)行的結(jié)果第58頁,共105頁，2024年2月25日，星期天

【例8－17】設(shè)計一個如圖8－56所示的表單，用于顯示不同字體、字號和字型的示例文字。操作步驟如下：（1）設(shè)計界面創(chuàng)建表單,并在表單上添加3個標(biāo)簽Label1、Label2和Label3，3個復(fù)選框Check1和2個組合框Combo1和Combo2。（2）設(shè)置對象屬性在“屬性”窗口中，分別設(shè)置各對象的屬性值，見表8－33。第59頁,共105頁，2024年2月25日，星期天對象屬性名屬性值說明Label1CaptionAlignmentAutoSize示例文字2.T.中央自動大小Label2Caption字體Label3Caption字號Check1Caption粗體Check2Caption下劃線Check3Caption斜體Combo1RowSourceTypeRowSource1宋體,仿宋,黑體,楷體_GB2312,隸書,幼圓值Combo2RowSourceTypeRowSource112,16,24,28,36值第60頁,共105頁，2024年2月25日，星期天（3）編寫事件代碼1）復(fù)選框Check1的Click事件代碼如下：IFThis.Value=1Thisform.Label1.FontBold=.T.ELSEThisform.Label1.FontBold=.F.ENDIF2）復(fù)選框Check2的Click事件代碼如下：IFThis.Value=1Thisform.Label1.FontUnderline=.T.ELSEThisform.Label1.FontUnderline=.F.ENDIF第61頁,共105頁，2024年2月25日，星期天3）復(fù)選框Check3的Click事件代碼如下：IFThis.Value=1Thisform.Label1.FontItalic=.T.ELSEThisform.Label1.FontItalic=.F.ENDIF4）組合框Combo1的InteractivateChange事件代碼如下：Thisform.Label1.FontName=ALLTRIM(This.DisplayValue)5）組合框Combo2的InteractivateChange事件代碼如下：Thisform.Label1.FontSize=VAL(ALLTRIM(This.DisplayValue))Thisform.Label1.Left=;Thisform.Width/2-Thisform.Label1.Width/2 &&Label1居中第62頁,共105頁，2024年2月25日，星期天（4）以“字體示例.SCX”為文件名保存表單。（5）單擊“常用”工具欄中的“運(yùn)行”按鈕，表單運(yùn)行結(jié)果如圖8－56所示。圖8－56

“字體示例”表單運(yùn)行的結(jié)果第63頁,共105頁，2024年2月25日，星期天

選項(xiàng)按鈕組(OptionGroup)是包含選項(xiàng)按鈕的容器。其特點(diǎn)是按鈕組中只能一個選項(xiàng)按鈕被選中。

1．選項(xiàng)按鈕組常用屬性選項(xiàng)按鈕組常用屬性見下表：§8.3.9選項(xiàng)按鈕組屬性說明ButtonCount指定選項(xiàng)按鈕的數(shù)目Buttons為選項(xiàng)按鈕組的數(shù)組名ControlSource指定選項(xiàng)按鈕組的數(shù)據(jù)源Value若為數(shù)值型（缺省值），則返回被選中按鈕的序號；若為字符型，則返回被選中按鈕的Caption屬性值第64頁,共105頁，2024年2月25日，星期天

2．選項(xiàng)按鈕組常用事件（1）Click：單擊選項(xiàng)按鈕時引發(fā)。（2）InteractivateChange：選項(xiàng)按鈕組發(fā)生改變時引發(fā)。【例8－18】設(shè)計一個如圖8－57所示表單，實(shí)現(xiàn)按部門統(tǒng)計職工的人數(shù)。操作步驟如下：（1）設(shè)計界面創(chuàng)建一個表單,并在表單上添加一個選項(xiàng)組、一個文本框和兩個標(biāo)簽，如圖8－57所示。（2）設(shè)置對象屬性在“屬性”窗口中，分別設(shè)置各對象的屬性值見下表。第65頁,共105頁，2024年2月25日，星期天對象屬性名屬性值說明Form1Caption統(tǒng)計各部門人數(shù)Label2Caption人Text1BackStylBorderStylValue000透明無邊框數(shù)值型OptionGroup1ButtonCountValue3無按鈕數(shù)目返回選中選項(xiàng)按鈕標(biāo)題Option1Caption家電Option2Caption服裝Option3Caption文具第66頁,共105頁，2024年2月25日，星期天（3）編寫事件代碼選項(xiàng)按鈕組OptionGroup1的Click事件代碼如下：SelectCount(*)FromZgjk;Where部門=This.ValueIntoArrayX &&統(tǒng)計部門人數(shù),并將結(jié)果放入內(nèi)存變量xThisform.Text1.Value=X(1) &&將數(shù)組的值寫入文本框Thisform.Label1.Caption=This.Value+"部門共有" &&Value的值為"家電"、"服裝"或"文具"圖8－57表單運(yùn)行的結(jié)果（4）以“L8-16.SCX”為文件名保存表單。（5）單擊“常用”工具欄中的“運(yùn)行”按鈕，表單運(yùn)行結(jié)果如圖8－57所示。第67頁,共105頁，2024年2月25日，星期天【例88－19】設(shè)計一個分類查詢表單，其功能是：能夠分別按人事、工資和銷售查詢本單位職工某方面信息

。操作步驟如下：（1）設(shè)計界面在表單上創(chuàng)建1個標(biāo)簽、選項(xiàng)按鈕組、表格和命令按鈕，如圖8－58所示。（2）設(shè)置對象屬性在“屬性”窗口中，分別設(shè)置各對象的屬性值見下表。第68頁,共105頁，2024年2月25日，星期天對象屬性名屬性值說明Form1CaptionAutoCenter職工各項(xiàng)信息查詢.T.自動居中Label1CaptionAlignmentAutoSizeForeColorFontNameFontSize職工各項(xiàng)信息查詢0.T.255,0,0隸書28居中對齊自動大小紅色字符字體字號OptionGroup1ButtonCountOptionGroup1.Option1.CaptionOptionGroup1.Option2.CaptionOptionGroup1.Option3.CaptionValue3查詢職工簡況查詢工資信息查詢銷售業(yè)績1按鈕數(shù)目數(shù)值型Grid1RecordSourceType4SQL語句Command1Caption退出第69頁,共105頁，2024年2月25日，星期天（3）編寫事件代碼選項(xiàng)按鈕組的Click事件代碼如下：DoCaseCaseThisform.OptionGroup1.Value=1Thisform.Grid1.RecordSource=;"SELECT*FROMZgjkINTOCURSORTMP"CaseThisform.OptionGroup1.Value=2Thisform.Grid1.RecordSource=;"SELECT*FROM職工業(yè)績!View_gzINTOCURSORTMP" &&View_gz為工資信息視圖

CaseThisform.OptionGroup1.Value=3Thisform.Grid1.RecordSource=;"SELECT*FROM職工業(yè)績!View_xs2INTOCURSORTMP" &&View_xs2為銷售業(yè)績視圖EndcaseThisform.Refresh第70頁,共105頁，2024年2月25日，星期天2）“退出”命令按鈕Command1的Click事件代碼如下：CloseallTableThisform.Release（4）保存表單以“職工信息分類查詢.scx”為名稱保存表單。（5）運(yùn)行表單表單運(yùn)行效果如圖8－58所示圖8－58職工信息分類查詢表單第71頁,共105頁，2024年2月25日，星期天微調(diào)控件（Spinner）用于接受給定范圍內(nèi)的數(shù)值輸入。它既可以用鍵盤直接輸入，也可以用鼠標(biāo)單擊該控件的上下箭頭按鈕來增減當(dāng)前值。微調(diào)控件可以與數(shù)值型變量和字段綁定

。

1．計時器常用屬性（見下表）§8.3.10微調(diào)控件

屬性作用ControlSource指定微調(diào)控件的數(shù)據(jù)源Increment設(shè)定按一次箭頭按鈕的增減數(shù)。默認(rèn)值為1.00KeyBoardHighValue設(shè)定鍵盤輸入數(shù)值的上限KeyBoardLowValue設(shè)定鍵盤輸入數(shù)值的下限SpinnerHighValue設(shè)定按鈕微調(diào)數(shù)值的上限SpinnerLowValue設(shè)定按鈕微調(diào)數(shù)值的下限Value表示微調(diào)控件當(dāng)前值第72頁,共105頁，2024年2月25日，星期天2．選項(xiàng)按鈕組常用事件（1）InteractivateChange：微調(diào)控件值發(fā)生改變時引發(fā)。（2）DownClick：單擊向下箭頭按鈕時引發(fā)。（3）UpClick：單擊向上箭頭按鈕時引發(fā)。3．應(yīng)用舉例【例8－20】設(shè)計一個圖8－59所示表單，要求如下：改變3個微調(diào)控件的值，然后單擊“更新”按鈕，則改變形狀控件的顏色和形狀；若3個微調(diào)控件的值分別為255、0、0，形狀控件為紅色的正方形；若3個微調(diào)控件的值分別為0、0、255，形狀控件為藍(lán)色的圓形。（1）設(shè)計界面創(chuàng)建一個表單，并在表單上添加1個形狀控件Shape1、3個微調(diào)控件Spinner1、Spinner2和Spinner3，1個命令按鈕Command1，如圖8－59所示。第73頁,共105頁，2024年2月25日，星期天對象屬性屬性值說明Label1Caption紅Label2Caption綠Label3Caption藍(lán)Spinner1KeyBoardHighValueKeyBoardLowValueSpinnerHighValueSpinnerLowValue25502550鍵盤輸入數(shù)值的上限鍵盤輸入數(shù)值的下限按鈕微調(diào)數(shù)值的上限按鈕微調(diào)數(shù)值的下限Spinner2KeyBoardHighValueKeyBoardLowValueSpinnerHighValueSpinnerLowValue25502550Spinner3KeyBoardHighValueKeyBoardLowValueSpinnerHighValueSpinnerLowValue25502550Command1Caption更新（2）設(shè)置對象屬性設(shè)置各對象的屬性見下表。第74頁,共105頁，2024年2月25日，星期天（3）編寫事件代碼命令按鈕Command1的Click事件代碼如下：R=Thisform.Spinner1.ValueG=Thisform.Spinner2.ValueB=Thisform.Spinner3.ValueThisform.Shape1.Curvature=(R+G+B)/3/255*99Thisform.Shape1.BackColor=RGB(R,G,B)IfR=255andG=0andB=0Thisform.Shape1.Curvature=0 &&形狀控件為正方形

Thisform.Shape1.BackColor=RGB(R,G,B)EndifIfR=0andG=0andB=255Thisform.Shape1.Curvature=99 &&形狀控件為藍(lán)色的圓形

Thisform.Shape1.BackColor=RGB(R,G,B)ENDIFThisform.refresh

第75頁,共105頁，2024年2月25日，星期天圖8－59例8－20運(yùn)行的結(jié)果（4）以“形色更新.SCX”為文件名保存表單。（5）單擊“常用”工具欄中的“運(yùn)行”按鈕，表單運(yùn)行結(jié)果如圖8－59所示。第76頁,共105頁，2024年2月25日，星期天

計時器(Timer)控件像一個鬧鐘，它以一定的時間間隔重復(fù)執(zhí)行某種操作。當(dāng)達(dá)到規(guī)定的時間間隔時，系統(tǒng)自動觸發(fā)Timer事件。

在表單設(shè)計的過程中，計時器控件可見；表單運(yùn)行時，計時器控件自動隱藏。

1．計時器常用屬性（見下表）§8.3.11計時器屬性說明Interval用于設(shè)置計時間隔，單位是ms，當(dāng)值為0時，不產(chǎn)生Timer事件Enabled.T.—表單加載時，計時器即開始計時；.F.—計時器不計時

2．計時器常用事件

Timer：達(dá)到Interval設(shè)置計時間隔即觸發(fā)。

第77頁,共105頁，2024年2月25日，星期天分析：使用計時器控件Timer，將該控件的Interval屬性設(shè)置為500，即每0.5秒觸發(fā)一次計時器控件的Timer事件（顯示一次系統(tǒng)時間）；將計時器控件的Interval屬性設(shè)置為0將停止觸發(fā)Timer事件。操作步驟如下：

（1）設(shè)計界面創(chuàng)建一個表單，并在表單上添加兩個標(biāo)簽Label1，Label2；三命令按鈕Command1，Command2，Command3和一個計時器控件Timer1。【例8－21】設(shè)計一個如圖8－60所示的表單，具體要求如下：

1）表單名為Timer,表單標(biāo)題為“時鐘”,表單運(yùn)行時自動顯示系統(tǒng)的當(dāng)前時間；

2）要求顯示時間的標(biāo)簽控件Label1在表單中居中,標(biāo)簽文本對齊方式為居中；

3）單擊“暫?！泵畎粹o（Command1）時，時鐘停止；

4）單擊“繼續(xù)”命令按鈕（Command2）時，時鐘繼續(xù)顯示系統(tǒng)的當(dāng)前時間；

5）單擊“退出”命令按鈕（Command3）時，關(guān)閉表單。第78頁,共105頁，2024年2月25日，星期天對

象屬

性

名屬

性

值說

明Form1NameCaptionTimer時鐘Label1CaptionFontSizeAutoSize現(xiàn)在時間是：16.T.－真字號自動大小Label2AlignmentFontSizeAutoSize2－中央16.T.－真中央Timer1IntervalEnabled500.T.計時間隔的單位為ms有效Command1

Caption

暫停Command2

Caption

繼續(xù)Command3

Caption

退出（2）設(shè)置對象屬性在“屬性”窗口中，分別設(shè)置各對象的屬性值見下表。第79頁,共105頁，2024年2月25日，星期天（3）編寫事件代碼

1）雙擊“暫停”按鈕，打開代碼編輯窗口，輸入Click事件代碼如下：

Thisform.Timer1.Interval=0

2）雙擊“繼續(xù)”按鈕，打開代碼編輯窗口，輸入Click事件代碼如下：

Thisform.Timer1.Interval=500

3）雙擊“退出”按鈕，打開代碼編輯窗口，輸入Click事件代碼如下：

Thisform.Release

4）雙擊計時器控件timer1，打開代碼編輯窗口，輸入timer事件代碼如下：

Thisform.Label2.Caption=Time()圖8－60“時鐘”表單運(yùn)行的結(jié)果（4）以“時鐘.SCX”為文件名保存表單。（5）單擊“常用”工具欄中的“運(yùn)行”按鈕，表單運(yùn)行結(jié)果如圖8－60所示。

第80頁,共105頁，2024年2月25日，星期天

1．容器的特性容器（Container）可包含除表單和表單集之外多個不同類型的對象。要向容器中添加對象，必須先激活容器。具體操作方法是：右擊容器，在彈出的快捷菜單中選擇“編輯”命令，使容器處于編輯狀態(tài)，此時添加的對象才會到容器中。如果沒有激活容器而添加對象，實(shí)際上對象是添加到表單上而不是容器中。推而廣之，容器類的對象，若要編輯其中的對象，都先激活它們，使其進(jìn)入編輯狀態(tài)。

2．容器常用屬性容器對象常用屬性見下表：§8.3.12容器屬

性說明SpecialEffect指定容器三維形狀（0—凸起，1—凹下，2（缺省值）—平面）Enable指定是否響應(yīng)用戶引發(fā)的事件（.T.（缺省值）—響應(yīng)，.F.—不響應(yīng)）Visible指定容器內(nèi)對象是否可見（.T.（缺省值）—可見，.F.—不可見）第81頁,共105頁，2024年2月25日，星期天【例