《窗體設(shè)計》PPT課件.ppt

1、1,第6章 窗體設(shè)計,6.1 窗體對象概述 6.2 用向?qū)纱绑w 6.3 在設(shè)計視圖中完善、創(chuàng)建窗體 6.4 對象的屬性、方法和事件概念 6.5 窗體與常用控件的編程 6.6 多窗體應(yīng)用,總結(jié)和作業(yè)、實驗任務(wù),2,6.1 窗體對象概述,Access窗體的實質(zhì)是運行于Windows環(huán)境下的面向?qū)ο?、事件?qū)動的應(yīng)用程序。 應(yīng)用程序以窗口作為與用戶交互的界面。在程序尚未執(zhí)行的設(shè)計階段，窗口(window)被稱為窗體(form)。 窗體(窗口)的基本功能是輸入數(shù)據(jù)、編輯數(shù)據(jù)、通過命令按鈕控件改變應(yīng)用程序的流向、輸出相關(guān)表或查詢對象的數(shù)據(jù)等。,3,6.1 窗體對象概述,窗體的組成 窗體頁眉 頁面頁眉

2、主體 頁面頁腳 窗體頁腳,4,6.1 窗體對象概述,1. 窗體的組成 窗體頁眉：出現(xiàn)在運行中的窗體頂部，或打印第一頁的頂部，用于顯示窗體標題等信息，其內(nèi)容不因記錄內(nèi)容的變化而改變。 頁面頁眉：打印多頁時出現(xiàn)在每個打印頁的上方顯示標題等內(nèi)容。頁面頁眉只出現(xiàn)在窗體打印頁中，運行窗體時，屏幕上不顯示頁面頁眉內(nèi)容。,5,6.1 窗體對象概述,1. 窗體的組成 主體：最常用、最主要的部分，用于顯示一條或若干條記錄的內(nèi)容。開發(fā)數(shù)據(jù)庫應(yīng)用程序主要針對主體節(jié)設(shè)計用戶界面。 頁面頁腳：只出現(xiàn)在窗體打印頁的下方。一般用于輸出打印頁的頁碼、總頁數(shù)、打印日期等。同樣，運行窗體時，屏幕上不顯示頁面頁腳內(nèi)容。,6,6.1

3、 窗體對象概述,1. 窗體的組成 窗體頁腳：出現(xiàn)在運行中的窗體或窗體打印頁的最底部。用于輸出一些提示性信息、命令按鈕、記錄導(dǎo)航等。,7,6.1 窗體對象概述,2. 窗體的分類 （1）單窗體：一個窗體中顯示一個記錄 （導(dǎo)師）,8,6.1 窗體對象概述,2. 窗體的分類 （2）多頁窗體：當一個記錄中字段較多，或者涉及的表較多時，使用選項卡顯示多項數(shù)據(jù)。,9,6.1 窗體對象概述,2. 窗體的分類 （3）連續(xù)窗體：一個窗口中顯示若干個記錄,10,6.1 窗體對象概述,2. 窗體的分類 （4）子窗體：窗體中鑲嵌的另一個窗體,11,6.1 窗體對象概述,2. 窗體的分類 （5）彈出式窗體：可理解成對話框

4、,其作用是輸入數(shù)據(jù)、參數(shù)或者顯示特定信息，既可以由InputBox()函數(shù)和MsgBox()函數(shù)生成，也可以由用戶預(yù)先生成一個窗體，在需要時打開。 分類：獨占式 非獨占式,12,6.1 窗體對象概述,2. 窗體的分類 （6）切換面板窗體：數(shù)據(jù)庫應(yīng)用程序的起始“封面”，可以引導(dǎo)用戶使用各個窗體、報表、表等。,13,6.2 用向?qū)纱绑w,需告知窗體上數(shù)據(jù)的來源(數(shù)據(jù)源)。 數(shù)據(jù)源形式：表、基于表的查詢 字段通常以文本框控件的形式出現(xiàn)在窗體上 6.2.1 基于單數(shù)據(jù)源的窗體 6.2.2 基于多數(shù)據(jù)源的窗體,14,6.2.1 基于單數(shù)據(jù)源的窗體,例6-1 用向?qū)苫凇皩?dǎo)師”表的窗體,雙擊,15,

5、6.2.1 基于單數(shù)據(jù)源的窗體,說明： 窗體與“導(dǎo)師”表相連，窗體上的文本框等控件又與“導(dǎo)師”表中相關(guān) 字段綁定，因此用戶在 窗體上對數(shù)據(jù)所作的任何更改都將引起“導(dǎo)師”表中相關(guān)字段數(shù)值的變化。 窗體對象的打開、改名、復(fù)制和刪除操作同報表的相關(guān)操作。,16,6.2.1 基于單數(shù)據(jù)源的窗體,例6-2 顯示研究生及其導(dǎo)師的有關(guān)信息 （1）建立一個查詢對象“研究生-導(dǎo)師”，其SQL命令為： (2) 用向?qū)?chuàng)建窗體，數(shù)據(jù)源選擇查詢對象“研究生-導(dǎo)師”,SELECT 學(xué)號, 研究生.姓名, 研究生.性別, 入學(xué)分數(shù), 研究方向, 導(dǎo)師.導(dǎo)師編號, 導(dǎo)師.姓名, 導(dǎo)師.性別, 博導(dǎo), 職稱, 系編號 FRO

6、M 研究生, 導(dǎo)師 WHERE 研究生.導(dǎo)師編號=導(dǎo)師.導(dǎo)師編號,17,6.2.1 基于單數(shù)據(jù)源的窗體,在設(shè)計視圖中修改向?qū)傻拇绑w布局和格式,18,6.2.2 基于多數(shù)據(jù)源的窗體,若兩表之間呈現(xiàn)“一對多”關(guān)系，可用主窗體顯示“一”表信息，子窗體顯示“多”表中對應(yīng)的記錄。 例 6-3顯示每一位導(dǎo)師的信息及其所帶的研究生的情況。要求，研究生的信息以子窗體的形式顯示。(使用向?qū)? 分析：本例實現(xiàn)的前提是事先建立“導(dǎo)師”表和“研究生”表之間的一對多的關(guān)系。,19,6.2.2 基于多數(shù)據(jù)源的窗體,例6-3運行效果如圖：,先建立“導(dǎo)師”表和“研究生”表之間的“一對多”關(guān)系。,20,6.2.2 基于多數(shù)

7、據(jù)源的窗體,例6-4在已經(jīng) 存在的導(dǎo)師窗體 上，通過子窗體 控件添加研究生 子窗體,21,6.3 在設(shè)計視圖中完善、創(chuàng)建窗體,6.3.1 窗體設(shè)計視圖中的工具欄 6.3.2 用控件向?qū)晟拼绑w 6.3.3 在設(shè)計視圖中創(chuàng)建窗體 6.3.4 在窗體中添加圖表,22,6.3.1 窗體設(shè)計視圖中的工具欄,1. 窗體設(shè)計工具欄(見表6.1) 2. 格式工具欄(見表6.2) 3. 工具箱(見表6.3),23,6.3.2 用控件向?qū)晟拼绑w,例6-5 在“導(dǎo)師”窗體上添加研究生子窗體，并創(chuàng)建一個標題是“退出”（或者用圖片）的按鈕，其功能是單擊后立即關(guān)閉窗體。 例6-6 在上述窗體的右側(cè)添加4個用于瀏覽記錄

8、的按鈕：第一條、上一條、下一條、最后一條，同時取消窗體上的導(dǎo)航按鈕。,24,6.3.2 用控件向?qū)晟拼绑w,例6-5在例6-4 的窗體上添加 一個標題為 “退出”的 按鈕以關(guān)閉窗體,25,6.3.2 用控件向?qū)晟拼绑w,例6-6,26,6.3.2 用控件向?qū)晟拼绑w,例6-7 在例6-6的窗體上添加一個文本框，顯示當前導(dǎo)師的工資。,27,6.3.3 在設(shè)計視圖中創(chuàng)建窗體,從“零”開始自定義窗體布局和控件 例6-8 創(chuàng)建窗體顯示系名和該系的研究生名。 (1)準備數(shù)據(jù)源：創(chuàng)建查詢對象“系-研究生” (2)建立一個空白窗體，并添加控件 (3)窗體記錄源選擇“系-研究生” (4)將文本框控件與相關(guān)字段

9、綁定 (5)修改文本框附加的標簽內(nèi)容,28,6.3.3 在設(shè)計視圖中創(chuàng)建窗體,例6-9 在窗體放置一個列表框、兩個文本框。列表框中保存有研究生姓名；當在下拉列表框中選定一個研究生時，第一個文本框中顯示其導(dǎo)師，第二個文本框中顯示該導(dǎo)師所在系的名字。 建立查詢選擇字段研究生姓名、導(dǎo)師姓名和系名 更改查詢中同名字段 窗體記錄源選擇“系-導(dǎo)師-研究生”，添加文本框 用列表框向?qū)煽丶?，修改標簽內(nèi)容,29,6.3.4 在窗體中添加圖表,方法：設(shè)計視圖中執(zhí)行“插入”“圖表” 例6-10顯示導(dǎo)師除年齡和照片之外的所有信息，同時用三維柱圖顯示他們的年齡。 (1) 用向?qū)纱绑w (2) 添加圖表：打開設(shè)計

10、視圖， 在窗體頁腳中執(zhí) 行“插入”“圖表”,30,6.3.4 在窗體中添加圖表,例6-11用單一窗體 顯示導(dǎo)師表除照片外的全部信息，用三維圓柱形圖顯示當前導(dǎo)師所帶研究生的姓名和入學(xué)分數(shù) (1) 用向?qū)梢浴皩?dǎo)師”表為數(shù)據(jù)源的窗體 (2) 在“主體”節(jié)插入數(shù)據(jù)源為“研究生” 表的圖表,31,6.4 對象的屬性、方法和事件概念,1. 屬性 屬性是對象的外部表現(xiàn)和特征。 2. 方法 方法是對象能夠執(zhí)行的動作或完成的操作。如， 立即窗口對象具有Print方法 3. 事件 事件是能被對象識別和響應(yīng)的動作，分為用戶事 件和系統(tǒng)事件。,區(qū)分事件與事件過程的概念,32,6.5 窗體與常用控件的編程,使用控件

11、：打開窗體設(shè)計視圖，從工具箱中選取適當?shù)目丶胖玫酱绑w上 控件有若干個屬性，多數(shù)屬性可使用其默認值 修改控件屬性：,33,6.5 窗體與常用控件的編程,在窗體設(shè)計視圖的控件屬性對話框中進行修改 在代碼窗口的控件屬性對話框中修改,34,6.5 窗體與常用控件的編程,35,6.5.1 標簽,主要功能：顯示說明性文本，提示與解釋。 Access自動為除命令按鈕以外的每一個非標簽控件添加標簽 常用屬性Name、 Caption 、BackColor、ForeColor、Visible、Enabled等。 控件的名字只能在窗體設(shè)計視圖中修改 必須為標簽輸入一些文字作為標題，否則標簽會被自動取消,36,6

12、.5.1 標簽,顏色值： vbRed、vbBlue、vbGreen、vbWhite、vbBlack、vbYellow、vbCyan、vbMagenta RGB（x,y,z），x、y、z的取值范圍為0255 6種特殊效果，默認值是“平面”,37,6.5.1 標簽,例6-12 窗體打開時，標簽顯示“歡迎使用”字樣，格式為48磅，楷體紅色，傾斜，居中，藍色邊框，背景色隨機。,38,操作步驟,(1) 按要求在窗體設(shè)計視圖中設(shè)置固定的屬性值 (2) 程序?qū)崿F(xiàn)打開窗體時背景色隨機(背景樣式：常規(guī)) (3)去除窗體上的滾動條、記錄選擇器、導(dǎo)航按鈕 和節(jié)間分隔線,產(chǎn)生0255之間的數(shù)值作為三基色的分量,39,

13、6.5.2 文本框,文本框與標簽的最大區(qū)別在于可以更新數(shù)據(jù) 常用屬性基本同表6.4標簽常用屬性一致，此外還有一個重要屬性Value(文本框的值) 常用方法：SetFocus(得到插入點) 常用事件：GotFocus、Click、LostFocus等 同樣具有6種特殊效果，默認值是“凹陷”,40,6.5.2 文本框,例6-13要求在兩個文本框中輸入除數(shù)、被除數(shù)后，在商文本框中輸出兩數(shù)相除的結(jié)果。 操作步驟如下： (1)設(shè)計窗體,41,6.5.2 文本框,(2) 編寫相關(guān)代碼,例6-13尚待改進之處： 文本框中不應(yīng)該接受數(shù)字以外的其他字符 除數(shù)文本框若輸入為0，則系統(tǒng)應(yīng)該提示出錯,P131 Val

14、(x):將字符串x轉(zhuǎn)換成數(shù)值,42,改進方法：,被除數(shù)、除數(shù)文本框不應(yīng)該接受數(shù)字以外的其他字符 利用KeyPress事件提供的參數(shù)KeyAscii，得到按鍵的ASCII碼值，超出09一律改為0。ASCII碼為0的字符表示NULL。 除數(shù)文本框輸入0，則系統(tǒng)應(yīng)提示出錯“除數(shù)為零” 先對除數(shù)進行判斷，再執(zhí)行除法,43,6.5.2 文本框,例6-14 對例6-13的改進,44,思考與練習(xí),如果要輸入帶有“-”號和小數(shù)點的實數(shù)，程序應(yīng)該如何改進？,45,6.5.3 命令按鈕,命令按鈕最常用的事件是鼠標單擊。單擊后由系統(tǒng)運行一個過程，完成一個特定的任務(wù) 常用屬性基本同表6.4標簽常用屬性一致，此外還有D

15、efault、Cancel屬性 Default 設(shè)定為True時(默認為False)，按回車鍵相當于單擊該按鈕 Cancel 設(shè)定為True時(默認為False)，按Esc鍵相當于單擊該按鈕 命令按鈕沒有特殊效果,46,6.5.3 命令按鈕,例6-15 在例6-14中添加“計算”和“清除” 按鈕 (1) 在窗體上添加“計算”和“清除”兩個按鈕 (2) 添加“計算”按鈕的單擊事件過程 (3) 添加“清除”按鈕的單擊事件過程,Private Sub Command6_Click() If Val(Text2.Value) 0 Then Text4.Value = Val(Text0.Value)

16、/ Val(Text2.Value) Else MsgBox 除數(shù)為零! Exit Sub End If End Sub,47,思考與練習(xí),如果要求按回車鍵得到除法計算結(jié)果，按ESC鍵清空文本框，該如何實現(xiàn)？,48,6.5.4 列表框/組合框,列表框控件用一個數(shù)組保存多個數(shù)據(jù)，其中的數(shù)據(jù)可以選定、添加或刪除，并具有一系列與其他控件不同的屬性與方法，見表6.5。 ListCount:列表框中數(shù)據(jù)項的個數(shù) ListIndex:列表框中選定項的下標,無選定時為-1 Value:列表框中選定項的值 RowSourceType:指定列表框的數(shù)據(jù)源類型,49,6.5.4 列表框/組合框,方法 AddIte

17、m Item ,n :向列表框中追加一項數(shù)據(jù)作為第n項,省略n時追加到最后一項 RemoveItem n :刪除下標為n的數(shù)據(jù)項,50,6.5.4 列表框/組合框,組合框通常以下拉列表框的形式出現(xiàn)，它的屬性和方法與列表框基本相同。 列表框/組合框也具備6種特殊效果，默認的效果是“凹陷”。 列表框/組合框的常用事件：Click、DblClick,51,6.5.4 列表框/組合框,例6-16 設(shè)計如圖所示的窗體：要求雙擊列表框中的某個數(shù)據(jù)時，該數(shù)據(jù)項能夠在文本框中顯示，單擊各個命令按鈕時，能夠?qū)崿F(xiàn)相應(yīng)功能。,52,6.5.4 列表框/組合框,各個命令按鈕上的功能如下表所示：,操作步驟如下：,53,

18、6.5.4 列表框/組合框,(1) 在設(shè)計視圖中建立窗體,54,6.5.4 列表框/組合框,(2) 編寫程序代碼,55,6.5.4 列表框/組合框,例6-16的程序代碼-2,56,6.5.4 列表框/組合框,例6-16的程序代碼-3,57,6.5.5 選項組,選項組又稱為框架(frame)，用于對某些在功能上相關(guān)的控件進行分組。對于單選按鈕，選項組是必不可少的。 選項組的標簽位于方框的左上角，可以輸入說明性文字，也可以刪除。 選項組同樣具有6種特殊效果，默認的效果是“蝕刻”。 常用事件：Click,58,6.5.5 選項組,例6-17輸入2個自然數(shù)，求它們相除后的商與余數(shù)。 (1) 窗體設(shè)計

19、(2)編寫程序代碼,兩個選項組,59,6.5.6 選項按鈕,選項按鈕最常用的屬性是Value，反映選項按鈕的值，見P190表6.7。 若作為單選按鈕成組出現(xiàn)，必須放置在選項組控件中，否則將失去“單選”的意義。 單選按鈕的添加方法： 先在窗體上添加選項組，然后向選項組中添加選項按鈕控件; 若先添加了選項按鈕,則添加了選項組之后,剪切窗體上的選項按鈕，粘貼到選項組中。,60,6.5.6 選項按鈕,選項按鈕放置到選項組后，將得到OptionValue屬性 OptionValue是添加選項按鈕控件時的順序號，從1開始，原來的Value屬性就不再使用，而是使用選項組的Value屬性。 如果選中選項組中第

20、3個選項按鈕，則選項組的Value值為3；反之如果令選項組的Value值=2，則第2個選項按鈕將被選中。,61,6.5.6 選項按鈕,例6-18在文本框中輸入一個數(shù)據(jù)，單擊命令按鈕后判斷該數(shù)是1、質(zhì)數(shù)還是合數(shù)，并用一組3個選擇按鈕表示；如果都不是，選項按鈕全部都為灰色。,62,6.5.6 選項按鈕,(1) 設(shè)計窗體： 選項組的“(名稱)”屬性為Frame0 “類型判斷”命令按鈕的“(名稱)”屬性為Command0,63,6.5.6 選項按鈕,(2) 編寫代碼,64,6.5.6 選項按鈕,編寫單擊“類型判斷”命令按鈕的程序代碼,65,6.5.6 選項按鈕,例6-19單擊文本框可將選項按鈕的標簽連

21、成一個句子,(1) 設(shè)計窗體如右上圖所示,66,6.5.6 選項按鈕,(2)代碼,67,6.5.7 復(fù)選框,復(fù)選框選定時呈一個勾，未選定時為空心方塊，不表態(tài)時為灰色方塊，值依次為-1、0和Null。 如果將一組復(fù)選框放置在選項組中，則同一時刻只能有一個被選中（相當于單選按鈕）。 復(fù)選框的常用事件：Click,68,6.5.7 復(fù)選框,例6-20為文本框選擇字體和格式，可以隨之顯示,(1) 設(shè)計窗體,注意：先在窗體上放置三個復(fù)選框，再套上一個選項組，否則會把復(fù)選框當作單選鈕,69,(2)編寫程序代碼,Private Sub Form_Load() Frame1.Value = Null Chec

22、k1.Value = Null Check2.Value = Null Check3.Value = Null End Sub Private Sub Frame1_Click() If Frame1.Value = 1 Then Text0.FontName = 楷體_GB2312 End If If Frame1.Value = 2 Then Text0.FontName = 黑體 End If End Sub,70,(2)編寫程序代碼,Private Sub Check1_Click() If Check1.Value = -1 Then Text0.FontBold = True El

23、se Text0.FontBold = False End If End Sub Private Sub Check2_Click() End Sub Private Sub Check3_Click() End Sub,71,6.5.8 選項卡,選項卡的作用是生成一個多頁的窗體。 選項卡和每個頁都有各自的Click事件。 選中工具箱中的選項卡控件在窗體上拖動，生成的選項卡默認有兩頁；選項卡上的頁數(shù)、頁順序可通過打開選項卡快捷菜單設(shè)定。,72,6.5.8 選項卡,例6-21 在窗體上添加2個選項卡，在第1頁上輸入2個數(shù)，在第2頁上輸出商和余數(shù)。,73,編寫代碼,Private Sub 輸入項_

24、Click() Text3.SetFocus Text3.Value = Text1.Value Text2.Value Text4.Value = Text1.Value Mod Text2.Value End Sub Private Sub 輸出項_Click() Text1.Value = Null Text2.Value = Null Text3.Value = Null Text4.Value = Null Text1.SetFocus End Sub,Text3獲得焦點，自動切換到“輸出項”,74,6.6 多窗體應(yīng)用,在Access中，一個較大的項目可能需要幾個窗體協(xié)同工作，共同完

25、成。 多窗體環(huán)境涉及窗體的打開、關(guān)閉，控件值的傳遞和變量傳遞等操作。 引用另一個窗體上的控件時需在該控件之前加上所在窗體的名字。 引用另一個窗體上的變量時變量需定義成模塊級變量，并在該變量之前加上所在窗體的名字。,75,6.6 多窗體應(yīng)用,Access提供DoCmd方法打開或關(guān)閉窗體，命令格式： 打開窗體：DoCmd.OpenForm 關(guān)閉當前窗體：DoCmd.Close 打開另一窗體時，窗體名字放在一對雙引號內(nèi)；引用其他窗體中的變量或控件值時，在窗體名前添加前綴“Form_”（此時不需要雙引號）,76,6.6 多窗體應(yīng)用,例6-25,77,6.6 多窗體應(yīng)用,Form1程序代碼： Form2

26、程序代碼：,Public data2 As Integer,78,本章總結(jié),6.1 窗體對象概述 窗體的組成和分類 6.2 用向?qū)纱绑w 6.3 在設(shè)計視圖中完善、創(chuàng)建窗體 6.4 對象的屬性、方法和事件概念 6.5 窗體與常用控件的編程 標簽、文本框、命令按鈕、列表框、選項組、選項按鈕、復(fù)選框、選項卡 6.6 多窗體應(yīng)用 DoCmd方法,79,79,08.4,在窗體上有一個名為Command12的命令按鈕，Click事件的代碼如下。該事件所完成的功能是：接受從鍵盤輸入的10個大于0的整數(shù)，找出其中的最大值和對應(yīng)的輸入位置。請依據(jù)上述功能要求將程序補充完整。,Private Sub Comm

27、and12_Click( ) max=0 max_n=0 For i=1 to 10 num=Val(InputBox(i) If (nummax) Then max=_ max_n=_ End if Next i MsgBox(“最大值為第”&max_n&“個輸入是”&max) End Sub,num i,80,80,08.4,在窗體上有一個名為Command1的命令按鈕。Click事件的代碼如下：,Private Sub Command1_Click( ) f=0 For n=1 to 10 Step 2 f=f+n Next n Lable0.Caption=f End Sub 單擊命令

28、按鈕后，標簽顯示的結(jié)果是_。,25,81,81,08.4,在窗體上有一命令按鈕run35，對應(yīng)的事件代碼如下：,Private Sub run35_Enter( ) Dim num As Interger Dim a As Interger Dim b As Interger Dim i As Interger For i=1 to 10 Num=InputBox(“請輸入數(shù)據(jù)：”, “輸入”,1) If Int(num/2)=num/2 Then a=a+1 Else b=b+1 End If Next i MsgBox(“運行結(jié)果: a=” & str(a) & “,b” & str(b)

29、 End Sub 運行以上事件所完成的功能是?,對輸入的10個數(shù)據(jù)分別統(tǒng)計有幾個是偶數(shù)，有幾個是奇數(shù),82,82,在窗體中添加一個命令按鈕（名稱Command1），然后編寫如下代碼：,Private Sub Command1_Click( ) Dim b,k For k=1 to 6 b=23+k Next k MsgBox b+k End Sub 窗體打開運行后，三次單擊命令按鈕， 消息框的輸出結(jié)果是_。,36,83,83,下面VBA程序段運行時，內(nèi)層循環(huán)總次數(shù)是_。,For m=0 To 7 Step 3 For n=m-1 To m+1 Next n Next m,9,84,84,某窗體中有一命令按鈕，名稱為C1。要求在窗體視圖中單擊此命令按鈕后，命令按鈕上顯示的文字顏色為棕色（棕色代碼為128），實現(xiàn)該操作的VBA語句是_。,c1.forecolor