基于VisualFoxPro6.0開發(fā)的教師管理系統(tǒng)畢業(yè)論文

1、課 題教師管理系統(tǒng)系 別計算機(jī)科學(xué)系專 業(yè)軟件工程42 / 42開題報告一、學(xué)生：二、題 目：教師管理系統(tǒng)三、課題背景：在經(jīng)濟(jì)全球化的今天，越來越多的公司、企業(yè)開始在各地建立分支機(jī)構(gòu)，開展業(yè)務(wù)，移動辦公人員也隨之劇增。學(xué)校也是一樣的，所以教師管理系統(tǒng)應(yīng)該能夠?yàn)橛脩籼峁┏渥愕男畔⒑涂旖莸牟樵兪侄?。一直以來人們使用傳統(tǒng)人工的方式管理文件檔案，這種管理方式存在著許多缺點(diǎn), 對于查找、更新和維護(hù)都帶來了不少的困難。使用計算機(jī)對教師檔案信息進(jìn)行管理,具有著手工管理所無法比擬的優(yōu)點(diǎn).四、課題概述：教師管理系統(tǒng)是一個教育單位不可缺少的部分,它的容對于學(xué)校的決策者和管理者來說都至關(guān)重要,所以教師管理系統(tǒng)應(yīng)該能

2、夠?yàn)橛脩籼峁┏渥愕男畔⒑涂旖莸牟樵兪侄?。但一直以來人們使用傳統(tǒng)人工的方式管理文件檔案，這種管理方式存在著許多缺點(diǎn),如:效率低、性差,另外時間一長,將產(chǎn)生大量的文件和數(shù)據(jù),這對于查找、更新和維護(hù)都帶來了不少的困難。隨著科學(xué)技術(shù)的不斷提高,計算機(jī)科學(xué)日漸成熟,其強(qiáng)大的功能已為人們深刻認(rèn)識,它已進(jìn)入人類社會的各個領(lǐng)域并發(fā)揮著越來越重要的作用。而今天，計算機(jī)的價格已經(jīng)十分低廉，性能卻有了長足的進(jìn)步。它已經(jīng)被應(yīng)用于許多領(lǐng)域，計算機(jī)之所以如此流行的原因主要有以下幾個方面：首先，計算機(jī)可以代替人工進(jìn)行許多繁雜的勞動；其次，計算機(jī)可以節(jié)省許多資源；第三，計算機(jī)可以大大的提高人們的工作效率；第四，計算機(jī)可以使敏

3、感文檔更加安全，等等。作為計算機(jī)應(yīng)用的一部分,使用計算機(jī)對教師檔案信息進(jìn)行管理,具有著手工管理所無法比擬的優(yōu)點(diǎn).例如:檢索迅速、查找方便、可靠性高、存儲量大、性好、壽命長、成本低等。這些優(yōu)點(diǎn)能夠極提高教師檔案管理的效率,也是企業(yè)的科學(xué)化、正規(guī)化管理,與世界接軌的重要條件。因此，開發(fā)這樣一套管理軟件成為很有必要的事情,由于系統(tǒng)還處于成長階段，不足之處在所難免，請用戶批評指正。教師管理系統(tǒng)摘要本文主要介紹了教師管理系統(tǒng)原理，并給出了具體案例的解決方案。隨著技術(shù)時代的飛速發(fā)展，人們的腳步也加快了，一個企業(yè)一個公司來說更是如此。一套好的系統(tǒng)對于企業(yè)是顯然易見的，即大解決了時間上的浪費(fèi)，同時可以縮短了員

4、工的工作量，去處理其他事務(wù)。本系統(tǒng)為教師管理系統(tǒng)，采用VFP程序所編寫?？傮w思路為：先建立一個項(xiàng)目，在此基礎(chǔ)上創(chuàng)建一些有關(guān)此系統(tǒng)所要涉與到的表單，報表等各個模塊，最后進(jìn)行編譯與制作安裝盤，以便使用人員更能好好地使用這一套軟件。經(jīng)過一系列的調(diào)試與編輯，該系統(tǒng)還是比較穩(wěn)定的，但也存在不足的地方，希望讀者與專家批評指正并給出了解決方案以便今后的改進(jìn)和提高。關(guān)鍵詞計算機(jī)；數(shù)據(jù)庫；VFP；表單；前言在經(jīng)濟(jì)全球化的今天，越來越多的公司、企業(yè)開始在各地建立分支機(jī)構(gòu)，開展業(yè)務(wù)，移動辦公人員也隨之劇增。目錄第一章 教師管理系統(tǒng)結(jié)構(gòu)與數(shù)據(jù)管理 (智龍)1.1 教師管理系統(tǒng)結(jié)構(gòu)1.2教師系統(tǒng)的數(shù)據(jù)管理第二章 主要程

5、序代碼 (史少鋼 王青帥)2.1系統(tǒng)主控程序2.2錄入教師檔案和教師任課檔案2.2.1錄入教師檔案2.2.2錄入教師任課檔案2.3查詢教師檔案2.4查詢教師任課2.5教學(xué)綜合查詢2.5.1教師任課查詢2.5.2課程任教查詢2.5.3班級課程查詢第三章 流程圖 (智龍)第一章 教師管理系統(tǒng)結(jié)構(gòu)與數(shù)據(jù)管理開發(fā)一個應(yīng)用軟件，應(yīng)在調(diào)查的基礎(chǔ)上對系統(tǒng)進(jìn)行分析，并做出總體設(shè)計，然后依據(jù)總體設(shè)計，做出詳細(xì)設(shè)計和程序設(shè)計。其中，首先應(yīng)明確系統(tǒng)的結(jié)構(gòu)與數(shù)據(jù)管理。數(shù)據(jù)管理包括：項(xiàng)目、數(shù)據(jù)庫、表、索引與關(guān)聯(lián)的建立。1.1 教師管理系統(tǒng)結(jié)構(gòu) 教師管理系統(tǒng)的任務(wù)是：用計算機(jī)管理和維護(hù)教師檔案與教師任課檔案，并提供各種查

6、詢功能。下面介紹的系統(tǒng)是簡化的教師管理系統(tǒng)。 教師管理系統(tǒng)的具體功能如下： 錄入檔案任課 其子菜單的功能是：錄入教師檔案和錄入教師任課記錄。 查詢教師檔案 按編號、查詢教師檔案。 查詢教師任課 按編號、查詢教師任課記錄。 教學(xué)綜合查詢 其子菜單功能是：教師任課查詢、教師任教查詢和和班級課程查詢。這里所提供的查詢都具有綜合性。 檔案任課維護(hù) 其子菜單功能是：教師檔案維護(hù)、教師任課維護(hù)、課名課號維護(hù)和班名班號維護(hù)。 該系統(tǒng)由面向?qū)ο笫录?qū)動的主控程序和功能程序構(gòu)成。主控程序完成功能選擇，而功能程序完成相關(guān)數(shù)據(jù)處理。1.2 教師系統(tǒng)的數(shù)據(jù)管理 Visual FoxPro6.0 是面向?qū)ο笫录?qū)動的關(guān)

7、系數(shù)據(jù)庫操作平臺，對數(shù)據(jù)的管理增添了許多大型數(shù)據(jù)庫才具備的功能。如在開發(fā)中充分使用這些功能，將會顯著地提高數(shù)據(jù)的使用效率與安全性。為此，在教師檔案與任課管理系統(tǒng)設(shè)計中，首先通過可視性操作創(chuàng)建"教師.PJX"項(xiàng)目文件，隨之系統(tǒng)將生成教師項(xiàng)目管理器。之后，在項(xiàng)目管理器管理下創(chuàng)建"教師.DBC"數(shù)據(jù)庫管理文件。其后在數(shù)據(jù)庫管理下，使用表設(shè)計器創(chuàng)建數(shù)據(jù)庫表文件。創(chuàng)建表文件包括：定義表結(jié)構(gòu)，設(shè)置字段屬性，建立表索引和創(chuàng)建編輯表間關(guān)聯(lián)。 通過分析，該系統(tǒng)至少應(yīng)具備的表有：教師檔案表、教師任課表、課名表和班名表。教師檔案表用于存儲教師檔案數(shù)據(jù)，教師任課表用于存儲教師任

8、課數(shù)據(jù)，課名表用于存儲課號與漢字課名對照數(shù)據(jù)，班名表用于存儲班號與漢字班名對照數(shù)據(jù)。下面就列出這些表的結(jié)構(gòu)，所建的索引與關(guān)聯(lián)。 教師檔案表(教師檔案.DBF) 該表用于存儲每位教師的檔案數(shù)據(jù)，其結(jié)構(gòu)如下：表結(jié)構(gòu): C:電子VF教師檔案.DBF數(shù)據(jù)記錄數(shù): 10 最近更新的時間: 07/28/00字段 字段名 類型 寬度 小數(shù)位 索引 排序 Nulls 1 編號 字符型 4 升序 PINYIN 否 2 字符型 6 升序 PINYIN 否 3 性別 邏輯型 1 否 4 職稱 字符型 6 否 5 基本工資 數(shù)值型 5 否 6 出生日期 日期型 8 否 7 籍貫 字符型 10 否 6 簡歷 備注型 4

9、 否 8 相片 通用型 4 否 * 總計 * 49 教師任課表(教師任課.DBF) 該表用于存儲每位教師的任課數(shù)據(jù)，其結(jié)構(gòu)如下：表結(jié)構(gòu): C:電子VF成績檔案.DBF數(shù)據(jù)記錄數(shù): 15 最近更新的時間: 07/18/00字段 字段名 類型 寬度 小數(shù)位 索引 排序 Nulls 1 編號 字符型 4 升序 PINYIN 否 2 課號 字符型 4 升序 PINYIN 否 3 班號 字符型 5 升序 PINYIN 否* 總計 * 14 課名表(課名.DBF) 該表用于存儲課號與漢字課名對照數(shù)據(jù)，其結(jié)構(gòu)如下：表結(jié)構(gòu): C:電子VF課名.DBF數(shù)據(jù)記錄數(shù): 11 最近更新的時間: 07/18/00字段

10、字段名 類型 寬度 小數(shù)位 索引 排序 Nulls1 課號 字符型 4 升序 PINYIN 否2 課名 字符型 20 升序 PINYIN 否* 總計 * 25 班名表(班名.DBF) 班名表用于存儲班號與漢字班名對照數(shù)據(jù)，其結(jié)構(gòu)如下：表結(jié)構(gòu): C:電子VF班名.DBF數(shù)據(jù)記錄數(shù): 8 最近更新的時間: 07/18/00字段 字段名 類型 寬度 小數(shù)位 索引 排序 Nulls 1 班號 字符型 5 升序 PINYIN 否 2 班名 字符型 7 升序 PINYIN 否* 總計 * 13 對以上各表所建索引與關(guān)聯(lián)說明如下： 因?yàn)榻⒈硭饕窃跀?shù)據(jù)庫管理下使用表設(shè)計器完成的，因此所建索引皆屬于數(shù)據(jù)庫表

11、的結(jié)構(gòu)復(fù)合索引，并具有數(shù)據(jù)庫管理下的特殊屬性，如指定為主索引、候選索引、普通索引等屬性。該索引隨表自動打開，并自動完成更新和維護(hù)。其各表所建索引與關(guān)鍵字如下： 表 名 主索引 候選索引 普通索引 唯一索引 教師檔案.DBF 編號 教師任課.DBF 編號 課號、班號 課名.DBF 課號 課名 班名.DBF 班號 班名 因?yàn)榻⒈黹g關(guān)聯(lián)是使用數(shù)據(jù)庫設(shè)計器完成的，因此所建表間關(guān)聯(lián)皆屬于數(shù)據(jù)庫表間部關(guān)聯(lián)(Inner),并具有數(shù)據(jù)庫管理下的特殊屬性，如一對多關(guān)聯(lián)。在教師數(shù)據(jù)庫中所建關(guān)聯(lián)如下： 關(guān) 聯(lián) 表 索引關(guān)鍵字與類型 (一方) (多方) (一方) (多方) 教師檔案.DBF_教師任課.DBF 編號

12、主索引 編號 普通索引 課名.DBF_教師任課.DBF 課號 主索引 課號 普通索引 班名.DBF_教師任課.DBF 班號 主索引 班號 普通索引第二章 主要程序代碼2.1系統(tǒng)主控程序 主控模塊主要用于選擇系統(tǒng)功能，通常是一個菜單程序，其含有一、二級菜單選擇功能。一級菜單包括：錄入檔案任課、查詢教師檔案、查詢教師任課、教學(xué)綜合查詢和檔案任課維護(hù)五項(xiàng)。其中，第一、四、五項(xiàng)一級菜單還包括其相應(yīng)的二級菜單，如錄入檔案任課一級菜單項(xiàng)有兩個二級菜單項(xiàng)：錄入教師檔案和錄入教師任課，教學(xué)綜合查詢一級菜單項(xiàng)有三個二級菜單項(xiàng)：教師任課查詢、課程任教查詢和班級課程查詢，而檔案任課維護(hù)一級菜單項(xiàng)有四個二級菜單項(xiàng)：教

13、師檔案維護(hù)、教師任課維護(hù)、課名課號維護(hù)和班名班號維護(hù)。 在主控程序中，首先創(chuàng)建表單，并在表單中添加包容器(Contail)。 之后激活并顯示表單。在主程序后面，先定義表單和包容器，然后在包容器中添加"錄入檔案任案"、"查詢教師檔案"、"查詢教師任課"、"教學(xué)綜合查詢"、"檔案任課維護(hù)"和"確定按鈕"與"退出按鈕"等用于功能選擇的命令按鈕。這些按鈕的功能相當(dāng)于一級菜單功能。其中有的按鈕獲取焦點(diǎn)后還將顯示二級菜單，為此需要添加相應(yīng)的二級選擇按鈕，二級選擇顯示于

14、方框中，方框僅用于裝飾。 此外，在主控程序中，還要對被添加的對象指派相應(yīng)的事件，并添寫其事件程序代碼。這些事件程序代碼，有的用于調(diào)用相應(yīng)的數(shù)據(jù)處理程序，有的用于建立對象間聯(lián)鎖關(guān)系，還有的用于釋放表單并退出運(yùn)行。更詳細(xì)的介紹請參閱主控程序中的注釋。 主控程序JSDARKGL.PRG如下：* 主程序用于創(chuàng)建表單，添加包容器對象。public darkdark=createobject("darkclass")dark.addobject('cnt1','contai1')dark.show()retu* 定義表單define class dark

15、class as form caption="教師檔案任課管理系統(tǒng)" height=300 width=600 autocenter=.t. name="jsgl"enddefine* 定義包容器。define class contai1 as container top=30 left=90 height=230 width=420 visible=.t. specialeffect=0 包容器顯示樣式屬性，值0三維樣式 name="cnt1"* 在包容器中添加標(biāo)簽，用于顯示系統(tǒng)標(biāo)題。 add object label1 as la

16、bel with; caption="教師檔案任課管理系統(tǒng)",; left=130,; top=20,; height=20,; width=200,; forecolor=rgb(255,0,0),; fontsize=12,; visible=.t.,; name="label1"* 在包容器中添加方框，框中將添加二級菜單。 add object shape1 as shape with; specialeffect=0,; left=200,; top=60,; height=85,; width=150,; visible=.t.,; name=

17、"shape1"* 在包容器中添加"錄入檔案任課"一級菜單項(xiàng)按鈕。 add object cmd11 as CommandButton with; caption="錄入檔案任課",; left=60,; top=60,; height=24,; width=100,; name="cmd11"* 當(dāng)該按鈕獲取焦點(diǎn)時，觸發(fā)gotfocus事件，其過程代碼用于顯式相應(yīng)二級菜單。procedure cmd11.gotfocus this.parent.opti11.visible=.t. this.parent.opt

18、i12.visible=.t. this.parent.opti11.value=.f. this.parent.opti12.value=.f. this.parent.opti41.visible=.f. this.parent.opti42.visible=.f. this.parent.opti43.visible=.f. this.parent.opti51.visible=.f. this.parent.opti52.visible=.f. this.parent.opti53.visible=.f. this.parent.opti54.visible=.f. endproc*

19、添加"錄入檔案任課"一級菜單項(xiàng)的"錄入教師檔案"二級菜單項(xiàng)選擇按鈕。 add object opti11 as optionbutton with; left=225,; top=80,; height=20,; width=100,; caption="錄入教師檔案",; visible=.f.,; name="opti11"* 單擊"錄入教師檔案"二級菜單項(xiàng)選擇按鈕事件，其過程代碼主要用于調(diào)用錄入教師檔案程序（lrjsda.prg）,執(zhí)行錄入教師檔案操作。 procedure opti11.

20、click this.value=.t. this.parent.opti12.value=.f. this.parent.opti41.value=.f. this.parent.opti42.value=.f. this.parent.opti43.value=.f. do lrjsda endproc* 添加"錄入檔案任課"一級菜單項(xiàng)的"錄入教師任課"二級菜單項(xiàng)選擇按鈕。 add object opti12 as optionbutton with; left=225,; top=110,; height=20,; width=100,; capt

21、ion="錄入教師任課",; visible=.f.,; name="opti12"* 單擊"錄入教師任課"二級菜單項(xiàng)選擇按鈕事件，其過程代碼主要用于調(diào)用錄入教師任課程序（lrjsrk.prg）,執(zhí)行錄入教師任課記錄操作。 procedure opti12.click this.value=.t. this.parent.opti11.value=.f. this.parent.opti41.value=.f. this.parent.opti42.value=.f. this.parent.opti43.value=.f. do l

22、rjsrk endproc* 添加"教學(xué)綜合查詢"一級菜單項(xiàng)的"教師任課查詢"二級菜單項(xiàng)選擇按鈕。 add object opti41 as optionbutton with; left=220,; top=75,; height=20,; width=100,; caption="教師任課查詢",; visible=.f.,; name="opti41"* 單擊"教師任課查詢"二級菜單項(xiàng)選擇按鈕事件，其過程代碼主要用于調(diào)用教師任課查詢程序（jsrjcx.prg）,執(zhí)行教師檔案任課查詢操作。p

23、rocedure opti41.click this.value=.t. this.parent.opti42.value=.f. this.parent.opti43.value=.f. do jsrjcx endproc* 添加"教學(xué)綜合查詢"一級菜單項(xiàng)的"課程任教查詢"二級菜單項(xiàng)選擇按鈕。 add object opti42 as optionbutton with; left=220,; top=95,; height=20,; width=100,; caption="課程任教查詢",; value=.f.,; visibl

24、e=.f.,; name="opti42"* 單擊"課程任教查詢"二級菜單項(xiàng)選擇按鈕事件，其過程代碼主要用于調(diào)用課程任教查詢程序（kcrjcx.prg）,執(zhí)行課程任教教師情況查詢操作。 procedure opti42.click this.value=.t. this.parent.opti41.value=.f. this.parent.opti43.value=.f. do kcrjcx endproc* 添加"教學(xué)綜合查詢"一級菜單項(xiàng)的"班級課程查詢"二級菜單項(xiàng)選擇按鈕。 add object opti43

25、 as optionbutton with; left=220,; top=115,; height=20,; width=100,; caption="班級課程查詢",; value=.f.,; visible=.f.,; name="opti43"* 單擊"班級課程查詢"二級菜單項(xiàng)選擇按鈕事件，其過程代碼主要用于調(diào)用班級課程查詢程序（bjkccx.prg）,執(zhí)行班級任課教師情況查詢操作。 procedure opti43.click this.value=.t. this.parent.opti41.value=.f. this.

26、parent.opti42.value=.f. do bjkccx endproc* 添加"檔案任課維護(hù)"一級菜單項(xiàng)的"教師檔案維護(hù)"二級菜單項(xiàng)選擇按鈕。 add object opti51 as optionbutton with; left=220,; top=67,; height=20,; width=100,; caption="教師檔案維護(hù)",; visible=.f.,; name="opti51"* 單擊"教師檔案維護(hù)"二級菜單項(xiàng)選擇按鈕事件，其過程代碼主要用于調(diào)用教師檔案維護(hù)程

27、序（jsdawh.prg）,執(zhí)行教師檔案維護(hù)操作。 procedure opti51.click this.value=.t. this.parent.opti52.value=.f. this.parent.opti53.value=.f. this.parent.opti54.value=.f. do jsdawh endproc* 添加"檔案任課維護(hù)"一級菜單項(xiàng)的"教師任課維護(hù)"二級菜單項(xiàng)選擇按鈕。 add object opti52 as optionbutton with; left=220,; top=85,; height=20,; wid

28、th=100,; caption="教師任課維護(hù)",; value=.f.,; visible=.f.,; name="opti52"* 單擊"教師任課維護(hù)"二級菜單項(xiàng)選擇按鈕事件，其過程代碼主要用于調(diào)用教師任課維護(hù)程序（jsrkwh.prg）,執(zhí)行教師任課情況維護(hù)操作。 procedure opti52.click this.value=.t. this.parent.opti51.value=.f. this.parent.opti53.value=.f. this.parent.opti54.value=.f. do jsrkw

29、h endproc* 添加"檔案任課維護(hù)"一級菜單項(xiàng)的"課名課號維護(hù)"二級菜單項(xiàng)選擇按鈕。 add object opti53 as optionbutton with; left=220,; top=103,; height=20,; width=100,; caption="課名課號維護(hù)",; value=.f.,; visible=.f.,;name="opti53"* 單擊"課名課號維護(hù)"二級菜單項(xiàng)選擇按鈕事件，其過程代碼主要用于調(diào)用課名課號維護(hù)程序（kmkhwh.prg）,執(zhí)行課名課號

30、維護(hù)操作。procedure opti53.click this.value=.t. this.parent.opti51.value=.f. this.parent.opti52.value=.f. this.parent.opti54.value=.f. do kmkhwh endproc* 添加"檔案任課維護(hù)"一級菜單項(xiàng)的"班名班號維護(hù)"二級菜單項(xiàng)選擇按鈕。add object opti54 as optionbutton with; left=220,; top=122,; height=20,; width=100,; caption=&quo

31、t;班名班號維護(hù)",; value=.f.,; visible=.f.,; name="opti54"* 單擊"班名班號維護(hù)"二級菜單項(xiàng)選擇按鈕事件，其過程代碼主要用于調(diào)用班名班號維護(hù)程序（bmbhwh.prg）,執(zhí)行班名班號維護(hù)操作。 procedure opti54.click this.value=.t. this.parent.opti51.value=.f. this.parent.opti52.value=.f. this.parent.opti53.value=.f. do bmbhwh endproc* 添加"查詢教師

32、檔案"一級菜單項(xiàng)的選項(xiàng)按鈕。add object cmd22 as CommandButton with; caption="查詢教師檔案",; left=60,; top=88,; height=24,; width=100,; name="cmd22"* 單擊"查詢教師檔案"一級菜單選項(xiàng)按鈕事件，其過程代碼主要用于調(diào)用查詢教師檔案程序（jsdacx.prg）,執(zhí)行教師檔案查詢操作。 procedure cmd22.click this.parent.opti11.visible=.f. this.parent.opti1

33、2.visible=.f. this.parent.opti41.visible=.f. this.parent.opti42.visible=.f. this.parent.opti43.visible=.f. do jsdacx endproc* 添加"查詢教師任課"一級菜單項(xiàng)的選項(xiàng)按鈕。 add object cmd33 as CommandButton with; caption="查詢教師任課",; left=60,; top=116,; height=24,; width=100,; name="cmd33"* 單擊&qu

34、ot;查詢教師任課"一級菜單選項(xiàng)按鈕事件，其過程代碼主要用于調(diào)用查詢教師任課程序（jsrkcx.prg）,執(zhí)行教師任課查詢操作。 procedure cmd33.click this.parent.opti11.visible=.f. this.parent.opti12.visible=.f. this.parent.opti41.visible=.f. this.parent.opti42.visible=.f. this.parent.opti43.visible=.f. do jsrkcx endproc* 添加"教學(xué)綜合查詢"一級菜單項(xiàng)的選項(xiàng)按鈕。 ad

35、d object cmd44 as CommandButton with; caption="教學(xué)綜合查詢",; left=60,; top=144,; height=24,; width=100,; name="cmd44"* "教學(xué)綜合查詢"一級菜單項(xiàng)選項(xiàng)按鈕獲取焦點(diǎn)事件，將顯示其相應(yīng)的二級菜單。procedure cmd44.gotfocus this.parent.opti11.visible=.f. this.parent.opti12.visible=.f. this.parent.opti41.visible=.t. t

36、his.parent.opti42.visible=.t. this.parent.opti43.visible=.t. this.parent.opti41.value=.f. this.parent.opti42.value=.f. this.parent.opti43.value=.f. this.parent.opti51.visible=.f. this.parent.opti52.visible=.f. this.parent.opti53.visible=.f. this.parent.opti54.visible=.f. endproc* 添加"檔案任課維護(hù)"

37、;一級菜單項(xiàng)的選項(xiàng)按鈕。 add object cmd55 as CommandButton with; caption="檔案任課維護(hù)",; left=60,; top=172,; height=24,; width=100,; name="cmd55"* "檔案任課維護(hù)"一級菜單項(xiàng)選項(xiàng)按鈕獲取焦點(diǎn)事件，將顯示其相應(yīng)的二級菜單。 procedure cmd55.gotfocus this.parent.opti11.visible=.f. this.parent.opti12.visible=.f. this.parent.opti

38、41.visible=.f. this.parent.opti42.visible=.f. this.parent.opti43.visible=.f. this.parent.opti51.visible=.t. this.parent.opti52.visible=.t. this.parent.opti53.visible=.t. this.parent.opti54.visible=.t. this.parent.opti51.value=.f. this.parent.opti52.value=.f. this.parent.opti53.value=.f. this.parent.

39、opti54.value=.f. endproc * 添加"退出按鈕" add object cmd1 as commandbutton with; caption="退出按鈕",; top=170,; height=25,; left=240,; width=80,; forecolor=rgb(255,0,0),; name="cmd1"* "出按鈕"單擊事件，其過程代碼將釋放主控程序表單，結(jié)束程序執(zhí)行。procedure cmd1.click release thisform sele 1 endprocen

40、ddefine2.2 錄入教師檔案和教師任課檔案 當(dāng)一級菜單"錄入檔案任課"選項(xiàng)按鈕獲取焦點(diǎn)時，將顯示其相應(yīng)的二級菜單。二級菜單包括兩個菜單項(xiàng)："錄入教師檔案"和"錄入教師任課"檔案。單擊二級菜單選擇按鈕將調(diào)用其相應(yīng)程序，完成錄入操作。下面先介紹錄入教師檔案，然后介紹錄入教師任課檔案。2.2.1 錄入教師檔案單擊一級菜單"錄入檔案任課"的"錄入教師檔案"二級菜單選擇按鈕時，將調(diào)用錄入教師檔案程序（lrjsda.prg）執(zhí)行錄入操作。程序十分簡單，即通過BROWSE瀏覽窗口操作完成。 錄入教師檔案

41、程序（lrjsda.prg）清單如下： open data 教師 sele 11 use 教師檔案 activate screen browse title "錄入教師檔案記錄 Ctrl+Y追加記錄 Ctrl+W存盤 Ctrl+Q廢棄" use sele 12.2.2. 錄入教師任課檔案單擊一級菜單"錄入檔案任課"的"錄入教師任課"二級菜單選擇按鈕時，將調(diào)用錄入教師任課程序（lrjsrk.prg）執(zhí)行錄入操作。程序十分簡單，也是通過BROWSE瀏覽窗口操作完成。 錄入教師任課程序（lrjsrk.prg）清單如下： open data

42、教師 sele 11 use 教師任課 activate screen browse title "錄入教師任課記錄 Ctrl+Y追加記錄 Ctrl+W存盤 Ctrl+Q廢棄" use sele 12.3 查詢教師檔案單擊"查詢教師檔案"一級菜單選項(xiàng)按鈕時，觸發(fā)其單擊事件，執(zhí)行其事件程序代碼，調(diào)用并執(zhí)行查詢教師檔案程序（jsdacx.prg），完成查詢檔案操作。 查詢教師檔案程序清單jsdacx.prg如下：* 主程序，打開教師數(shù)據(jù)庫與教師檔案表，并創(chuàng)建表單。public dacxopen data 教師sele 11use 教師檔案dacx=creat

43、eobject("dacxClass")dacx.show()retu* 定義表單。define class dacxclass as Form caption="按編號、查詢教師檔案" height=180 width=400 maxbutton=.f. Minbutton=.t. closable=.t. autocenter=.t.* 在表單中添加方框，用于放置選擇按編號或查詢教師檔案。add object shape1 as shape with; specialeffect=0,; left=50,; top=20,; height=130,;

44、 width=300,; visible=.t.,; name="shape1"* 在表單中添加標(biāo)簽，用于指明選擇按編號或進(jìn)行查詢操作。 add object label1 as label with; caption="選擇編號、",; left=70,; top=40,; height=20,; width=120,; fontsize=10,; forecolor=rgb(255,0,0),; visible=.t.* 在表單中添加"編號"選擇按鈕，用于選擇按編號查詢教師檔案。 add object opti1 as optio

45、nbutton with; caption="編號",; left=80,; top=70,; height=20,; width=60,; fontsize=10,; value=.t.,; name="opti1"* 在表單中添加""選擇按鈕，用于選擇按查詢教師檔案。 add object opti2 as optionbutton with; caption="",; left=80,; top=100,; height=20,; width=60,; fontsize=10,; value=.f.,; na

46、me="opti2"* 在表單中添加一文本框，用于輸入待查詢教師編號。 add object txbox1 as textbox with; value=" ",; style=0,; left=150,; top=70,; height=20,; width=35,; maxlenth=4,; name="txbox1"* 在表單中添加一文本框，用于輸入待查詢教師。 add object txbox2 as textbox with; value=" ",; style=0,; left=150,; top=10

47、0,; height=20,; width=60,; enabled=.f.,; maxlenth=8,; name="txbox2"* 在表單中添加"確定按鈕"，用于執(zhí)行查詢程序。 add object cmd1 as commandbutton with; caption="確定按鈕",; top=60,; height=20,; left=260,; width=60,; forecolor=rgb(255,0,0),; name="cmd1"* 在表單中添加"退出按鈕"，用于結(jié)束程序執(zhí)行

48、。 add object cmd2 as commandbutton with; caption="退出按鈕",; top=100,; height=20,; left=260,; width=60,; name="cmd2"* 輸入待查教師編號的文本框初始化事件，用于初次進(jìn)入查詢時獲取焦點(diǎn)。 procedure txbox1.init this.setfocus endproc* 按編號查詢按鈕單擊事件，其過程代碼用于設(shè)置按編號查詢環(huán)境。 procedure opti1.click this.value=.t. this.parent.opti2.va

49、lue=.f. this.parent.txbox1.enabled=.t. this.parent.txbox1.setfocus this.parent.txbox2.enabled=.f. endproc* 按查詢按鈕單擊事件，其過程代碼用于設(shè)置按查詢環(huán)境。 procedure opti2.click this.value=.t. this.parent.opti1.value=.f. this.parent.txbox1.enabled=.f. this.parent.txbox2.enabled=.t. this.parent.txbox2.setfocus endproc* &qu

50、ot;定按鈕"單擊事件，其過程代碼區(qū)分按編號或查詢不同情況，按輸入的教師編號或通過相應(yīng)索引定位查詢。procedure cmd1.click temp1=this.parent.opti1.value temp2=this.parent.opti2.value value1=this.parent.txbox1.value value2=this.parent.txbox2.value sele 11 do case case temp1 set order to 編號 置當(dāng)前索引標(biāo)記為編號 seek value1 按編號查找 activate screen browse noedi

51、t title "查看教師檔案記錄 Esc鍵返回"&&顯示按編號查詢結(jié)果 case temp2 set order to seek value2 activate screen browse noedit title "查看教師檔案，按Esc鍵返回" endc endproc* "退出按鈕"單擊事件，其過程代碼用于釋放表單，結(jié)束程序執(zhí)行。 procedure cmd2.click rele thisform sele 1 endprocenddefine2.4 查詢教師任課 單擊"查詢教師任課"一級菜單選項(xiàng)按鈕時，觸發(fā)其單擊事件，執(zhí)行其事件程序代碼，調(diào)用并執(zhí)行查詢教師任課程序（jsrkcx.prg），完成查詢教師任課檔案操作。 查詢教師任課程序（jsrkcx.prg）清單如下：* 主程序，打開教師數(shù)據(jù)庫與教師檔案表和教師任課表，