- ASP制作學(xué)生檔案管理系統(tǒng) 2 推薦度：
- 相關(guān)推薦
學(xué)生檔案管理系統(tǒng) 2
目錄摘要
ABSTRACT
前言
第一章 為什么要開(kāi)發(fā)一個(gè)學(xué)生檔案管理系統(tǒng)？
第二章 計(jì)算機(jī)已經(jīng)成為我們學(xué)習(xí)和工作的得力助手
1．1 在中小學(xué)中用計(jì)算機(jī)管理學(xué)生檔案的意義
1．2 為將來(lái)學(xué)校上網(wǎng)做好準(zhǔn)備
1．4 學(xué)生檔案的設(shè)計(jì)分析
第三章 怎樣開(kāi)發(fā)一個(gè)學(xué)生檔案管理系統(tǒng)？
2．1 編程環(huán)境的選擇
2．2 關(guān)系型數(shù)據(jù)庫(kù)的實(shí)現(xiàn)
2．3 二者的結(jié)合（DBA）
第四章 Windows下的Visual Basic 編程環(huán)境簡(jiǎn)介
3．1 告別“hello world”的年代
3．2 面對(duì)對(duì)象的編程
3．3 實(shí)現(xiàn)菜單選項(xiàng)
3．4 實(shí)現(xiàn)工具欄
3．5 幫助
3．6關(guān)于系統(tǒng)
第五章 使用Access2000 實(shí)現(xiàn)關(guān)系型數(shù)據(jù)庫(kù)
4．1 數(shù)據(jù)庫(kù)的概念
4．2 新建一個(gè)數(shù)據(jù)庫(kù)
4．3 修改已建的數(shù)據(jù)庫(kù)
4．4 實(shí)現(xiàn)數(shù)據(jù)庫(kù)之間的聯(lián)系
第五章 系統(tǒng)總體規(guī)劃
5．1 系統(tǒng)功能
5．2 流程圖
第六章 系統(tǒng)具體實(shí)現(xiàn)
6．1 用戶界面的實(shí)現(xiàn)
6．1．1 封面
6．1．2 主界面
6．1．3 幫助系統(tǒng)
6．2 數(shù)據(jù)庫(kù)的實(shí)現(xiàn)
6．2．1 學(xué)籍?dāng)?shù)據(jù)庫(kù)
6．2．2 學(xué)生成績(jī)庫(kù)
6．2．3 課程庫(kù)
6．3 與VB的連接
第七章 結(jié)束語(yǔ)
第八章 主要參考文獻(xiàn)
附錄
--------------摘要--------------
學(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)。
經(jīng)過(guò)分析,我們使用 MICROSOFT公司的 VISUAL BASIC開(kāi)發(fā)工具,利用其提供的各種面向?qū)ο蟮拈_(kāi)發(fā)工具,尤其是數(shù)據(jù)窗口這一能方便而簡(jiǎn)潔操縱數(shù)據(jù)庫(kù)的智能化對(duì)象,首先在短時(shí)間內(nèi)建立系統(tǒng)應(yīng)用原型,然后,對(duì)初始原型系統(tǒng)進(jìn)行需求迭代,不斷修正和改進(jìn),直到形成用戶滿意的可行系統(tǒng)。
關(guān)鍵字：控件、窗體、域。
--------------ABSTRACT--------------
The system of managing student file is a typical application of managing information system （know as MIS）,which mainly includes building up data-base of back-end and developing the application interface of front-end. The former required consistency and integrality and security of data. The later should make the application powerful and easily used.
By looking up lots of datum, we selected Visual Basic presented by Microsoft because of its objective tools in Win32. VB offered a series of ActiveX operating a data-base. It can give you a short-cut to build up a prototype of system application. The prototype could be modified and developed till users are satisfied with it.
Keywords: ActiveX , Form , Field .
--------------前言--------------
學(xué)生檔案管理系統(tǒng)是一個(gè)教育單位不可缺少的部分,它的內(nèi)容對(duì)于學(xué)校的決策者和管理者來(lái)說(shuō)都至關(guān)重要,所以學(xué)生檔案管理系統(tǒng)應(yīng)該能夠?yàn)橛脩籼峁┏渥愕男畔⒑涂旖莸牟樵兪侄�。但一直以�?lái)人們使用傳統(tǒng)人工的方式管理文件檔案，這種管理方式存在著許多缺點(diǎn),如:效率低、保密性差,另外時(shí)間一長(zhǎng),將產(chǎn)生大量的文件和數(shù)據(jù),這對(duì)于查找、更新和維護(hù)都帶來(lái)了不少的困難。
隨著科學(xué)技術(shù)的不斷提高,計(jì)算機(jī)科學(xué)日漸成熟,其強(qiáng)大的功能已為人們深刻認(rèn)識(shí),它已進(jìn)入人類社會(huì)的各個(gè)領(lǐng)域并發(fā)揮著越來(lái)越重要的作用。
作為計(jì)算機(jī)應(yīng)用的一部分,使用計(jì)算機(jī)對(duì)學(xué)生檔案信息進(jìn)行管理,具有著手工管理所無(wú)法比擬的優(yōu)點(diǎn).例如:檢索迅速、查找方便、可靠性高、存儲(chǔ)量大、保密性好、壽命長(zhǎng)、成本低等。這些優(yōu)點(diǎn)能夠極大地提高學(xué)生檔案管理的效率,也是企業(yè)的科學(xué)化、正規(guī)化管理,與世界接軌的重要條件。
因此，開(kāi)發(fā)這樣一套管理軟件成為很有必要的事情,在下面的各章中我們將以開(kāi)發(fā)一套學(xué)生檔案管理系統(tǒng)為例,談?wù)勂溟_(kāi)發(fā)過(guò)程和所涉及到的問(wèn)題及解決方法。
--------------------下面就讓我們開(kāi)始正文的介紹
第一章
為什么要開(kāi)發(fā)一個(gè)學(xué)生檔案管理系統(tǒng)？
計(jì)算機(jī)已經(jīng)成為我們學(xué)習(xí)和工作的得力助手：
今天，計(jì)算機(jī)的價(jià)格已經(jīng)十分低廉，性能卻有了長(zhǎng)足的進(jìn)步。它已經(jīng)被應(yīng)用于許多領(lǐng)域，計(jì)算機(jī)之所以如此流行的原因主要有以下幾個(gè)方面：
首先，計(jì)算機(jī)可以代替人工進(jìn)行許多繁雜的勞動(dòng)；
其次，計(jì)算機(jī)可以節(jié)省許多資源；
第三，計(jì)算機(jī)可以大大的提高人們的工作效率；
第四，計(jì)算機(jī)可以使敏感文檔更加安全，等等。
在中小學(xué)中用計(jì)算機(jī)管理學(xué)生檔案的意義
現(xiàn)在我國(guó)的中小學(xué)校中檔案的管理水平還停留在紙介質(zhì)的基礎(chǔ)上，這樣的機(jī)制已經(jīng)不能適應(yīng)時(shí)代的發(fā)展，因?yàn)樗速M(fèi)了許多人力和物力，在信息時(shí)代這種傳統(tǒng)的管理方法必然被計(jì)算機(jī)為基礎(chǔ)的信息管理所取代。
我作為一個(gè)計(jì)算機(jī)應(yīng)用的本科生，希望可以在這方面有所貢獻(xiàn)。改革的總設(shè)計(jì)師鄧小平同志說(shuō)過(guò)“科學(xué)技術(shù)是第一生產(chǎn)力”，我希望能用我四年的所學(xué)編制出一個(gè)實(shí)用的程序來(lái)幫助中小學(xué)進(jìn)行更有效的學(xué)籍管理。
歸納起來(lái)，好處大約有以下幾點(diǎn)：
1． 可以存儲(chǔ)歷屆的學(xué)生檔案，安全、高效；
2． 只需一到二名檔案錄入員即可操作系統(tǒng)，節(jié)省大量人力；
3． 可以迅速查到所需信息。
為將來(lái)學(xué)校上網(wǎng)做好準(zhǔn)備
跟據(jù)1999年中國(guó)電信的調(diào)查報(bào)告顯示我國(guó)的上網(wǎng)人數(shù)已達(dá)到890萬(wàn)，互聯(lián)網(wǎng)已經(jīng)十分普及，學(xué)校往界的畢業(yè)生希望能在世界的任何一個(gè)角落查到自己校友的信息，本系統(tǒng)為學(xué)校將來(lái)的上網(wǎng)作了先期工作，比如數(shù)據(jù)庫(kù)的建立。
學(xué)生檔案
的設(shè)計(jì)分析
根據(jù)實(shí)際情況，我們使用原型法（Rapid Prototyping）即以少量代價(jià)快速地構(gòu)造一個(gè)可執(zhí)行的軟件系統(tǒng)模型。使用戶和開(kāi)發(fā)人員可以較快地確定需求，然后采用循環(huán)進(jìn)化的開(kāi)發(fā)方式，對(duì)系統(tǒng)模型作連續(xù)的精化，將系統(tǒng)需具備的性質(zhì)逐漸增加上去，直到所有的性質(zhì)全部滿足。此時(shí)模塊也發(fā)展成為最終產(chǎn)品了。
第二章
怎樣開(kāi)發(fā)一個(gè)學(xué)生檔案管理系統(tǒng)？
編程環(huán)境的選擇
微軟公司的Visual Basic 6.0是Windows應(yīng)用程序開(kāi)發(fā)工具，使目前最為廣泛的、易學(xué)易用的面向?qū)ο蟮拈_(kāi)發(fā)工具。Visual Basic提供了大量的控件，這些控件可用于設(shè)計(jì)界面和實(shí)現(xiàn)各種功能，減少了編程人員的工作量，也簡(jiǎn)化了界面設(shè)計(jì)過(guò)程，從而有效的提高了應(yīng)用程序的運(yùn)行效率和可靠性。故而，實(shí)現(xiàn)本系統(tǒng)VB是一個(gè)相對(duì)較好的選擇。
關(guān)系型數(shù)據(jù)庫(kù)的實(shí)現(xiàn)
Access2000 就是關(guān)系數(shù)據(jù)庫(kù)開(kāi)發(fā)工具，數(shù)據(jù)庫(kù)能匯集各種信息以供查詢、存儲(chǔ)和檢索。Access 的優(yōu)點(diǎn)在于它能使用數(shù)據(jù)表示圖或自定義窗體收集信息。數(shù)據(jù)表示圖提供了一種類似于 Excel 的電子表格，可以使數(shù)據(jù)庫(kù)一目了然。另外，Access 允許創(chuàng)建自定義報(bào)表用于打印或輸出數(shù)據(jù)庫(kù)中的信息。Access也提供了數(shù)據(jù)存儲(chǔ)庫(kù)，可以使用桌面數(shù)據(jù)庫(kù)文件把數(shù)據(jù)庫(kù)文件置于網(wǎng)絡(luò)文件服務(wù)器，與其他網(wǎng)絡(luò)用戶共享數(shù)據(jù)庫(kù)。Access 是一種關(guān)系數(shù)據(jù)庫(kù)工具，關(guān)系數(shù)據(jù)庫(kù)是已開(kāi)發(fā)的最通用的數(shù)據(jù)庫(kù)之一。如上所述，Access 作為關(guān)系數(shù)據(jù)庫(kù)開(kāi)發(fā)具備了許多優(yōu)點(diǎn)，可以在一個(gè)數(shù)據(jù)包中同時(shí)擁有桌面數(shù)據(jù)庫(kù)的便利和關(guān)系數(shù)據(jù)庫(kù)的強(qiáng)大功能。
二者的結(jié)合（DBA）
微軟的JET數(shù)據(jù)庫(kù)引擎提供了與數(shù)據(jù)庫(kù)打交道的途徑，我們是通過(guò)它以及Visual Basic 來(lái)訪問(wèn)數(shù)據(jù)庫(kù)并對(duì)其進(jìn)行各種操作。Visual Basic、Access以及其他微軟的軟件產(chǎn)品都是通過(guò)共用JET數(shù)據(jù)庫(kù)引擎，從而給用戶提供了豐富的數(shù)據(jù)類型。
DATA 控件在數(shù)據(jù)庫(kù)中的信息與將信息顯示給用戶看的Visual Basic程序之間架起了一座橋梁。我們可以設(shè)置DATA控件的各個(gè)屬性，告訴它要調(diào)用那個(gè)數(shù)據(jù)庫(kù)的哪個(gè)部分。缺省情況下，DATA控件根據(jù)數(shù)據(jù)庫(kù)中的一個(gè)或多個(gè)數(shù)據(jù)表建立一個(gè)dynaset-type（動(dòng)態(tài)集合）類型的記錄集合。一個(gè)記錄集合是動(dòng)態(tài)的也就意味著，當(dāng)原來(lái)的數(shù)據(jù)表中的容改變了以后，該記錄集合中的記錄也會(huì)隨之改變。DATA控件還提供了用來(lái)瀏覽不同記錄的各種跳轉(zhuǎn)按鈕。將DATA控件放置在窗體中之后，我們還必須在該控件與要處理的數(shù)據(jù)庫(kù)之間建立聯(lián)系。
第三章
Windows下的Visual?????????????
?????????????????????????????
?????????????????????????????????????????????????????????????????????????????????
??????????????????????????????????????????????????????????
?
?????????????????
?????????????????????????????????????????????????)。 Visual Basic應(yīng)用程序基本的構(gòu)建塊是用戶所創(chuàng)建的對(duì)象，每一個(gè)對(duì)象都具有一些特性和行為（屬性、事件和 方法）。開(kāi)發(fā)人員可以最有效利用所創(chuàng)建的每一個(gè)對(duì)象。使用應(yīng)用程序具有可通用性可說(shuō)擴(kuò)展性和強(qiáng)有力的功能。
Visual Basic應(yīng)用由一系列對(duì)象組成，包括有函數(shù)、菜單、函數(shù)、結(jié)構(gòu)和數(shù)據(jù)窗口、用戶對(duì)象、用戶事件等等，對(duì)象中又包含若干控件如命令按鈕、單行編輯器等這些對(duì)象和控件都可在許多應(yīng)用中重復(fù)使用。
實(shí)現(xiàn)菜單選項(xiàng)
菜單是程序最重要的特性之一，大多數(shù)程序都依賴一個(gè)定義良好的菜單使程序易于使用和維護(hù)，Visual Basic也提供了強(qiáng)大的創(chuàng)建菜單功能是程序更加標(biāo)準(zhǔn)。
您可以使用Visual Basic的Application Wizard也可以使用Visual Basic 的菜單編輯器建立菜單或者修改已經(jīng)存在的菜單。
實(shí)現(xiàn)工具欄
CoolBar控件與Office97種看到的CoolBar是類似的。CoolBar就是一個(gè)可以在窗體上浮動(dòng)的工具，同時(shí)也是其他ActiveX的容器。通過(guò)在CoolBar中遷入其他空間你局可以向用戶提供更好的靈活性和義用性。
Toolbar 是工具條控件，是實(shí)現(xiàn)工具條的主體。其中的按鈕可以顯示圖像和標(biāo)題，并按功能分組或加入分隔符，還可以圍棋設(shè)置鼠標(biāo)停留在其上顯示的提示字符。Toolbar也是一個(gè)控件容器且具有Style屬性，并可以為其增加下拉按鈕和平滑按鈕等。
選擇“工程”下拉菜單中的“部件”選項(xiàng)，顯示“部件”對(duì)話框。在“控件”選項(xiàng)卡列表中選擇“Microsoft Windows Common Controls 6.0”后工具相中增加改控件。其屬性及對(duì)象如下：
1． Align屬性定義工具條在窗體中的位置
2． ToolTipText屬性是字符串類型，定義控件的提示字符
3． Style屬性定義按鈕外觀。
4． ImageList屬性定義與數(shù)據(jù)條對(duì)應(yīng)的ImageList控件名，該控件定義工具條按鈕顯示的圖像。
5． HotImangeList屬性設(shè)置一個(gè)ImageList控件名，該控件定義按鈕獲得熱點(diǎn)時(shí)顯示的圖像。
6． DisabledImageList屬性定義工具條按鈕無(wú)效時(shí)顯示的圖像。
創(chuàng)建工具條包括ImageList和Toolbar控件
ImageList用于為其他控件提供圖像庫(kù)，將ImageList控件加入到工具箱的操作于前述Toolbar控件相同。
幫助
專業(yè)水平的軟件通常都帶有聯(lián)機(jī)幫助功能。無(wú)論寫(xiě)出來(lái)的程序是要給大量的用戶使用，還是僅僅局限于公司內(nèi)部有限的使用者，我們都應(yīng)該為用戶提供詳細(xì)的、易于理解的聯(lián)機(jī)幫助文檔。微軟的Help Workshop4.0 是一套獨(dú)立于Visual Basic 的用來(lái)協(xié)助我們創(chuàng)建、運(yùn)行于32位Windows 操作系統(tǒng)下的幫助文件的工具。使用它我們可以為我們編寫(xiě)的應(yīng)用程序生成一組幫助文件。
關(guān)于版本
為了是程序顯得更具有專業(yè)風(fēng)格，首先可以在其中加入通常的應(yīng)用程序信息。這些信息包括公司名稱、版本號(hào)、修訂號(hào)以及其他類似信息。Visual Basic允許你使用APP對(duì)象來(lái)保存這些信息，APP對(duì)象是一個(gè)預(yù)定義對(duì)象，不需要在程序中創(chuàng)建它。APP對(duì)象的大多數(shù)屬性被應(yīng)用程序用來(lái)提供常規(guī)的信息，通過(guò)使用這些APP提供的屬性，可以在應(yīng)用程序和用戶之間交流重要信息，在項(xiàng)目屬性框中可以設(shè)置它的屬性。
第四章
使用Access2000 實(shí)現(xiàn)關(guān)系型數(shù)據(jù)庫(kù)
數(shù)據(jù)庫(kù)的概念
數(shù)據(jù)庫(kù)是一種存儲(chǔ)數(shù)據(jù)并對(duì)數(shù)據(jù)進(jìn)行操作的工具。數(shù)據(jù)庫(kù)的作用在于組織和表達(dá)信息，簡(jiǎn)而言之，數(shù)據(jù)庫(kù)就是信息的集合。計(jì)算機(jī)的數(shù)據(jù)庫(kù)可以分為兩類：非關(guān)系數(shù)據(jù)庫(kù)（flat-file）和關(guān)系數(shù)據(jù)庫(kù)（relational）。關(guān)系數(shù)據(jù)庫(kù)中包含了多個(gè)數(shù)據(jù)表的信息，數(shù)據(jù)庫(kù)含有各個(gè)不同部分的術(shù)語(yǔ)，象記錄、域等。
新建一個(gè)數(shù)據(jù)庫(kù)
創(chuàng)建任何一個(gè)數(shù)據(jù)庫(kù)的第一步是仔細(xì)的規(guī)劃數(shù)據(jù)庫(kù)，設(shè)計(jì)必須是靈活的、有邏輯的。創(chuàng)建一個(gè)數(shù)據(jù)庫(kù)結(jié)構(gòu)的過(guò)程被認(rèn)為是數(shù)據(jù)模型設(shè)計(jì)。
1． 標(biāo)識(shí)需要的數(shù)據(jù)；
2． 收集被標(biāo)識(shí)的字段到表中；
3． 標(biāo)識(shí)主關(guān)鍵字字段；
4． 繪制一個(gè)簡(jiǎn)單的數(shù)據(jù)圖表；
5． 規(guī)范數(shù)據(jù)；
6． 標(biāo)識(shí)指定字段的信息；
7． 創(chuàng)建物理表。
修改已建的數(shù)據(jù)庫(kù)
數(shù)據(jù)庫(kù)的修改分為：添加、編輯和刪除記錄。這三種操作均可由Visual Basic 創(chuàng)建的程序來(lái)完成，下面的章節(jié)將詳細(xì)描述實(shí)現(xiàn)的具體方法。
實(shí)現(xiàn)數(shù)據(jù)庫(kù)之間的聯(lián)系
數(shù)據(jù)庫(kù)之間的關(guān)系指明兩個(gè)庫(kù)之間共享一個(gè)共同的關(guān)鍵字值。一個(gè)連接是指一種虛擬的表，這種表是在當(dāng)用戶要求從相互關(guān)聯(lián)的各個(gè)不同的表中獲取信息時(shí)建立的，關(guān)鍵字段用于在相互連接的不同表中查找匹配的記錄。一個(gè)更高級(jí)的連接形式稱為自連接。這種連接是指一個(gè)表被連接到它自己的一個(gè)字段，或在不同的紀(jì)錄中由重復(fù)數(shù)據(jù)的組合字段。數(shù)據(jù)庫(kù)中有三種不同類型的關(guān)鍵字：主關(guān)鍵字、組合關(guān)鍵字和外關(guān)鍵字。在表中使用的關(guān)鍵字類型用于描述庫(kù)表示什么以及在數(shù)據(jù)庫(kù)中如何與其它的庫(kù)建立關(guān)系。
第五章
系統(tǒng)總體規(guī)劃
系統(tǒng)功能
1． 可以進(jìn)行文本操作；
2． 添加一個(gè)數(shù)據(jù)庫(kù)項(xiàng)目；
3． 刪除一個(gè)數(shù)據(jù)庫(kù)項(xiàng)目；
4． 修改一個(gè)數(shù)據(jù)庫(kù)項(xiàng)目；
5． 查詢信息；
6． 察看課程表。
流程圖
第六章
系統(tǒng)具體實(shí)現(xiàn)
用戶界面的實(shí)現(xiàn)
6．1．1 封面
具體實(shí)現(xiàn)見(jiàn) 圖_6.1.1
圖_6.1.1
6．1．2 主界面
具體實(shí)現(xiàn)見(jiàn).圖_6.1.2
圖_6.1.2
主界面包含三方面的內(nèi)容,以下一一介紹:
1.記錄操作
打開(kāi)記錄操作,進(jìn)入記錄操作菜單項(xiàng)分別由文件、視圖及幫助三個(gè)選項(xiàng)。
1.1文件包括：新建
打開(kāi)
打開(kāi)寫(xiě)字板---------如圖<6.1.4> (源程序見(jiàn)附錄清單6.1 )
保存
另存
打印
退出
<圖6.1.4>
1.2視圖包括：狀態(tài)條
工具欄
背景顏色
顯示
課程表---------如圖<6.1.5>
文本編輯器
網(wǎng)絡(luò)瀏覽
<圖6.1.5>
1. 3幫助包括：內(nèi)容
關(guān)于幫助
2．記錄操作
打開(kāi)記錄操作進(jìn)入記錄操作選項(xiàng)頁(yè)分別由瀏覽記錄、查找等三個(gè)選項(xiàng)組成。
2．1瀏覽記錄：
學(xué)生學(xué)籍庫(kù)
課程庫(kù)
成績(jī)庫(kù)
2．2查找記錄
2．3備注
3．系統(tǒng)信息
打開(kāi)系統(tǒng)信息進(jìn)入選項(xiàng)頁(yè)分別由系統(tǒng)信息、信息采集等組成。
6．1．3 幫助系統(tǒng)
具體實(shí)現(xiàn)見(jiàn)6.1.3
圖6.1.3
數(shù)據(jù)庫(kù)的實(shí)現(xiàn)
6．2．1學(xué)籍?dāng)?shù)據(jù)庫(kù)
學(xué)籍?dāng)?shù)據(jù)庫(kù)里存儲(chǔ)了學(xué)生的檔案包括：學(xué)號(hào)、姓名、年齡等 表如<6.2.6>
列名（中文）列名（英文）數(shù)據(jù)類型寬度小數(shù)點(diǎn)位數(shù)是否為空姓名Name Date8No學(xué)號(hào)CodeInteger6No性別SexDate2No年齡AgeDate6No民族NationDate6No政治面貌Visage...Date2...Yes...家庭住址AddressDate10No備注RecordDate15No 表<6.2.6>
學(xué)籍模塊：
該模塊主要完成學(xué)生基本信息的錄入、刪除 、更新等功能。在此模塊中定義了八個(gè)域名來(lái)進(jìn)行學(xué)生的信息存儲(chǔ)。如果用戶修改某一紀(jì)錄中的某一項(xiàng)，可單添加按鈕進(jìn)行學(xué)生記錄的編輯，此窗口使用數(shù)據(jù)窗口的FREEDOM風(fēng)格（典型的錄入界面）。該種風(fēng)格特點(diǎn)是列標(biāo)題緊挨著數(shù)據(jù)列在此窗口還可以增加新學(xué)生紀(jì)錄。
6．2．2成績(jī)數(shù)據(jù)庫(kù)
成績(jī)數(shù)據(jù)庫(kù)里存儲(chǔ)了學(xué)生的成績(jī)包括：學(xué)號(hào)、成績(jī)、等如表<6.2.7 >
列名（中文）列名（英文）數(shù)據(jù)類型寬度小數(shù)點(diǎn)位數(shù)是否為空姓名Name Date8No學(xué)號(hào)CodeInteger6No成績(jī)ScoreDate10No備注RecordDate15No 表<6.2.7>
成績(jī)模塊：
該模塊主要完成學(xué)生成績(jī)的基本信息的錄入、刪除 、更新等功能。在此模塊中定義了四個(gè)域名來(lái)進(jìn)行學(xué)生的信息存儲(chǔ)。
6．2．3課程數(shù)據(jù)庫(kù)
課程數(shù)據(jù)庫(kù)利存儲(chǔ)了課程的信息：課程名、作者、出版社等如表<6.2.8>
列名（中文）列名（英文）數(shù)據(jù)類型寬度小數(shù)點(diǎn)位數(shù)是否為空課程IDCourseDate8No課程名NameDate15No出版社PublisherDate20No作者ScoreDate18No備注RecordDate15No 表<6.2.8>
課程模塊：
該模塊主要完成存儲(chǔ)課程的所有信息及錄入、刪除 、更新等功能
與VB的連接
Visual Basic提供了與底層數(shù)據(jù)庫(kù)系統(tǒng)緊密的連接。Visual Basic 支持不同的關(guān)系數(shù)據(jù)庫(kù)管理系統(tǒng)并充分發(fā)揮每一個(gè)數(shù)據(jù)庫(kù)的特長(zhǎng)。生成獨(dú)立應(yīng)用或脫離服務(wù)器運(yùn)行的服務(wù)以上的應(yīng)用，Visual Basic連接數(shù)據(jù)庫(kù)的方式有兩種：
·通過(guò)使用Visual Basic的 DATA控件。
·通過(guò)使用由Visual Basic提供的專用的直接與數(shù)據(jù)庫(kù)相連的接口
第七章
結(jié)束語(yǔ)
經(jīng)過(guò)三個(gè)多月的設(shè)計(jì)和開(kāi)發(fā)，中小學(xué)檔案管理系統(tǒng)基本開(kāi)發(fā)完畢。其功能基本符合用戶需求，能夠完成學(xué)生學(xué)籍的存儲(chǔ)和成績(jī)的查詢以及各類相關(guān)報(bào)表的打印。并提供部分系統(tǒng)維護(hù)功能,使用戶方便進(jìn)行數(shù)據(jù)備份和恢復(fù)、數(shù)據(jù)刪除。，對(duì)于數(shù)據(jù)的一致性的問(wèn)題也通過(guò)程序進(jìn)行了有效的解決。
但是由于畢業(yè)設(shè)計(jì)時(shí)間較短，所以該系統(tǒng)還有許多不盡如人意的地方，比如聯(lián)機(jī)文檔比較少，用戶界面不夠美觀，出錯(cuò)處理不夠等多方面問(wèn)題。這些都有待進(jìn)一步改善。
致謝
在本次畢業(yè)設(shè)計(jì)中，我從指導(dǎo)老師雷震甲老師身上學(xué)到了很多東西。雷老師認(rèn)真負(fù)責(zé)的工作態(tài)度，嚴(yán)謹(jǐn)?shù)?/p>
治學(xué)精神和深厚的理論水平都使我收益匪淺。他無(wú)論在理論上還是在實(shí)踐中，都給與我很大的幫助，使我得到不少的提高這對(duì)于我以后的工作和學(xué)習(xí)都有一種巨大的幫助，感謝他耐心的輔導(dǎo)。
另外，在系統(tǒng)開(kāi)發(fā)過(guò)程中雷老師的助手張彥明老師也給于我很大的幫助，幫助解決了不少的難點(diǎn)，使得系統(tǒng)能及時(shí)開(kāi)發(fā)完成，還有同組的同學(xué)同樣給與我不少幫助，這里一并表示感謝。
第八章
主要參考文獻(xiàn)
[1] Visual Basic 6.0 使用指南
作者：Bob Reselman , Richard Peasley , Wayne Pruchniak.
出版社：電子工業(yè)出版社
[2] 中文版Microsoft Office 97 自學(xué)通
作者：Ned Snell
出版社：機(jī)械工業(yè)出版社
[3] Visual Basic 6.0 中文版控件大全
作者：Microsoft
出版社；電子工業(yè)出版社
[4] 中文Access 2000 24學(xué)時(shí)教程
作者：Craig Eddy ，Timothy Buchanan
出版社：機(jī)械工業(yè)出版社
附錄程序清單及注釋
程序清單6.1
Option Explicit
Dim FileName As String '文件名，用于打開(kāi)、保存文件
Dim UndoString As String '用于 Undo 操作
Dim UndoNew As String '用于 Undo 操作
Private Sub ImgUndoDisable()
'禁用“Undo”按鈕
UndoString = ""
UndoNew = ""
ImgUndo.Enabled = False
ImgUndo.Picture = ImageDisable.ListImages("Undo").Picture
End Sub
Private Sub ImgUndoEnable()
'有效“Undo”按鈕
ImgUndo.Enabled = True
ImgUndo.Picture = ImageUp.ListImages("Undo").Picture
End Sub
Private Sub Check_ImgPaste()
'設(shè)置粘貼按鈕
If Len(Clipboard.GetText) > 0 Then
ImgPaste.Enabled = True
ImgPaste.Picture = ImageUp.ListImages("Paste").Picture
Else
ImgPaste.Enabled = False
ImgPaste.Picture = ImageDisable.ListImages("Paste").Picture
End If
End Sub
Private Sub Check_ImgCutCopy()
'設(shè)置剪切、復(fù)制按鈕
If Text1.SelLength > 0 Then
ImgCut.Enabled = True
ImgCut.Picture = ImageUp.ListImages("Cut").Picture
ImgCopy.Enabled = True
ImgCopy.Picture = ImageUp.ListImages("Copy").Picture
Else
ImgCut.Enabled = False
ImgCut.Picture = ImageDisable.ListImages("Cut").Picture
ImgCopy.Enabled = False
ImgCopy.Picture = ImageDisable.ListImages("Copy").Picture
End If
End Sub
Private Sub BackColor_Click()
CommonDialog1.ShowColor
Text1.BackColor = CommonDialog1.Color
End Sub
Private Sub Box_Click()
'顯停工具欄
If Box.Checked Then
'將停顯工具欄
Box.Checked = False
CoolBar1.Visible = False
Else
Box.Checked = True
CoolBar1.Visible = True
End If
Form_Resize '重新調(diào)整控件位置
End Sub
Private Sub Close_Click()
Dim FileNum As Integer
If Len(FileName) > 0 Then
'有輸入文件名
FileNum = FreeFile() '獲得可用文件號(hào)
Open FileName For Output As FileNum '打開(kāi)輸出文件
'如果無(wú)指定文件，則創(chuàng)建新文件
Print #FileNum, Text1.Text '輸出文本
Close FileNum '關(guān)閉文件
End If
Text1.Text = ""
FileName = ""
End Sub
Private Sub ComboSize_Click()
Text1.FontSize = Val(ComboSize.Text)
End Sub
Private Sub ComboFont_Click()
Text1.FontName = ComboFont.Text
End Sub
Private Sub Copy_Click()
Clipboard.SetText Text1.SelText '復(fù)制文本到剪裁板
End Sub
Private Sub Cut_Click()
Clipboard.SetText Text1.SelText '復(fù)制文本到剪裁板
Text1.SelText = "" '清選擇的文本
End Sub
Private Sub DataTime_Click()
Text1.SelText = Now
End Sub
Private Sub Delete_Click()
Text1.SelText = "" '清選擇的文本
E
nd Sub
Private Sub Edit_Click()
'當(dāng)程序顯示“編輯”子菜單前，觸發(fā)該程序
If Text1.SelLength > 0 Then
'文本框中有選中的文本
Cut.Enabled = True
Copy.Enabled = True
Delete.Enabled = True
Else
Cut.Enabled = False
Copy.Enabled = False
Delete.Enabled = False
End If
If Len(Clipboard.GetText()) > 0 Then
'剪裁板中有文本數(shù)據(jù)
Paste.Enabled = True
Else
'沒(méi)有可粘貼的文本
Paste.Enabled = False
End If
End Sub
Private Sub Exit_Click()
Unload Me
End Sub
Private Sub FindText_KeyPress(KeyAscii As Integer)
Dim BeginPos As Long
If KeyAscii = 13 Then
BeginPos = InStr(1, Text1.Text, FindText.Text, vbTextCompare)
If BeginPos > 0 Then
Text1.SelStart = BeginPos - 1
Text1.SelLength = Len(FindText.Text)
End If
End If
End Sub
Private Sub Fontcolor_Click()
CommonDialog1.ShowColor
Text1.ForeColor = CommonDialog1.Color
End Sub
Private Sub Form_Load()
Dim i As Integer
'加載圖像
ImgNew.Picture = ImageUp.ListImages("New").Picture
ImgOpen.Picture = ImageUp.ListImages("Open").Picture
ImgSave.Picture = ImageUp.ListImages("Save").Picture
ImgUndo.Picture = ImageDisable.ListImages("Undo").Picture
Check_ImgPaste
Check_ImgCutCopy
'加載系統(tǒng)字體
For i = 0 To Screen.FontCount - 1
ComboFont.AddItem Screen.Fonts(i)
Next i
End Sub
Private Sub Form_Resize()
Dim TextTop As Long
'修改工具條大小
CoolBar1.Top = Me.ScaleTop
?????????????????????????????
??????????????????????????????????
???????????
????????????????????????????
??????????
????????????????????????????????????????????
????????
???????????????????
??????????
?????????????????????????????????????
???????????????? Me.ScaleLeft
Text1.Width = Me.ScaleWidth
If Me.ScaleHeight > CoolBar1.Height Then
Text1.Height = Me.ScaleHeight - TextTop
Else
Text1.Height = 0
End If
End Sub
Private Sub ImgCopy_Click()
Copy_Click '復(fù)制
Check_ImgPaste
Check_ImgCutCopy
End Sub
Private Sub ImgCopy_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'“按下”按鈕
If Button = 1 Then
ImgCopy.Picture = ImageDown.ListImages("Copy").Picture
End If
End Sub
Private Sub ImgCopy_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1 = "將選擇的文本復(fù)制到剪裁板"
'判斷鼠標(biāo)位置,顯示不同圖像
If Button = 1 And (X > 0 And X < ImgNew.Width And Y > 0 And Y < ImgNew.Height) Then
ImgCopy.Picture = ImageDown.ListImages("Copy").Picture
ElseIf Button = 1 Then
ImgCopy.Picture = ImageUp.ListImages("Copy").Picture
End If
End Sub
Private Sub ImgCopy_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
'“抬起”按鈕
ImgCopy.Picture = ImageUp.ListImages("Copy").Picture
End If
End Sub
Private Sub ImgCut_Click()
'If Text1.SelLength > 0 Then
Cut_Click '剪切
Check_ImgPaste
Check_ImgCutCopy
'End If
End Sub
Pr
ivate Sub ImgCut_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
'“按下”按鈕
ImgCut.Picture = ImageDown.ListImages("Cut").Picture
End If
End Sub
Private Sub ImgCut_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1 = "剪切選擇的文字到剪裁板"
'判斷鼠標(biāo)位置,顯示不同圖像
If Button = 1 And (X > 0 And X < ImgNew.Width And Y > 0 And Y < ImgNew.Height) Then
ImgCut.Picture = ImageDown.ListImages("Cut").Picture
ElseIf Button = 1 Then
ImgCut.Picture = ImageUp.ListImages("Cut").Picture
End If
End Sub
Private Sub ImgCut_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
'“抬起”按鈕
ImgCut.Picture = ImageUp.ListImages("Cut").Picture
End If
End Sub
Private Sub ImgNew_Click()
New_Click
End Sub
Private Sub ImgNew_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
'“按下”按鈕
ImgNew.Picture = ImageDown.ListImages("New").Picture
End If
End Sub
Private Sub ImgNew_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1 = "創(chuàng)建新文件" '修改提示信息
'判斷鼠標(biāo)位置,顯示不同圖像
If Button = 1 And (X > 0 And X < ImgNew.Width And Y > 0 And Y < ImgNew.Height) Then
ImgNew.Picture = ImageDown.ListImages("New").Picture
ElseIf Button = 1 Then
ImgNew.Picture = ImageUp.ListImages("New").Picture
End If
End Sub
Private Sub ImgNew_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
'“抬起”按鈕
ImgNew.Picture = ImageUp.ListImages("New").Picture
End If
End Sub
Private Sub ImgOpen_Click()
Open_Click
End Sub
Private Sub ImgOpen_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'“按下”按鈕
If Button = 1 Then
ImgOpen.Picture = ImageDown.ListImages("Open").Picture
End If
End Sub
Private Sub ImgOpen_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1 = "選擇文件名并打開(kāi)文件"
'判斷鼠標(biāo)位置,顯示不同圖像
If Button = 1 And (X > 0 And X < ImgNew.Width And Y > 0 And Y < ImgNew.Height) Then
ImgOpen.Picture = ImageDown.ListImages("Open").Picture
ElseIf Button = 1 Then
ImgOpen.Picture = ImageUp.ListImages("Open").Picture
End If
End Sub
Private Sub ImgOpen_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
'“抬起”按鈕
ImgOpen.Picture = ImageUp.ListImages("Open").Picture
End If
End Sub
Private Sub ImgPaste_Click()
Paste_Click '粘貼
End Sub
Private Sub ImgPaste_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
'“按下”按鈕
ImgPaste.Picture = ImageDown.ListImages("Paste").Picture
End If
End Sub
Private Sub ImgPaste_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1 = "粘貼文本到當(dāng)前光標(biāo)位置"
'判斷鼠標(biāo)位置,顯示不同圖像
If Button = 1 And (X > 0 And X < ImgNew.Width And Y > 0 And Y < ImgNew.Height) Then
ImgPaste.Picture = ImageDown.ListImages("Paste").Picture
ElseIf Button = 1 Then
ImgPaste.Picture = ImageUp.ListImages("Paste").Picture
End If
End Sub
Private Sub ImgPaste_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
???????????
??????????????????????????????????????????????????????????????
??????????
???????
???????????????????????????
?????????????????????????????????
????
?????????????????????????????
?????????
?????????????????????????????????????
????????????????eName For Output As FileNum '打開(kāi)輸出文件
'如果無(wú)指定文件，則創(chuàng)建新文件
Print #FileNum, Text1.Text '輸出文本
Close FileNum '關(guān)閉文件
ImgUndoDisable
Else
MsgBox "不能保存無(wú)名文件" + Chr(13) + Chr(10) + "請(qǐng)選擇“文件”菜單的“保存”項(xiàng)", , "警告"
End If
End Sub
Private Sub ImgSave_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
ImgSave.Picture = ImageDown.ListImages("Save").Picture
End If
End Sub
Private Sub ImgSave_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1 = "保存當(dāng)前文件"
'判斷鼠標(biāo)位置,顯示不同圖像
If Button = 1 And (X > 0 And X < ImgNew.Width And Y > 0 And Y < ImgNew.Height) Then
ImgSave.Picture = ImageDown.ListImages("Save").Picture
ElseIf Button = 1 Then
ImgSave.Picture = ImageUp.ListImages("Save").Picture
End If
End Sub
Private Sub ImgSave_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
'“抬起”按鈕
ImgSave.Picture = ImageUp.ListImages("Save").Picture
End If
End Sub
Private Sub ImgUndo_Click()
Text1.Text = UndoString
End Sub
Private Sub ImgUndo_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
'“按下”按鈕
ImgUndo.Picture = ImageDown.ListImages("Undo").Picture
End If
End Sub
Private Sub ImgUndo_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1 = "取消當(dāng)前操作"
'判斷鼠標(biāo)位置,顯示不同圖像
If Button = 1 And (X > 0 And X < ImgNew.Width And Y > 0 And Y < ImgNew.Height) Then
ImgUndo.Picture = ImageDown.ListImages("Undo").Picture
ElseIf Button = 1 Then
ImgUndo.Picture = ImageUp.ListImages("Undo").Picture
End If
End Sub
Private Sub ImgUndo_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
'“抬起”按鈕
ImgUndo.Picture = ImageUp.ListImages("Undo").Picture
End If
End Sub
Private Sub New_Click()
FileName = ""
Text1 = ""
ImgUndoDisable
End Sub
Private Sub Open_Click()
Dim FileNum As Integer
Dim buffer As String
Dim buffer1 As String
Dim FileSize As Long
Dim MaxLen As Long
MaxLen = 32768 '文件最大長(zhǎng)度
CommonDialog1.ShowOpen '顯示"打開(kāi)文件"對(duì)話框
If Len(CommonDialog1.FileName) > 0 Then
'有輸入文件名
FileName
= CommonDialog1.FileName '保存文件名
FileSize = FileLen(FileName) '獲得文件長(zhǎng)度
If FileSize > MaxLen Then
'文件超長(zhǎng)
MsgBox "該文件過(guò)大，只能顯示部分文本", , "警告"
Exit Sub
End If
Screen.MousePointer = 11 '設(shè)置鼠標(biāo)為沙漏
FileNum = FreeFile() '獲得可用文件號(hào)
Open FileName For Input As FileNum '以順序輸入方式打開(kāi)文件
Do While Not EOF(FileNum) And Len(buffer) < MaxLen '讀必須文本小于 32K
Line Input #FileNum, buffer1 '讀一行文字
buffer = buffer + buffer1 + Chr(13) + Chr(10) '加入回車換行符
Loop '循環(huán)體
Close FileNum '關(guān)閉文件
ImgUndoDisable '取消 Undo 功能
Text1.Text = buffer '顯示文本
UndoNew = buffer '保存文本
buffer = "" '釋放內(nèi)存
buffer1 = ""
Screen.MousePointer = 0 '恢復(fù)鼠標(biāo)指針
Me.Caption = "記事本 - " + FileName '修改標(biāo)題顯示
End If
End Sub
Private Sub Paste_Click()
Text1.SelText = Clipboard.GetText
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1 = "工具欄"
End Sub
Private Sub Picture1_Resize()
If Picture1.Width > Label1.Left Then
Label1.Width = Picture1.ScaleWidth - Label1.Left
End If
End Sub
Private Sub Save_Click()
Dim FileNum As Integer '文件句柄號(hào)
CommonDialog1.ShowSave '顯示保存對(duì)話框
If Len(CommonDialog1.FileName) > 0 Then
'有輸入文件名
FileName = CommonDialog1.FileName '保存文件名
FileNum = FreeFile() '獲得可用文件號(hào)
Open FileName For Output As FileNum '打開(kāi)輸出文件
'如果無(wú)指定文件，則創(chuàng)建新文件
Print #FileNum, Text1.Text '輸出文本
Close FileNum '關(guān)閉文件
Me.Caption = "記事本 - " + FileName '修改標(biāo)題顯示
ImgUndoDisable
End If
End Sub
Private Sub Text1_Change()
If Not ImgUndo.Enabled Then
'使“Undo”按鈕可用
ImgUndoEnable
End If
UndoString = UndoNew
UndoNew = Text1
End Sub
Private Sub Text1_Click()
Check_ImgCutCopy
End Sub
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
Check_ImgCutCopy
End sub
【學(xué)生檔案管理系統(tǒng) 2】相關(guān)文章：
ASP制作學(xué)生檔案管理系統(tǒng) 204-12
學(xué)生檔案管理系統(tǒng)08-06
縣水利系統(tǒng)檔案管理工作的匯報(bào)08-12
檔案管理述職報(bào)告2篇【集合】12-19