第一篇：教案：第11章 表單的使用(一)

第11章 表單的使用

（一）授課時間：2004年11月8日 教學(xué)形式：講解與操作 學(xué)時數(shù)：2學(xué)時 教學(xué)用具：計算機及相關(guān)軟件

教學(xué)目的與要求：

1、了解表單的概念；

2、掌握創(chuàng)建表單的三種方法（模板、向?qū)?、插入表單域）?/p>

教學(xué)提綱：

1、表單概述；

2、創(chuàng)建表單；

3、設(shè)計表單。

教學(xué)重點和難點：

1、重點：創(chuàng)建表單的三種方法。

2、難點：利用向?qū)?chuàng)建表單。

教學(xué)內(nèi)容：（時間：90分鐘）I.考勤點名：（2分鐘）

II.復(fù)習(xí)總結(jié)：（時間：3分鐘）

上一章主要講述了網(wǎng)頁中字幕、懸停按鈕、創(chuàng)建橫幅廣告及使用Web搜索組件可以讓瀏覽者搜索站點中的全部網(wǎng)頁。Office電子表格、Office圖表、Office數(shù)據(jù)透視表的插入。要求學(xué)生掌握這些動態(tài)效果的創(chuàng)建方法和過程以及Office表格和圖表的的插入。如何插入站點計數(shù)器,如何插入包含網(wǎng)頁、預(yù)定網(wǎng)頁和預(yù)定圖片，以及如何創(chuàng)建鏈接欄、目錄的方法。

III.提問：（時間：10分鐘）

1、網(wǎng)頁動態(tài)效果包括哪幾個效果？

2、如何插入“Office數(shù)據(jù)透視表”組件？

3、如何制作預(yù)定網(wǎng)頁和預(yù)定圖片？

4、如何創(chuàng)建目錄？

IV.新課講授：(時間：65分鐘)11．1 表單概述

表單通常是由一系列標簽文本和相關(guān)的表單域(如文本框、復(fù)選框、單選按鈕以及按鈕等)等元素組成。站點訪問者可以在表單的各個域中輸入或選擇相關(guān)的信息，然后單擊“提交表單”按鈕。

11．2創(chuàng)建表單

11．2．1 利用模板創(chuàng)建用戶注冊表單

1.單擊“文件”|“新建”|“網(wǎng)頁或站點”命令，打開“新建網(wǎng)頁或站點”任務(wù)窗格。2．單擊“新建網(wǎng)頁或站點”任務(wù)窗格中的“網(wǎng)頁模板”超鏈接，打開“網(wǎng)頁模板”對話框。11．2．1 利用模板創(chuàng)建意見反饋表單

1．單擊“文件”|“新建”|“網(wǎng)頁或站點”命令，然后單擊“新建網(wǎng)頁或站點”任務(wù)窗格中的“網(wǎng)頁模板”超鏈接，打開“網(wǎng)頁模板”對話框。11．2．3 使用向?qū)?chuàng)建表單網(wǎng)頁

1．單擊“文件”|“新建”|“網(wǎng)頁或站點”命令，然后單擊“新建網(wǎng)頁或站點”任務(wù)窗格中的“網(wǎng)頁模板”超鏈接，打開“網(wǎng)頁模板”對話框。

2．在“常規(guī)”標簽中，選擇“表單網(wǎng)頁向?qū)А眻D標，然后單擊“確定”按鈕。5．單擊“添加”按鈕，出現(xiàn)對話框，其中列出一些典型的問題； 11．2．4 創(chuàng)建空白的表單

單擊“插入”|“表單”|“表單”命令，在網(wǎng)頁的當(dāng)前位置生成一個僅含有“提交”和“重置”按鈕的表單。剛創(chuàng)建的表單比較小，無法在其中添加表單域。將插入點移到“提交”按鈕前，然后按幾次回車鍵，即可加大表單的區(qū)域。

11．3 設(shè)計表單

11．3．1 創(chuàng)建和使用文本框 創(chuàng)建文本框

設(shè)置文本框的屬性

11．3．2 創(chuàng)建和使用文本區(qū)

創(chuàng)建文本區(qū)

設(shè)置文本區(qū)的屬性

在“網(wǎng)頁”視圖中，右擊要更改屬性的文本區(qū)，從彈出的快捷菜單中選擇“表單域?qū)傩浴泵?，打開“文本區(qū)屬性”對話框。

11.3.3 創(chuàng)建和使用復(fù)選框

創(chuàng)建復(fù)選框

設(shè)置復(fù)選框?qū)傩?創(chuàng)建可選擇式標簽 為表單域指定熱鍵

11．3．4 創(chuàng)建和使用選項按鈕 創(chuàng)建選項按鈕(單選)設(shè)置選項按鈕的屬性

11．3．5 創(chuàng)建和使用下拉框 創(chuàng)建下拉框

向下拉框添加項目

11．3．6 在表單中使用按鈕 圖片按鈕

普通按鈕

提交或重置按鈕 為普通按鈕指定事件 11．3．7 文件上載

文件上載表單是一個文本框加一個“瀏覽?”按鈕，在瀏覽器端單擊“瀏覽?”按鈕即可打開“打開文件”對話框，選擇文件后，文件位置以及文件名就顯示在文本框中，按下“提交”按鈕后，即可把選定的文件提交到Web服務(wù)器上去。

課后總結(jié)：（時間：5分鐘）

本節(jié)課主要介紹了表單的概念和表單創(chuàng)建的三種方法，要求學(xué)生了解表單的概念，掌握表單創(chuàng)建的三種方法，特別是從空白表單設(shè)計表單的方法和過程，重點掌握表單域的類型及設(shè)計方法。

學(xué)生疑難問題提問與解答：（時間：5分鐘）

課后作業(yè)：

1、如何利用模板創(chuàng)建表單？

2、如何利用向?qū)?chuàng)建表單？

3、表單域的類型有哪些？

第二篇：《表單網(wǎng)頁》教案

《表單網(wǎng)頁》教案

【教學(xué)目標】

1．知識與技能

⑴了解表單網(wǎng)頁的概念和作用； ⑵掌握表單網(wǎng)頁的制作方法。2．過程與方法

通過閱讀課本、觀看演示回憶、感受表單網(wǎng)頁的作用；在遞進的操作任務(wù)中掌握表單網(wǎng)頁制作和美化的方法。3．情感態(tài)度與價值觀

體驗表單網(wǎng)頁在網(wǎng)站中的重要作用，激發(fā)他們對信息技術(shù)的求知欲，形成積極主動地學(xué)習(xí)和使用信息技術(shù)、參與信息活動的態(tài)度。

【重點難點】

表單網(wǎng)頁的制作方法。

【課時安排】 1課時

【教學(xué)準備】

網(wǎng)絡(luò)教室、多媒體教學(xué)軟件?！窘虒W(xué)過程】

一、新課引入（5分鐘）

大家有QQ號或者E-mail郵箱嗎？ 在申請QQ和E-mail時，我們要輸入一些個人信息？這類采集用戶信息的網(wǎng)頁都被稱為表單網(wǎng)單。（閱讀課本P119）

展示一個簡單的園藝網(wǎng)站來介紹家鄉(xiāng)的盆景藝術(shù)，如皋是全國有名的盆景園藝之鄉(xiāng)，每天有許多人通過網(wǎng)絡(luò)了解如皋的盆景藝術(shù)，怎樣才能知道他們對我們網(wǎng)站的意見或建議呢？（設(shè)計一個留言板網(wǎng)頁來采集他們的意見。）

二、過程

（一）認識表單網(wǎng)頁（8分鐘）

表單網(wǎng)頁是一種結(jié)構(gòu)化的網(wǎng)頁，是網(wǎng)站中提供瀏覽者發(fā)表個人意見、提供反饋信息的互動交流的頁面。

：用于接收用戶輸入的單行文本信息，如姓名、地址等。滾動文本框：可以輸入多行信息的文本框，如意見、建議等。

單選按鈕：提供兩個或多個互斥選項，用戶只能選中其中的一項。如：性別。：提供一個或一組選項，用戶可選擇其中的一個或多個選項。下拉菜單：允許用戶從下拉菜單列表中選擇其中一項。

按鈕：FrontPage 2000中的按鈕表單域有三種類型，即“普通”、“提交”和“重置”。“提交”用于表單提交；“重置”用于清除表單所填內(nèi)容，回到初始狀態(tài)；“普通”用于執(zhí)行其它客戶的操作。

（二）制作表單網(wǎng)頁（15分鐘）

表單網(wǎng)頁制作方法步驟：依次單擊“插入” →“表單”，彈出下級菜單。實踐：制作一個“留言”功能的表單網(wǎng)頁。

活動1 建立表單（根據(jù)提供的效果樣張，完善表單網(wǎng)頁）提示：

①在“姓名”后插入一個“單行文本框”； ②在“性別”后的各選項前分別插入“單選按鈕”；

③在“您的興趣愛好”后的各個選項前分別插入“復(fù)選框”，可以復(fù)制； ④在“您的職業(yè)”，后插入一個“下拉菜單”。添加“工程師”和“公務(wù)員”和“其他”等菜單內(nèi)容（單擊“添加”按鈕，添加“工程師”菜單項，重復(fù)操作）；

⑤在“您對我們的建議或要求”后插入“滾動文本框”，調(diào)整其至合適大??； ⑥修改默認的按鈕名稱（雙擊按鈕）；

（三）表單網(wǎng)頁的美化（5分鐘）

活動2 在最后一行表格中插入一個名為“yy.swf”的Flash動畫？ 提示：單擊“插入”菜單中的“高級”“插件”。

思考：插入一幅GIF動畫圖片（.gif）和一個FLASH動畫（.swf）有何不同？ 活動3 為當(dāng)前的表單網(wǎng)頁添加一個名為“song.mid”的背景音樂。提示：在網(wǎng)頁中的任意位置右擊鼠標，選擇“網(wǎng)頁屬性”命令（或單擊“文件”菜單，選擇“屬性”命令），在“常規(guī)”選項卡中操作？

保存編輯的表單網(wǎng)頁并利用平臺提交。作品展示：（5分鐘）小結(jié)：PPT（3分鐘）

二、【檢測與評價】（4分鐘）

1．通?？梢允褂茫ǎ﹣硎占L問者的意見，統(tǒng)計調(diào)查訪問信息。A.表格 B.框架 C.表單 D.單元格

2.利用表單制作留言板時，若要采集訪問者的性別，可以選用的表單字段有（）。

A.復(fù)選框 B.單選按鈕 C.下拉菜單 D.單行文本框

3.利用表單中的字段，我們可以設(shè)計功能強大的交互式在線考試試卷。以下（）字段可以用來采集不定項選擇題的答案。

A.單行文本框 B.單選按鈕 C.復(fù)選框 D.下拉菜單 4．插入FLASH動畫時，使用“插入”菜單下的（）命令。A．圖片 B.組件 C.表單 D.高級→插件 5．若要為當(dāng)前網(wǎng)頁設(shè)置背景音樂或背景圖片，應(yīng)下面的（）屬性中進行設(shè)置。

A．圖片屬性 B.網(wǎng)頁屬性 C.表格屬性 D.單元格屬性

【課后延伸】

表單網(wǎng)頁提交的數(shù)據(jù)提交到哪兒去了呢？請同學(xué)們課后閱讀課本P120的相關(guān)內(nèi)容，也可以利用因特網(wǎng)搜索去解開這個奧秘，在學(xué)習(xí)本冊第七章第三節(jié)時，我們會為大家解開這個奧秘。

第三篇：教案：第11章 表單的使用(上機操作)

第11章 表單的使用（上機操作）

授課時間：2004年11月11日 教學(xué)形式：上機操作 學(xué)時數(shù)：2學(xué)時 教學(xué)用具：計算機及相關(guān)軟件

教學(xué)目的與要求：

1、通過學(xué)生自主練習(xí)，進一步掌握創(chuàng)建表單的三種方法（模板、向?qū)?、插入表單域）。掌握驗證表單域?qū)ο笥行缘脑O(shè)置；

2、了解處理表單結(jié)果的幾種方法；

3、掌握確認網(wǎng)頁的創(chuàng)建。

教學(xué)提綱：

1、創(chuàng)建表單；

2、設(shè)計表單。

3、驗證表單域?qū)ο笥行裕?/p>

4、處理表單結(jié)果；

5、確認網(wǎng)頁。

教學(xué)重點和難點：

1、重點：創(chuàng)建表單的三種方法。驗證表單域?qū)ο笥行浴?chuàng)建確認網(wǎng)頁。

2、難點：利用向?qū)?chuàng)建表單。處理表單結(jié)果。

教學(xué)內(nèi)容：（時間：90分鐘）I.考勤點名：（2分鐘）

II.復(fù)習(xí)總結(jié)：（時間：3分鐘）

本章主要介紹了表單的概念和表單創(chuàng)建的三種方法，驗證表單域?qū)ο笥行?、處理表單結(jié)果和確認網(wǎng)頁等。要求學(xué)生了解表單的概念，掌握表單創(chuàng)建的三種方法，特別是從空白表單設(shè)計表單的方法和過程，重點掌握表單域的類型及設(shè)計方法。掌握驗證表單域?qū)ο笥行缘脑O(shè)置、了解處理表單結(jié)果的幾種方法、掌握確認網(wǎng)頁的創(chuàng)建。

III.提問：（時間：10分鐘）

1、有哪些表單域?qū)ο笮枰炞C有效性？

2、保存處理表單結(jié)果有哪幾種方法？

3、什么叫確認網(wǎng)頁?如何創(chuàng)建？

IV.新課講授：(時間：65分鐘)11．2創(chuàng)建表單

11．2．1 利用模板創(chuàng)建用戶注冊表單 11．2．2 利用模板創(chuàng)建意見反饋表單 11．2．3 使用向?qū)?chuàng)建表單網(wǎng)頁 11．2．4 創(chuàng)建空白的表單

11．3 設(shè)計表單

11．3．1 創(chuàng)建和使用文本框 創(chuàng)建文本框

設(shè)置文本框的屬性

11．3．2 創(chuàng)建和使用文本區(qū)

創(chuàng)建文本區(qū)

設(shè)置文本區(qū)的屬性

11.3.3 創(chuàng)建和使用復(fù)選框 創(chuàng)建復(fù)選框

設(shè)置復(fù)選框?qū)傩?創(chuàng)建可選擇式標簽 為表單域指定熱鍵

11．3．4 創(chuàng)建和使用選項按鈕 創(chuàng)建選項按鈕(單選)設(shè)置選項按鈕的屬性

11．3．5 創(chuàng)建和使用下拉框 創(chuàng)建下拉框 向下拉框添加項目

11．3．6 在表單中使用按鈕 圖片按鈕

普通按鈕

提交或重置按鈕 為普通按鈕指定事件 11．3．7 文件上載

11．4 驗證表單域?qū)ο笥行?/p>

11．4．1 文本框與文本區(qū)表單域驗證 11．4．2 選項按鈕表單域驗證 11．4．3 下拉框表單域驗證

11．5 處理表單結(jié)果

11．5．1 將文件保存表單結(jié)果

11．5．2 使用電子郵件保存表單結(jié)果 11.5.3用數(shù)據(jù)庫保存表單信息

11．6 確認網(wǎng)頁

11．6．1 創(chuàng)建確認網(wǎng)頁

11．6．2 使用自定義的確認網(wǎng)頁

課后總結(jié)：（時間：5分鐘）

本節(jié)課主要練習(xí)表單創(chuàng)建的三種方法，驗證表單域?qū)ο笥行?、處理表單結(jié)果和確認網(wǎng)頁等。使學(xué)生進一步了解表單的概念，掌握表單創(chuàng)建的三種方法，重點掌握表單域的類型及設(shè)計方法。掌握驗證表單域?qū)ο笥行缘脑O(shè)置、了解處理表單結(jié)果的幾種方法、掌握確認網(wǎng)頁的創(chuàng)建。

學(xué)生疑難問題提問與解答：（時間：5分鐘）

課后作業(yè)：

（無）

第四篇：VF電子教案(表單練習(xí))

教學(xué)時間約

****年**月**日

總第節(jié)

審批簽字：

【課題】表單練習(xí)（1）

本課（章、節(jié)）共 2 課時，本課時為第1、2 課時,課的類型：實習(xí)課 【教學(xué)目標】熟悉表單的操作與命令 【教學(xué)重點】表單的操作與命令 【教學(xué)難點】表單的操作與命令 【教學(xué)方法】講授法、實驗法 【教學(xué)過程及板書設(shè)計】

（一）前提測評：

（二）目標展示：表單的操作與命令

（三）導(dǎo)學(xué)達標：

一、與表無關(guān)的表單設(shè)計（與計時器無關(guān)）1．要求：(1)編制一個按鈕組調(diào)色板

(2)當(dāng)用戶按了命令按鈕組中的某個按鈕后，表單的背景色就會變?yōu)榘粹o指定的對應(yīng)顏色。

? 命令按鈕組Commandgroup1的Click事件代碼：

do case

case this.value=1 thisform.backcolor=rgb(225,0,0)case this.value=2 thisform.backcolor=rgb(0,255,0)case this.value=3 thisform.backcolor=rgb(0,0,255)case this.value=4 thisform.backcolor=rgb(0,0,0)case this.value=5 thisform.backcolor=rgb(225,255,255)endcase thisform.refresh

2．要求：(1)編制一個按鈕組調(diào)色板

(2)當(dāng)用戶按了命令按鈕組中的某個按鈕后，命令按鈕組的背景色就會變?yōu)榘粹o指定的對應(yīng)顏色。(注意與上一題比較，14是設(shè)置表單的背景色，本題是設(shè)置命令按鈕組的背景色。

? 命令按鈕組Commandgroup1的Click事件代碼：

do case

case this.value=1 this.backcolor=rgb(225,0,0)case this.value=2 this.backcolor=rgb(0,255,0)case this.value=3 this.backcolor=rgb(0,0,255)case this.value=4 this.backcolor=rgb(0,0,0)case this.value=5 this.backcolor=rgb(225,255,255)endcase thisform.refresh

3．要求：(1)編制一個選項按鈕組調(diào)色板

(2)當(dāng)用戶按了某個選項按鈕后，表單的背景顏色就會變?yōu)榘粹o指定的對應(yīng)顏色。

? 選項按鈕組Optiongroup1的Click事件代碼：

do case

case this.value=1

thisform.backcolor=rgb(255,0,0)case this.value=2

thisform.backcolor=rgb(0,255,0)case this.value=3 教學(xué)時間約

****年**月**日

總第節(jié)

審批簽字：

thisform.backcolor=rgb(0,0,255)case this.value=4

thisform.backcolor=rgb(0,0,0)case this.value=5

thisform.backcolor=rgb(255,255,255)endcase ? 如果是設(shè)置選項按鈕組的背景色，如下圖

則顏色設(shè)置語句為：thisform.optiongroup1.backcolor=rgb(255,0,0)4．要求：(1)編制一個“選頁調(diào)色板”表單

(2)當(dāng)用戶按了某頁后，頁框的背景色就會變成指定的對應(yīng)顏色。

? 選項按鈕組Pageframe1的Click事件代碼：

do case case this.activepage=1

this.page1.backcolor=rgb(255,0,0)case this.activepage=2

this.page2.backcolor=rgb(0,255,0)case this.activepage=3

this.page3.backcolor=rgb(0,0,255)case this.activepage=4

this.page4.backcolor=rgb(0,0,0)case this.activepage=5

this.page5.backcolor=rgb(255,255,255)endcase thisform.refresh

5.要求：（1）編制一個表單完成口令判定功能；（2）用戶從鍵盤輸入口令時，表單的顯示控件以“*”代替具體內(nèi)容；（3）系統(tǒng)的口令存放在表文件“學(xué)生.dbf”的姓名字段中，要求完全匹配；（4）輸入口令后，按回車，將自動在表單上顯示“正確”或“錯誤”信息。

***text1的Valid事件代碼：

loca for alltrim(this.value)=alltrim(姓名)if found()

thisform.label2.caption=”正確！” else

thisform.label2.caption=”錯誤！” endif select 學(xué)生

6．要求：編制一個人工翻動日歷牌，界面窗口中顯示當(dāng)前日期，但是可以通過界面提供的微調(diào)按鈕任意地向前或向后翻動日期。

? Text1的dateformat屬性設(shè)為“14-漢語” ? 微調(diào)Spinner1的Downclick事件代碼：

thisform.text1.value=thisform.text1.value-1 thisform.refresh ? 微調(diào)Spnnier1的Upclick事件代碼：

thisform.text1.value=thisform.text1.value+1 thisform.refresh

（四）小結(jié) 【教學(xué)后記】

教學(xué)時間約

****年**月**日

總第節(jié)

審批簽字：

【課題】表單練習(xí)（2）

本課（章、節(jié)）共 2 課時，本課時為第1、2 課時,課的類型：實習(xí)課 【教學(xué)目標】熟悉表單的操作與命令 【教學(xué)重點】表單的操作與命令 【教學(xué)難點】表單的操作與命令 【教學(xué)方法】講授法、實驗法 【教學(xué)過程及板書設(shè)計】

（一）前提測評：

（二）目標展示：表單的操作與命令

（三）導(dǎo)學(xué)達標：

7．要求(1)設(shè)計一個表單，接受用戶輸入的數(shù)字，生成相應(yīng)的矩陣

(2)文本框內(nèi)輸入一個小于等于10的數(shù)字，生成一個相應(yīng)的對稱矩陣，且這個矩陣的對角線的數(shù)字全部為0，其他的數(shù)字為1。

? “顯示”按鈕Command1的click事件的代碼：

n=val(thisform.text1.value)s=“" for i=1 to n

for j=1 to n

if j=i or j+i=n+1

s=s+”0“+space(2)

else

s=s+”1“+space(2)

endif

endfor

s=s+chr(13)&&每N個字符加一個回車鍵，所以在內(nèi)循環(huán)結(jié)束時執(zhí)行該語句 endfor thisform.edit1.value=s thisform.refresh

8、要求：按“開始”按鈕，在編輯框中顯示九九乘法口訣表。

**表單form1的init事件代碼： public c,m store “” to c,m **“開始”按鈕的click事件 m=”*”

for a=1 to 9

m=m+str(a,4)endfor for I=1 to 9

c=c+str(I,1)for j=1 to I

c=c+str(I*j,4)endfor c=c+chr(13)endfor thisfom.edit1.value=m+c thisform.refresh

9、要求：在文本框中輸入一個起始數(shù)，在編輯框中顯示20個從起始位置開始并且是3的倍數(shù)的整數(shù)，且這20個數(shù)字的個位數(shù)都是3，利用標簽輸出這20個數(shù)的和。教學(xué)時間約

****年**月**日

總第節(jié)

審批簽字：

***文本框text1的valid事件代碼： public s j=1 I=val(alltrim(thisform.text1.value))S=0 Do while j<=20

If I%3=0 and mod(I,10)=3 J=j+1 S=s+I Thisform.edit1.value=thisform.edit1.value+str(I,10)

Endif

I=I+1 Enddo Thisform.refresh

***command1的click事件代碼：

thisform.label2.caption=”這組數(shù)字的和=”+str(s,10)thisform.refresh

10、要求：（1）在文本框text1中輸入任意一個100以內(nèi)的正整數(shù)；（2）將所有300以內(nèi)的能被該整數(shù)整除的數(shù)顯示在編輯框中；（3）將所在這些數(shù)的和顯示在text2中；（4）按“清除”按鈕時，將文本框及編輯框清空。

**表單form1的init事件代碼： thisform.text1.value=0 thisform.text1.setfocus thisform.text2.value=0 ***文本框text1的valid事件代碼： for I=1 to 300

if mod(I,thisform.text1.value)=0 thisform.edit1.value=thisform.edit1.value+str(I,5)+chr(13)thisform.text2.value=thisform.text2.value+i

endif endfor ***“清除”按鈕的click事件代碼： thisform.text1.value=0 thisform.text2.value=0 thisform.edit1.value=”” thisform.text1.setfocus

（四）小結(jié) 【教學(xué)后記】

教學(xué)時間約

****年**月**日

總第節(jié)

審批簽字：

【課題】表單練習(xí)（3）

本課（章、節(jié)）共 2 課時，本課時為第1、2 課時,課的類型：實習(xí)課 【教學(xué)目標】熟悉表單的操作與命令 【教學(xué)重點】表單的操作與命令 【教學(xué)難點】表單的操作與命令 【教學(xué)方法】講授法、實驗法 【教學(xué)過程及板書設(shè)計】

（一）前提測評：

要求：按“開始”按鈕，在編輯框中顯示九九乘法口訣表。**表單form1的init事件代碼： public c,m store “” to c,m **“開始”按鈕的click事件 m=”*” for a=1 to 9

m=m+str(a,4)endfor for I=1 to 9

c=c+str(I,1)for j=1 to I

c=c+str(I*j,4)endfor c=c+chr(13)endfor thisfom.edit1.value=m+c thisform.refresh

（二）目標展示：表單的操作與命令

（三）導(dǎo)學(xué)達標：

11、要求：按“開始”按鈕，在列表框中顯示2000-2100年之間所有的閏年。

**“開始”按鈕的click事件代碼： thisform.list1.clear for n=2000 to 2100

if n%4=0 if n%100<>0 or n%400=0

y=1 else

y=0 endif else y=0

endif if y=1

thisform.list1.additem(alltrim(str(n)))endif endfor

12．要求：(1)編制一個小型文本編輯器，界面見下圖；(2)文字信息從鍵盤輸入至edit框；(3)三個單選按鈕分別用于設(shè)置“宋體”、“黑體”和“隸書”；(4)三個check按鈕用設(shè)置字體的“傾斜”、“加粗”和“下劃線”；(5)字號用微調(diào)控件實現(xiàn) 教學(xué)時間約

****年**月**日

總第節(jié)

審批簽字：

***optiongroup1的click事件代碼: do case

case this.value=1 thisform.text1.fontname=”宋體”

case this.value=2 thisform.text1.fontname=”楷體”

case this.value=3

thisform.text1.fontname=”隸書” endcase ***check1的click事件代碼: if this.value=1

thisform.text1.fontbold=.t.else

thisform.text1.fontbold=.f.endif ***check2,3的代碼類似于check1 ***spinner1的upclick事件代碼

thisform.text1.fontsize=thisform.text1.fontsize-1 ***spinner1的downclick事件代碼

thisform.text1.fontsize=thisform.text1.fontsize+1 13.要求：(1)在表單中的三個文本框中分別輸入3個數(shù)，判別是否能形成三角形，如果是三角形，求出此三角形的面積。(2)判斷是否是三角形，可利用：a+b>c,且c>0;a+c>b,且b>0;b+c>a,且a>0

***判斷計算按鈕command1的click事件代碼: a=val(thisform.text1.value)b=val(thisform.text2.value)c=val(thisform.text3.value)if(a+b>c and c>0)or(a+c>b and b>0)or(b+c>a and a>0)

s=(a+b+c)/2

area=sqrt(s*(s-a)*(s-b)*(s-c))endif thisform.label2.caption=”能構(gòu)成三角形,面積等于:” +str(atea)14．建立一個如圖所示的表單

? 選項按鈕組Optiongroup1的Click事件代碼：

do case

case this.value=1

create

case this.value=2 create form case this.value=3

modify command endcase

（四）小結(jié) 【教學(xué)后記】 教學(xué)時間約

****年**月**日

總第節(jié)

審批簽字：

【課題】表單練習(xí)（4）

本課（章、節(jié)）共 2 課時，本課時為第1、2 課時,課的類型：實習(xí)課 【教學(xué)目標】熟悉表單的操作與命令 【教學(xué)重點】表單的操作與命令 【教學(xué)難點】表單的操作與命令 【教學(xué)方法】講授法、實驗法 【教學(xué)過程及板書設(shè)計】

（一）前提測評：

（二）目標展示：表單的操作與命令

（三）導(dǎo)學(xué)達標：

二、與表無關(guān)的表單設(shè)計（計時器類表單設(shè)計）

15．要求：編制一個信息顯示(時鐘)的界面，顯示當(dāng)前時間(每秒動態(tài)顯示跳動一次)(2)并將表單的背景顏色設(shè)置為藍、綠色自動變換(與時間同步切換)

? Timer1的Timer事件代碼：

s=substr(time(),1,2)f=substr(time(),4,2)m=substr(time(),7,2)mn=val(m)if int(mn/2)=mn/2

thisform.backcolor=rgb(0,0,255)else

thisform.backcolor=rgb(0,255,0)

endif thisform.text1.value=time()16．要求：(1)編制一個表單完成數(shù)字時鐘顯示功能(2)表單將自動以1秒為間隔動態(tài)顯示系統(tǒng)時間(3)時、分、秒要求用漢字說明

? 文本框Text1的背景色Backcolor為RGB(255,255,255)；FONTNAME為“隸書”。? 時鐘控件Timer1的Timer事件代碼：

s=substr(time(),1,2)f=substr(time(),4,2)m=substr(time(),7,2)thisform.text1.value=s+”時“+f+'分'+m+'秒'

thisform.refresh 17．要求：(1)編制一個表單完成計時器計數(shù)顯示功能(2)表單初始顯示狀態(tài)為全零“00：00：00”

(3)按“計數(shù)”按鈕，將自動以秒為單位從零開始計數(shù)(設(shè)：時的計數(shù)屬性名為S，分的計數(shù)屬性名為F，秒的計數(shù)屬性名為M。)并在表單上動態(tài)顯示。按“停止”按鈕將顯示最后一刻的計數(shù)時間。

? 創(chuàng)建1個新建屬性，clocknum初值設(shè)為0 ? 表單的form1的init事件代碼：

thisform.timer1.enabled=.f.thisform.text1.value=”00:00:00“ thisform.refresh ? “計數(shù)”按鈕command1的click事件代碼： thisform.timer1.enabled=.t.? “停止”按鈕command2的click事件代碼： thisform.timer1.enabled=.f.? 時鐘控件timer1的timer事件代碼：

js=thisform.clocknum s=int(js/3600)f=int(js/60)m=js%60 s1=iif(s<10,'0'+str(s,1),str(s,2))f1=iif(f<10,'0'+str(f,1),str(f,2))

教學(xué)時間約

****年**月**日

總第節(jié)

審批簽字：

m1=iif(m<10,'0'+str(m,1),str(m,2))thisform.text1.value=s1+”:“+f1+”:“+m1 thisform.clocknum=thisform.clocknum+1 thisform.refresh 18．要求：(1)“日期”“星期”“時鐘”標簽上的文本能自動換行，自動調(diào)整大小，背景透明；(2)時鐘每1秒種跳一次

? 時鐘控件Timer1的Timer事件代碼：

y=str(year(date()),4)m=str(month(date()),2)d=str(day(date()),2)thisform.text1.value=y+”年“+m+”月“+d+”日“ c=”日一二三四五六“ n=dow(date())w=”星期“+substr(c,2*n-1,2)+”(“+cdow(date())+”)“ thisform.text2.value=w thisform.text3.value=time()19．要求：(1)編制一個表單完成文字水平動態(tài)移動操縱的表單；(2)文字信息(縱向)初始顯示位置在表單的左邊，表單執(zhí)行后，每間隔20毫秒，文字會自動以間隔加1的幅度逐步向表單右邊移動，直到文字到達表單最右邊緣；(3)然后，每間隔20毫秒文字會自動以間隔加1的幅度逐步向表單左邊移動，直到文字回復(fù)到初始位置；(4)整個過程不間斷地來回移動

? 新建表單屬性：right ? 表單的Form1的Init事件代碼：

thisform.timer1.interval=20 ? 時鐘控件Timer1的Timer事件代碼：

IF thisform.label1.Left=0

thisform.right=.f.endif if thisform.label1.left+thisform.label1.width=thisform.width

thisform.right=.t.ENDIF IF thisform.right

thisform.label1.Left=thisform.label1.Left-1 ELSE

thisform.label1.Left=thisform.label1.Left+1 ENDIF thisform.refresh 20.編制一個日歷時鐘表單,界面如圖所示.要求:(1)表單中的日歷是當(dāng)前日期，時鐘每秒跳動一次；(2)單擊微調(diào)控件的前翻后翻按鈕，日期與星期隨之變化。

***表單Form1的init事件代碼: thisform.text1.value=date()w=iif(dow(date())>1,dow(date())-1,7)thisform.text2.value=”星期”+substr(“一二三四五六日”,2*w-1,2)+”(“+cdow(date())+”)” thisform.text3.value=time()thisform.spinner1.setfocus ***spinner1的upclick事件代碼：

thisform.text1.value=thisform.text1.value+1 w=iif(dow(thisform.text1.value)>1,dow(thisform.text1.value)-1,7)thisform.text2.value=”星期”+substr(“一二三四五日”,2*w-1,2)+”(“+cdow(thisform.text1.value)+”)” ***spinner1的downclick事件代碼：

thisform.text1.value=thisform.text1.value-1 w=iif(dow(thisform.text1.value)>1,dow(thisform.text1.value)-1,7)thisform.text2.value=”星期”+substr(“一二三四五日”,2*w-1,2)+”(“+cdow(thisform.text1.value)+”)” ***timer1 的timer事件代碼：

thisform.text3.value=time()

（四）小結(jié)【教學(xué)后記】

六

六教學(xué)時間約

****年**月**日

總第節(jié)

審批簽字：

【課題】表單練習(xí)（5）

本課（章、節(jié)）共 2 課時，本課時為第1、2 課時,課的類型：實習(xí)課 【教學(xué)目標】熟悉表單的操作與命令 【教學(xué)重點】表單的操作與命令 【教學(xué)難點】表單的操作與命令 【教學(xué)方法】講授法、實驗法 【教學(xué)過程及板書設(shè)計】

（一）前提測評：

（二）目標展示：表單的操作與命令

（三）導(dǎo)學(xué)達標：

21．要求：(1)編制一個表單完成文字動態(tài)縮放操縱的表單；(2)文字信息初始的位置在表單的正中央，表單執(zhí)行后，第間隔20毫秒，文字自動以字號加1的幅度逐步向周邊延伸變大，直到文字充滿整個表單；(3)然后每間隔20毫秒，文字會自動以字號加1的幅度逐步向中l(wèi)kd回縮變小，直到文字復(fù)原為初始的狀態(tài)；(4)整個過程不間斷地縮放(最小字號為4，最大學(xué)號為52)

.****新建表單屬性change ****表單的Form1的Init事件代碼： thisform.change=0 ****時鐘控件Timer1的Timer事件代碼： if thisform.label1.fontsize=52

thisform.change=1 endif if thisform.label1.fontsize=4

thisform.change=0 endif if thisform.change=0 thisform.label1.fontsize=thisform.label1.fontsize+1 else

thisform.label1.fontsize=thisform.label1.fontsize-1 endif thisform.refresh

三、與表相關(guān)的表單設(shè)計（單表）

1．要求：(1)編制一個表單完成表文件“學(xué)生.dbf”內(nèi)容的只讀瀏覽顯示功能；(如圖1)(2)表單初始顯示內(nèi)容為表文件“學(xué)生.dbf”內(nèi)容的首記錄；

(3)表單內(nèi)容將以10秒為間隔自動刷新，即自動向后翻記錄，當(dāng)翻至表底時，瘵自動回到首記錄循環(huán)翻動。

? 表單的Form1的Init事件代碼：

THIS.SETALL(”READONLY“,.T.,”TEXTBOX“)GO TOP THISFORM.REFRESH ? 時鐘控件Timer1的Timer事件代碼： SKIP IF EOF()

GO TOP ENDIF THISFORM.REFRESH

2．要求：(1)編制一個表單完成表文件“學(xué)生.dbf“內(nèi)容的只讀瀏覽顯示功能(如圖2)(2)表單初始顯示內(nèi)容為表文件“學(xué)生.dbf”的首記錄(3)當(dāng)按“前翻”、“后翻”、“首記錄”、“末記錄”按鈕時，表單將自動顯示相應(yīng)記錄的內(nèi)容(4)當(dāng)翻至表頭或表底時，將自動設(shè)置相應(yīng)按鈕不可訪問。教學(xué)時間約

****年**月**日

總第節(jié)

審批簽字：

? 表單的Form1的Init事件代碼：

THIS.SETALL(”READONLY“,.T.,”TEXTBOX“)Sele 學(xué)生 GO TOP THISFORM.REFRESH ? “首記錄”按鈕Command1的Click事件代碼：

go top thisform.command2.enabled=.t.thisform.command3.enabled=.t.thisform.command4.enabled=.t.thisform.command1.enabled=.f.thisform.refresh ? “前翻”按鈕Command2的Click事件代碼：

skip-1 if bof()thisform.command1.enabled=.f.this.enabled=.f.endif thisform.command3.enabled=.t.thisform.command4.enabled=.t.thisform.refresh

? “后翻”按鈕Command3的Click事件代碼：

skip if eof()thisform.command3.enabled=.f.thisform.command4.enabled=.f.endif thisform.command1.enabled=.t.thisform.command2.enabled=.t.thisform.refresh

? “末記錄”按鈕Command4的Click事件代碼： go bottom thisform.command1.enabled=.t.thisform.command2.enabled=.t.thisform.command3.enabled=.t.thisform.command4.enabled=.f.thisform.refresh 3．要求：(1)編制“學(xué)生“表信息查詢界面

(2)查詢與用戶指定的學(xué)生姓名相匹配的記錄，并顯示指定學(xué)生的所有信息。

? ? ?

?

List1的Rowsourcetype為“6-字段”，Rowsource為“學(xué)生.姓名”；文本框Text1~Text5的數(shù)據(jù)源屬性分別為學(xué)生表中對應(yīng)字段 所有文本框Text的ReadOnly屬性為“.T.”； 表單的Form1的Init事件代碼： use 學(xué)生

thisform.setall(”visible“,.f.,”textbox“)thisform.setall(”visible“,.f.,”label“)thisform.label1.visible=.t.thisform.refresh 列表框List1的Interactivechange事件代碼： thisform.setall(”visible“,.t.)thisform.refresh

（四）小結(jié) 【教學(xué)后記】

教學(xué)時間約

****年**月**日

總第節(jié)

審批簽字：

【課題】表單練習(xí)（6）

本課（章、節(jié)）共 2 課時，本課時為第1、2 課時,課的類型：實習(xí)課 【教學(xué)目標】熟悉表單的操作與命令 【教學(xué)重點】表單的操作與命令 【教學(xué)難點】表單的操作與命令 【教學(xué)方法】講授法、實驗法 【教學(xué)過程及板書設(shè)計】

（一）前提測評：

（二）目標展示：表單的操作與命令

（三）導(dǎo)學(xué)達標：

4．要求：(1)編制“學(xué)生表”信息查詢界面(2)顯示指定學(xué)生的所有信息。

? ? ?

?

Combo1的Rowsourcetype為“6-字段”，Rowsource為“學(xué)生.姓名”；文本框Text1~Text5的數(shù)據(jù)源屬性分別為學(xué)生表中對應(yīng)字段 所有文本框Text的ReadOnly屬性為“.T.”； 表單的Form1的Init事件代碼： use 學(xué)生

thisform.setall(”visible“,.f.,”textbox“)thisform.setall(”visible“,.f.,”label“)thisform.label1.visible=.t.thisform.refresh 組合框Combo1的Interactivechange事件代碼： thisform.setall(”visible“,.t.)thisform.refresh

5．要求：編制“學(xué)生”表信息查詢界面，查詢與用戶輸入的學(xué)生學(xué)號相匹配的記錄，并顯示指定學(xué)生的所有信息。

? Label3、Label4、Label5、Label6的Caption屬性分別設(shè)置為“姓名：”、“性別：”、“出生年月：”、“獎學(xué)金：”，并設(shè)置所有文本框的數(shù)據(jù)源屬性為學(xué)生表中的對應(yīng)字段 ? 標簽Label2的Forecolor屬性為“255,255,255”

? 除學(xué)號文本框，所有文本框Text的ReadOnly屬性為“.T.”； ? 表單的Form1的Init事件代碼：

use 學(xué)生

thisform.setall(”visible“,.f.)thisform.label1.visible=.t.thisform.text1.visible=.t.? 文本框Text1的Valid事件代碼：

loca for alltrim(學(xué)號)=alltrim(this.value)if found()

thisform.label2.caption=”“

thisform.setall(”visible“,.t.)else

thisform.setall(”visible“,.f.)

thisform.label1.visible=.t.thisform.text1.visible=.t.thisform.label2.visible=.t.thisform.label2.caption=”您所指定的學(xué)生并不存在！“ endif thisform.refresh

6．要求：(1)編制一個界面程序，實現(xiàn)將用戶指定的表文件的字段名列表顯示(2)系統(tǒng)自動查詢用戶指定的表文件是否存在，存在則列表顯示指定表文件的所有字段名信息，否則給出信息提示框 教學(xué)時間約

****年**月**日

總第節(jié)

審批簽字：

? Form1的Init事件的代碼：

Thisform.label2.visible=.f.Thisform.list1.visible=.f.? Text1的Valid事件的代碼

fn=alltrim(this.value)+ ”.dbf“ if file(fn)thisform.setall(”visible“,.t.)thisform.list1.clear

use(fn)for i=1 to fcount()

thisform.list1.additem(field(i))endfor else Thisform.label2.visible=.f.Thisform.list1.visible=.f.messagebox(”指定的表文件不存在!“,0+64, ”表文件存在判斷“)endif thisform.refresh

7.編制一個表單完成學(xué)生成績信息查詢顯示功能(界面如圖所示)。要求(1)當(dāng)輸入學(xué)生 9．要求：(1)編制一個表單完成表文件“學(xué)生.dbf”內(nèi)容的查詢顯示功能(2)當(dāng)用戶在組合框(下拉列表)選擇班級(學(xué)號的左三位)后，表單將自動顯示對應(yīng)班級的獎學(xué)金總額

(3)按“退出”按鈕時，自動關(guān)閉表單。

? 表單Form1的Init事件代碼：

sele 學(xué)生

index on left(學(xué)號,3)to xh unique scan thisform.combo1.additem(left(學(xué)號,3))endscan ? 組合框Combo1的Valid事件代碼：

set talk off Sum 獎學(xué)金 to jxj for left(學(xué)號,3)=this.value Thisform.twxt1.value=jsj ? “退出”按鈕Command1的Click事件代碼：

thisform.release 10．要求：(1)編制一個表單完成表文件“學(xué)生.dbf”“成績.dbf”內(nèi)容的查詢顯示功能(2)當(dāng)用戶在組合框(下拉列表)選擇班級(學(xué)號的左三位)后，表單將自動顯示對應(yīng)班級的所有學(xué)生的總平均成績

(3)按“退出”按鈕時，自動關(guān)閉表單。

? 表單Form1的Init事件代碼：

Set talk off index on left(學(xué)號,3)to xh unique scan

thisform.combo1.additem(left(學(xué)號,3))endscan set index to ? 組合框combo1的Valid事件代碼：

set talk off average成績 to cj for left(學(xué)號,3)=this.value thisform.text1.value=cj ? “退出”按鈕Command1的Click事件代碼： thisform.release

（四）小結(jié) 【教學(xué)后記】 教學(xué)時間約

****年**月**日

總第節(jié)

審批簽字：

【課題】表單練習(xí)（7）

本課（章、節(jié)）共 2 課時，本課時為第1、2 課時,課的類型：實習(xí)課 【教學(xué)目標】熟悉表單的操作與命令 【教學(xué)重點】表單的操作與命令 【教學(xué)難點】表單的操作與命令 【教學(xué)方法】講授法、實驗法 【教學(xué)過程及板書設(shè)計】

（一）前提測評：

（二）目標展示：表單的操作與命令

（三）導(dǎo)學(xué)達標：

11．編制一個表單完成數(shù)據(jù)轉(zhuǎn)移操作功能

? 命令按鈕“添加一項”command1的click事件代碼：

thisform.list2.additem(thisform.list1.value)thisform.list1.removeitem(thisform.list1.listindex)&&“添加一項”將list1內(nèi)容移到list2，即list1的內(nèi)容減少一項（removeitem），list2的內(nèi)容增加一項（additem）。thisform.refresh ? 命令按鈕“全部添加”command2的click事件代碼：

thisform.list1.clear thisform.list2.clear scan thisform.list2.additem(姓名)endscan &&“全部添加”將list1內(nèi)容全部移到list2，即list1全部清空（clear），list2內(nèi)容為學(xué)生表的“姓名”。thisform.refresh ? 命令按鈕“移去一項”command3的click事件： thisform.list1.additem(thisform.list2.value)thisform.list2.removeitem(thisform.list2.listindex)&&“移去一項”將list2的內(nèi)容移到list1，list2減少一項（removetiem），list1增加一項（additem）。thisform.refresh ? 命令按鈕“全部移去”command4 的click事件： thisform.list2.clear thisform.list1.clear scan thisform.list1.additem(姓名)endscan &&“全部移去”將list2內(nèi)容全部移到list1，即list2全部清空（clear），list1內(nèi)容為學(xué)生表的“姓名”。

thisform.refresh

12．要求：(1)編制一個列表框數(shù)據(jù)轉(zhuǎn)移操作表單；(2)當(dāng)在左邊顯示學(xué)生姓名的窗口選擇某個學(xué)生后，單擊“選擇一項”按鈕，左邊的列表中的所選中的單項信息將自動轉(zhuǎn)移到右邊的列表框中；(3)當(dāng)在右邊顯示學(xué)生姓名的窗口選擇某個學(xué)生后，單擊“退還一項”按鈕，右邊的列表中選中的單項信息將自動轉(zhuǎn)移到左邊的列表框中。

*****表單Form1的init事件代碼: 教學(xué)時間約

****年**月**日

總第節(jié)

審批簽字：

this.list2.rowsourcetype=0 this.list2.rowsource=” this.list12.sorted=.t.this.list1.rowsourcetype=0 this.list1.rowsource=”” use 學(xué)生 scan

this.list1.additem(姓名)endscan *****命令按鈕”選擇一項”command1的click事件代碼: thisform.list2.additem(thisform.list1.value)thisform.list1.removeitem(thisform.list1.listindex)thisform.refresh *****命令按鈕”退還一項”command2的click事件代碼: thisform.list1.additem(thisform.list2.value)thisform.list2.removeitem(thisform.list2.listindex)thisform.refresh

13．要求：在文本框中輸入一個工資金額數(shù)，從數(shù)據(jù)表文件gzb.dbf（工資表）中查找高于此工資數(shù)男女人數(shù)，利用標簽輸出統(tǒng)計結(jié)果。

*****統(tǒng)計按鈕command1的click事件代碼: select gzb count to x for 工資>val(thisfom.text1.value)and 性別=.t.count to y for 工資>val(thisform.text1.value)and 性別=.f.thisform.label2.caption=”工資超過”+thisform.text1.value+”的男職工人數(shù)為:”+str(x,4)thisform.label3.caption=”工資超過”+thisform.text1.value+”的女職工人數(shù)為:”+str(y,4)14.四、與表相關(guān)的表單設(shè)計（多表）

15．要求：(1)編制一個表單完成表文件“課程.dbf”“成績.dbf”內(nèi)容的查詢顯示功能

(2)當(dāng)用戶在組合框選擇課程名后，表單將自動顯示對應(yīng)課程的所有學(xué)生的總平均成績

(3)按“退出”按鈕時，自動關(guān)閉表單。

? 組合框Combo1的RowSouceType屬性為“6-字段”，RowSouce屬性為“課程.課程名”。? 組合框Combo1的Valid事件代碼：

set talk off select 課程 kch=課程號 select 成績

average 成績 to cj for 課程號=kch thisform.text1.value=cj ? “退出”按鈕Command1的Click事件代碼：

thisform.release

（四）小結(jié) 【教學(xué)后記】

教學(xué)時間約

****年**月**日

總第節(jié)

審批簽字：

【課題】表單練習(xí)（8）

本課（章、節(jié)）共 2 課時，本課時為第1、2 課時,課的類型：實習(xí)課 【教學(xué)目標】熟悉表單的操作與命令 【教學(xué)重點】表單的操作與命令 【教學(xué)難點】表單的操作與命令 【教學(xué)方法】講授法、實驗法 【教學(xué)過程及板書設(shè)計】

（一）前提測評：

（二）目標展示：表單的操作與命令

（三）導(dǎo)學(xué)達標：

16．要求：(1)編制一個表單完成表文件“學(xué)生.dbf”“成績.dbf”內(nèi)容的查詢顯示功能(2)當(dāng)用戶在組合框(下拉列表)選擇姓名后，表單將自動顯示對應(yīng)學(xué)生的平均成績(3)按“退出”按鈕時，自動關(guān)閉表單。

? 組合框Combo1的RowSouceType屬性為“6-字段”，RowSouce屬性為“學(xué)生.姓名”。? 組合框Combo1的Interactivepage事件代碼：

set talk off select 學(xué)生 xh=學(xué)號 select 成績

average 成績 to cj for 學(xué)號=xh thisform.text1.value=cj ? “退出”按鈕Command1的Click事件代碼：

thisform.release

17.要求：(1)編制一個表單完成表文件“學(xué)生.dbf”、“成績.dbf”、“課程.dbf”內(nèi)容的編輯瀏覽顯示功能

(2)三個表文件分別顯示在三個不同的頁面上(3)未被激活的頁面自動設(shè)為不可訪問

? Timer1的Interval屬性設(shè)置為10000 ? Timer1的Timer事件的代碼：

P=Thisform.PageFrame1.ActivePage P=P+1 IF P>3

P=1 ENDIF

Thisform.PageFrame1.SetAll(”Enabled“,.F.,”Page")Thisform.PageFrame1.Pages(P).Enabled=.T.Thisform.PageFrame1.ActivePage=P

18.要求：（1）編制一個學(xué)生成績查詢表單，表單中的顯示學(xué)生信息的窗口的指針移動時，在另一個窗口可以自動顯示出對應(yīng)那個學(xué)生所所有成績信息。

*****Form1的init事件代碼: sele 成績 教學(xué)時間約

****年**月**日

總第節(jié)

審批簽字：

inde on 學(xué)號 to xh sele 學(xué)生

set rela to 學(xué)號into 成績

19.要求：（1）編制一個表單完成表文件“學(xué)生.dbf”“成績.dbf”“課程.dbf”內(nèi)容的編輯瀏覽顯示功能；（2）三個表文件分別顯示在三個不同的頁面上；（3）當(dāng)在選項按鈕組選擇某個表文件時，頁框中的頁會自動翻頁，即自動翻動為與選擇的表文件對應(yīng)的頁；（4）未被激活的頁面自動設(shè)為不可訪問

*****Form1的init事件代碼: thisform.pageframe1.setall(“enabled”..f.,”page”)thisform.pageframe1.page1.enabled=.t.*****Optiongroup1的click事件代碼: thisform.pageframe1.setall(“enabled”,.f.,”page”)do case

case this.value=1

thisform.pageframe1.page1.enabled=.t.thisform.pageframe1.activepage1=1 case this.value=2

thisform.pageframe1.page2.enabled=.t.thisform.pageframe1.activepage=2 case this.value=3 thisform.pageframe1.page3.enabled=.t.thisform.pageframe1.activepage=3 endcase 20．要求：(1)編制一個小型文本編輯器，界面見下圖；(2)文字信息從鍵盤輸入至edit框；(3)三個單選按鈕分別用于設(shè)置“宋體”、“黑體”和“隸書”；(4)三個check按鈕用設(shè)置字體的“傾斜”、“加粗”和“下劃線”；(5)字號用微調(diào)控件實現(xiàn)

***optiongroup1的click事件代碼: do case case this.value=1 thisform.text1.fontname=”宋體” case this.value=2 thisform.text1.fontname=”楷體” case this.value=3 thisform.text1.fontname=”隸書” endcase ***check1的click事件代碼: if this.value=1 thisform.text1.fontbold=.t.else thisform.text1.fontbold=.f.endif ***check2,3的代碼類似于check1 ***spinner1的upclick事件代碼

thisform.text1.fontsize=thisform.text1.fontsize-1 ***spinner1的downclick事件代碼

thisform.text1.fontsize=thisform.text1.fontsize+1

（四）小結(jié) 【教學(xué)后記】

第五篇：行政管理表單

行政管理工作表單

行政費用計劃表 行政費用申請單 通訊費用報銷單 外勤費用報銷單 車輛費用報銷單 招待費用報銷單 公務(wù)聯(lián)系單 參觀許可證 接待用餐申請表 公關(guān)工作計劃表 會議記錄表 會議計劃表 會議審核項目表 決議事項確認表 決議事項實施表 會議室使用申請表 印章使用登記表 印章使用審批表 印章使用申請單 印章管理登記表 印章使用范圍表 計算機故障維修記錄卡 計算機網(wǎng)絡(luò)報修登記表 計算機網(wǎng)絡(luò)設(shè)備檔案表

收文登記表 公文傳遞單 公文會簽單 檔案索引表

檔案明細表

檔案調(diào)閱單 信件接收登記表 外發(fā)信件登記表 圖書借閱卡 借閱登記表 丟失報告單

聲像材料送審表 項目提案表 會議提案表

員工提案匯總表 優(yōu)秀提案審核基準表 提案實施成果評分表 員工提案改善評分表 應(yīng)聘人員登記表 面試成績評定表 員工培訓(xùn)申請表 培訓(xùn)實施計劃表 培訓(xùn)費用預(yù)算表 員工考勤統(tǒng)計表 員工請假申請單 出差計劃申請表 差旅費報銷清單 差旅費支付明細表 物料移交清冊 物資保管清單

物料使用轉(zhuǎn)移登記卡 固定資產(chǎn)登記表 固定資產(chǎn)移交清單 固定資產(chǎn)保管記錄卡 辦公用品請購單 辦公用品一覽表 辦公用品登記表 辦公用品領(lǐng)用表 辦公用品盤點單 辦公用品耗用統(tǒng)計表 車輛登記表

車輛使用申請單 車輛調(diào)度派車單 車輛日常檢查表 車輛故障請修單 車輛保養(yǎng)記錄表 車輛交通事故處理單 交通事故現(xiàn)場記錄表 安全工作日報表 安全檢查報告書 安全整改通知書 意外事故報告單 安全事故報告書 保安工作日志 來賓出入登記表 員工外出登記表 物品出廠放行單 貨品進廠聯(lián)絡(luò)單 值班人員安排表 值班工作記錄表 消防器械檢查記錄表 消防設(shè)備檢修報告表 傷亡事故報告書 突發(fā)事故報告表 賠償處理調(diào)查報告表 員工住宿申請單 員工宿舍登記表 住宿人員資料卡 宿舍物品領(lǐng)用表 宿舍檢查登記表

宿舍管理員值班日報表 廚房排班表

餐廳衛(wèi)生檢查表 餐廳衛(wèi)生考核表 清潔工作安排表 衛(wèi)生狀況檢查表 綠化責(zé)任區(qū)劃分表 綠化項目計劃表 綠化質(zhì)量巡查表 員工病假單 員工體檢表

工傷醫(yī)療費用報銷申請表;v