vb課程設計學生信息管理系統(tǒng)

1、學生信息管理系統(tǒng)1課程設計的目的 隨著Internet的飛速發(fā)展，以及數(shù)據(jù)庫技術的逐漸成熟，在各個高校，基于校園網(wǎng)的學生管理信息系統(tǒng)已經(jīng)相當普及，而與此同時，全國高職院校也在教育快速發(fā)展的浪潮中實現(xiàn)了規(guī)模的迅速擴大，校園網(wǎng)絡也相當?shù)钠占?，而現(xiàn)在廣大高職院校往往借用高等院校的學生管理信息系統(tǒng)，由于辦學模式和管理制度的差異，高等院校的學生管理系統(tǒng)并不適合高職院校的實際需求。在這樣的背景下，全國高職院校對于一套針對高職院校的學生管理信息系統(tǒng)需求非常迫切，學生信息管理系統(tǒng)也就是人們常說的管理信息系統(tǒng)。近年來作為計算機技術與通信技術相結合產(chǎn)生的計算機網(wǎng)絡得到了飛速的發(fā)展，并成為當前現(xiàn)代家庭與社會的基礎設

2、施，尤其是隨著Internet技術越來越廣泛的應用，網(wǎng)絡覆蓋的區(qū)域不斷擴大，正在向全球每一個角落延伸，并將逐步進入到千家萬戶。可以說，計算機網(wǎng)絡的飛速發(fā)展，使人類正在面臨一場信息時代的變革，人類社會開始進入真正的信息的時代。隨著學校規(guī)模的不斷擴大，學生的數(shù)量急劇增加，有關學生的各種信息管理也成倍增長。而對于龐大的信息量，就需要有學生信息管理系統(tǒng)來提高學生管理工作的效率，取代從前的手工操作?；诮窈笥嬎銠C的網(wǎng)路普及以及方便實現(xiàn)用戶閱讀及統(tǒng)一查詢，所以使用SQL server2000做數(shù)據(jù)庫系統(tǒng)，使用Visual Basic作為前臺處理軟件。通過用VB6.0編寫員工信息管理系統(tǒng)，掌握 Visual

3、 Basic語言的數(shù)據(jù)類型、表達式、程序結構與流程控件語句、數(shù)組、函數(shù)、過程的概念與使用方法； 掌握程序界面中菜單、工具欄、狀態(tài)欄的設計方法，能用對話框設計單文檔程序，掌握MDI多窗體程序的設計方法； 了解數(shù)據(jù)庫應用程序的結構，初步掌握以DATA控件、ADO控件、ADO對象為數(shù)據(jù)源，設計數(shù)據(jù)庫應用程序的方法；。該系統(tǒng)主要考慮了員工信息管理需求:，支持多條件查詢;修改、添加、查詢、刪除數(shù)據(jù)方便簡單，數(shù)據(jù)穩(wěn)定性好。本系統(tǒng)可以對員工基本信息進行添加，修改，刪除，查詢操作，還可以對員工的調動信息進行添加，刪除，修改，查詢等操作。真正實現(xiàn)了員工信息管理的自動化和信息化。隨著計算機性能進一步提高以及網(wǎng)絡的

4、普及，給予網(wǎng)絡的學生信息管理系統(tǒng)以其技術優(yōu)勢和完善的功能，必將具有廣泛的應用前景。2設計方案論證2.1學生信息管理系統(tǒng)分析與設計(一) 學生信息管理系統(tǒng)的需求分析此學生信息管理信息系統(tǒng)是面向大學的管理系統(tǒng)，其目的是對學校內的學生，班級，和其它信息進行統(tǒng)一有序的管理。該系統(tǒng)分為如下幾個模塊：（1）學生信息查詢模塊：該模塊主要實現(xiàn)對學生基本信息的查詢。根據(jù)學生學號信息查詢學生的姓名、性別、班級、電話。（2）學生信息修改模塊：實現(xiàn)學校課程信息的修改功能。通過學生的學號來修改學生的姓名、性別、班級、電話。（3）學生信息插入模塊：實現(xiàn)學生信息的錄入操作。錄入學生信息為學號、姓名、性別、班級、電話。（4）

5、學生信息刪除模塊：主要實現(xiàn)信息的刪除功能。通過學生的學號把這個學生的所有信息刪除。(二) 系統(tǒng)功能模塊圖 成績信息管理課程信息管理班級信息管理學籍信息管理系統(tǒng)管理成績的添加和修改成績查詢年級課程設置班級課程信息管理學籍信息的添加班級信息修改班級信息添加學籍查詢和修改密碼設置用戶設置學生信息管理系統(tǒng) 圖1系統(tǒng)模塊圖學籍信息管理(三)學籍信息模塊學籍信息添加學籍信息修改學籍信息查詢 圖2 學籍信息模塊圖（四）數(shù)據(jù)庫分析數(shù)據(jù)庫在一個信息管理系統(tǒng)中占有非常重要的地位，數(shù)據(jù)庫結構設計的好壞將直接對應用系統(tǒng)的效率以及實現(xiàn)的效果產(chǎn)生影響。合理的數(shù)據(jù)庫結構設計可提高數(shù)據(jù)存儲的效率，保證數(shù)據(jù)的完整和一致。同時，

6、合理的數(shù)據(jù)庫結構也將有利于程序的實現(xiàn)。數(shù)據(jù)庫需求分析用戶的需求具體體現(xiàn)在各種信息的提供、保證、更新和查詢，這就要求數(shù)據(jù)庫結構能夠充分滿足各種信息的輸出和輸入。針對一般學生信息管理系統(tǒng)的要求，通過對學生學習過程的內容和數(shù)據(jù)流程分析，設計如下的數(shù)據(jù)項和數(shù)據(jù)結構：（1）學生基本信息：包括的數(shù)據(jù)項有：學生學號、學生姓名、性別、出身日期、班號、聯(lián)系電話、入校日期、家庭地址、備注等。（2）班級信息：包括的數(shù)據(jù)項有：班號、所在年級、班主任姓名、所在教室等。（3）課程基本信息：包括的數(shù)據(jù)項有：課程號、課程名稱、課程類別、課程描述等。（4）課程設置信息：包括數(shù)據(jù)項有：年級信息、所學課程等。（5）學生成績信息：包

7、括數(shù)據(jù)項有：考試編號、所在班號、學生學號、學生姓名、所學課程、考試分數(shù)等。2.2系統(tǒng)開發(fā)環(huán)境簡介 該軟件是在Windows XP Professional + Visual Basic 6.0 + SQL Server 2000的環(huán)境下完成的。下面就對這些開發(fā)工具進行介紹：2.2.1 Visual Basic 6.0微軟公司的Visual Basic 6.0是Windows應用程序開發(fā)工具，是目前最為廣泛的、易學易用的面向對象的開發(fā)工具。Visual Basic提供了大量的控件，這些控件可用于設計界面和實現(xiàn)各種功能，減少了編程人員的工作量，也簡化了界面設計過程，從而有效的提高了應用程序的運行效

8、率和可靠性。利用VISUAL BASIC 程序設計語言，可以很方便地設計出在WINDOWS環(huán)境下運行的應用程序。故而，實現(xiàn)本系統(tǒng)VB是一個相對較好的選擇。2.2.2 Visual Basic的編程特點Visual Basic語言的出現(xiàn)為Windows下的編程提出了一個新概念，利用Visual Basic的動態(tài)數(shù)據(jù)交換、對象的鏈接和嵌入、動態(tài)鏈接庫、ActiveX技術可以很方便地設計出功能強大的應用程序。利用Visual Basic語言編程有以下幾個特點：2.2.3 SQL Server 數(shù)據(jù)庫特點概括起來，SQL Server 2000數(shù)據(jù)庫管理系統(tǒng)具有以下主要特點。（1）、豐富的圖形管理工具

9、，使系統(tǒng)管理、操作更為直觀方便。SQL Server企業(yè)管理器是一個基于圖形用戶界面（GUI）的集成管理工具，利用它可以配置管理SQL Server服務器、管理數(shù)據(jù)庫和數(shù)據(jù)庫對象、備份和恢復數(shù)據(jù)、調度任務和管理警報、實現(xiàn)數(shù)據(jù)復制和轉換操作等。此外，SQL Server 2000還提供了SQL事件探查器、SQL查詢分析器、SQL Server服務管理器和多種操作向導等圖形界面管理工具，大大簡化了用戶操作，從而增強了系統(tǒng)的易用性。（2）、動態(tài)自動管理和優(yōu)化功能。即使SQL Server數(shù)據(jù)庫管理員不做任何設置，SQL Server也能夠在運行過程中根據(jù)環(huán)境配置和用戶訪問情況動態(tài)自動配置，以達到最優(yōu)

10、性能，從而減輕管理員工作。（3）、充分的Internet技術支持。Internet網(wǎng)絡發(fā)展到今天已經(jīng)成為一條重要的信息發(fā)布渠道，SQL Server增強了對Internet技術支持，它除保留了前期版本中的數(shù)據(jù)庫Web出版工具“Web助手”外，還增強了對XML和HTTP技術的支持，這使得電子商務系統(tǒng)能夠通過XML等訪問SQL Server數(shù)據(jù)庫系統(tǒng)，也擴展了SQL Server在數(shù)據(jù)挖掘和分析服務領域的應用。（4）、豐富的編程接口工具，使用戶開發(fā)SQL Server數(shù)據(jù)庫應用程序更加靈活。SQL Server提供了Transact-SQL、DB-Library for C、嵌入式SQL（ESQL

11、）等開發(fā)工具，Transact-SQL與工業(yè)標準SQL語言兼容，并在其基礎上加以擴充，使它更適合事務處理方面的需要。此外，SQL Server 2000還支持ODBC、OLE DB、ADO規(guī)范，可以使用ODBC、OLE DB、ADO接口訪問SQL Server數(shù)據(jù)庫。（5）、具有很好的伸縮性和可靠性。SQL Server 2000既能運行在Windows桌面操作系統(tǒng)下，又可運行在服務器操作系統(tǒng)（包括Windows NT和Windows 2000）下；既能運行在單CPU計算機上，又能運行在對稱多處理系統(tǒng)下。所以，它具有很好的伸縮性，能夠滿足從桌面應用到大型企業(yè)分布式應用到不同層次用戶的要求。（6

12、）、簡單的管理方式。SQL Server 2000與Microsoft Windows 2000有機集成，所以可以使用Windows 2000的活動目錄（Active Directory）功能對SQL Server進行集中管理，大大簡化大型企業(yè)中的系統(tǒng)管理工作。此外，與Windows 2000的集成還使SQL Server能夠充分利用操作系統(tǒng)所提供的服務和功能（如安全管理、事件日志、性能監(jiān)視器、內存管理和異步I/O等），從而增強了SQL Server數(shù)據(jù)庫系統(tǒng)的功能，并且只需要占用很少的系統(tǒng)資源。2.2.4制作工具概述本系統(tǒng)的數(shù)據(jù)庫管理系統(tǒng)采用SQL Server Management Stu

13、dio 2000，客戶端采用Windows XP，本系統(tǒng)開發(fā)工具主要采用VB6.0設計系統(tǒng)。設計平臺：Visual BasicVisual Basic 6.0是功能最為強大可視化開發(fā)工具，它不僅支持傳統(tǒng)的軟件開發(fā)方法，更重要的是它能支持面向對象、可視化的開發(fā)風格。因此Visual Basic 6.0又稱作是一個集成開發(fā)工具，它提供了軟件代碼自動生成和可視化的資源編輯功能。 Visual Basic是一個對象導向設計的應用程序語言，是開發(fā)數(shù)據(jù)庫前端的經(jīng)典工具，它的編程語言簡潔明快、組件功能強大和編程環(huán)境靈活方便。采用Visual Basic來開發(fā)數(shù)據(jù)庫應用程序具有靈活性和可擴展性。SQL2000

14、 是關系數(shù)據(jù)庫開發(fā)工具，數(shù)據(jù)庫能匯集各種信息以供查詢、存儲和檢索。SQL2000的優(yōu)點在于它能使用數(shù)據(jù)表示圖或自定義窗體收集信息。數(shù)據(jù)表示圖提供了一種類似于 Excel 的電子表格，可以使數(shù)據(jù)庫一目了然。SQL2000 是一種關系數(shù)據(jù)庫工具，關系數(shù)據(jù)庫是已開發(fā)的最通用的數(shù)據(jù)庫之一。SQL2000 多用于中小型企業(yè)來設計中小型數(shù)據(jù)庫，一般的學校教務系統(tǒng)的數(shù)據(jù)庫用SQL2000 來設計完全能達到要求。SQL Server Management Studio 2000是微軟公司推出的基于Windows的桌面關系數(shù)據(jù)庫管理系統(tǒng)（RDBMS，即Relational Database Management

15、 System），是Office系列應用軟件之一。它提供了表、查詢、窗體、報表、頁、宏、模塊7種用來建立數(shù)據(jù)庫系統(tǒng)的對象；提供了多種向導、生成器、模板，把數(shù)據(jù)存儲、數(shù)據(jù)查詢、界面設計、報表生成等操作規(guī)范化；為建立功能完善的數(shù)據(jù)庫管理系統(tǒng)提供了方便，也使得普通用戶不必編寫代碼，就可以完成大部分數(shù)據(jù)管理的任務。ADO（Active Data Objects）是一種提供訪問各種數(shù)據(jù)類型的連接機制。ADO設計為一種極簡單的格式，通過ODBC的方法同數(shù)據(jù)庫接口?？梢允褂萌魏我环NODBC數(shù)據(jù)源，即不止適合于SQL Server、Oracle、Access 等數(shù)據(jù)庫應用程序，也適合于Excel表格、文本文件

16、、圖形文件和無格式的數(shù)據(jù)文件。ADO具有以下的優(yōu)點：對于本地和遠程的數(shù)據(jù)庫訪問都與具體的數(shù)據(jù)庫無關，由于ADO是Microsoft開發(fā)的，所以它對Microsoft的Access和SQL Server的數(shù)據(jù)訪問有著非常好的支持，因此如果是基于Access和SQL Server的數(shù)據(jù)庫應用程序的開發(fā)，那么采用ADO是很好的選擇。因為本系統(tǒng)是基于SQL2000數(shù)據(jù)庫的設計，因此我們采用了ADO。2.3軟件功能簡介本系統(tǒng)的開發(fā)目標是有效管理學生信息，實現(xiàn)學生信息的數(shù)據(jù)錄入、瀏覽、修改等，實現(xiàn)學生信息的規(guī)范化、系統(tǒng)化、自動化管理。根據(jù)對客戶端用戶和客戶進行調研，得出下面的說明文本。（1）由于學生學籍等

17、信息具有一定的保密性，為了便于管理，應該為用戶設置密碼保護，提高系統(tǒng)的數(shù)據(jù)安全性。（2）軟件能夠對學生的學籍信息進行記錄，并能夠非常方便地瀏覽、添加、編輯和查詢學生的學籍信息。能夠通過軟件及時了解學生的基本情況，同時能夠提供學生學籍信息的報表打印功能。（3）系統(tǒng)應該具有數(shù)據(jù)庫維護功能，系統(tǒng)運行在Windows平臺上，應該具有較好的圖形用戶界面，還應有較好的可擴展性。3設計結果與分析3.1 學生信息管理系統(tǒng)主窗體（1）創(chuàng)建一個工程名為Student_Mis的工程文件Student_Mis.vbp。（2）創(chuàng)建學生信息管理系統(tǒng)的主窗體MID窗體，窗體名為frmMain，窗體文件名為：frmMain.

18、frm。圖3主窗體表1 vb屬性表對象屬性屬性值對象屬性屬性值主菜單項1名稱sysMenu子菜單項2名稱modifycionfoMenu標題系統(tǒng)標題修改班級信息子菜單項1名稱adduserMenu主菜單項4名稱courseMenu標題添加用戶標題課程設置子菜單項2名稱modifypwdMenu子菜單項1名稱addcourseMenu標題修改密碼標題添加課程設計子菜單項3名稱exitMenu子菜單項2名稱modifycourseMenu標題退出系統(tǒng)標題修改課程信息主菜單項2名稱sinfoMenu子菜單項3名稱gradecourseMenu標題學籍信息標題設計年級課程子菜單項1名稱addsinfo

19、Menu主菜單項5名稱resultMenu標題添加學籍信息標題成績管理子菜單項2名稱modifysinfoMenu子菜單項1名稱addresultMenu標題修改學籍信息標題添加成績信息子菜單項3名稱inquiresinfoMenu子菜單項2名稱modifyresultMenu標題查詢學籍信息標題修好學籍信息主菜單項3名稱classinfoMenu子菜單項3名稱inquireresultMenu標題班級管理標題查詢成績信息子菜單項1名稱addcinfoMenu標題添加班級信息3.2用戶學籍管理模塊的創(chuàng)建（1）系統(tǒng)用戶管理模塊主頁實現(xiàn)：用戶登陸；用戶添加；修改用戶密碼用戶登陸窗體的創(chuàng)建。進入系統(tǒng)

20、后出現(xiàn)如圖2.1所示用戶登陸窗體，用戶首先輸入用戶名，然后輸入密碼。如果用戶3次輸入密碼不正確，將退出程序。 圖4用戶登錄圖（2）學籍管理模塊的創(chuàng)建學籍信息管理主題實現(xiàn)如下功能：添加學籍信息；修改學籍信息；查詢學校信息。添加學籍信息窗體的創(chuàng)建。選擇“學籍管理|添加學籍信息”菜單，將出現(xiàn)如圖2.4所示的窗體。圖5添加學籍信息圖（3）修改學籍信息窗體的創(chuàng)建。選擇“學籍管理|修改學籍信息”菜單，將會出現(xiàn)如圖2.5所示的窗體。這個窗體在添加學籍信息窗體的基礎上增加了兩排按鈕。圖6修改學籍信息圖（4）查詢學籍信息窗體的建立。選擇“學籍管理|查詢學籍信息”菜單，將出現(xiàn)如圖2.6所示的窗體。這里可以按照各種

21、方式以及它們的組合進行查詢。圖7查詢學籍信息4設計體會在設計過程中，與同學分工設計，和同學們相互探討，相互學習，相互監(jiān)督。學會了合作，學會了運籌帷幄，學會了寬容，學會了理解，也學會了做人與處世。課程設計是我們專業(yè)課程知識綜合應用的實踐訓練，著是我們邁向社會，從事職業(yè)工作前一個必不少的過程”千里之行始于足下”，通過這次課程設計，我深深體會到這句千古名言的真正含義我今天認真的進行課程設計，學會腳踏實地邁開這一步，就是為明天能穩(wěn)健地在社會大潮中奔跑打下堅實的基礎通過這次模具設計，本人在多方面都有所提高。通過這次模具設計，綜合運用本專業(yè)所學課程的理論和生產(chǎn)實際知識進行一次冷沖壓模具設計工作的實際訓練從

22、而培養(yǎng)和提高學生獨立工作能力，鞏固與擴充了冷沖壓模具設計等課程所學的內容，掌握冷沖壓模具設計的方法和步驟，掌握冷沖壓模具設計的基本的模具技能懂得了怎樣分析零件的工藝性，怎樣確定工藝方案，了解了模具的基本結構，提高了計算能力，繪圖能力，熟悉了規(guī)范和標準，同時各科相關的課程都有了全面的復習，獨立思考的能力也有了提高。在這次設計過程中，體現(xiàn)出自己單獨設計模具的能力以及綜合運用知識的能力，體會了學以致用、突出自己勞動成果的喜悅心情，從中發(fā)現(xiàn)自己平時學習的不足和薄弱環(huán)節(jié)，從而加以彌補。在此感謝我們的老師.，老師嚴謹細致、一絲不茍的作風一直是我工作、學習中的榜樣；老師循循善誘的教導和不拘一格的思路給予我無

23、盡的啟迪；這次模具設計的每個實驗細節(jié)和每個數(shù)據(jù)，都離不開老師您的細心指導。而您開朗的個性和寬容的態(tài)度，幫助我能夠很順利的完成了這次課程設計。同時感謝對我?guī)椭^的同學們，謝謝你們對我的幫助和支持，讓我感受到同學的友誼。 由于本人的設計能力有限，在設計過程中難免出現(xiàn)錯誤，懇請老師們多多指教,我十分樂意接受你們的批評與指正，本人將萬分感謝。 參考文獻1 劉天慧等編著.Visual Basic程序設計教程M.北京:清華大學出版社，2006.2:156-1852 薩師煊,王珊.數(shù)據(jù)庫系統(tǒng)概論M,(第三版）.北京：高等教育出版社，2006.5:1982333 梁偉等編. Visual Basic 管理信息

24、系統(tǒng)項目開發(fā)實踐.北京：科學出版社，2003:127-2114 程斌等編. Visual Basic 6.0數(shù)據(jù)庫開發(fā)指南.西安：電子科技大學出版社，2000:232-2545 武馬群Visual Basic程序設計M.北京：北京工業(yè)大學出版社，2005.03：67-906 陳元春. Visual Basic數(shù)據(jù)庫編程 M.北京：清華大學出版社，2007.07：37-707 蔣加伏.Visual Basic程序設計教程M.北京: 北京郵電大學出版社，2003.11：10-568 王國榮,VisualBasic6.0與Windows API講座M.北京:人民郵電出版社，2007.4:100-13

25、0 9 劉新民,蔡瓊,白康生編著.Visual Basic 6.0程序設計M.北京:清華大學出版社，2004.3 20-2510李春葆，曾平編著數(shù)據(jù)庫原理與應用M.北京：清華大學出版社.，2006.1 41-74附錄：部分模塊源代碼Private Sub Command1_Click() Dim mrc As ADODB.Recordset Dim txtSQL As String Dim MsgText As String if Not Testtxt(txtSID.Text) Then MsgBox 請輸入學號！, vbOKOnly + vbExclamation, 警告 txtSID.S

26、etFocus Exit Sub End If If Not Testtxt(txtName.Text) Then MsgBox 請輸入姓名！, vbOKOnly + vbExclamation, 警告 txtName.SetFocus Exit Sub End If If Not Testtxt(comboSex.Text) Then MsgBox 請選擇性別！, vbOKOnly + vbExclamation, 警告 comboSex.SetFocus Exit Sub End If If Not Testtxt(txtBorndate.Text) Then MsgBox 請輸入出生日期

27、！, vbOKOnly + vbExclamation, 警告 txtBorndate.SetFocus Exit Sub End If If Not Testtxt(comboClassno.Text) Then MsgBox 請選擇班號！, vbOKOnly + vbExclamation, 警告 comboClassno.SetFocus Exit Sub End If If Not Testtxt(txtTel.Text) Then MsgBox 請輸入聯(lián)系電話！, vbOKOnly + vbExclamation, 警告 txtTel.SetFocus Exit Sub End If

28、 If Not Testtxt(txtRudate.Text) Then MsgBox 請輸入入校日期！, vbOKOnly + vbExclamation, 警告 txtRudate.SetFocus Exit Sub End If If Not Testtxt(txtAddress.Text) Then MsgBox 請輸入家庭住址！, vbOKOnly + vbExclamation, 警告 txtAddress.SetFocus Exit Sub End If If Not IsNumeric(Trim(txtSID.Text) Then MsgBox 請輸入數(shù)字！, vbOKOnly

29、 + vbExclamation, 警告 Exit Sub txtSID.SetFocus End If txtSQL = select * from student_Info where student_ID = & Trim(txtSID.Text) & Set mrc = ExecuteSQL(txtSQL, MsgText) If mrc.EOF = False Then MsgBox 學號重復，請重新輸入！, vbOKOnly + vbExclamation, 警告 mrc.Close txtSID.SetFocusElsemrc.Close If Not IsDate(txtBorndate.Text) Then MsgBox 出生時間應輸入日期格式（yyyy-mm-dd）！, vbOKOnly + vbExclamation, 警告 txtBorndate.SetFocus Else txtBorndate = Format(txtBorndate, yyyy-mm-dd) If Not IsDate(txtRudate.Text) Then MsgBox 入校時間應輸入日期格式（yyyy-