1、學(xué)生信息管理系統(tǒng)（總體設(shè)計(jì)）1、管理系統(tǒng)功能模塊設(shè)計(jì)本系統(tǒng)需要完成的功能主要有：（1）、有關(guān)學(xué)籍信息的輸入，包括輸入學(xué)生基本信息、所在班級(jí)、所學(xué)課程和成績等。（2）、學(xué)生信息的查詢，包括查詢學(xué)生基本信息、所在班級(jí)、已學(xué)課程和成績等。（3）、學(xué)生信息的修改。（4）、班級(jí)管理信息的輸入，包括輸入班級(jí)設(shè)置、年級(jí)信息等。（5）、班級(jí)管理信息的查詢。（6）、班級(jí)管理信息的修改。（7）、學(xué)?；菊n程信息的輸入。（8）、基本課程信息的修改。（9）、學(xué)生課程設(shè)置和修改。（10）、學(xué)生成績信息的輸入。（11）、學(xué)生成績信息的修改。（12）、學(xué)生成績信息的查詢。（13）、學(xué)生成績信息的統(tǒng)計(jì)。2、功能模塊設(shè)計(jì)：3、

2、數(shù)據(jù)庫設(shè)計(jì)：(1)學(xué)生基本信息：student_Info列名數(shù)據(jù)類型說明Student_idInt(4)學(xué)號(hào)（主鍵）Student_nameChar(10)姓名Student_sexChar(2)性別Born_dateDatetime(8)出生日期Class_noInt(4)班級(jí)號(hào)Tele_numberChar(10)聯(lián)系電話Ru_dateDatetime(8)入校時(shí)期AddressVarchar(50)家庭住址commentVarchar(200)備注(2)班級(jí)基本信息:class_Info列名數(shù)據(jù)類型說明Class_noInt(4)班級(jí)號(hào)（主鍵）Class_nameVarchar(50)班

3、級(jí)名稱DirectorVarchar(50)班主任professionVarchar(50)專業(yè)(3)課程基本信息：course_Info列名數(shù)據(jù)類型說明Course_noInt(4)課程編號(hào)（主鍵）Course_nameChar(10)課程名稱Course_typeChar(10)課程類型Course_startChar(10)開始學(xué)期Course_timeInt(4)學(xué)時(shí)數(shù)Course_scoreInt(4)學(xué)分(4)學(xué)生成績信息：result_Info列名數(shù)據(jù)類型說明Student_idInt(4)學(xué)號(hào)（主鍵）Student_nameChar(10)姓名Course_noInt(4)課程

4、號(hào)（主鍵）Course_typeChar(10)課程類型resultFloat(8)成績(5)用戶信息：user_Info列名數(shù)據(jù)類型說明User_codeVarchar(50)用戶密碼（主鍵）User_nameVarchar(50)用戶名（主鍵）學(xué)生信息管理系統(tǒng)（需求分析）1.系統(tǒng)開發(fā)背景分析系統(tǒng)的功能取決開用戶的需求。隨著科技進(jìn)步和信息時(shí)代的到來，教育的普及程度起來起高，學(xué)校的人數(shù)也在迅速的增長，怎樣的管理好成千上萬的學(xué)生，已經(jīng)成為一個(gè)學(xué)校的管理者必須面對(duì)的問題。編寫本報(bào)告的目的就是用最少的代價(jià)，盡可能短的時(shí)間內(nèi)確定問題是否能夠解決，通過對(duì)學(xué)校的一些管理軟件的調(diào)研分析，發(fā)現(xiàn)了一些不足，所以

5、擬做此系統(tǒng)，使學(xué)生信息的管理更加準(zhǔn)確,安全和快捷。在本次試驗(yàn)中包括的模塊有學(xué)生信息管理、課程信息管理、成績信息管理和班級(jí)信息管理等幾項(xiàng)，各項(xiàng)管理工作涉及到的內(nèi)容用下面的關(guān)系模式表示。a)學(xué)生（學(xué)號(hào)，姓名，性別，年齡，班級(jí)，電話，備注，出生日期，入學(xué)時(shí)間，班級(jí)編號(hào)，家庭地址）b)課程（課程編號(hào)，課程名稱，課程類別，學(xué)分，學(xué)時(shí)）c)班級(jí)（系，班級(jí)號(hào)，指導(dǎo)老師）2.系統(tǒng)分析1.抽象出當(dāng)前系統(tǒng)的邏輯模型畫出反映當(dāng)前系統(tǒng)工作的數(shù)據(jù)流程圖。數(shù)據(jù)流程圖是邏輯模型的圖形表示，即使不是專業(yè)的計(jì)算機(jī)技術(shù)人員也能非常容易理解，它是一種很好的系統(tǒng)構(gòu)造的表示方法。畫數(shù)據(jù)流程圖是應(yīng)該從已獲得的人工處理流程中去掉物理因素，

6、只保留數(shù)據(jù)、信息處理部分。2系統(tǒng)功能分析系統(tǒng)主要用于學(xué)校學(xué)生信息管理，主要任務(wù)是用計(jì)算機(jī)對(duì)學(xué)生各種信息進(jìn)行日常管理，如：查詢、修改、增加、刪除。3.系統(tǒng)目標(biāo)設(shè)計(jì) 根據(jù)本校的實(shí)際情況，利用校園網(wǎng)而設(shè)計(jì)一套針對(duì)性和功能都比較強(qiáng)的學(xué)生信息管理系統(tǒng)，對(duì)學(xué)生信息管理系統(tǒng)進(jìn)行科學(xué)的分類、錄入、查詢 4.開發(fā)設(shè)計(jì)思想 盡量采用學(xué)校現(xiàn)有的軟硬件環(huán)境及先進(jìn)的管理系統(tǒng)開發(fā)方案，從而達(dá)到充分利用資源，提高系統(tǒng)開發(fā)的水平和應(yīng)用效果的目的。系統(tǒng)應(yīng)該符合學(xué)校學(xué)生信息管理的規(guī)定，滿足學(xué)校學(xué)生日常管理的需要，達(dá)到操作過程中的直觀、方便、實(shí)用、安全等要求。強(qiáng)調(diào)多部門合作，學(xué)生工作設(shè)計(jì)面廣泛，應(yīng)該考慮各部門各層次的需求，便于維護(hù)

7、。要建立可靠的數(shù)據(jù)備份。通過對(duì)數(shù)據(jù)流程圖的進(jìn)一步分析,得出學(xué)生信息管理系統(tǒng)應(yīng)該具備以下功能:1、實(shí)現(xiàn)學(xué)生基本信息的登記2、實(shí)現(xiàn)數(shù)據(jù)的瀏覽與修改3、實(shí)現(xiàn)查詢符合一定條件的資料4、實(shí)現(xiàn)學(xué)生有關(guān)數(shù)據(jù)的統(tǒng)計(jì)分析5.E-R圖6數(shù)據(jù)流程圖7.數(shù)據(jù)字典學(xué)生信息管理系統(tǒng)（實(shí)現(xiàn)、調(diào)試、運(yùn)行）編碼1、登錄模塊代碼：Option ExplicitPrivate Sub cmd3_Click()Dim cn As ADODB.ConnectionDim rs As ADODB.RecordsetDim str_cn As String 訪問sql server的連接字符串Dim str_sql As Stringst

8、r_cn = driver=sql server;server=.;uid=sa;pwd=;database=studentSet cn = New ADODB.Connectioncn.CursorLocation = adUseClientcn.Open str_cn 連接sql serverstr_sql = select * from user_info where user_name= & Text1.Text & and user_code= & Text2.Text & Set rs = New ADODB.Recordsetrs.Open str_sql, cn, adOpen

9、Dynamic, adLockOptimisticIf Len(Text1.Text) = 0 ThenMsgBox 請(qǐng)輸入用戶名！, 64, 提示Text1.SetFocusElseIf Len(Text2.Text) = 0 ThenMsgBox 請(qǐng)輸入密碼！, 64, 提示Text2.SetFocusElseIf rs.RecordCount = 0 Theni = MsgBox(不存在該用戶，是否立即注冊(cè)？, 4 + 32, 提示)If i = 6 ThenUnload MeForm3.ShowElsemdlTextBox.Blank MeText2.SetFocusEnd IfEls

10、e Unload MeForm1.HideForm4.ShowEnd IfEnd IfEnd SubPrivate Sub Form_Load()mdlTextBox.Centen Me 使窗體居中End SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Label5.ForeColor = vbBlackLabel5.FontUnderline = FalseLabel6.ForeColor = vbBlackLabel6.FontUnderline = Fa

11、lseEnd SubPrivate Sub Label5_Click()Unload MeForm3.ShowEnd SubPrivate Sub Label5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Label5.ForeColor = vbBlueLabel5.FontUnderline = TrueEnd SubPrivate Sub Label6_Click()Unload MeForm2.ShowEnd SubPrivate Sub Label6_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Label6.ForeColor = vbBlueLabel6.FontUnderline = TrueEnd Sub2、添加學(xué)生信息代碼：Option ExplicitPrivate Sub Command1_Click()If Len(Text1.Text) = 0 Or Len(Text6.Text) = 0 ThenMsgB