【正文】 39。 ,39。 39。 End If If = 1 And IsNumeric(Text3) Then SQLadd = SQLadd + and 人數(shù) =39。 + Text2 + 39。 39。 amp。 , myCon If = False Then MsgBox 該班級(jí)已經(jīng)存在，請重新輸入！ Exit Sub End If 班級(jí)表 , myCon, 3, 2 (年級(jí) ) = 42 (專業(yè) ) = (人數(shù) ) = (輔導(dǎo)員 ) = If = Then (備注 ) = Else (備注 ) = End If MsgBox 添加成功 ! = select * from 班級(jí)表 order by 年級(jí) = = = = = End Sub Private Sub Command2_Click() Dim NianJi, xi, RenShu, FuDaoYuan, BeiZu As String NianJi = ZhuanYe = RenShu = FuDaoYuan = BeiZu = If Trim(NianJi) = Or Trim(ZhuanYe) = Or Trim(RenShu) = Or Trim(FuDaoYuan) = Then MsgBox 請?zhí)顚懸獎(jiǎng)h除班級(jí)的資料！ 43 Exit Sub End If If = 1 Then End If Provider=。 select * from 班 級(jí) 表 where 年級(jí) =39。 在本次畢業(yè)設(shè)計(jì)中， 感謝王欣穎老師 ， 從她 身上學(xué)到了很多東西。在本系統(tǒng)的開發(fā)過程中，由于本人是初次開發(fā)軟件，在知識(shí)、經(jīng)驗(yàn)方面都存在著不足。 33 第 5 章 系統(tǒng)具體實(shí)現(xiàn) 課程設(shè)置 圖 51 課程設(shè)置圖 運(yùn)行程序后，進(jìn)入課程管理模塊， 課程管理模塊的第一塊是課程設(shè)置，在這模塊中可以把專業(yè)、年級(jí)、學(xué)期、課程名稱、教材、任課老師、課時(shí)、上課地點(diǎn)、課程性質(zhì)和考試性質(zhì)等信息輸入，以便使用。 圖 41 登錄窗口界面 30 圖 42 系統(tǒng)主窗口 圖 43 修改密碼窗口 31 所有信息都是根據(jù)這張學(xué)生檔案進(jìn)行有關(guān)的 操作，主要的字段有：學(xué)號(hào)、姓名、年級(jí)、專業(yè)、性別、出生年月、民族、籍貫、政治面貌、家庭地址、郵政編碼、聯(lián)系電話、入學(xué)時(shí)間、備注。 （ 2） 后備數(shù)據(jù)庫 該數(shù)據(jù)庫主要保存兩類信息：學(xué)生信息、成績信息。按班級(jí)為單位查詢備份數(shù)據(jù)庫的學(xué)生信息，補(bǔ)考情況。 （ 3）課程信息管理功能 16 課程管理。 （ 2） 學(xué)生學(xué)籍管理系統(tǒng) 功能 分?jǐn)?shù)錄入。該功能主要進(jìn)行成批地刪除學(xué)生信息，如連續(xù)學(xué)號(hào)區(qū)段的多位學(xué)生信息刪除，整個(gè)班級(jí)的刪除，所有學(xué)生信息的刪除。其主要功能包括： （ 1） 學(xué)生學(xué)籍管理系統(tǒng) 功能 班級(jí)管理。用戶只需進(jìn)行輸入一些簡單的漢字、數(shù)字 , 或用鼠標(biāo)點(diǎn)擊即可達(dá)到自己想要的目標(biāo)。接下來就針對 學(xué)生 12 學(xué)籍管理系統(tǒng) 系統(tǒng)的總體需求作分析，在實(shí)際開發(fā)過程中可以在本系統(tǒng)需求分析中繼續(xù)完善。通過本系統(tǒng)，把本校內(nèi)部查詢學(xué)生信息、教務(wù)信息、學(xué)生選課各個(gè)環(huán)節(jié)進(jìn)行有效地計(jì)劃、組織和控制。 10 （ 2）新建一個(gè)數(shù)據(jù)庫 創(chuàng)建任何一個(gè)數(shù)據(jù)庫的第一步是仔細(xì)的規(guī)劃數(shù)據(jù)庫，設(shè)計(jì)必須是靈活的、有邏輯的。我們可以設(shè)置 ADODC控件的各個(gè)屬性，告訴它要調(diào)用那個(gè)數(shù)據(jù)庫的哪個(gè)部分。數(shù)據(jù)表示圖提供了一種類似于Excel 的電子表格，可以使數(shù)據(jù)庫一目了然。 4． 學(xué)生學(xué)籍管理系統(tǒng) 系統(tǒng)的查詢模塊 （ 1）查詢模塊的設(shè)計(jì)分析 根據(jù)實(shí)際情況，我們使用原型法 (Rapid Prototyping) 即以少量代價(jià)快速地構(gòu)造一個(gè)可執(zhí)行的軟件模型。 （ 2）實(shí)現(xiàn)菜單選項(xiàng) 菜單是程序最重要的特性之一，大多數(shù)程序都依賴一個(gè)定義良好的菜單使程序易于使用和維護(hù)， Visual Basic 也提供了強(qiáng)大的創(chuàng)建菜單功能是程序更加標(biāo)準(zhǔn)。系統(tǒng)程序大體可分成四個(gè)模塊：數(shù)據(jù)輸入、根據(jù)查詢、數(shù)據(jù)打印和通訊。 （ 4）事件 (Events) 事件是指用戶或操作者對計(jì)算機(jī)進(jìn)行的某一操作（如擊鍵、單擊或移動(dòng)鼠標(biāo)等）的行為或系統(tǒng)狀態(tài) 發(fā)生的變化。 （ 2）對象 (Object) 對象是 VB 系統(tǒng)內(nèi)部提供給設(shè)計(jì)者可以直接使用的處理輸出的控制工具。它簡單易學(xué)、效率高、且功能強(qiáng)大。配備電腦，但實(shí)際利用率不高，如果采用計(jì)算機(jī)進(jìn)行以上各類信息的管理，必將大大提高工作效率，對學(xué)校各類信息的維護(hù)及了解起到積極的作用。除財(cái)務(wù)部門有專人及專用軟件進(jìn)行信息處理外，其它各類的數(shù)據(jù)處理都由班主任以及教導(dǎo)處工作人員人工完成。一個(gè)功能齊全、簡單易用的信息管理系統(tǒng)不但能有效地減輕學(xué)校相關(guān)工作人員的工作負(fù)擔(dān)，它的內(nèi)容對于學(xué)校的決 策者和管理者來說都至關(guān)重要。 5）班級(jí)管理信息的查詢。 III 目 錄 摘要 ………………………………………………………………… Ⅰ Abstract ????????????????????? … Ⅱ 前言 ???????????????????????? 1 第 1章 緒論 ????? ???????????????? 3 目的 背景 與意義 ???????????????? 3 相關(guān)技術(shù)與開發(fā)工具介紹 ?? ?????????? 4 第 2 章 可行性分析 ???? ?????????????? 11 開發(fā) 學(xué)生學(xué)籍管理系統(tǒng) 的必要性 ??? ?? ??? 12 學(xué)生學(xué)籍管理系統(tǒng) 系統(tǒng)的系統(tǒng)需求 ????? ?? 12 總體功能要求 ????? ?????????? ? 12 性能的需求 ????????????????? 13 第 3 章 總體設(shè)計(jì) ??? ?????? ?????????? 15 系統(tǒng)功能描述 ????? ??????????? 15 數(shù)據(jù)流圖與數(shù)據(jù)字典 ???????? ? ???? 16 數(shù)據(jù)庫設(shè)計(jì) ??? ? ????????????? 26 第 4 章 詳細(xì)設(shè)計(jì) ?? ????????????????? 29 系統(tǒng)界面設(shè)計(jì) ? ??????????????? 29 數(shù)據(jù)鏈接 ?? ??? ????????????? 31 第 5 章 系統(tǒng)具體實(shí)現(xiàn) ? ??? ????????????? 33 課程設(shè)置 ? ? ???????????????? 33 打印統(tǒng)計(jì) ?? ?????? ?????????? 34 第 6 章 學(xué)生信息系統(tǒng)軟件測試 ? ? ? ?????????? 36 結(jié)束語 ? ?????????????????????? 38 致謝 ????????????????????????? 39 參考文獻(xiàn) ?????????????????? ????? 40 附錄 ????????????????????????? 41 1 前言 隨著學(xué)校的規(guī)模不斷擴(kuò)大，學(xué)生數(shù)量急劇增加，有關(guān)學(xué)生的各種信息量也成倍增長。管理信息系統(tǒng)是一個(gè)不斷發(fā)展的新型學(xué)科，任何一個(gè)單位要生存要發(fā)展，要高效率地把內(nèi)部活動(dòng)有機(jī)地組織起來，就必須建立與自身特點(diǎn)相適應(yīng)的管理信息系統(tǒng)。學(xué)生管理 。 2）學(xué)生信息的查詢，包括查詢學(xué)生基本信息、所在班級(jí)和成績等。而對于后者則要求應(yīng)用程序功能完備，易使用等特點(diǎn)。這些優(yōu)點(diǎn)能夠極大地提高學(xué)校信息管理的效率 ,也是一個(gè)單位科學(xué)化、正規(guī)化管理 ,與世界接軌的重要條件。 4 教導(dǎo)處在每一屆學(xué)生進(jìn)校時(shí)必須進(jìn)行分班，設(shè)置學(xué)號(hào)；每一屆學(xué)生畢業(yè)，要進(jìn)行學(xué)生信息備份； 對于成績管理，課任教師要進(jìn)行本科目成績登記，計(jì)算平均分、優(yōu)秀率、及格率；班主任在期中考試和期末考試后計(jì)算本班學(xué)生總分，排名次；教導(dǎo)處要統(tǒng)計(jì)補(bǔ)考學(xué)生人數(shù)及相應(yīng)名單，每學(xué)期進(jìn)行學(xué)生成績備份；學(xué)校領(lǐng)導(dǎo)則可通過查詢工具來了解學(xué)生成績情 況。本人將在原來的基礎(chǔ)上，著眼未來，追蹤計(jì)算機(jī)新技術(shù)發(fā)展，并應(yīng)用到系統(tǒng)持續(xù)開發(fā)中。 2． 系統(tǒng)幾個(gè)在程序應(yīng)用中的常用名詞 Visual Basic 系統(tǒng)除了一般高級(jí)語言所具有的一些名詞術(shù)語外，還有幾個(gè)系統(tǒng)常用的名詞。 （ 3）屬性 (Properties) 屬性是 VB 系統(tǒng)提供的有關(guān)對象的參數(shù)或數(shù)據(jù)接口。其程序的方法有Show（顯示）方法， Hide（隱藏）方法， Refresh（刷新）方法。開發(fā)人員可以最有效利用所創(chuàng)建的每一個(gè)對象。 選擇“工程”下拉菜單中的“部件”選項(xiàng)，顯示“部件”對話框。故而，實(shí)現(xiàn)本系統(tǒng) VB 是一個(gè)相對較好的選擇。 （ 4）二者的結(jié)合 (DBA) 微軟的 JET 數(shù)據(jù)庫引擎提供了與數(shù)據(jù)庫打交道的途徑，我們是通過它以及 Visual Basic 來訪問數(shù)據(jù)庫并對其進(jìn)行各種操作。數(shù)據(jù)庫的作用在于組織和表達(dá)信息，簡而言之，數(shù)據(jù)庫就是信息的集合。針對這樣的情況，采用讓數(shù)據(jù)的查詢變得簡單化，數(shù)據(jù)變的更讓每個(gè)人都在任何時(shí)刻都可以了解到。 采用本系統(tǒng)，能夠使整個(gè)系統(tǒng)內(nèi)部所有信息的工作簡化，提高工作效益。計(jì)算機(jī)與人類的關(guān)系愈來愈密切 , 為了適應(yīng)現(xiàn)代社會(huì)人們高度強(qiáng)烈的時(shí)間觀念 , 學(xué)生學(xué)籍管理系統(tǒng) 系統(tǒng)為教學(xué)辦公帶來了極大的方便。 （ 3） 靈活性 當(dāng)用戶需求，如操作方式，運(yùn)行環(huán)境，結(jié)構(gòu)精度和數(shù)據(jù)結(jié)構(gòu)與其他軟件接口等發(fā)生變化時(shí)，設(shè)計(jì)的軟件要求能做適應(yīng)調(diào)整。單個(gè)添加學(xué)生供數(shù)量較少的學(xué)生信息入庫；成批添加可以從現(xiàn)存的學(xué)生信息 EXCEL 文件中成批錄入到數(shù)據(jù)庫中。設(shè)置學(xué)號(hào)實(shí)現(xiàn)自動(dòng)為各班學(xué)生 編發(fā)學(xué)號(hào)。修改總評成績，以決定最終補(bǔ)考人數(shù)。 學(xué)生信息查詢。 ② 成績表：記錄學(xué)生的期中、期末及總評的各科成績。 （ 3） 對每個(gè)模塊進(jìn)行詳細(xì)的算法設(shè)計(jì)。同時(shí)，將桌面的 DataGrid 控件選中，在屬性框中，將它的 Datasoure 設(shè)為 Adodc。在這個(gè)階段，我們假設(shè)所有的單元已通過開發(fā)人員個(gè)人在單元測試階段測試全部通過，沒有任何錯(cuò)誤。 盡管本管理系統(tǒng)存在著很多不足，但其功能全面、易于日后程序更新、數(shù)據(jù)庫管理容易、界面友好、操作方便、效率高、安全性好等優(yōu)點(diǎn)是本管理系統(tǒng)所必需的。同時(shí)，在 系統(tǒng)開發(fā)過程中還有同組的同學(xué) 也 給 了 我不少幫助，這里一并表示感謝。 amp。 39。 End Sub Private Sub Text1_Change() = True End Sub 2. 檔案增加代碼： Private Sub DataGrid1_Click() = select * from 學(xué)生檔案 where 學(xué)號(hào) = 39。Persist Security Info=False (男 ) (女 ) (團(tuán)員 ) (黨員 ) (無 ) = End Sub 3. 成績統(tǒng)計(jì)代碼： Private Sub Command1_Click() Dim SQLoriginal As String Dim SQLadd As String Dim SQLorder As String Dim strSql As String 46 On Error Resume Next SQLoriginal = SELECT * FROM 成績表 SQLadd = WHERE 學(xué)號(hào) =學(xué)號(hào) AND 姓名 =姓名 SQLorder = If = 1 And IsNumeric(Text1) Then SQLadd = SQLadd + and 學(xué)號(hào) =39。 + Text1 + 39。 amp。 Case like 39。 amp。 39。 39。 39。 + Text4 + 39。 End If If = 1 Then SQLadd = SQLadd + and 科目分?jǐn)?shù) 60 End If strSql = SQLoriginal + SQLadd + SQLorde If = 1 Then End If strSql vbModal = = = End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() 47 = = =