vf學生成績管理系統(tǒng)課程設(shè)計說明說

1、哈爾濱理工大學榮成校區(qū)課程設(shè)計說明書哈爾濱理工大學榮成校區(qū) vf課程設(shè)計說明書 專業(yè)(年級、班)_ 設(shè) 計 人 _ 設(shè)計指導(dǎo)教師 二一二年七月十二日學生成績管理系統(tǒng)摘 要學生成績管理系統(tǒng)是針對學校的學生成績管理進行計算機處理而開發(fā)的應(yīng)用軟件。該系統(tǒng)由系統(tǒng)維護、輸入、查詢、修改、輸出和打印等子模塊組成，功能基本滿足一般高校的學生成績管理。學校應(yīng)用本系統(tǒng)后，可以有效的提高學生成績的管理水平，而且減少出錯率。本論文包括概述、功能需求分析及概要設(shè)計、數(shù)據(jù)庫及系統(tǒng)模塊設(shè)計、程序連編與系統(tǒng)維護等方面，較為系統(tǒng)地介紹了“學生成績管理系統(tǒng)”課題開發(fā)的整個過程。本系統(tǒng)采用小型數(shù)據(jù)庫管理系統(tǒng)中優(yōu)秀的軟件“visu

2、al foxpro 6.0”作為系統(tǒng)開發(fā)工具，在對本校學生成績管理方法進行充分分析和系統(tǒng)論證的基礎(chǔ)上開發(fā)研制的，它不但能夠滿足學生成績管理的基本要求，如“學生和教師的添加和刪除、條件查詢、基本項目統(tǒng)計和打印輸出報表”等功能，而且具有程序設(shè)計合理、操作簡單、運行可靠和保密性強等特點。關(guān)鍵詞 學生成績 數(shù)據(jù)庫 microsoft visual foxpro 6.0student achievement management systemabstractstudent achievement management system is developed for the management of s

3、tudent achievement in schools computer processing applications. the system maintained by the system, input, query, modify, output and print and other sub-modules, the basic functions to meet the general university student performance management. the application of the system, schools can effectively

4、 improve the level of student achievement management, and reduce the error rate.in this paper includes an overview of the program functional requirements analysis and preliminary design, database and system module design, build and system maintenance, and experience other aspects, a more systematic

5、introduction to the subject of development of the whole process of student achievement management system.this system uses a small database management system, excellent software visual foxpro 6.0 as a system development tool, developed on the basis of full analysis and system demonstration on school

6、student achievement management methods, it is not only able to meet the management of student achievement requirements, such as students and teachers to add and delete query conditions, the basic project statistics and printout statements and other functions, and procedures reasonably designed, simp

7、le to operate, reliable operation and confidentiality features.keywords student achievement, database, microsoft visual foxpro 6.0目 錄摘 要iabstractii一、概述11.1開發(fā)背景11.2開發(fā)平臺1二、功能需求分析及概要設(shè)計22.1需求分析22.1.1數(shù)據(jù)需求22.1.2功能需求22.2運行環(huán)境分析32.2.1硬件運行環(huán)境32.2.2軟件運行環(huán)境32.3系統(tǒng)設(shè)計過程概要32.3.1求分析階段32.3.2設(shè)計階段42.3.3實施階段42.3.4測試階段42.3

8、.5運行維護階段4三、數(shù)據(jù)庫及系統(tǒng)模塊設(shè)計53.1數(shù)據(jù)庫設(shè)計53.1.1概念設(shè)計53.1.2關(guān)系設(shè)計73.2模塊設(shè)計83.2.1主界面設(shè)計83.2.1登錄頁面設(shè)計83.2.2菜單模塊設(shè)計83.2.3查詢模塊設(shè)計9四、程序連編12五、心得體會13致謝14參考文獻15附錄1631一、概述1.1開發(fā)背景隨著計算機軟硬件技術(shù)日新月異、突飛猛進的發(fā)展，計算機已成為現(xiàn)代社會人們工作、生活、學習甚至娛樂不可或缺的工具。在我國，計算機的應(yīng)用也已經(jīng)滲透到社會的各個領(lǐng)域，不論是企業(yè)還是政府機關(guān)、事業(yè)單位，都正在或計劃利用各種計算機應(yīng)用系統(tǒng)以全面提高工作效率。但是，我們需要面對的現(xiàn)實狀況是，在我國現(xiàn)有的企事業(yè)單位的

9、日常管理工作中，自動化、信息化程度還不是很高。很多單位僅滿足于利用計算機進行日常公文處理或網(wǎng)上瀏覽，而作為二十一世紀信息時代的一個社會單元，如果沒有現(xiàn)代化的管理理念和現(xiàn)代化的管理手段要想在全球化的市場競爭中占有一席之地是不可想象的。進入新世紀特別是成功“入世”以后，我國改革開放和經(jīng)濟發(fā)展的節(jié)奏進一步加快。經(jīng)濟全球化步伐的加快對信息化的要求越來越高，而教育作為推進經(jīng)濟發(fā)展的重要力量，合理、規(guī)范的對受教育者進行管理是十分重要的問題。學校學生成績管理僅靠人工處理既費力又極易出錯，不符合保證教育公平的基本前提。本系統(tǒng)采用現(xiàn)代化的信息管理手段來避免了上述的問題。系統(tǒng)安排了學生信息管理教師信息管理課程信息

10、管理成績信息管理等功能，并提供學生和教師信息和學生成績歷史的查詢功能。1.2開發(fā)平臺選擇微軟平臺作為主導(dǎo)，由于微軟的高速度發(fā)展進步，越來越多的企業(yè)在規(guī)劃內(nèi)部網(wǎng)絡(luò)時，首先想到的就是微軟平臺；另外，從技術(shù)角度來講，微軟平臺上的應(yīng)用無論是在開發(fā)上，還是在軟件的部署上都非常容易，而且伴隨著技術(shù)含量的提高，表現(xiàn)出越來越多的優(yōu)越性。系統(tǒng)開發(fā)環(huán)境：操作系統(tǒng)：windows xp開發(fā)工具: visual foxpro 6.0中文版數(shù)據(jù)庫：sql server 系統(tǒng)服務(wù)對象：一般學校的教務(wù)部（處） 二、功能需求分析及概要設(shè)計2.1需求分析本系統(tǒng)是針對普通學校學生成績管理而設(shè)計的，我們在對目標使用群體進行調(diào)研、分

11、析之后我們認為我們的使用者主要對系統(tǒng)有以下要求：（1）要求系統(tǒng)提供學生信息和成績信息的錄入、修改、刪除等功能，從而對考生的信息和成績進行日常管理。（2）要求系統(tǒng)提供可以按學校、姓名和考號中的任何一種方式，對考生的成績進行查詢、統(tǒng)計。（3）退出系統(tǒng)應(yīng)保留考生的歷史信息，以備日后查詢。（4）要求能夠打印出學生成績 我們認為本系統(tǒng)基本可以滿足普通學校教務(wù)部門對學生成績管理所提出的上述需求，并且可以盡可能的為教務(wù)部門準確、及時的反映學生成績提供便利。2.1.1數(shù)據(jù)需求在調(diào)研過程中，用戶提供了所需數(shù)據(jù)表。這些數(shù)據(jù)表包括：學生信息、班級信息、院系信息、課程、教師、成績等。2.1.2功能需求信息錄入錄入以上

12、數(shù)據(jù)表中的數(shù)據(jù)，還要求能進行修改。這些數(shù)據(jù)包括：學生信息、班級信息、院系信息、課程、教師、成績等。查詢能查詢學生基本信息、學生成績。可以計算學生數(shù)據(jù)、統(tǒng)計學生中，及格的人數(shù)、不及格人數(shù)、平均成績。打印 打印需要的學生的成績表。2.2運行環(huán)境分析本系統(tǒng)是采用visual foxpro 6.0進行開發(fā)，故本系統(tǒng)的軟硬件運行環(huán)境與visual foxpro 6.0相同。2.2.1硬件運行環(huán)境處理器：486處理器以上，推薦使用 pentium 或更高檔處理器的 pc 兼容機。 內(nèi)存：16mb 以上的內(nèi)存，推薦使用 24mb 以上的內(nèi)存。 硬盤：典型安裝需要 85mb 的硬盤空間，完全安裝需要 90mb

13、 的硬盤空間。2.2.2軟件運行環(huán)境操作系統(tǒng)：windows 95/98（中文版），或 windows nt4.0（中文版），或更高版本。不推薦使用windows vista及windows 7，不確定visual foxpro 6.0在上述兩個系統(tǒng)中的穩(wěn)定性及兼容性。操作軟件：visual foxpro 6.02.3系統(tǒng)設(shè)計過程概要學生信息管理系統(tǒng)是典型的信息管理系統(tǒng) (mis)，其開發(fā)主要包括后臺數(shù)據(jù)庫的建立和維護以及前端應(yīng)用程序的開發(fā)兩個方面。對于前者要求建立起數(shù)據(jù)一致性和完整性強、數(shù)據(jù)安全性好的庫。而對于后者則要求應(yīng)用程序功能完備，易使用等特點。本學生成績管理系統(tǒng)基本上能具體化、合理化

14、的管理學生的成績檔案，用結(jié)構(gòu)化的思維方式去了解計算機的基本工作原理和高級程序設(shè)計語言。下面簡單介紹下開發(fā)的一般過程。2.3.1求分析階段開發(fā)數(shù)據(jù)庫系統(tǒng)首先要明確用戶的各項需求，以確定系統(tǒng)實現(xiàn)的目標和軟件開發(fā)的構(gòu)思。需求分析一般包括數(shù)據(jù)分析和功能分析。數(shù)據(jù)分析的結(jié)果是歸納出系統(tǒng)應(yīng)該包括的數(shù)據(jù)，以便進行數(shù)據(jù)庫設(shè)計：功能分析的目的是為應(yīng)用程序設(shè)計提供依據(jù)。2.3.2設(shè)計階段對系統(tǒng)開發(fā)進行總體規(guī)劃，建立軟件系統(tǒng)的結(jié)構(gòu)。它包括數(shù)據(jù)庫設(shè)計和系統(tǒng)功能模塊設(shè)計。數(shù)據(jù)庫數(shù)據(jù)就是將需求進行綜合、歸納與抽象，形成一個統(tǒng)一的概念模型，并畫出其er模型圖（實體-聯(lián)系圖，表示實體之間的聯(lián)系），然后轉(zhuǎn)化為某個數(shù)據(jù)庫管理系統(tǒng)

15、所支持的數(shù)據(jù)模型，設(shè)計出需要的數(shù)據(jù)結(jié)構(gòu)。系統(tǒng)功能模塊設(shè)計就是設(shè)計每個模塊的輸入、輸出以能完成的功能。2.3.3實施階段用某個數(shù)據(jù)庫管理系統(tǒng)來具體實現(xiàn)所做的設(shè)計方案，此階段一般包含以下四部分。數(shù)據(jù)庫設(shè)計 操作管理數(shù)據(jù)庫里面的數(shù)據(jù)是系統(tǒng)的核心目標。菜單設(shè)計 用于組織應(yīng)用程序的各項功能。界面設(shè)計 用于控制數(shù)據(jù)的輸入和輸出。這些界面是用戶和數(shù)據(jù)庫系統(tǒng)之間的接口，既要方便用戶使用，還要清晰、直觀地展示數(shù)據(jù)信息，給用戶創(chuàng)造一個良好的工作環(huán)境。功能模塊設(shè)計 用于完成具體的數(shù)據(jù)處理工作，如數(shù)據(jù)的錄入、修改和編輯，信息的查詢與統(tǒng)計等，一般通過控件的事件代碼來實現(xiàn)。調(diào)試程序 當一個程序編寫完成后，應(yīng)該進行調(diào)試，找

16、出程序中的各種錯誤。2.3.4測試階段此階段的任務(wù)有以下幾項。驗證應(yīng)用程序是否在不同條件下都能得到正確的結(jié)果。檢查系統(tǒng)是否完全滿足用戶的需求，在功能上是否還有遺漏。檢驗在程序運行過程中對可能遇到的問題是否都有相應(yīng)的解決措施，確保系統(tǒng)正式投入使用進的安全性和可靠性。2.3.5運行維護階段系統(tǒng)通過測試后即可投入正式運行，并在運行過程中不斷修改、調(diào)整和完善。三、數(shù)據(jù)庫及系統(tǒng)模塊設(shè)計3.1數(shù)據(jù)庫設(shè)計3.1.1概念設(shè)計按照用戶的觀點來對數(shù)據(jù)和信息建模。從前一章需求分析中可以歸納出了4個實體，其分別為：學生、班級、系、教師。其屬性以下進行說明。為方便學生信息的查找，學生的屬性應(yīng)該設(shè)有：學號、姓名、性別。所

17、以在e-r圖中學生實體應(yīng)如圖3-1所示圖3-1實體：學生被分配到不同的班級，因此，我們把班級的屬性歸納為：班級編號、班級名稱。（如圖3-2）圖3-2如上面分析，把系的屬性設(shè)為系編號、系名稱、系主任，如圖3-3。把教師屬性設(shè)為教師編號、教師姓名、性別、所屬系，如圖3-4圖3-3圖3-4課程的屬性e-r圖如圖（6）所示圖3-5綜合上述內(nèi)容，本系統(tǒng)的整體設(shè)計思路如圖3-6圖3-63.1.2關(guān)系設(shè)計圖3-7圖3-7向我們解釋該系統(tǒng)各個要素之間的關(guān)系3.2模塊設(shè)計3.2.1主界面設(shè)計在桌面雙擊成績管理系統(tǒng).exe，系統(tǒng)自動進入主界面，顯示“歡迎使用學生成績管理系統(tǒng)”下方兩個按鍵分別為“登錄”“退出”，單

18、擊登錄，系統(tǒng)自動進入登錄頁面，單擊退出系統(tǒng)自動關(guān)閉。command1 登錄 clickthisform .releasedo form e:froms登錄界面.scxcommand2 退出 clickthisform.releaseclear event3.2.1登錄頁面設(shè)計輸入用戶名和密碼時，系統(tǒng)自動打開學生成績管理數(shù)據(jù)庫，然后使用用戶表，定位到用戶表中的第一個記錄，判斷是否為合法用戶，然后瀏覽用戶表中的所有記錄，判斷輸入的用戶名稱和用戶密碼是否存在。如果存在則進入主程序頁面頁面，否則輸出對話框，提示用戶名或密碼不正確。代碼見附錄。3.2.2菜單模塊設(shè)計菜單以分類分級別的形式來例舉應(yīng)用程序的

19、主要功能，方便用戶的使用。根據(jù)學生成績管理系統(tǒng)要實現(xiàn)的功能，應(yīng)包含以下菜單。（1）查詢：通過該菜單的子菜單來瀏覽數(shù)據(jù)庫中各種信息，但是不能修改。（2）維護：通過該菜單的子菜單來添加、修改或者刪除數(shù)據(jù)庫中的信息。（3）統(tǒng)計：提供統(tǒng)計個人成績、統(tǒng)計某門課程的成績的功能。（4）打印：提供打印課程成績的功能。向項目中添加一個菜單，名稱為mainmenu。為各個子菜單設(shè)計命令?！皞€人信息” 子菜單項執(zhí)行命令為：do form forms個人信息.scx “教師信息” 子菜單項執(zhí)行命令為：do form forms教師信息.scx“課程信息”子菜單項執(zhí)行命令為：do form forms課程信息.scx“

20、學生成績” 子菜單項執(zhí)行命令為：do form forms學生成績.scx3.2.3查詢模塊設(shè)計在項目中新建一個表單，首先設(shè)置表單的數(shù)據(jù)環(huán)境，在form1窗口中單擊鼠標右鍵，執(zhí)行“數(shù)據(jù)環(huán)境”命令，添加表“學生”。向表單設(shè)計區(qū)域添加的控件屬性設(shè)置如下表?？丶Q屬性屬性值txt性別controlsource“學生.性別”height20left108maxlength2readonly.t.top84width84nam e“txt性別”txt班級編號controlsource“學生.班級編號”height20inputmask“#”left108maxlength4readonly.t.top

21、132width120nam e“txt班級編號”cmd第一條top228left12height25width36caption“/”name“cmd第一條”cmd上一條top228left48height25width36caption“”name“cmd上一條”控件名稱屬性屬性值txt性別controlsource“學生.性別”height20left108maxlength2readonly.t.top84width84nam e“txt性別”txt班級編號controlsource“學生.班級編號”height20inputmask“#”left108maxlength4readon

22、ly.t.top132width120nam e“txt班級編號”cmd第一條top228left12height25width 36caption“/”name“cmd第一條”cmd上一條top228left48height25width 36caption“”name“cmd下一條”cmd最后top228left120height25width 36caption“/”name“cmd最后”具體各模塊設(shè)計代碼參見附錄四、程序連編把系統(tǒng)程序的各個分散部分連接成一個可執(zhí)行文件或者可執(zhí)行的應(yīng)用程序的過程。操作：在項目管理器對話框的代碼選項卡中，選擇程序中的主程序:mainpro.mpg.單擊連編

23、按鈕，彈出連編選項對話框。圖4-1圖4-2選擇如上圖選項，單擊確定按鈕。就開始相應(yīng)的程序連編。連編完成后程序就可以運行了。五、心得體會這兩個星期的課程設(shè)計，可以說得是苦多于甜，但學到了很多很多的東西，同時不僅鞏固了以前所學過的知識。我們認為要學好數(shù)據(jù)庫管理系統(tǒng)這門課程，不僅要認真閱讀課本知識，更重要的是要通過上機實踐增強和鞏固visual foxpro 6.0知識。在兩個星期的課程設(shè)計。我們對visual foxpro 6.0有了更進一步的認識和了解，要想學好它要重在實踐，要通過不斷的上機操作才能更好地學習它，通過實踐，我們也發(fā)現(xiàn)了好多不足之處，首先是，對sql語句不夠熟悉，通過學習也有所改進

24、；再有對visual foxpro 6.0的一些具體操作流程不太了解，還有對常用函數(shù)調(diào)用的正確使用不夠熟悉，還有對sql語句中經(jīng)常出現(xiàn)的錯誤也不了解，通過實踐，使我在這幾個方面的認識有所提高。通過本次課程設(shè)計，我認到學好計算機要重視實踐操作，不僅僅是數(shù)據(jù)庫管理系統(tǒng)，還是其它的計算機知識都要重在實踐，所以后在學習過程中，我會更加注視實踐操作，讓自己更好的學習計算機。致謝首先要感謝指導(dǎo)老師卞珊珊老師，本次課程設(shè)計從選題開始最后到完成可以說是離不開她的悉心指導(dǎo)，耐心教誨，而且她不僅給我作指導(dǎo)，還忙于其他同學的課程設(shè)計，工作很忙、很辛苦，但是絲毫沒有影響到她的專業(yè)素養(yǎng)，卞老師的淵博知識和嚴謹務(wù)實的工作

25、精神也使我受益非淺，所以非常敬佩和感謝老師。其次要感謝的是班上的同學們，他不僅給了我們無私的幫助，并且他不拘一格的思路給予了我無盡的啟迪。最后要感謝我們團隊的全體成員，是我們兩周以來的不懈努力最后才形成的這套系統(tǒng)和這套論文，這個過程中我們學到的東西將使我們終生受益。參考文獻教育部考試中心.全國計算機等級考試visual foxpro數(shù)據(jù)庫程序設(shè)計m.高等教育出版社，2010附錄主程序do form 主界面read events登錄界面登錄：sele 用戶locate for allt(thisform.text1.value)=allt(用戶名) if found()if allt(thisf

26、orm.text2.value)=allt(密碼)messagebox(登陸成功！,0+64,恭喜)do e:fromsmainmenu.mprthisform.releaseelsemessagebox(密碼錯誤！請檢查后重新輸入！,0+64,錯誤)thisform.text2.value=thisform.text2.setfocusendifelsemessagebox(該用戶不存在，請檢查您的用戶名！,0+64,錯誤)endif退出按鈕quit確定按鈕if select(學生)=0messagebox(數(shù)據(jù)表學生不存在，請檢查后再試！,0+16,警告)elseselect 學生loca

27、te for allt(thisform.combo1.value)=allt(學號)if found()mm=recno() thisform.txt姓名.value=姓名thisform.txt性別.value=性別thisform.txt班級編號.value=班級編號endifendifskipif eof()thisform.cmd下一條.enabled=.f.thisform.cmd上一條.enabled=.t.elseskip -1 if bof() thisform.cmd上一條.enabled=.f.thisform.cmd下一條.enabled=.t.elsethisform

28、.cmd下一條.enabled=.t.thisform.cmd上一條.enabled=.t.endifendif第一條按鈕go top thisform.txt姓名.value=姓名thisform.txt性別.value=性別thisform.txt班級編號.value=班級編號thisform.combo1.value=學號mm=recno()thisform.cmd上一條.enabled=.f.thisform.cmd下一條.enabled =.t. 上一條按鈕if !bof()skip -1thisform.txt姓名.value=姓名thisform.txt性別.value=性別th

29、isform.txt班級編號.value=班級編號thisform.combo1.value=學號mm=recno()elsethisform.cmd上一條.enabled=.f.endifif eof()thisform.cmd下一條.enabled=.f.else thisform.cmd下一條.enabled=.t.endif下一條按鈕if !eof()skip thisform.txt姓名.value=姓名thisform.txt性別.value=性別thisform.txt班級編號.value=班級編號thisform.combo1.value=學號mm=recno()elsethi

30、sform.cmd下一條.enabled=.f.endifif bof()thisform.cmd上一條.enabled=.f.else thisform.cmd上一條.enabled=.t.endif最后一條按鈕go bottomthisform.txt姓名.value=姓名thisform.txt性別.value=性別thisform.txt班級編號.value=班級編號thisform.combo1.value=學號mm=recno()thisform.cmd下一條.enabled=.f.thisform.cmd上一條.enabled=.t.退出按鈕thisform.release確定按

31、鈕if select(學生)=0messagebox(數(shù)據(jù)表學生不存在，請檢查后再試！,0+16,警告)elseselect 學生locate for allt(thisform.combo1.value)=allt(學號)if found()mm=recno() thisform.txt姓名.value=姓名thisform.txt性別.value=性別thisform.txt班級編號.value=班級編號endifendifskipif eof()thisform.cmd下一條.enabled=.f.thisform.cmd上一條.enabled=.t.elseskip -2 if bof

32、() thisform.cmd上一條.enabled=.f.thisform.cmd下一條.enabled=.t.elsethisform.cmd下一條.enabled=.t.thisform.cmd上一條.enabled=.t.endifendif第一條按鈕go top thisform.txt姓名.value=姓名thisform.txt性別.value=性別thisform.txt班級編號.value=班級編號thisform.combo1.value=學號mm=recno()thisform.cmd上一條.enabled=.f.thisform.cmd下一條.enabled =.t.

33、上一條按鈕if !bof()skip -1thisform.txt姓名.value=姓名thisform.txt性別.value=性別thisform.txt班級編號.value=班級編號thisform.combo1.value=學號mm=recno()elsethisform.cmd上一條.enabled=.f.endifif eof()thisform.cmd下一條.enabled=.f.else thisform.cmd下一條.enabled=.t.endif下一條按鈕if !bof()skip -1thisform.txt姓名.value=姓名thisform.txt性別.value

34、=性別thisform.txt班級編號.value=班級編號thisform.combo1.value=學號mm=recno()elsethisform.cmd上一條.enabled=.f.endifif eof()thisform.cmd下一條.enabled=.f.else thisform.cmd下一條.enabled=.t.endif最后一條按鈕go bottomthisform.txt姓名.value=姓名thisform.txt性別.value=性別thisform.txt班級編號.value=班級編號thisform.combo1.value=學號mm=recno()thisfo

35、rm.cmd下一條.enabled=.f.thisform.cmd上一條.enabled=.t.退出按鈕thisform.release確定按鈕if select(教師)=0messagebox(數(shù)據(jù)表教師不存在，請檢查后再試！,0+16,警告)elseselect 教師locate for allt(thisform.combo1.value)=allt(教師編號)if found()mm=recno() thisform.txt教師姓名.value=教師姓名thisform.txt性別.value=性別thisform.txt所屬系.value=所屬系endifendifskipif eo

36、f()thisform.cmd下一條.enabled=.f.thisform.cmd上一條.enabled=.t.elseskip -2 if bof() thisform.cmd上一條.enabled=.f.thisform.cmd下一條.enabled=.t.elsethisform.cmd下一條.enabled=.t.thisform.cmd上一條.enabled=.t.endifendif第一條按鈕if select(教師)=0messagebox(數(shù)據(jù)表教師不存在，請檢查后再試！,0+16,警告)elseselect 教師locate for allt(thisform.combo1

37、.value)=allt(教師編號)if found()mm=recno() thisform.txt教師姓名.value=教師姓名thisform.txt性別.value=性別thisform.txt所屬系.value=所屬系endifendifskipif eof()thisform.cmd下一條.enabled=.f.thisform.cmd上一條.enabled=.t.elseskip -2 if bof() thisform.cmd上一條.enabled=.f.thisform.cmd下一條.enabled=.t.elsethisform.cmd下一條.enabled=.t.this

38、form.cmd上一條.enabled=.t.endifendif上一條按鈕if !bof()skip -1thisform.txt教師姓名.value=教師姓名thisform.txt性別.value=性別thisform.txt所屬系.value=所屬系thisform.combo1.value=教師編號mm=recno()elsethisform.cmd上一條.enabled=.f.endifif eof()thisform.cmd下一條.enabled=.f.else thisform.cmd下一條.enabled=.t.endif下一條按鈕if !eof()skip thisform

39、.txt教師姓名.value=教師姓名thisform.txt性別.value=性別thisform.txt所屬系.value=所屬系thisform.combo1.value=教師編號mm=recno()elsethisform.cmd下一條.enabled=.f.endifif bof()thisform.cmd上一條.enabled=.f.else thisform.cmd上一條.enabled=.t.end if最后一條按鈕go bottomthisform.txt教師姓名.value=教師姓名thisform.txt性別.value=性別thisform.txt所屬系.value=所

40、屬系thisform.combo1.value=教師編號mm=recno()thisform.cmd下一條.enabled=.f.thisform.cmd上一條.enabled=.t.退出按鈕thisform.release確定按鈕if select(課程)=0messagebox(數(shù)據(jù)表課程不存在，請檢查后再試！,0+16,警告)elseselect 課程locate for allt(thisform.combo1.value)=allt(課程名稱)if found()mm=recno()thisform.txt課程編號.value=課程編號thisform.txt授課教師.value=授

41、課教師thisform.txt學分.value=學分endifendifskipif eof()thisform.cmd下一條.enabled=.f.thisform.cmd上一條.enabled=.t.elseskip -2 if bof() thisform.cmd上一條.enabled=.f.thisform.cmd下一條.enabled=.t.elsethisform.cmd下一條.enabled=.t.thisform.cmd上一條.enabled=.t.endifendif第一條按鈕go top thisform.txt課程編號.value=課程編號thisform.txt授課教師

42、.value=授課教師thisform.txt學分.value=學分thisform.combo1.value=課程名稱mm=recno()thisform.cmd上一條.enabled=.f.thisform.cmd下一條.enabled =.t.上一條按鈕if !bof()skip -1thisform.txt課程編號.value=課程編號thisform.txt授課教師.value=授課教師thisform.txt學分.value=學分thisform.combo1.value=課程名稱mm=recno()elsethisform.cmd上一條.enabled=.f.endifif eo

43、f()thisform.cmd下一條.enabled=.f.else thisform.cmd下一條.enabled=.t.endif下一條按鈕if !eof()skip thisform.txt課程編號.value=課程編號thisform.txt授課教師.value=授課教師thisform.txt學分.value=學分thisform.combo1.value=課程名稱mm=recno()elsethisform.cmd下一條.enabled=.f.endifif bof()thisform.cmd上一條.enabled=.f.else thisform.cmd上一條.enabled=.t.endif最后一條按鈕go bottomthisform.txt課程編號.value=課程編號thisform.txt授課教師.value=授課教師thisform.txt學分.value=學分thisform.combo1.value=課程名稱mm=recno()thisform.cmd下一條.enabled=.f.thisform.cmd上一條.enabled=