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

2、開(kāi)發(fā)工具，在對(duì)本校學(xué)生成績(jī)管理方法進(jìn)行充分分析和系統(tǒng)論證的基礎(chǔ)上開(kāi)發(fā)研制的，它不但能夠滿(mǎn)足學(xué)生成績(jī)管理的基本要求，如“學(xué)生和教師的添加和刪除、條件查詢(xún)、基本項(xiàng)目統(tǒng)計(jì)和打印輸出報(bào)表”等功能，而且具有程序設(shè)計(jì)合理、操作簡(jiǎn)單、運(yùn)行可靠和保密性強(qiáng)等特點(diǎn)。關(guān)鍵詞 學(xué)生成績(jī) 數(shù)據(jù)庫(kù) Microsoft Visual FoxPro 6.0Student achievement management systemAbstractStudent achievement management system is developed for the management of student achievement

3、 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 improve the level

4、 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 introduction to th

5、e 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 student achievemen

6、t 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, simple to operate, rel

7、iable operation and confidentiality features.Keywords student achievement, database, Microsoft Visual FoxPro 6.0目 錄摘 要IAbstractII一、概述11.1開(kāi)發(fā)背景11.2開(kāi)發(fā)平臺(tái)1二、功能需求分析及概要設(shè)計(jì)22.1需求分析22.1.1數(shù)據(jù)需求22.1.2功能需求22.2運(yùn)行環(huán)境分析32.2.1硬件運(yùn)行環(huán)境32.2.2軟件運(yùn)行環(huán)境32.3系統(tǒng)設(shè)計(jì)過(guò)程概要32.3.1求分析階段32.3.2設(shè)計(jì)階段42.3.3實(shí)施階段42.3.4測(cè)試階段42.3.5運(yùn)行維護(hù)階段4三、數(shù)據(jù)庫(kù)及系統(tǒng)模

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

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

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

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

12、據(jù)包括：學(xué)生信息、班級(jí)信息、院系信息、課程、教師、成績(jī)等。查詢(xún)能查詢(xún)學(xué)生基本信息、學(xué)生成績(jī)。可以計(jì)算學(xué)生數(shù)據(jù)、統(tǒng)計(jì)學(xué)生中，及格的人數(shù)、不及格人數(shù)、平均成績(jī)。打印 打印需要的學(xué)生的成績(jī)表。2.2運(yùn)行環(huán)境分析本系統(tǒng)是采用Visual FoxPro 6.0進(jìn)行開(kāi)發(fā)，故本系統(tǒng)的軟硬件運(yùn)行環(huán)境與Visual FoxPro 6.0相同。2.2.1硬件運(yùn)行環(huán)境處理器：486處理器以上，推薦使用 Pentium 或更高檔處理器的 PC 兼容機(jī)。 內(nèi)存：16MB 以上的內(nèi)存，推薦使用 24MB 以上的內(nèi)存。 硬盤(pán)：典型安裝需要 85MB 的硬盤(pán)空間，完全安裝需要 90MB 的硬盤(pán)空間。2.2.2軟件運(yùn)行環(huán)境操作

13、系統(tǒng)：Windows 95/98（中文版），或 Windows NT4.0（中文版），或更高版本。不推薦使用Windows Vista及Windows 7，不確定Visual FoxPro 6.0在上述兩個(gè)系統(tǒng)中的穩(wěn)定性及兼容性。操作軟件：Visual FoxPro 6.02.3系統(tǒng)設(shè)計(jì)過(guò)程概要學(xué)生信息管理系統(tǒng)是典型的信息管理系統(tǒng) (MIS)，其開(kāi)發(fā)主要包括后臺(tái)數(shù)據(jù)庫(kù)的建立和維護(hù)以及前端應(yīng)用程序的開(kāi)發(fā)兩個(gè)方面。對(duì)于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫(kù)。而對(duì)于后者則要求應(yīng)用程序功能完備，易使用等特點(diǎn)。本學(xué)生成績(jī)管理系統(tǒng)基本上能具體化、合理化的管理學(xué)生的成績(jī)檔案，用結(jié)構(gòu)化的思維方式

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

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

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

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

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

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

20、orm forms學(xué)生成績(jī).scx3.2.3查詢(xún)模塊設(shè)計(jì)在項(xiàng)目中新建一個(gè)表單，首先設(shè)置表單的數(shù)據(jù)環(huán)境，在FORM1窗口中單擊鼠標(biāo)右鍵，執(zhí)行“數(shù)據(jù)環(huán)境”命令，添加表“學(xué)生”。向表單設(shè)計(jì)區(qū)域添加的控件屬性設(shè)置如下表?？丶Q(chēng)屬性屬性值Txt性別controlsource“學(xué)生.性別”height20Left108maxlength2readonly.T.Top84width84nam e“Txt性別”Txt班級(jí)編號(hào)controlsource“學(xué)生.班級(jí)編號(hào)”height20Inputmask“#”Left108maxlength4readonly.T.Top132width120nam e“Txt

21、班級(jí)編號(hào)”Cmd第一條Top228Left12height25width36caption“/”name“Cmd第一條”Cmd上一條Top228Left48height25width36caption“”name“Cmd上一條”控件名稱(chēng)屬性屬性值Txt性別controlsource“學(xué)生.性別”height20Left108maxlength2readonly.T.Top84width84nam e“Txt性別”Txt班級(jí)編號(hào)controlsource“學(xué)生.班級(jí)編號(hào)”height20Inputmask“#”Left108maxlength4readonly.T.Top132width120n

22、am e“Txt班級(jí)編號(hào)”Cmd第一條Top228Left12height25width 36caption“/”name“Cmd第一條”Cmd上一條Top228Left48height25width 36caption“”name“Cmd下一條”Cmd最后Top228Left120height25width 36caption“/”name“Cmd最后”具體各模塊設(shè)計(jì)代碼參見(jiàn)附錄四、程序連編把系統(tǒng)程序的各個(gè)分散部分連接成一個(gè)可執(zhí)行文件或者可執(zhí)行的應(yīng)用程序的過(guò)程。操作：在項(xiàng)目管理器對(duì)話(huà)框的代碼選項(xiàng)卡中，選擇程序中的主程序:mainpro.mpg.單擊連編按鈕，彈出連編選項(xiàng)對(duì)話(huà)框。圖4-1圖4-

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

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

25、師。其次要感謝的是班上的同學(xué)們，他不僅給了我們無(wú)私的幫助，并且他不拘一格的思路給予了我無(wú)盡的啟迪。最后要感謝我們團(tuán)隊(duì)的全體成員，是我們兩周以來(lái)的不懈努力最后才形成的這套系統(tǒng)和這套論文，這個(gè)過(guò)程中我們學(xué)到的東西將使我們終生受益。參考文獻(xiàn)教育部考試中心.全國(guó)計(jì)算機(jī)等級(jí)考試Visual FoxPro數(shù)據(jù)庫(kù)程序設(shè)計(jì)M.高等教育出版社，2010附錄主程序do form 主界面read events登錄界面登錄：sele 用戶(hù)locate for allt(thisform.Text1.value)=allt(用戶(hù)名) if found()if allt(thisform.Text2.value)=all

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

27、.Combo1.value)=allt(學(xué)號(hào))if found()mm=recno() thisform.Txt姓名.value=姓名thisform.Txt性別.value=性別thisform.Txt班級(jí)編號(hào).value=班級(jí)編號(hào)endifendifskipif eof()thisform.Cmd下一條.enabled=.F.thisform.Cmd上一條.enabled=.T.elseskip -1 if bof() thisform.Cmd上一條.enabled=.F.thisform.Cmd下一條.enabled=.T.elsethisform.Cmd下一條.enabled=.T.t

28、hisform.Cmd上一條.enabled=.T.endifendif第一條按鈕GO TOP thisform.Txt姓名.value=姓名thisform.Txt性別.value=性別thisform.Txt班級(jí)編號(hào).value=班級(jí)編號(hào)thisform.Combo1.value=學(xué)號(hào)mm=recno()thisform.Cmd上一條.enabled=.F.thisform.Cmd下一條.enabled =.T. 上一條按鈕if !bof()skip -1thisform.Txt姓名.value=姓名thisform.Txt性別.value=性別thisform.Txt班級(jí)編號(hào).value

29、=班級(jí)編號(hào)thisform.Combo1.value=學(xué)號(hào)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班級(jí)編號(hào).value=班級(jí)編號(hào)thisform.Combo1.value=學(xué)號(hào)mm=recno()elsethisform.Cmd下一條.enabled

30、=.F.endifif bof()thisform.Cmd上一條.enabled=.F.else thisform.Cmd上一條.enabled=.T.endif最后一條按鈕go bottomthisform.Txt姓名.value=姓名thisform.Txt性別.value=性別thisform.Txt班級(jí)編號(hào).value=班級(jí)編號(hào)thisform.Combo1.value=學(xué)號(hào)mm=recno()thisform.Cmd下一條.enabled=.F.thisform.Cmd上一條.enabled=.T.退出按鈕thisform.release確定按鈕if select(學(xué)生)=0mess

31、agebox(數(shù)據(jù)表學(xué)生不存在，請(qǐng)檢查后再試！,0+16,警告)elseselect 學(xué)生locate for allt(thisform.Combo1.value)=allt(學(xué)號(hào))if found()mm=recno() thisform.Txt姓名.value=姓名thisform.Txt性別.value=性別thisform.Txt班級(jí)編號(hào).value=班級(jí)編號(hào)endifendifskipif eof()thisform.Cmd下一條.enabled=.F.thisform.Cmd上一條.enabled=.T.elseskip -2 if bof() thisform.Cmd上一條.e

32、nabled=.F.thisform.Cmd下一條.enabled=.T.elsethisform.Cmd下一條.enabled=.T.thisform.Cmd上一條.enabled=.T.endifendif第一條按鈕GO TOP thisform.Txt姓名.value=姓名thisform.Txt性別.value=性別thisform.Txt班級(jí)編號(hào).value=班級(jí)編號(hào)thisform.Combo1.value=學(xué)號(hào)mm=recno()thisform.Cmd上一條.enabled=.F.thisform.Cmd下一條.enabled =.T. 上一條按鈕if !bof()skip -

33、1thisform.Txt姓名.value=姓名thisform.Txt性別.value=性別thisform.Txt班級(jí)編號(hào).value=班級(jí)編號(hào)thisform.Combo1.value=學(xué)號(hào)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=性別thisform.Txt班級(jí)編號(hào).

34、value=班級(jí)編號(hào)thisform.Combo1.value=學(xué)號(hào)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班級(jí)編號(hào).value=班級(jí)編號(hào)thisform.Combo1.value=學(xué)號(hào)mm=recno()thisform.Cmd下一條.enabled=.F

35、.thisform.Cmd上一條.enabled=.T.退出按鈕thisform.release確定按鈕if select(教師)=0messagebox(數(shù)據(jù)表教師不存在，請(qǐng)檢查后再試！,0+16,警告)elseselect 教師locate for allt(thisform.Combo1.value)=allt(教師編號(hào))if found()Mm=recno() thisform.Txt教師姓名.value=教師姓名thisform.Txt性別.value=性別thisform.Txt所屬系.value=所屬系endifendifskipif eof()thisform.Cmd下一條.e

36、nabled=.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ù)表教師不存在，請(qǐng)檢查后再試！,0+16,警告)elseselect 教師locate for allt(thisform.Combo1.value)=allt(教師編號(hào))if

37、 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.thisform.Cmd上一條.enabled=

38、.T.endifendif上一條按鈕if !bof()skip -1thisform.Txt教師姓名.value=教師姓名thisform.Txt性別.value=性別thisform.Txt所屬系.value=所屬系thisform.Combo1.value=教師編號(hào)mm=recno()elsethisform.Cmd上一條.enabled=.F.endifif eof()thisform.Cmd下一條.enabled=.F.else thisform.Cmd下一條.enabled=.T.endif下一條按鈕if !eof()skip thisform.Txt教師姓名.value=教師姓名t

39、hisform.Txt性別.value=性別thisform.Txt所屬系.value=所屬系thisform.Combo1.value=教師編號(hào)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=所屬系thisform.Combo1.va

40、lue=教師編號(hào)mm=recno()thisform.Cmd下一條.enabled=.F.thisform.Cmd上一條.enabled=.T.退出按鈕thisform.release確定按鈕if select(課程)=0messagebox(數(shù)據(jù)表課程不存在，請(qǐng)檢查后再試！,0+16,警告)elseselect 課程locate for allt(thisform.Combo1.value)=allt(課程名稱(chēng))if found()mm=recno()thisform.Txt課程編號(hào).value=課程編號(hào)thisform.Txt授課教師.value=授課教師thisform.Txt學(xué)分.va

41、lue=學(xué)分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課程編號(hào).value=課程編號(hào)thisform.Txt授課教師.value=授課教師thisform.

42、Txt學(xué)分.value=學(xué)分thisform.Combo1.value=課程名稱(chēng)mm=recno()thisform.Cmd上一條.enabled=.F.thisform.Cmd下一條.enabled =.T.上一條按鈕if !bof()skip -1thisform.Txt課程編號(hào).value=課程編號(hào)thisform.Txt授課教師.value=授課教師thisform.Txt學(xué)分.value=學(xué)分thisform.Combo1.value=課程名稱(chēng)mm=recno()elsethisform.Cmd上一條.enabled=.F.endifif eof()thisform.Cmd下一條.e

43、nabled=.F.else thisform.Cmd下一條.enabled=.T.endif下一條按鈕if !eof()skip thisform.Txt課程編號(hào).value=課程編號(hào)thisform.Txt授課教師.value=授課教師thisform.Txt學(xué)分.value=學(xué)分thisform.Combo1.value=課程名稱(chēng)mm=recno()elsethisform.Cmd下一條.enabled=.F.endifif bof()thisform.Cmd上一條.enabled=.F.else thisform.Cmd上一條.enabled=.T.endif最后一條按鈕go bottomthisform.Txt課程編號(hào).value=課程編號(hào)thisform.Txt授課教師.value=授課教師thisform.Txt學(xué)分.value=學(xué)分thisform.Combo1.value=課程名稱(chēng)mm=recno()thisform.Cmd下一條.enabled=.F.thisform.Cmd上一條.enabled=.T