沈陽農(nóng)業(yè)大學(xué)vfPPT課件

1、文件文件新建新建表單表單注意：注意： 控件窗口和屬性窗口不小心關(guān)掉了，怎樣控件窗口和屬性窗口不小心關(guān)掉了，怎樣找出？找出？表單文件擴(kuò)展名：表單文件擴(kuò)展名：scx第1頁/共44頁一一. 窗體窗體 窗體是面向?qū)ο蟮某绦蛟O(shè)計(jì)的主窗口。窗體是面向?qū)ο蟮某绦蛟O(shè)計(jì)的主窗口。窗體默認(rèn)名字：窗體默認(rèn)名字：formn (可以通過可以通過name屬性改名屬性改名)captionwidthheightautocenter : 自動居中 alwaysontop: 總在最前第2頁/共44頁二二. 標(biāo)簽控件標(biāo)簽控件 標(biāo)簽控件是按一定格式顯示在表單上的文本標(biāo)簽控件是按一定格式顯示在表單上的文本信息信息,用來顯示表單中各種說

2、明和提示。用來顯示表單中各種說明和提示。標(biāo)簽?zāi)J(rèn)名字：標(biāo)簽?zāi)J(rèn)名字：labeln (可以通過可以通過name屬性改名屬性改名)第3頁/共44頁標(biāo)簽的主要屬性有標(biāo)簽的主要屬性有:Caption 顯示的內(nèi)容。顯示的內(nèi)容。 Fontsize 字的大小。字的大小。 Autosize 自動調(diào)整標(biāo)簽大小。自動調(diào)整標(biāo)簽大小。Fontname 字體。字體。 Forecolor 字的顏色。字的顏色。Fontbold 加粗。加粗。Fontunderline 加下劃線。加下劃線。Fontitalic 傾斜。傾斜。 left 左邊距離。左邊距離。 top 頂部距離。頂部距離。第4頁/共44頁三三. 計(jì)時(shí)器計(jì)時(shí)器 “計(jì)

3、時(shí)器計(jì)時(shí)器”控件主要是控件主要是利用系統(tǒng)時(shí)鐘來控制某些利用系統(tǒng)時(shí)鐘來控制某些具有規(guī)律性、周期性任務(wù)具有規(guī)律性、周期性任務(wù)的定時(shí)操作。的定時(shí)操作。計(jì)時(shí)器控件默認(rèn)名字：timern 第5頁/共44頁1. interval2. enabled設(shè)置計(jì)時(shí)器觸發(fā)的時(shí)間間隔。設(shè)置計(jì)時(shí)器觸發(fā)的時(shí)間間隔。單位為單位為毫秒毫秒。取值范圍：取值范圍：065535。.t. 計(jì)時(shí)器啟動。計(jì)時(shí)器啟動。.f. 計(jì)時(shí)器關(guān)閉。計(jì)時(shí)器關(guān)閉。 Timer Timer 事件：事件： 指定的時(shí)間每經(jīng)過指定的時(shí)間每經(jīng)過1 1次，就執(zhí)行該事件次，就執(zhí)行該事件1 1次。次。主要屬性：第6頁/共44頁四四. 命令按鈕控件命令按鈕控件 命令按鈕

4、控件主要用來命令按鈕控件主要用來控制程序的執(zhí)行過程和數(shù)據(jù)控制程序的執(zhí)行過程和數(shù)據(jù)表中數(shù)據(jù)的操作等。表中數(shù)據(jù)的操作等。 默認(rèn)名字：默認(rèn)名字：commandn第7頁/共44頁命令按鈕的主要屬性有命令按鈕的主要屬性有:Name 名字。名字。Caption 顯示的內(nèi)容。顯示的內(nèi)容。 Fontsize 字的大小。字的大小。 主要事件：主要事件：Click 單擊單擊第8頁/共44頁五五. 文本框文本框 文本框控件主要用于數(shù)據(jù)表文本框控件主要用于數(shù)據(jù)表中某些字段的輸入、輸出，以及中某些字段的輸入、輸出，以及從窗口給內(nèi)存變量賦值等操作。從窗口給內(nèi)存變量賦值等操作。默認(rèn)名字：默認(rèn)名字：textn 第9頁/共44

5、頁文本框的主要屬性有文本框的主要屬性有:Name 名字。名字。Fontsize 字的大小。字的大小。 Value 初始值。初始值。第10頁/共44頁例例1 ：設(shè)計(jì)一個(gè)表單，實(shí)現(xiàn)標(biāo)簽文字邊移動邊變色。 標(biāo)簽?zāi)J(rèn)名字為：label1名字：la內(nèi)容：太陽出來喜洋洋（name屬性改名、caption屬性改內(nèi)容）命令按鈕（標(biāo)題分別為：開始、暫停、退出）第11頁/共44頁退出按鈕的click事件：thisform.release開始按鈕的click事件：暫停按鈕的click事件：form1的caption改為：移動變色提示:計(jì)時(shí)器的interval設(shè)置為：300計(jì)時(shí)器的enabled設(shè)置為：.f.標(biāo)簽的n

6、ame改為la標(biāo)簽的caption設(shè)置為：太陽出來喜洋洋第12頁/共44頁計(jì)時(shí)器timer事件代碼: else endifa=int(rand( )*256)b=int(rand( )*256)c=int(rand( )*256)變色移動第13頁/共44頁例例2 ：設(shè)計(jì)一個(gè)幸運(yùn)七游戲，文件名字為my_formxy.scx。文本框：文本框：t1t2t3標(biāo)簽：標(biāo)簽：lbl1標(biāo)簽標(biāo)簽lbl1lbl1的主要屬性如下：的主要屬性如下：CaptionCaption設(shè)為空設(shè)為空第14頁/共44頁rand( )*10)rand( )*10)rand( )*10)贏贏else輸輸endif開始按鈕開始按鈕cli

7、ck事件代碼如下：事件代碼如下：第15頁/共44頁例例3： 設(shè)計(jì)表單，要求如下：單擊確認(rèn)按鈕判斷密碼是否為aaa，是執(zhí)行幸運(yùn)七游戲，否則釋放。要求：text1的最大長度為8 ，密碼輸入時(shí)顯示為*。標(biāo)簽標(biāo)簽文本框文本框按鈕按鈕第16頁/共44頁確認(rèn)按鈕確認(rèn)按鈕click事件代碼：事件代碼：Do form 表單名表單名elsethisform.releaseEndif 文本框最大長度：maxlength 密碼輸入顯示*: passwordchar提示：第17頁/共44頁六六. 列表框列表框列表框默認(rèn)名字：listn 主要用來顯示選擇項(xiàng)，用戶可以從中選擇一個(gè)或多個(gè)數(shù)據(jù)項(xiàng)。 主要屬性： Rowsour

8、ce Rowsourcetype 當(dāng)rowsourcetype = 1 表示值源類型為值。 通過rowsource寫出具體值，之間逗號相隔。 當(dāng)rowsourcetype = 6 表示值源類型為字段。 通過rowsource選擇所需字段。第18頁/共44頁七七. 組合框組合框 組合框(combon)用于在列表框中選取數(shù)據(jù)并顯示在編輯窗口。它有兩種形式（style): (下拉組合框可手寫(默認(rèn)) (下拉列表框只能選擇) 其它主要屬性： rowsourcetype和 rowsource listindex ：指定索引值第19頁/共44頁八八. 復(fù)選框復(fù)選框 默認(rèn)名稱：checkn。 可以通過單擊改

9、變它的狀態(tài)。 復(fù)選框的主要屬性是: caption 顯示在復(fù)選框邊上的文本。顯示在復(fù)選框邊上的文本。 controlsource 指定數(shù)據(jù)來源。指定數(shù)據(jù)來源。 alignment 文本的位置左或右。文本的位置左或右。 value =0 表示沒有選擇復(fù)選框。表示沒有選擇復(fù)選框。 value =1 表示選中了復(fù)選框。表示選中了復(fù)選框。第20頁/共44頁九九. 選項(xiàng)按鈕組選項(xiàng)按鈕組默認(rèn)名字：optiongroupn作用：它可以包含多個(gè)選項(xiàng)，通常用于從多項(xiàng)選擇中選擇其一。主要屬性： buttoncount 指定按鈕個(gè)數(shù) value 選擇第幾個(gè)按鈕按鈕組中按鈕(option)的主要屬性： caption

10、 顯示在按鈕邊上的文本注意：選項(xiàng)按鈕組為容器類控件，“右鍵-編輯”設(shè)置按鈕的具體屬性。第21頁/共44頁 例4：文字變化標(biāo)簽標(biāo)簽2.下拉組合框下拉組合框4.選項(xiàng)按鈕組選項(xiàng)按鈕組3.復(fù)選框復(fù)選框1.列表框列表框第22頁/共44頁列表框，屬性設(shè)置如下： Rowsourcetype =1 Rowsource = 黑體,宋體,華文行楷,隸書列表框的單擊事件(click)代碼:name= this.value1.列表框列表框第23頁/共44頁屬性： style=0 Rowsourcetype = 1 Rowsource = 紅,黃,綠,黑2.下拉組合框下拉組合框輸入form1的init事件代碼： 下拉組

11、合框(combo1)的click事件代碼:do case case this.value=紅 endcase第24頁/共44頁復(fù)選框1的click事件代碼:If this.value=1elseEndif或用 thisform.label1. fontunderline =.not.thisform.label1. fontunderline復(fù)選框2和3提示: 傾斜: fontitalic 加粗: fontbold3.復(fù)選框復(fù)選框第25頁/共44頁選項(xiàng)按鈕組的click事件代碼:do case case this.value=1 case this.value=2 case this.valu

12、e=3 case this.value=4endcase4.選項(xiàng)按鈕組選項(xiàng)按鈕組第26頁/共44頁屬性主要包括：屬性主要包括：Keyboardhighvalue 輸入的最大值；Keyboardlowvalue 輸入的最小值；Increment 每次單擊按鈕的增減值；Value 初始值；Spinnerhighvalue 單擊按鈕所能達(dá)到的最大值；Spinnerlowvalue 單擊按鈕所能達(dá)到的最小值；例例5：用微調(diào)控制標(biāo)簽文字的字號。：用微調(diào)控制標(biāo)簽文字的字號。（語句寫到微調(diào)的interactivechange事件中。）十十. 微調(diào)控件微調(diào)控件第27頁/共44頁例6：查閱學(xué)生成績情況（三表聯(lián)動

13、）。學(xué)生學(xué)生成績成績課程課程十一十一. 表格控件表格控件第28頁/共44頁設(shè)計(jì)步驟如下：（1）右擊表單空白處/數(shù)據(jù)環(huán)境， 填入學(xué)生、成績、課程三個(gè)數(shù)據(jù)表， 并連線。（2）將三個(gè)數(shù)據(jù)表分別拖入表單中。（3）適當(dāng)調(diào)整三個(gè)表格的寬度，運(yùn)行。第29頁/共44頁默認(rèn)名字： pageframen頁框控件主要屬性: pagecount 頁數(shù)頁框中每一頁如第一頁為: pageframe1.page1對于每一頁主要屬性: caption 頁標(biāo)題注意:頁框控件為容器類控件，需按右鍵編輯進(jìn)入每一頁。十二十二. 頁框控件頁框控件第30頁/共44頁默認(rèn)名字：imagen主要屬性: 1. picture 圖片 2. st

14、retch 填充方式 十三十三. 圖像控件圖像控件第31頁/共44頁例7：制作美景欣賞。第32頁/共44頁一般用于數(shù)據(jù)表中備注型字段的顯示。一般用于數(shù)據(jù)表中通用型字段的顯示。是包含一組命令按扭的容器，其作用與命令按扭相同。十四十四. 編輯框編輯框(editn)十五十五. Activex綁定綁定十六十六.命令按鈕組(commandgroupn)第33頁/共44頁例8小型學(xué)生信息管理系統(tǒng)重點(diǎn)掌握：各控件與數(shù)據(jù)表之間的鏈接第34頁/共44頁設(shè)計(jì)界面如下：文本框文本框組合框組合框單選鈕單選鈕復(fù)選框復(fù)選框Activex綁定綁定編輯框編輯框按鈕組按鈕組第35頁/共44頁設(shè)計(jì)提示：1.設(shè)計(jì)界面2.進(jìn)入數(shù)據(jù)環(huán)

15、境，填入“學(xué)生”表3.分別設(shè)計(jì)各控件的controlsource屬性4.組合框還需設(shè): rowsourcetype 為字段 rowsource為相應(yīng)的字段5.按鈕組的單擊事件為: do case case this.value=1 go 1 第36頁/共44頁case this.value=2 skip -1 if bof( ) go 1 endifcase this.value=3 skip if eof( ) go bottom endifcase this.value=4 go bottom endcase Thisform.refresh第37頁/共44頁向?qū)П韱?利用表單向?qū)?chuàng)建表單

16、例9:利用表單向?qū)е谱饕粋€(gè)表單，要求選擇xsda表中所有字段，表單樣式為陰影式，按鈕類型為圖片按鈕，排序字段選擇學(xué)號升序,表單標(biāo)題為:學(xué)生數(shù)據(jù)輸入維護(hù).最后將表單存放在D盤下,表單文件名為Xs2。第38頁/共44頁表單練習(xí)1設(shè)計(jì)一個(gè)名為 my_forma的表單,實(shí)現(xiàn)加減乘除計(jì)算。（再把標(biāo)簽換成文本框?qū)崿F(xiàn)。）標(biāo)簽：名字為：la autosize=.t.微調(diào)：名字分別為：s1、s2 ，初值：10，最小值1，最大值100。 第39頁/共44頁 do casecase this.value=1thisform.la.caption=str(thisform.s1.value+thisform.s2.v

17、alue)case this.value=2thisform.la.caption=str(thisform.s1.value-thisform.s2.value)case this.value=3thisform.la.caption=str(thisform.s1.value*thisform.s2.value)case this.value=4thisform.la.caption=str(thisform.s1.value/thisform.s2.value,7,2) endcase單選鈕的click第40頁/共44頁把標(biāo)簽換成文本框如何實(shí)現(xiàn)？標(biāo)簽名字為：t1。 do casecase this.value=1thisform.t1.value=thisform.s1.value+thisform.s2.valuecase this.value=2thisform.t1.value=thisform.s1.value-thisform.s2.valuecase this.value=3thisform.t1.value=thisform.s1.value*thisfo