【正文】 其主要任務(wù)是用計算機對學(xué)生各種信息進行日常管理，如查詢、修改 、增加、刪除，另外還考慮到學(xué)生選課，針對這些要求設(shè)計了學(xué)生信息管理系統(tǒng)。學(xué)生信息的修改。學(xué)生課程的設(shè)置和修改。經(jīng)過分析，我們使用MICROSOFT公司的VISUAL BASIC開發(fā)工具，利用其提供的各種面向?qū)ο蟮拈_發(fā)工具，尤其是數(shù)據(jù)窗口這一能方便而簡潔操縱數(shù)據(jù)庫的智能化對象，首先在短時間內(nèi)建立系統(tǒng)應(yīng)用原型，然后，對初始原型系統(tǒng)進行需求迭代，不斷修正和改進，直到形成用戶滿意的可行系統(tǒng)。所以學(xué)生信息管理系統(tǒng)應(yīng)該能夠為用戶提供充足的信息和快捷的查詢手段。這些優(yōu)點能夠極大地提高學(xué)校信息管理的效率,也是一個單位科學(xué)化、正規(guī)化管理,與世界接軌的重要條件。教導(dǎo)處目前有幾十個班級的學(xué)生，處理的信息主要有五大類：學(xué)生信息、成績數(shù)據(jù)、課程信息。教導(dǎo)處在每一屆學(xué)生進校時必須進行分班，設(shè)置學(xué)號；每一屆學(xué)生畢業(yè)，要進行學(xué)生信息備份；對于成績管理，課任教師要進行本科目成績登記，計算平均分、優(yōu)秀率、及格率；班主任在期中考試和期末考試后計算本班學(xué)生總分，排名次；教導(dǎo)處要統(tǒng)計補考學(xué)生人數(shù)及相應(yīng)名單，每學(xué)期進行學(xué)生成績備份；學(xué)校領(lǐng)導(dǎo)則可通過查詢工具來了解學(xué)生成績情況。另外隨著計算機網(wǎng)絡(luò)的持續(xù)發(fā)展，無論是工作、學(xué)習(xí)還是生活，將會越來越多地融入到流動的比特中，人們的工作節(jié)奏在不斷加快，需要快捷的信息來源，并對此作出反應(yīng)。本人將在原來的基礎(chǔ)上，著眼未來，追蹤計算機新技術(shù)發(fā)展，并應(yīng)用到系統(tǒng)持續(xù)開發(fā)中。在Visual Basic環(huán)境下，利用事件驅(qū)動的編程機制、新穎易用的可視化設(shè)計工具，使用Windows內(nèi)部的應(yīng)用程序接口（API）函數(shù)，以及動態(tài)鏈接庫（DLL）、動態(tài)數(shù)據(jù)交換（DDE）、對象的鏈接與嵌入（OLE）、開放式數(shù)據(jù)連接（ODBC）等技術(shù)，可以高效、快速地開發(fā)出Windows環(huán)境功能強大、圖形界面豐富的應(yīng)用軟件系統(tǒng)。2．2．2 Visual Basic 系統(tǒng)幾個在程序應(yīng)用中的常用名詞 Visual Basic 系統(tǒng)除了一般高級語言所具有的一些名詞術(shù)語外，還有幾個系統(tǒng)常用的名詞。本程序所應(yīng)用到的對象類型有標簽框 (Label Box)，文本框 (Text Box)，命令按扭 (Command Button)，網(wǎng)格 (Data Grid)，ADO控件 (Adodc1)等。屬性 (Properties)屬性是VB系統(tǒng)提供的有關(guān)對象的參數(shù)或數(shù)據(jù)接口。VB系統(tǒng)常用事件來引導(dǎo)計算機執(zhí)行一段程序。其程序的方法有Show（顯示）方法，Hide（隱藏）方法，Refresh（刷新）方法。 2．2．3 Windows下的Visual Basic 編程環(huán)境簡介1 、面對對象的編程面向?qū)ο蟮脑O(shè)計方法 (OOP, Objected Programming) 從應(yīng)用領(lǐng)域內(nèi)的問題著手，以直觀自然的方式描述客觀世界的實體。開發(fā)人員可以最有效利用所創(chuàng)建的每一個對象。本系統(tǒng)使用 Visual Basic 的菜單編輯器建立菜單或者修改已經(jīng)存在的菜單，您也可以使用Visual Basic 的Application Wizard 來操作。選擇“工程”下拉菜單中的“部件”選項，顯示“部件”對話框。使用戶可以較快地確定需求，然后采用循環(huán)進化的開發(fā)方式，對系統(tǒng)模型作連續(xù)的精化，將系統(tǒng)需具備的性質(zhì)逐漸增加上去，直到所有的性質(zhì)全部滿足。故而，實現(xiàn)本系統(tǒng)VB是一個相對較好的選擇。另外，Access允許創(chuàng)建自定義報表用于打印或輸出數(shù)據(jù)庫中的信息。二者的結(jié)合(DBA)微軟的JET數(shù)據(jù)庫引擎提供了與數(shù)據(jù)庫打交道的途徑，我們是通過它以及Visual Basic來訪問數(shù)據(jù)庫并對其進行各種操作。缺省情況下，ADODC控件根據(jù)數(shù)據(jù)庫中的一個或多個數(shù)據(jù)庫表建立一個dynasettype（動態(tài)集合）類型的記錄集合。數(shù)據(jù)庫的作用在于組織和表達信息，簡而言之，數(shù)據(jù)庫就是信息的集合。創(chuàng)建一個數(shù)據(jù)庫結(jié)構(gòu)的過程被認為是數(shù)據(jù)模型設(shè)計。針對這樣的情況，采用讓數(shù)據(jù)的查詢變得簡單化，數(shù)據(jù)變的更讓每個人都在任何時刻都可以了解到。通過本校內(nèi)部的信息，依據(jù)統(tǒng)一數(shù)據(jù)信息進行管理，把任何一塊信息所產(chǎn)生的數(shù)據(jù)變動及時地反映給其它相關(guān)信息，做到數(shù)據(jù)共享。采用本系統(tǒng)，能夠使整個系統(tǒng)內(nèi)部所有信息的工作簡化，提高工作效益。集成測試包括以下內(nèi)容：連續(xù)集成測試數(shù)據(jù)庫測試數(shù)據(jù)整合測試功能測試功能測試環(huán)境操作系統(tǒng)：windows 98內(nèi)存：128M網(wǎng)絡(luò)環(huán)境：校園網(wǎng) 本功能測試共分為:系統(tǒng)功能測試測試是否可以正常添加用戶和修改密碼，系統(tǒng)正常退出測試是否可以正常對班級進行管理，學(xué)生的單個或成批添加，刪除以及新生信息的導(dǎo)入和學(xué)生信息備份測試成績管理中是否可以進行分數(shù)錄入，匯總及排名和成績備份等操作測試課程信息模塊中針對課程管理，老師和課程的關(guān)系之間操作是否正常測試是否可以正常查詢學(xué)生，老師和成績 鏈接測試這一部分將測試系統(tǒng)各模塊之間的超鏈接跳轉(zhuǎn)是否正確 文檔測試 本章主要內(nèi)容為：測試文檔是否包括全部內(nèi)容測試軟件功能描述與其他功能有沒有沖突查看軟件功能描述是否是原來系統(tǒng)分析和需求查看文檔內(nèi)容在特定的情況和進度下,以現(xiàn)有人力,物力和資源能否實現(xiàn)負載測試這一部分將測試正常情況下系統(tǒng)性能和用戶數(shù)目之間的關(guān)系本章主要內(nèi)容為：查看在多個用戶同時使用本系統(tǒng)時是否正常極限測試這一部分將測試所有極端的情況，如速度非常快的情況下和速度非常慢的情況下，以及所有其它的極端情況。添加學(xué)生。刪除學(xué)生。本部分的功能主要有新生導(dǎo)入、分班、及設(shè)置學(xué)號。學(xué)生信息備份?？偡旨懊?。成績備份。它是學(xué)生成績管理的基礎(chǔ)。根據(jù)用戶的要求，查詢學(xué)生數(shù)據(jù)庫的所有可能的信息，其中包括成績查詢。由于成績信息和教師信息與學(xué)生信息關(guān)系密切，因此將這三類信息存放在同一數(shù)據(jù)庫中，以提高多種信息同時讀取的速度。課程表：記錄各專業(yè)各年級開課情況，在添加學(xué)生記錄時，可根據(jù)該表的情況決定在成績表添加學(xué)生記錄的個數(shù)。在這一階段的工作中，主要任務(wù)有以下幾項：根據(jù)原型化的開發(fā)原則，為系統(tǒng)的每個模塊功能進行界面設(shè)計，作為進一步優(yōu)化的基礎(chǔ)。登錄窗口界面： 本系統(tǒng)中使用到的數(shù)據(jù)表主要有班級表、成績表、繳費表、課程表、學(xué)生檔案、用戶資料，由這六個表，組成了名為信息的數(shù)據(jù)庫（如圖一）。 在VB中，用ADODC鏈接數(shù)據(jù)庫，用DataGrid或DATA將庫中的數(shù)據(jù)在界面中顯示出來，本系統(tǒng)采用DataGrid。然后再右擊，同樣，在彈出的快捷菜單中選擇“編輯”，我們就可以所在的表格的寬度進行調(diào)整。打印統(tǒng)計包括班級統(tǒng)計分析、檔案統(tǒng)計分析、課程統(tǒng)計分析、成績統(tǒng)計分析和交費統(tǒng)計分析五類。在此，我對三年來輔導(dǎo)過我的各位任課老師深表感謝主要參考文獻本系統(tǒng)的過程中，主要的參考文獻有：《Visual 》 林陳雷 人民郵電出版社《面向?qū)ο蟪绦蛟O(shè)計系列教材》 龔沛曾 高等教育出版社《Visual 》 何文俊《學(xué)用Visual Basic 編程》 潭 浩 西安電子科技大學(xué)出版社《Visual 數(shù)據(jù)庫開發(fā)與專業(yè)應(yīng)用》 敬 錚 國防工業(yè)出版社《Visual 數(shù)據(jù)庫程序設(shè)計高手》 溫賢發(fā) 科學(xué)出版社《Visual 程序設(shè)計》 陳明 中央廣播電視大學(xué)出版社附:源程序：課程設(shè)置下面為其代碼：Private Sub Command1_Click()Dim myCon As New Dim myRs As New Dim ZhuanYe, NianJi, XueQi, KeCheng, JiaoCai, RenKLS, KeShi, ShangKeDD, KeChengXZ, KaoShiXZ As StringZhuanYe = NianJi = XueQi = KeCheng = JiaoCai = RenKLS = KeShi = ShangKeDD = KeChengXZ = KaoShiXZ = If Trim(ZhuanYe) = Or Trim(NianJi) = Or Trim(XueQi) = Or Trim(KeCheng) = Or Trim(JiaoCai) = Or Trim(RenKLS) = Or Trim(KeShi) = Or Trim(ShangKeDD) = Or Trim(KeChengXZ) = Or Trim(KaoShiXZ) = Then MsgBox 請?zhí)顚懸薷恼n程資料的內(nèi)容！ = = Exit SubEnd If dsn=信息 select * from 課程表 where 專業(yè)=39。, myCon, 3, 2 myRs!年級 = myRs!學(xué)期 = myRs!課程名稱 = myRs!教材 = myRs!任課老師 = myRs!課時 = myRs!上課地點 = myRs!課程性質(zhì) = myRs!考試性質(zhì) = MsgBox 您確定要修改嗎？, vbYesNo, 提示 = = 39。 Trim() amp。 = (年級)39。 = (任課老師)39。 = (考試性質(zhì))End SubPrivate Sub DTPicker1_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)End SubPrivate Sub Form_Activate() = strTiaoJianSet = End SubPrivate Sub Form_Load() (必修) (選修) (自開) (考試) (查考) = = 39。 amp。 Trim(Text1) amp。 ,39。)0 End Select a = Trim(Combo4)Select Case a Case = KCCX2 = amp。 39。 Case like KCCX2 = Instr(1, amp。 Trim() amp。 KCCX1 Else strTiaoJian = select * from 課程表 where amp。 KCCX2 ElseIf KCCX2 = Then strTiaoJian = select * from 課程表 where amp。 KCCX2 End IfElse If KCCX1 = Then strTiaoJian = select * from 課程表 where amp。 amp。 amp。 Trim() amp。 Trim() amp。 and amp。 and amp。 End If If sqlstr = Then MsgBox 請先輸入查找時間！ Exit Sub End If strTiaoJian = select 專業(yè),年級,學(xué)期,課程名稱,教材,任課老師,課時,上課地點,課程性質(zhì),考試性質(zhì) from 課程表 where amp。打印統(tǒng)計包括班級統(tǒng)計分析、檔案統(tǒng)計分析、課程統(tǒng)計分析、成績統(tǒng)計分析和交費統(tǒng)計分析五類。 + Text2 + 39。 + Text4 + 39。 + Text2 + 39。 amp。 + Text1 + 39。If = 1 And Not IsNumeric(Text2) Then 39。End IfIf = 1 And Not IsNull(Text3) Then SQLadd = SQLadd + and 課程名稱=39。 = = = (必修) (選修) (自開)End SubPrivate Sub Text3_Change()End Sub成績統(tǒng)計分析代碼如下：Private Sub Command1_Click()Dim SQLoriginal As StringDim SQLadd As StringDim SQLorder As StringDim strSql As String On Error Resume NextSQLoriginal = SELECT * FROM 成績表 SQLadd = WHERE 學(xué)號=學(xué)號 AND 姓名=姓名 SQLorder = If = 1 And IsNumeric(Text1) Then SQLadd = SQLadd + and 學(xué)號=39。End IfIf = 1 And Not IsNull(Text3) Then SQLadd = SQLadd + and 考試科目=39。 + Text1 + 39。 + Text3 +