畢業(yè)設(shè)計(jì)（論文）VB學(xué)生評(píng)語(yǔ)管理系統(tǒng)的設(shè)計(jì)與實(shí)踐

1、杭州師范學(xué)院本科畢業(yè)論文 學(xué)生評(píng)語(yǔ)管理系統(tǒng)的設(shè)計(jì)與實(shí)踐學(xué)生評(píng)語(yǔ)管理系統(tǒng)的設(shè)計(jì)與實(shí)踐design and practice of the students personal remark system 計(jì)算機(jī)科學(xué)與技術(shù)011班 xxx 指導(dǎo)老師 xxx副教授摘要：隨著計(jì)算機(jī)及網(wǎng)絡(luò)技術(shù)的飛速發(fā)展，在學(xué)校的管理中，運(yùn)用計(jì)算機(jī)來(lái)處理事情已經(jīng)越來(lái)越普遍。這樣不僅能節(jié)省勞動(dòng)力和減少勞動(dòng)成本，還較傳統(tǒng)模式安全性增強(qiáng)。所以各類軟件也越來(lái)越受到學(xué)校老師的歡迎。本文首先介紹了管理信息系統(tǒng)的歷史、發(fā)展、及未來(lái)發(fā)展趨勢(shì)。然后介紹了activex 數(shù)據(jù)對(duì)象ado的功能特點(diǎn)，及編程模型和對(duì)象模型。在此基礎(chǔ)上本文比較詳細(xì)的

2、介紹學(xué)生評(píng)語(yǔ)管理系統(tǒng)的設(shè)計(jì)和制作。包括系統(tǒng)的功能設(shè)計(jì)和系統(tǒng)模塊的設(shè)計(jì)，數(shù)據(jù)庫(kù)設(shè)計(jì)等。關(guān)鍵詞：管理信息系統(tǒng); ado; 評(píng)語(yǔ)管理系統(tǒng)abstract: alone with the computer and internet technology developing quickly, it is more popular to do with some things by computer in the school management.in this way,we can sawe the labour force and reduse labour costs，but also it i

3、s much safer than the old way. so various softs is popular by more and more theachers. this text recommend management information systems history, development,and its future at first. secondly introduced then management of active data objects(ado), its programming model and its object model. on the

4、basis of this, this text give publish one a piece of students personal remark system design and makeses. it included the systems design of function , systems design of module and systems design of date base and so on.keywords: management information system; ado; students personal remark system 第一章 引

5、言 學(xué)生的操行評(píng)語(yǔ)是學(xué)生一個(gè)學(xué)期以來(lái)各方面表現(xiàn)的總結(jié),對(duì)學(xué)生總結(jié)過(guò)去，確定今后的努力方向起著很重要的作用。因此一個(gè)個(gè)性化、智能化的學(xué)生評(píng)語(yǔ)編輯軟件是很必要的。它不但可以減輕辦主任的工作負(fù)擔(dān)，迅速的寫出評(píng)語(yǔ)，還可以方便的管理學(xué)生歷年的評(píng)語(yǔ)，能對(duì)學(xué)生的發(fā)展方向了解得比較透徹。用評(píng)語(yǔ)系統(tǒng)與以前傳統(tǒng)的紙筆寫評(píng)語(yǔ)相比，有多方面的優(yōu)勢(shì)。首先，用計(jì)算機(jī)不但可以提高工作效率，而且還節(jié)省了許多人力物力；其二，提高了信息的安全性，避免了因文件的丟失而導(dǎo)致信息無(wú)法查詢。第三，在各大中小學(xué)校，可以說(shuō)計(jì)算機(jī)的擁有率在不斷提高，用此系統(tǒng)提高了學(xué)校的硬件資源利用率。目前，計(jì)算機(jī)在生活中是無(wú)處不在，用計(jì)算機(jī)來(lái)處理學(xué)生的評(píng)語(yǔ)是

6、可以預(yù)見(jiàn)的。本文意在說(shuō)明用microsoft visual basic6.0開(kāi)發(fā)技術(shù)如何進(jìn)行對(duì)學(xué)生評(píng)語(yǔ)系統(tǒng)的開(kāi)發(fā)。第二章 vb語(yǔ)言概述 2.1 vb簡(jiǎn)介 vb是微軟公司出品的一個(gè)快速可視化程序開(kāi)發(fā)工具軟件，借助微軟在操作系統(tǒng)和辦公軟件的壟斷地位，vb在短短的幾年內(nèi)風(fēng)靡全球。vb是極有和功能強(qiáng)大的軟件，主要表現(xiàn)在：所見(jiàn)即所得的界面設(shè)計(jì)，基于對(duì)象的設(shè)計(jì)方法，極短的軟件開(kāi)發(fā)周期，較易維護(hù)的生成代碼。 美國(guó)微軟公司在1991年推出vb1.0至今已經(jīng)經(jīng)歷了6個(gè)版本，vb6.0運(yùn)行在win9x或winme，win2000，winxp，windowsnt等操作系統(tǒng)下，是一個(gè)32位的應(yīng)用程序開(kāi)發(fā)工具。2.2

7、vb語(yǔ)言的基本特點(diǎn)及vb應(yīng)用程序的基本持點(diǎn) vb程序語(yǔ)言具有許多優(yōu)秀的特性,用其設(shè)計(jì)應(yīng)用程序時(shí)有兩個(gè)基本特點(diǎn):可視化設(shè)計(jì)和事件驅(qū)動(dòng)編程.221可視化設(shè)計(jì) 同其他的一些可視化程序開(kāi)發(fā)工具一樣,vb具有可視化設(shè)計(jì)的特點(diǎn),微軟的word在剛剛進(jìn)入市場(chǎng)時(shí),同wps競(jìng)爭(zhēng)的一個(gè)重要的功能砝碼就是"所見(jiàn)即所得"的字處理功能,vb在設(shè)計(jì)應(yīng)用程序界面時(shí)也可以說(shuō)是"所見(jiàn)即所得".在設(shè)計(jì)時(shí),頭腦中所想象的應(yīng)用程序界面,完全可以通過(guò)鍵盤鼠標(biāo)以及徒手畫出來(lái),而不是編制大量的代碼然后再編譯生成,如果需要修改,也是利用鍵盤鼠標(biāo)和手畫,而底層的一些程序代碼由vb自動(dòng)生成或修改。 vb為

8、用戶提供大量的界面元素(在vb中稱為控件對(duì)象),這些控件對(duì)象對(duì)于熟悉windows應(yīng)用程序的用戶而言是一點(diǎn)也不陌生,如"窗體"、"菜單"、"命令按鈕"、"工具按鈕"、"檢查框"等等,用戶只需要利用鼠標(biāo)、鍵盤把這些控件對(duì)象拖動(dòng)到適當(dāng)?shù)奈恢?設(shè)置它們的大小、形狀、屬性等,就可以設(shè)計(jì)出所需的應(yīng)用程序界面。222事件驅(qū)動(dòng)編程 windows操作系統(tǒng)出現(xiàn)以來(lái),圖形化的用戶界面和多任務(wù)多進(jìn)程的應(yīng)用程序要求程序設(shè)計(jì)不能是單一性的,在使用vb設(shè)計(jì)應(yīng)用程序時(shí),必須首先確定應(yīng)用程序如何同用戶進(jìn)行交互.例如發(fā)生鼠標(biāo)單

9、擊、鍵盤輸入等事件時(shí),由用戶編寫的代碼控制這些事件的響應(yīng),這就是所謂的事件驅(qū)動(dòng)編程。 前面已經(jīng)談到,在vb中把窗體以及"菜單"、"按鈕"等控件稱為對(duì)象,如果設(shè)計(jì)出了應(yīng)用程序,那么與應(yīng)用程序的用戶直接進(jìn)行交互的就是這些對(duì)象組成的圖形界面,也稱為用戶接口或用戶界面,在設(shè)計(jì)應(yīng)用程序時(shí)就必須考慮到用戶如何與程序進(jìn)行交戶.更進(jìn)一步,甚至程序和程序之間也會(huì)有通訊和交戶,基本上用戶是通過(guò)鼠標(biāo)、鍵盤與應(yīng)用程序進(jìn)行交互的,這時(shí)那些對(duì)象就必須對(duì)鼠標(biāo)和鍵盤操作所引發(fā)的事件做出響應(yīng).響應(yīng)就是指執(zhí)行一段應(yīng)用程序,它不沿預(yù)定的路徑執(zhí)行,而是在響應(yīng)不同事件時(shí)執(zhí)行不同的代碼.因此,應(yīng)用

10、程序代碼的路徑在每次響應(yīng)而執(zhí)行時(shí)可能都是不形同的。 2.3 為何選擇vb作為開(kāi)發(fā)語(yǔ)言 除了vb之外,當(dāng)前能夠編制windows應(yīng)用程序的可視化編程工具還有很多,所針對(duì)的編程領(lǐng)域也各有側(cè)重,就微軟系列的可視化開(kāi)發(fā)工具而言,就有vb,visualc+,visualj+,visual foxpro等,其中visual foxpro是針對(duì)數(shù)據(jù)庫(kù)編程的開(kāi)發(fā)工具;visual c+是為專業(yè)程序設(shè)計(jì)員提供的開(kāi)發(fā)工具,變量聲明和定義嚴(yán)密,功能強(qiáng)大靈活,必須經(jīng)過(guò)相當(dāng)?shù)呐Σ拍苷莆?而vb不支持虛類、多態(tài)性和類的繼承,相對(duì)而言vb簡(jiǎn)單易學(xué),變量定義不太嚴(yán)密,對(duì)于非專業(yè)程序員而言功能足夠強(qiáng)大,同visual c+一

11、樣也支持網(wǎng)絡(luò)編程和數(shù)據(jù)庫(kù)編程。 除了微軟之外,其他公司也在為windows操作系統(tǒng)平臺(tái)制作應(yīng)用程序開(kāi)發(fā)工具,例如前borland的公司出品的delphi,c+bulider, j+bulider等,其他一些公司出品的針對(duì)數(shù)據(jù)庫(kù)編程的powerbulider, powerdesigner等,不可否認(rèn),這些產(chǎn)品相當(dāng)出色,如果能夠熟練掌握將是編程者能力的體現(xiàn),但是必須承認(rèn),對(duì)windows操作系統(tǒng)最熟悉的還是微軟,而且微軟本身windows操作系統(tǒng)的源代碼采取不公開(kāi)的策略,使得其他公司出品的產(chǎn)品在實(shí)現(xiàn)相同功能時(shí)多少都要走些彎路,用戶在使用這些產(chǎn)品設(shè)計(jì)應(yīng)用程序時(shí),程序的效率將會(huì)受到影響。 在選擇所需要

12、的應(yīng)用程序開(kāi)發(fā)工具時(shí),不但要考慮開(kāi)發(fā)工具的功能是否強(qiáng)大,還要考慮所花費(fèi)的時(shí)間和效果,單純地追求功能的強(qiáng)大,也許會(huì)事倍功半。 中央電大陳明主編的visual basic程序設(shè)計(jì)是計(jì)算機(jī)應(yīng)用專業(yè)采用的一本難得的教材,使我受益匪淺。通過(guò)這門課程的學(xué)習(xí)，我已能用vb編寫簡(jiǎn)單的程序，為了搞好這次畢業(yè)設(shè)計(jì)，我決定使用vb作為編程語(yǔ)言。 2.4、vb6.0應(yīng)用的基本開(kāi)發(fā)方法 241交互式開(kāi)發(fā) 傳統(tǒng)的應(yīng)用程序開(kāi)發(fā)過(guò)程可以分為三個(gè)明顯的步驟:編碼、編譯和測(cè)試。但是vb與傳統(tǒng)的語(yǔ)言不同,它使用交互式方法開(kāi)發(fā)應(yīng)用程序,使三個(gè)步驟之間不再有明顯的界限。 在大多數(shù)語(yǔ)言里,如果編寫代碼時(shí)發(fā)生了錯(cuò)誤,則在開(kāi)始編譯應(yīng)用程序時(shí)

13、該錯(cuò)誤就會(huì)被編譯器捕獲。此時(shí)必須查找并改正該錯(cuò)誤,然后再次進(jìn)行編譯,對(duì)每一個(gè)發(fā)現(xiàn)的錯(cuò)誤都要重復(fù)這樣的過(guò)程。vb在編程者輸入代碼時(shí)便進(jìn)行解釋,即時(shí)捕獲并突出顯示大多數(shù)語(yǔ)法或拼寫錯(cuò)誤?？雌饋?lái)就像一位專家在監(jiān)視代碼的輸入。 除即時(shí)捕獲錯(cuò)誤以外,vb也在輸入代碼時(shí)部分地編譯該代碼。當(dāng)準(zhǔn)備運(yùn)行和測(cè)試應(yīng)用程序時(shí),只需極短時(shí)間即可完成編譯。如果編譯器發(fā)現(xiàn)了錯(cuò)誤、則將錯(cuò)誤突出顯示于代碼中。這時(shí)可以更正錯(cuò)誤并繼續(xù)編譯、而不需從頭開(kāi)始。 由于vb的交互特性,因此在開(kāi)發(fā)應(yīng)用程序時(shí),系統(tǒng)頻繁地運(yùn)行著應(yīng)用程序。通過(guò)這種方式,代碼運(yùn)行的效果可以在開(kāi)發(fā)時(shí)進(jìn)行測(cè)試,而不必等到編譯完成以后。242事件驅(qū)動(dòng)應(yīng)用程序的工作方式 事

14、件是窗體或控件對(duì)象識(shí)別的動(dòng)作。在響應(yīng)事件時(shí)，事件驅(qū)動(dòng)應(yīng)用程序執(zhí)行vb代碼。vb的每一個(gè)窗體和控件對(duì)象都有一個(gè)預(yù)定義的事件集。如果其中有一個(gè)事件發(fā)生，并且在關(guān)聯(lián)的事件過(guò)程中存在代碼，則vb就會(huì)調(diào)用該代碼。 盡管vb中的對(duì)象自動(dòng)識(shí)別預(yù)定義的事件集，但要判定它們是否響應(yīng)具體事件以及如何響應(yīng)具體事件則是編程的工作了。代碼部分（即事件過(guò)程）與每個(gè)事件對(duì)應(yīng)。如果讓控件對(duì)象響應(yīng)事件，就把代碼寫入這個(gè)事件過(guò)程之中。 對(duì)象所識(shí)別的事件類型多種多樣，但多數(shù)事件類型是大多數(shù)控件所共有的。例如，大多數(shù)對(duì)象都能識(shí)別click事件，如果單擊窗體，則執(zhí)行窗體的單擊事件過(guò)程中的代碼；如果單擊命令按鈕，則執(zhí)行命令按鈕的clic

15、k事件過(guò)程中的代碼。每種情況中的實(shí)際代碼幾乎完全不一樣。 以下是事件驅(qū)動(dòng)應(yīng)用程序中的典型事件序列： ·啟動(dòng)應(yīng)用程序，裝載和顯示窗體。 ·窗體（或窗體上的控件）接收事件。事件可由用戶引發(fā)（例如鍵盤操作或數(shù)鼠標(biāo)點(diǎn)擊）、可由系統(tǒng)引發(fā)（例如定時(shí)器事件），也可由代碼間接引發(fā)（例如當(dāng)代碼裝載窗體時(shí)的load事件）。 ·如果在相應(yīng)的事件過(guò)程中存在代碼，就執(zhí)行代碼。 ·應(yīng)用程序等待下一次事件。許多事件伴隨其它事件發(fā)生。例如，在dblclick事件發(fā)生時(shí)，mousedown,mouseup和click事件也會(huì)發(fā)生。 243創(chuàng)建vb應(yīng)用程序的三個(gè)步驟創(chuàng)建應(yīng)用程序界面設(shè)置屬性

16、編寫代碼 244 vb的程序設(shè)計(jì)是面向?qū)ο蟮目梢暬绦蛟O(shè)計(jì)其方法是在窗體上放置可視化的對(duì)象然后對(duì)它們?cè)O(shè)置屬性、觸發(fā)事件和執(zhí)行方法進(jìn)行程序設(shè)計(jì)。對(duì)象放置完畢后用戶所見(jiàn)到的只是一個(gè)空殼，就像一臺(tái)沒(méi)有裝任何軟件的計(jì)算機(jī)，必須給它賦予程序，才能完成一定的功能。 vb程序貯存在模塊中，模塊分有窗體、類和標(biāo)準(zhǔn)模塊三種類型。每個(gè)模塊包含有聲明和過(guò)程。窗體模塊包含處理事件過(guò)程、通用過(guò)程及變量、常數(shù)等窗體級(jí)說(shuō)明；標(biāo)準(zhǔn)模塊應(yīng)用程序內(nèi)其他模塊訪問(wèn)的過(guò)程和聲明的容器；類模塊中包含了建立新對(duì)象的程序。 245窗體與基本輸入、輸出 在進(jìn)行vb程序設(shè)計(jì)中，設(shè)計(jì)者并不需要自己編制vb程序代碼來(lái)生成圖形界面。vb提供了大量現(xiàn)成

17、的圖形控件和其他一些控件，例如所熟悉的菜單、命令按鈕、對(duì)話框等，供給用戶“堆砌”起來(lái)構(gòu)造自己想象中的圖形界面，因此幾乎不用書(shū)寫什么程序代碼，“畫”上幾筆就可完成程序員的構(gòu)思，獲得應(yīng)用程序的圖形界面。 vb應(yīng)用程序圖形界面的設(shè)計(jì)首先要從窗體開(kāi)始，其他的一些控件基本上歸屬于窗體控件（很多是直接“畫”在窗體上的），通常應(yīng)把窗體定義成一個(gè)構(gòu)成應(yīng)用程序可見(jiàn)部分的窗口，而一個(gè)vb的應(yīng)用程序應(yīng)首先從設(shè)計(jì)窗體開(kāi)始。 vb應(yīng)用程序設(shè)計(jì)過(guò)程中重要考慮的問(wèn)題是應(yīng)用程序與用戶的交互，而窗體可以實(shí)現(xiàn)將輸出信息提供給用戶。 246常用控件：在窗體上用于輸入、輸出信息的圖形或文字符號(hào)稱為控件。為了方便用戶開(kāi)發(fā)應(yīng)用程序，vb

18、中提供了很多的控件，其中很多控件是windows本身的資源，如命令按鈕、標(biāo)簽、文本框等，也有一些是為了增強(qiáng)用戶界面，或是使用戶界面美觀實(shí)用而編制的activex控件。 了解了以上有關(guān)vb的基礎(chǔ)知識(shí)，我們現(xiàn)在就可以開(kāi)始著手運(yùn)用vb進(jìn)行程序設(shè)計(jì)了。第三章 評(píng)語(yǔ)管理系統(tǒng)的設(shè)計(jì)與開(kāi)發(fā)3.1 系統(tǒng)設(shè)計(jì) 系統(tǒng)開(kāi)發(fā)的總統(tǒng)任務(wù)是實(shí)現(xiàn)學(xué)生信息關(guān)系的系統(tǒng)化、規(guī)范化和自動(dòng)化。幫助減輕辦主任的工作負(fù)擔(dān)，迅速地寫出評(píng)語(yǔ)。本系統(tǒng)要完成的功能有：3.1.1評(píng)語(yǔ)管理部分 將評(píng)語(yǔ)項(xiàng)目分類并進(jìn)行評(píng)語(yǔ)維護(hù)。其中評(píng)語(yǔ)項(xiàng)目管理包括添加評(píng)語(yǔ)項(xiàng)目、刪除評(píng)語(yǔ)項(xiàng)目等。評(píng)語(yǔ)項(xiàng)目分類部分將所有的評(píng)語(yǔ)分為印象、工作、課堂、紀(jì)律、作業(yè)、學(xué)習(xí)態(tài)度、學(xué)習(xí)

19、方法、學(xué)習(xí)成績(jī)、特長(zhǎng)愛(ài)好、文體活動(dòng)、勞動(dòng)衛(wèi)生，建議希望等。其中每一評(píng)語(yǔ)又分為成績(jī)優(yōu)秀、成績(jī)優(yōu)良、成績(jī)較差等。評(píng)語(yǔ)維護(hù)包括在當(dāng)前項(xiàng)目中添加新評(píng)語(yǔ)、修改當(dāng)前評(píng)語(yǔ)、刪除當(dāng)前評(píng)語(yǔ)。3.1.2學(xué)生管理部分 包括學(xué)生基本信息管理及撰寫學(xué)生評(píng)語(yǔ)兩大部分。學(xué)生基本信息管理部分實(shí)現(xiàn)添加學(xué)生、刪除學(xué)生等功能。撰寫學(xué)生評(píng)語(yǔ)部分實(shí)現(xiàn)添加學(xué)生新評(píng)語(yǔ)的功能，這一部分為系統(tǒng)的核心功能。3.1.3系統(tǒng)管理部分 包括修改系統(tǒng)用戶密碼、增加新用戶以及退出系統(tǒng)等。3.2 系統(tǒng)模塊設(shè)計(jì) 根據(jù)上面所介紹的主要功能，對(duì)這個(gè)系統(tǒng)進(jìn)行分析，得到如圖3-1所示的系統(tǒng)功能模塊圖。評(píng)語(yǔ)管理系統(tǒng)評(píng)語(yǔ)項(xiàng)目管理評(píng)語(yǔ)維護(hù)學(xué)生管理系統(tǒng)管理增加評(píng)語(yǔ)項(xiàng)目刪除評(píng)

20、語(yǔ)項(xiàng)目增加項(xiàng)目分類刪除項(xiàng)目分類添加評(píng)語(yǔ)修改評(píng)語(yǔ)刪除評(píng)語(yǔ)添加學(xué)生查找學(xué)生刪除學(xué)生撰寫評(píng)語(yǔ)刪除評(píng)語(yǔ)增加用戶刪除用戶 圖3-1 系統(tǒng)功能模塊圖3.2.1評(píng)語(yǔ)項(xiàng)目管理評(píng)語(yǔ)項(xiàng)目管理部分實(shí)現(xiàn)增加評(píng)語(yǔ)項(xiàng)目，刪除評(píng)語(yǔ)項(xiàng)目、增加項(xiàng)目分類、刪除項(xiàng)目分類等功能。系統(tǒng)將所有的項(xiàng)目分類：（1） 印象評(píng)語(yǔ)：包括思想性格、學(xué)習(xí)、體育、友愛(ài)、班務(wù)等分類。（2） 工作評(píng)語(yǔ)：包括工作態(tài)度、工作方法、工作效果等分類。（3） 課堂評(píng)語(yǔ)：包括課堂積極、課堂表現(xiàn)一般、課堂沉悶等分類。（4） 紀(jì)律評(píng)語(yǔ)：包括遵守紀(jì)律、記錄一般、記錄較差等分類。（5） 作業(yè)評(píng)語(yǔ)：包括作業(yè)工整、作業(yè)良好、作業(yè)應(yīng)付等分類。（6） 學(xué)習(xí)態(tài)度評(píng)語(yǔ)：包括學(xué)習(xí)態(tài)度認(rèn)真、

21、學(xué)習(xí)態(tài)度較差等分類。（7） 學(xué)習(xí)方法評(píng)語(yǔ)：包括學(xué)習(xí)方法新穎、學(xué)習(xí)方法適當(dāng)、學(xué)習(xí)方法有誤等分類。（8） 學(xué)習(xí)成績(jī)?cè)u(píng)語(yǔ)：包括學(xué)習(xí)成績(jī)優(yōu)秀、學(xué)習(xí)成績(jī)優(yōu)良、學(xué)習(xí)成績(jī)中等、學(xué)習(xí)成績(jī)較差等分類。(9) 特長(zhǎng)愛(ài)好評(píng)語(yǔ)：包括文藝特長(zhǎng)、體育特長(zhǎng)、智育特長(zhǎng)等分類 （10） 集體活動(dòng)評(píng)語(yǔ)：包括積極參與、表現(xiàn)良好、很不積極等分類。 （11） 勞動(dòng)衛(wèi)生評(píng)語(yǔ)：包括講究衛(wèi)生、熱愛(ài)勞動(dòng)、不講衛(wèi)生等分類。（12） 建議期望評(píng)語(yǔ)：包括勉勵(lì)、同學(xué)之間、班務(wù)工作、言行紀(jì)律、學(xué)習(xí)態(tài)度、學(xué)習(xí)方法、學(xué)習(xí)成績(jī)、體育、綜合等分類。3.2.2 評(píng)語(yǔ)維護(hù) 評(píng)語(yǔ)維護(hù)部分實(shí)現(xiàn)向評(píng)語(yǔ)庫(kù)中添加評(píng)語(yǔ)、修改評(píng)語(yǔ)、刪除評(píng)語(yǔ)等功能。3.2.3學(xué)生管理 學(xué)生管理部

22、分實(shí)現(xiàn)添加學(xué)生、刪除學(xué)生、查找學(xué)生以及撰寫學(xué)生評(píng)語(yǔ)等功能。學(xué)生信息包括學(xué)號(hào)、姓名、班級(jí)以及該生歷年評(píng)語(yǔ)。3.2.3系統(tǒng)管理 系統(tǒng)管理部分實(shí)現(xiàn)添加新用戶、修改密碼、推出系統(tǒng)等功能。 此外，在系統(tǒng)設(shè)置中，輸入密碼與用戶名不符3次將自動(dòng)退出。 3.3 系統(tǒng)數(shù)據(jù)設(shè)計(jì) 各個(gè)評(píng)語(yǔ)項(xiàng)目應(yīng)該單獨(dú)作為一個(gè)數(shù)據(jù)表而存在，每個(gè)數(shù)據(jù)表的字段設(shè)定為評(píng)語(yǔ)項(xiàng)目的分類。因此，系統(tǒng)數(shù)據(jù)庫(kù)應(yīng)該包括映象評(píng)語(yǔ)表、工作評(píng)語(yǔ)表、課堂評(píng)語(yǔ)表、紀(jì)律評(píng)語(yǔ)表、作業(yè)評(píng)語(yǔ)表、學(xué)習(xí)態(tài)度評(píng)語(yǔ)表、學(xué)習(xí)方法評(píng)語(yǔ)表、學(xué)習(xí)成績(jī)?cè)u(píng)語(yǔ)表、特長(zhǎng)愛(ài)好評(píng)語(yǔ)表、文體活動(dòng)評(píng)語(yǔ)表、勞動(dòng)衛(wèi)生評(píng)語(yǔ)表、建議期望評(píng)語(yǔ)表。 學(xué)生信息包括學(xué)生基本信息和該生的歷年評(píng)語(yǔ)。建立兩個(gè)數(shù)據(jù)表保存這

23、兩組數(shù)據(jù)，分別為學(xué)生的操行數(shù)據(jù)表和學(xué)生管理數(shù)據(jù)表。此外，系統(tǒng)用戶信息單獨(dú)使用一個(gè)數(shù)據(jù)表保存。 對(duì)于工作評(píng)語(yǔ)表，字段名稱應(yīng)為工作態(tài)度、工作方法、工作效果。各個(gè)字段的相關(guān)設(shè)置如表3-1所示。表3-1 工作評(píng)語(yǔ)數(shù)據(jù)表字段名數(shù)據(jù)類型說(shuō)明工作方法文本字段大小為255工作態(tài)度文本字段大小為255工作效果文本字段大小為255對(duì)于集體活動(dòng)評(píng)語(yǔ)數(shù)據(jù)表，字段名稱因?yàn)閰⑴c、表現(xiàn)良好、很不積極。各個(gè)字段的相關(guān)設(shè)置如表3-2所示。表3-2 集體活動(dòng)評(píng)語(yǔ)數(shù)據(jù)表字段名數(shù)據(jù)類型說(shuō)明積極參與文本字段大小為255表現(xiàn)良好文本字段大小為255很不積極文本字段大小為255 對(duì)于紀(jì)律評(píng)語(yǔ)數(shù)據(jù)表，字段名稱應(yīng)為遵守紀(jì)律、紀(jì)律一般、紀(jì)律較差

24、。各個(gè)字段的相關(guān)設(shè)置如表3-3所示。表3-3 紀(jì)律評(píng)語(yǔ)數(shù)據(jù)表字段名數(shù)據(jù)類型說(shuō)明遵守紀(jì)律文本字段大小為255紀(jì)律一般文本字段大小為255紀(jì)律較差文本字段大小為255 對(duì)于建議期望評(píng)語(yǔ)表，字段名稱應(yīng)該為勉勵(lì)、同學(xué)之間、班務(wù)工作、言行紀(jì)律、學(xué)習(xí)態(tài)度、學(xué)習(xí)方法、學(xué)習(xí)成績(jī)、體育、綜合。各個(gè)字段的相關(guān)設(shè)置如表3-4所示。表3-4 建議期望評(píng)語(yǔ)數(shù)據(jù)表字段名數(shù)據(jù)類型說(shuō)明勉勵(lì)文本字段大小為255同學(xué)之間文本字段大小為255班務(wù)工作文本字段大小為255學(xué)習(xí)方法文本字段大小為255學(xué)習(xí)成績(jī)文本字段大小為255體育文本字段大小為255綜合文本字段大小為255 對(duì)于課堂評(píng)語(yǔ)數(shù)據(jù)表，字段名稱應(yīng)為課堂積極、課堂一般、課堂沉

25、悶。各個(gè)字段的相關(guān)設(shè)置如表3-5所示。表3-5 課堂評(píng)語(yǔ)數(shù)據(jù)表字段名數(shù)據(jù)類型說(shuō)明課堂積極文本字段大小為255課堂一般文本字段大小為255課堂沉悶文本字段大小為255 對(duì)于特長(zhǎng)愛(ài)好評(píng)語(yǔ)數(shù)據(jù)表，字段名稱應(yīng)為文藝特長(zhǎng)、體育特長(zhǎng)、智育特長(zhǎng)。各個(gè)字段的相關(guān)設(shè)置如表3-6所示。表3-6 特長(zhǎng)愛(ài)好評(píng)語(yǔ)數(shù)據(jù)表字段名數(shù)據(jù)類型說(shuō)明文藝特長(zhǎng)文本字段大小為255體育特長(zhǎng)文本字段大小為255智育特長(zhǎng)文本字段大小為255 對(duì)于勞動(dòng)衛(wèi)生評(píng)語(yǔ)數(shù)據(jù)表，字段名稱應(yīng)為講究衛(wèi)生、熱愛(ài)勞動(dòng)、不講衛(wèi)生。各個(gè)字段的相關(guān)設(shè)置如表3-7所示。表3-7 勞動(dòng)衛(wèi)生評(píng)語(yǔ)數(shù)據(jù)表字段名數(shù)據(jù)類型說(shuō)明講究衛(wèi)生文本字段大小為255熱愛(ài)勞動(dòng)文本字段大小為255

26、不講衛(wèi)生文本字段大小為255對(duì)于學(xué)習(xí)成績(jī)?cè)u(píng)語(yǔ)數(shù)據(jù)表，字段名稱應(yīng)為成績(jī)優(yōu)秀，成績(jī)優(yōu)良，成績(jī)中等、成績(jī)較差。各個(gè)字段的相關(guān)設(shè)置如表3-8所示。表3-8 學(xué)習(xí)成績(jī)?cè)u(píng)語(yǔ)數(shù)據(jù)表字段名數(shù)據(jù)類型說(shuō)明成績(jī)優(yōu)秀 文本字段大小為255成績(jī)優(yōu)良 文本字段大小為255成績(jī)中等 文本字段大小為255成績(jī)較差 文本字段大小為255 對(duì)于學(xué)習(xí)方法評(píng)語(yǔ)數(shù)據(jù)表，字段名稱應(yīng)為學(xué)習(xí)方法新穎、學(xué)習(xí)方法適當(dāng)、學(xué)習(xí)方法有誤。各個(gè)字段的相關(guān)設(shè)置如表3-9所示。表3-9 學(xué)習(xí)方法評(píng)語(yǔ)數(shù)據(jù)表字段名數(shù)據(jù)類型說(shuō)明字段名數(shù)據(jù)類型說(shuō)明方法新穎文本字段大小為255方法適當(dāng)文本字段大小為255方法有誤文本字段大小為255對(duì)于學(xué)習(xí)態(tài)度評(píng)語(yǔ)數(shù)據(jù)表，字段名稱應(yīng)

27、為態(tài)度認(rèn)真、態(tài)度一般、態(tài)度較差。各個(gè)字段的相關(guān)設(shè)置如表3-10所示。表3-10 學(xué)習(xí)方法評(píng)語(yǔ)數(shù)據(jù)表字段名數(shù)據(jù)類型說(shuō)明態(tài)度認(rèn)真文本字段大小為255態(tài)度一般文本字段大小為255態(tài)度較差文本字段大小為255對(duì)于印象評(píng)語(yǔ)數(shù)據(jù)表，字段名稱應(yīng)為外貌、思想、性格、學(xué)習(xí)、體育、友愛(ài)、班務(wù)。各個(gè)字段的相關(guān)設(shè)置如表3-11所示。表3-11 學(xué)習(xí)方法評(píng)語(yǔ)數(shù)據(jù)表字段名數(shù)據(jù)類型說(shuō)明外貿(mào)文本字段大小為255思想文本字段大小為255性格文本字段大小為255學(xué)習(xí)文本字段大小為255體育文本字段大小為255友愛(ài)文本字段大小為255班務(wù)文本字段大小為255對(duì)于作業(yè)評(píng)語(yǔ)數(shù)據(jù)表，字段名稱應(yīng)為作業(yè)工整、作業(yè)良好、作業(yè)應(yīng)付。各個(gè)字段的相

28、關(guān)設(shè)置如表3-12所示。表3-12 作業(yè)評(píng)語(yǔ)數(shù)據(jù)表字段名數(shù)據(jù)類型說(shuō)明作業(yè)工整文本字段大小為255作業(yè)良好文本字段大小為255作業(yè)應(yīng)付文本字段大小為255對(duì)于學(xué)生管理數(shù)據(jù)表，字段名稱應(yīng)為學(xué)號(hào)、姓名、班級(jí)。各個(gè)字段的相關(guān)設(shè)置如表3-13所示。表3-13 學(xué)生管理數(shù)據(jù)表字段名數(shù)據(jù)類型說(shuō)明學(xué)號(hào)文本必添字段，不允許為空姓名文本必添字段，字段大小為6班級(jí)文本必添字段，字段大小為10對(duì)于學(xué)生操行數(shù)據(jù)表，字段名稱應(yīng)為學(xué)號(hào)、學(xué)期、評(píng)語(yǔ)、評(píng)語(yǔ)時(shí)間、評(píng)語(yǔ)人。各個(gè)字段的相關(guān)設(shè)置如表3-13所示。表3-14 學(xué)生操行數(shù)據(jù)表字段名數(shù)據(jù)類型說(shuō)明學(xué)號(hào)文本必添字段，不允許為空學(xué)期數(shù)字無(wú)字段名數(shù)據(jù)類型說(shuō)明評(píng)語(yǔ)備注無(wú)評(píng)語(yǔ)時(shí)間時(shí)間/

29、日期無(wú)評(píng)語(yǔ)人文本字段大小為20 對(duì)于系統(tǒng)管理數(shù)據(jù)表，字段名稱應(yīng)為用戶名和密碼。各個(gè)字段的相關(guān)設(shè)置如表3-15所示。表3-15 系統(tǒng)管理數(shù)據(jù)表字段名數(shù)據(jù)類型說(shuō)明用戶名文本必添字段，不允許為空密碼文本字段大小為203.4 主窗體設(shè)計(jì)3.4.1 建立主窗體 構(gòu)成此系統(tǒng)的窗體不多，大部分的評(píng)語(yǔ)管理及評(píng)語(yǔ)的撰寫工作都在主窗體中完成。 首先用打開(kāi)visual basic 6.0系統(tǒng)自動(dòng)建立一個(gè)form窗體來(lái)建立系統(tǒng)的主窗體。各個(gè)屬性的設(shè)置如表3-16所示。表3-16 系統(tǒng)主窗體屬性窗體屬性取值namemainformcaption評(píng)語(yǔ)管理系統(tǒng)startupposition2-centerscreenwin

30、dowstate2-maximized3.4.2 添加菜單 使用簡(jiǎn)單編輯器編輯系統(tǒng)主菜單，菜單的caption和name屬性如表3-17所示。表3-17 菜單屬性設(shè)置 captionname系統(tǒng)管理sysman修改密碼changepwd添加用戶addstupy退出系統(tǒng)exitsys評(píng)語(yǔ)項(xiàng)目管理pymanage添加評(píng)語(yǔ)項(xiàng)目addnewpyxm刪除評(píng)語(yǔ)項(xiàng)目modifypyxm增加分類項(xiàng)目addxzfl刪除項(xiàng)目分類delxmfl評(píng)語(yǔ)維護(hù)weihupy添加評(píng)語(yǔ)addpy修改評(píng)語(yǔ)xgpy刪除評(píng)語(yǔ)delpy學(xué)生管理studentman查找學(xué)生findstudent添加學(xué)生addstudent刪除學(xué)生del

31、studentcaptionname 添加新評(píng)語(yǔ)addstupy幫助help關(guān)于about使用守則userifo3.4.3 添加控件 該窗體包括6個(gè)frame、1個(gè)combobox、2個(gè)listbox控件、15個(gè)commandbutton控件、9個(gè)label控件、2個(gè)text控件、1個(gè)sstab控件和1個(gè)treeview控件。在這里我就介紹一下treeview控件。這是一個(gè)acitvex控件。activex是一種比較新的技術(shù)，它源于microsoft公司，并得到microsoft系列開(kāi)發(fā)工具的有力支持和大多數(shù)第三方軟件開(kāi)發(fā)商的認(rèn)可。同時(shí)，由于它能夠提供對(duì)客戶機(jī)資源的完全訪問(wèn)，因此在很多場(chǎng)合，a

32、citvex都具有很強(qiáng)的吸引力。 在vb中，acitivx模型包括幾種不同的技術(shù)：acitivx exe工程、acitivx dll工程、acitivx控件工程和acitivx文檔工程。其中acitivx控件是由軟件開(kāi)發(fā)商提供的可重用的組件。treeview便是其中之一。它用來(lái)顯示節(jié)點(diǎn)（node）對(duì)象的分成列表，一般用于顯示文檔標(biāo)題、索引入口、磁盤上的文件和目錄或能被有效地分層顯示地其他種類地信息。 圖3-2 系統(tǒng)主窗體將所有的控件添加完畢后，最后得到的效果圖如3-2所示。3.4.4 添加代碼 在編寫代碼之前，應(yīng)該先引用“microsoft acitvex data objects 2.5 l

33、ibrary”項(xiàng)。同時(shí)使用connection對(duì)象打開(kāi)數(shù)據(jù)庫(kù)。因此，在添加一個(gè)“module1(module.bas)”,并在其中定義一個(gè)connection對(duì)象，代碼如下： option explicitpublic conn as new adodb.connection '標(biāo)記連接對(duì)象 在窗體裝載的事件中，首先打開(kāi)學(xué)生管理數(shù)據(jù)表，將所有的學(xué)生在list1控件中顯示出來(lái)。定義一個(gè)字符串變量sql，用來(lái)標(biāo)記sql語(yǔ)句： private sub form_load() dim sql as string 在程序的通用變量申明部分定義一個(gè)recordset對(duì)象用來(lái)打開(kāi)數(shù)據(jù)表： optio

34、n explicit dim rsl as new adodb.recordset 在form_load事件中打開(kāi)數(shù)據(jù)表，使用recordset對(duì)象的open方法： private sub form_load() dim sql as string rs1.cursorlocation=aduseclient sql=”select * from 學(xué)生管理 order by 學(xué)號(hào)” 打開(kāi)學(xué)生管理數(shù)據(jù)表，在列表框中顯示所有的學(xué)生 rs1.open sql,conn,adopenkeyset,adlockpessimistic 這里選擇了在list1控件中顯示學(xué)生姓名和學(xué)號(hào)，中間用空格隔開(kāi)?？崭竦?/p>

35、數(shù)目可根據(jù)添加控件時(shí)“姓名”和“學(xué)號(hào)”這兩個(gè)label控件的位置而定，最好做到這兩個(gè)控件和list1控件中的學(xué)生姓名和學(xué)號(hào)相對(duì)應(yīng)。 在操行評(píng)語(yǔ)列表框中添加可選項(xiàng)，分別為“優(yōu)”、“良”、“中”、“差”：private sub form_load() combo1.additem "優(yōu)"combo1.additem "良"combo1.additem "中"combo1.additem "差"如果要在程序運(yùn)行中創(chuàng)建數(shù)庫(kù)和表，還要引用對(duì)象庫(kù)“microsoft ado ext2.1 for ddl security”,簡(jiǎn)

36、稱為adox,其庫(kù)文件名是msadox.dll。adox是對(duì)ado對(duì)象和編程模型的擴(kuò)展，它將ado擴(kuò)展為包括創(chuàng)建、修改和刪除模式對(duì)象。添加對(duì)adox的引用。在程序的通用變量聲明部分，定義一個(gè)catlog對(duì)象、一個(gè)table對(duì)象：option explicitdim rs1 as new adodb.recordsetdim cat as new adox.catalogdim tbl as new adox.table 使用adox,應(yīng)該先設(shè)置catlog對(duì)象的activeconnecion屬性：private sub form_load()combol.additem”差”set cat.a

37、ctiveconnecion=conn遍歷數(shù)據(jù)表中所有的表，可以使用catlog對(duì)象的tables集合：privat sub form_load()set cat.activeconnection=connfor each tbl in cat.tables next獲取數(shù)據(jù)表的名字，判斷當(dāng)前的數(shù)據(jù)表是否為評(píng)語(yǔ)項(xiàng)目表，方法是獲取數(shù)據(jù)表名稱最后兩個(gè)字。如果這兩個(gè)字是“批語(yǔ)”，則表示此數(shù)據(jù)表為評(píng)語(yǔ)項(xiàng)目表，代碼如下：private sub form_load()for each tb1 in cat.tables str= if right(str,2)=”評(píng)語(yǔ)” then end

38、ifnext使用treeview控件的nodes集合的add方法添加節(jié)點(diǎn)。在form_load事件中添加treeview節(jié)點(diǎn)。表名稱作為父節(jié)點(diǎn)，表中的字段名作為子節(jié)點(diǎn)。代碼如下：private sub form_load()if right(str, 2) = "評(píng)語(yǔ)" then set mnode = treeview1.nodes.add() mnode.text = str dim i as integer dim nodeindex as integer nodeindex = mnode.index for i = 0 to tbl.columns.count -

39、 1 set mnode = treeview1.nodes.add(nodeindex, tvwchild) mnode.text = tbl.columns.item(i).name next end ifnext添加異常處理語(yǔ)句“dim connectionstring as stringdim sql as stringon error goto openerroropenerror: msgbox err.descriptionend sub單擊學(xué)生列表框，顯示學(xué)生信息及該生歷年評(píng)語(yǔ)。下面實(shí)現(xiàn)這一功能。當(dāng)用戶單擊某一學(xué)生時(shí)，使用list控件的listindex屬性獲取當(dāng)前學(xué)生在列表框

40、中的位置，在list1_click事件中添加代碼：privat sub list1_click()i=clng(list.listindex)end sub先將recordset數(shù)據(jù)對(duì)象移動(dòng)到第一條，然后使用move方法將數(shù)據(jù)對(duì)象移動(dòng)到用戶選定的學(xué)生。privat sub list1_click()rs.movefirsti=clng(list.listindex)rs1.move iend sub添加displaystudent過(guò)程來(lái)顯示學(xué)生信息。在displaystudent過(guò)程中打開(kāi)學(xué)生操行數(shù)據(jù)表，代碼如下：public sub displaypy()dim rs as new adod

41、b.recordsetdim sql as stringon error goto displaypyerrorrs.cursorlocation = aduseclientsql = "select * from 學(xué)生操行 where 學(xué)號(hào)='" & id_num & "'" & "order by 學(xué)期"rs.open sql, conn, adopenkeyset, adlockpessimistic利用recordset對(duì)象的eof屬性判斷是否有當(dāng)前學(xué)生的評(píng)語(yǔ)，如果有，則將記錄移動(dòng)到第一

42、條，如果沒(méi)有，則給出提示。public sub displaypy()rs.open sql, conn, adopenkeyset, adlockpessimisticif rs.eof = false then rs.movefirstelse msgbox "該生沒(méi)有評(píng)語(yǔ)！", vbokonly + vbexclamation, "" exit subend if使用循環(huán)語(yǔ)句將該生的所有評(píng)語(yǔ)添加到text1控件中。public sub displaypy()end ifwhile rs.eof = false text1(0).text = tex

43、t1(0).text & vbcrlf & "第" & rs.fields(1) & "學(xué)期" & vbcrlf & space(2) & _ rs.fields(2) & vbcrlf & space(10) & rs.fields(3) & space(2) & rs.fields(4) rs.movenextwend對(duì)于“添加評(píng)語(yǔ)”、“修改評(píng)語(yǔ)”、“刪除評(píng)語(yǔ)”、“添加到學(xué)生評(píng)語(yǔ)”等按鈕，代碼如下：private sub command10_click()

44、if selstu = true then 添加評(píng)語(yǔ)command1.enabled = truecommand2.enabled = truecommand7.enabled = truecommand8.enabled = truecommand14.enabled = truecombo1.enabled = truesstab1.tabenabled(1) = truecommand10.enabled = falselist1.enabled = falsesstab1.tab = 1else msgbox "請(qǐng)選擇學(xué)生！", vbokonly + vbexcla

45、mation, ""end ifend subprivate sub command5_click() 修改評(píng)語(yǔ)dim rs as new adodb.recordsetdim sql as stringdim i as integerdim str as string '記錄用戶輸入dim prompt as string '函數(shù)參數(shù)prompt = "修改“" + str1 + "”中的“" + str2 + "”類別評(píng)語(yǔ)：" & list2.textstr = inputbox(pro

46、mpt, "修改評(píng)語(yǔ)")if str = "" then exit subelsei = list2.listindexlist2.removeitem (list2.listindex)list2.additem strsql = "select " & str2 & " from " & str1rs.open sql, conn, adopenkeyset, adlockpessimisticrs.move irs.fields(str2) = strrs.updaters.close

47、end ifend subprivate sub command6_click() 刪除評(píng)語(yǔ)dim rs as new adodb.recordsetdim sql as stringdim i as integerdim answer as string '記錄用戶輸入dim prompt as string '函數(shù)參數(shù)prompt = "確實(shí)要?jiǎng)h除此條評(píng)語(yǔ)嗎？"answer = msgbox(prompt, vbyesno, "刪除評(píng)語(yǔ)")if answer = vbyes then i = list2.listindex list2

48、.removeitem (list2.listindex) sql = "select " & str2 & " from " & str1 rs.open sql, conn, adopenkeyset, adlockpessimistic rs.move i rs.delete rs.update rs.closeend ifend subprivate sub command3_click() 添加到學(xué)生評(píng)語(yǔ)dim i as integeri = list2.listindexif text1(1).text = "

49、;" thentext1(1).text = space(2) & text1(1).text & list2.textelse text1(1).text = text1(1).text & list2.textend ifend sub對(duì)于“添加日期”、“老師簽名”、“放棄增加”、“保存評(píng)語(yǔ)”、“重寫”等按鈕，代碼如下：private sub command1_click() 添加日期text1(1).text = text1(1).text & vbcrlf & dateend subprivate sub command2_click(

50、) 老師簽名xing = inputbox("輸入老師姓或姓名：")text1(1).text = text1(1).text & vbcrlf & space(12) & xing & "老師"end subprivate sub command8_click() 放棄增加list1.enabled = truecommand10.enabled = truecommand1.enabled = falsecommand2.enabled = falsecommand7.enabled = falsecommand8.e

51、nabled = falsecommand14.enabled = falsecombo1.enabled = falseend subprivate sub command7_click() 保存評(píng)語(yǔ)dim rs as new adodb.recordsetdim sql as stringrs.cursorlocation = aduseclientsql = "select * from 學(xué)生操行 where 學(xué)號(hào)='" & id_num & "'" & "order by 學(xué)期"rs.o

52、pen sql, conn, adopenkeyset, adlockpessimisticdim cx as stringrs.addnewrs.fields(0) = id_numrs.fields(1) = xq + 1rs.fields(3) = daters.fields(4) = xing + "老師"cx = replace(text1(1).text, date, "")cx = replace(cx, xing + "老師", "")rs.fields(2) = cxrs.updaters.clo

53、secommand1.enabled = falsecommand2.enabled = falsecommand7.enabled = falsecommand8.enabled = falsecommand14.enabled = falsecombo1.enabled = falsesstab1.tabenabled(1) = falsecommand10.enabled = truelist1.enabled = trueend subprivate sub command14_click() 重寫text1(1).text = ""end sub單擊“添加新評(píng)語(yǔ)”

54、按鈕，可以在選定的評(píng)語(yǔ)項(xiàng)目中，代碼如下：private sub command4_click()dim rs as new adodb.recordsetdim sql as stringdim str as string '記錄用戶輸入dim prompt as string '函數(shù)參數(shù)prompt = "在“" + str1 + "”中的“" + str2 + "”類別中添加新的評(píng)語(yǔ)："str = inputbox(prompt, "添加新評(píng)語(yǔ)")list2.additem (str)sql = "select " & str2 & " from " & str1rs.open sql, conn, adopenkeyset, adlo