學(xué)生信息管理系統(tǒng)

學(xué)生信息管理系統(tǒng)（總體設(shè)計(jì)）1、管理系統(tǒng)功能模塊設(shè)計(jì)本系統(tǒng)需要完成的功能主要有：（1）、有關(guān)學(xué)籍信息的輸入，包括輸入學(xué)生基本信息、所在班級(jí)、所學(xué)課程和成績(jī)等。（2）、學(xué)生信息的查詢，包括查詢學(xué)生基本信息、所在班級(jí)、已學(xué)課程和成績(jī)等。（3）、學(xué)生信息的修改。（4）、班級(jí)管理信息的輸入，包括輸入班級(jí)設(shè)置、年級(jí)信息等。（5）、班級(jí)管理信息的查詢。（6）、班級(jí)管理信息的修改。（7）、學(xué)校基本課程信息的輸入。（8）、基本課程信息的修改。（9）、學(xué)生課程設(shè)置和修改。（10）、學(xué)生成績(jī)信息的輸入。（11）、學(xué)生成績(jī)信息的修改。（12）、學(xué)生成績(jī)信息的查詢。（13）、學(xué)生成績(jī)信息的統(tǒng)計(jì)。學(xué)生信息管理系統(tǒng)*密碼管理系統(tǒng)管理用戶管理（1）學(xué)生基本信息：student_Info列名數(shù)據(jù)類型說(shuō)明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ù)類型說(shuō)明Class_noInt(4)班級(jí)號(hào)（主鍵）Class_nameVarchar(50)班級(jí)名稱DirectorVarchar(50)班主任professionVarchar(50)專業(yè)（3）課程基本信息：course_Info列名數(shù)據(jù)類型說(shuō)明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é)生成績(jī)信息：result_Info列名數(shù)據(jù)類型說(shuō)明Student_idInt(4)學(xué)號(hào)（主鍵）Student_nameChar(10)姓名Course_noInt(4)課程號(hào)（主鍵）Course_typeChar(10)課程類型resultFloat(8)成績(jī)（5）用戶信息：user_Info列名數(shù)據(jù)類型說(shuō)明User_codeVarchar(50)用戶密碼（主鍵）User_nameVarchar(50)用戶名（主鍵）學(xué)生信息管理系統(tǒng)（需求分析）系統(tǒng)開發(fā)背景分析系統(tǒng)的功能取決開用戶的需求。隨著科技進(jìn)步和信息時(shí)代的到來(lái)，教育的普及程度起來(lái)起高，學(xué)校的人數(shù)也在迅速的增長(zhǎng)，怎樣的管理好成千上萬(wàn)的學(xué)生，已經(jīng)成為一個(gè)學(xué)校的管理者必須面對(duì)的問(wèn)題。編寫本報(bào)告的目的就是用最少的代價(jià)，盡可能短的時(shí)間內(nèi)確定問(wèn)題是否能夠解決，通過(guò)對(duì)學(xué)校的一些管理軟件的調(diào)研分析，發(fā)現(xiàn)了一些不足，所以擬做此系統(tǒng)，使學(xué)生信息的管理更加準(zhǔn)確，安全和快捷。在本次試驗(yàn)中包括的模塊有學(xué)生信息管理、課程信息管理、成績(jī)信息管理和班級(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)老師）系統(tǒng)分析抽象出當(dāng)前系統(tǒng)的邏輯模型畫出反映當(dāng)前系統(tǒng)工作的數(shù)據(jù)流程圖。數(shù)據(jù)流程圖是邏輯模型的圖形表示，即使不是專業(yè)的計(jì)算機(jī)技術(shù)人員也能非常容易理解，它是一種很好的系統(tǒng)構(gòu)造的表示方法。畫數(shù)據(jù)流程圖是應(yīng)該從已獲得的人工處理流程中去掉物理因素，只保留數(shù)據(jù)、信息處理部分。系統(tǒng)功能分析系統(tǒng)主要用于學(xué)校學(xué)生信息管理，主要任務(wù)是用計(jì)算機(jī)對(duì)學(xué)生各種信息進(jìn)行日常管理，如：查詢、修改、增加、刪除。系統(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é)的分類、錄入、查詢.開發(fā)設(shè)計(jì)思想盡量采用學(xué)?，F(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á)到操作過(guò)程中的直觀、方便、實(shí)用、安全等要求。強(qiáng)調(diào)多部門合作，學(xué)生工作設(shè)計(jì)面廣泛，應(yīng)該考慮各部門各層次的需求，便于維護(hù)。要建立可靠的數(shù)據(jù)備份。通過(guò)對(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ì)分析E-R圖數(shù)據(jù)流程圖成績(jī)信息管建數(shù)據(jù)字典名字：學(xué)生基本信息管理別名：描述：反映出學(xué)生的基本信息情況定義：學(xué)生基本信息管理=姓名+年齡+性別+學(xué)號(hào)+班級(jí)+電話入學(xué)時(shí)間+出生年月+家庭地址+備注位置：學(xué)生信息輸入學(xué)生信息查詢學(xué)生信息修改名字：班級(jí)基本信息管理別名：描述：反映出班級(jí)的基本信息情況定義：班級(jí)基本信息管理=系+班級(jí)號(hào)+指導(dǎo)老師位置：班級(jí)信息輸入班級(jí)信息查詢班級(jí)信息修改名字：課程基本信息管理別名：描述：反映出學(xué)生在學(xué)校學(xué)習(xí)的課程的基本情況定義：課程基本信息管理=課程編號(hào)+課程名稱+課程類型+學(xué)分+學(xué)時(shí)位置：課程信息輸入課程信息查詢課程信息修改名字：用戶基本信息別名：描述：反映出用戶的用戶名和密碼定義：用戶基本信息=用戶名+密碼位置：界面登錄系統(tǒng)學(xué)生信息管理系統(tǒng)(實(shí)現(xiàn)、調(diào)試、運(yùn)行)編碼1、登錄模塊代碼：OptionExplicitPrivateSubcmd3_Click()DimcnAsADODB.ConnectionDimrsAsADODB.RecordsetDimstr_cnAsString'訪問(wèn)sqlserver的連接字符串Dimstr_sqlAsStringstr_cn="driver={sqlserver};server二.；uid二sa;pwd=；database二student”Setcn=NewADODB.Connectioncn.CursorLocation=adUseClientcn.Openstr_cn'連接sqlserverstr_sql="select*fromuser_infowhereuser_name='"&Textl.Text&anduser_code='"&Text2.Text&"'”Setrs=NewADODB.Recordsetrs.Openstr_sql,cn,adOpenDynamic,adLockOptimisticIfLen(Textl.Text)=0ThenMsgBox”請(qǐng)輸入用戶名！",64,"提示"Textl.SetFocusElselfLen(Text2.Text)=0ThenMsgBox〃請(qǐng)輸入密碼！",64,〃提示〃Text2.SetFocusElseIfrs.RecordCount=0Theni=MsgBox("不存在該用戶，是否立即注冊(cè)？〃，4+32,〃提示〃)Ifi=6ThenUnloadMeForm3.ShowElsemdlTextBox.BlankMeText2.SetFocusEndIfElse'UnloadMeForml.HideForm4.ShowEndIfEndIfEndSubPrivateSubForm_Load()mdlTextBox.CentenMe'使窗體居中EndSubPrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Label5.ForeColor=vbBlackLabel5.FontUnderline=FalseLabel6.ForeColor=vbBlackLabel6.FontUnderline=FalseEndSubPrivateSubLabel5_Click()UnloadMeForm3.ShowEndSubPrivateSubLabel5_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Label5.ForeColor=vbBlueLabel5.FontUnderline=TrueEndSubPrivateSubLabel6_Click()UnloadMeForm2.ShowEndSubPrivateSubLabel6_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Label6.ForeColor=vbBlueLabel6.FontUnderline=TrueEndSub2、添加學(xué)生信息代碼：OptionExplicitPrivateSubCommand1_Click()IfLen(Textl.Text)=0OrLen(Text6.Text)=0ThenMsgBox〃請(qǐng)將信息補(bǔ)充完整！",48,〃警告〃ExitSubEndIf'添加新記錄sqlstr="select*fromstudent_Info"Setrs=ExecuteSQL(sqlstr,Msg)rs.AddNewrs.Fields("student_id")=Text6.Textrs.Fields("student_name")=Textl.Textrs.Fields(〃class_no〃)=Combo2.Textrs.Fields(〃born_date〃)=Text2.Textrs.Fields("student_sex")=Combo1.Textrs.Fields("address")=Text4.Textrs.Fields("tele_number")=Text7.Textrs.Fields("comment")=Text5.Textrs.Fields("ru_date")=Text3.Textrs.Updaters.CloseMsgBox〃學(xué)生信息添加完成！",48,〃提示信息〃mdlTextBox.BlankMeEndSubPrivateSubCommand2_Click()UnloadMeForm4.ShowEndSubPrivateSubForm_Load()mdlTextBox.CentenMemdlTextBox.BlankMeCombo1.Text="男”：Combo2.Text=""Combol.AddItem”男”Combol.AddItem”女”sqlstr="select*fromclass_Info"Setrs=ExecuteSQL(sqlstr,Msg)Fori=1Tors.RecordCountCombo2.AddItemrs.Fields(O)rs.MoveNextNextirs.CloseEndSub3、刪改學(xué)生信息代碼：OptionExplicitPrivateSubCommand4_Click()'從數(shù)據(jù)庫(kù)中讀取學(xué)生信息并添加到窗體中的輸入框sqlstr="select*fromstudent_Infowherestudent_id='"&Combo2.Text&"'andclass_no='"&Combol.Text&"'"Setrs=ExecuteSQL(sqlstr,Msg)Ifrs.RecordCount=OThenMsgBox〃沒(méi)有找到符合條件的數(shù)據(jù)！",48,〃警告〃mdlTextBox.BlankMe:Combo3.Text=""ElseText2.Text=Trim(rs.Fields("student_id"))Textl.Text=Trim(rs.Fields("student_name"))Text3.Text=Trim(rs.Fields("born_date"))Combo3.Text=Trim(rs.Fields("class_no"))Combo4.Text=Trim(rs.Fields("student_sex"))Text4.Text=Trim(rs.Fields("tele_number"))Text5.Text=Trim(rs.Fields("address"))Text6.Text=Trim(rs.Fields("comment"))Text7.Text=Trim(rs.Fields("ru_date"))EndIfrs.CloseEndSubPrivateSubCommand1_Click()DimcnAsADODB.Connectionsqlstr="updatestudent_infosetstudent_name='"&Textl.Text&"',born_date='"&Text3.Text&"',student_sex='"&Combo4.Text&"',class_no='"&Combol.Text&"',tele_number='"&Text4.Text&"',address='"&Text5.Text&"',comment='"&Text6.Text&"',ru_date='"&Text7.Text&"'wherestudent_id='"&Combo2.Text&"'"OnErrorGoToexitsubSetcn=NewADODB.Connectioncn.Openconnstrcn.ExecutesqlstrMsgBox”成功修改數(shù)據(jù)！！"exitsub:cn.ClosemdlTextBox.BlankMe:Combo3.Text=""EndSubPrivateSubCommand2_Click()DimcnAsADODB.Connectionsqlstr="deletefromstudent_infowherestudent_id='"&Combo2.Text&〃,〃OnErrorGoToexitsubSetcn=NewADODB.Connectioncn.Openconnstrcn.ExecutesqlstrMsgBox”成功刪除數(shù)據(jù)??！"exitsub:cn.ClosemdlTextBox.BlankMe:Combo3.Text=EndSubPrivateSubCommand3_Click()UnloadMeForm4.ShowEndSubPrivateSubForm_Load()mdlTextBox.CentenMeCombo1.Text=〃〃：Combo2.Text=""mdlTextBox.BlankMeCombo3.Text=""Combo4.Text=〃男〃Combo4.AddItem〃男〃Combo4.AddItem〃女〃DimsqlstrAsStringDimMsgAsStringDimiAsIntegersqlstr="select*fromclass_InfoSetrs=ExecuteSQL(sqlstr,Msg)Fori=1Tors.RecordCountCombol.AddItemrs.Fields(O)Combo3.AddItemrs.Fields(O)rs.MoveNextNextDimsqlAsStringDimmsgtextAsStringsql="select*fromstudent_Info"Setrs=ExecuteSQL(sql,msgtext)Fori=1Tors.RecordCountCombo2.AddItemrs.Fields(O)rs.MoveNextNextrs.CloseEndSub4、查詢學(xué)生信息：OptionExplicitPrivateSubCommand1_Click()DimrsAsNewADODB.RecordsetDimcnAsNewADODB.ConnectionDimcnstrAsStringcnstr="driver={sqlserver};server二.；uid二sa;pwd=；database二student”cn.OpencnstrIfOptionl.Value=TrueThensqlstr="select*fromstudent_info"Combol.Text=""Textl.Text="":Text2.Text=""EndIfIfOption2.Value=TrueThensqlstr="select*fromstudent_infowhereclass_no='"&Combol.Text&"'"Text2.Text="":Textl.Text=""EndIfIfOption3.Value=TrueThensqlstr="select*fromstudent_infowherestudent_id='"&Textl.Text&"'"Combol.Text="":Text2.Text=""EndIfIfOption4.Value=TrueThensqlstr="select*fromstudent_infowherestudent_name='"&Text2.Text&"'”Combol.Text="":Text2.Text=""EndIfrs.Opensqlstr,cnSetrs=ExecuteSQL(sqlstr,Msg)Ifrs.RecordCount=0ThenMsgBox〃沒(méi)有查找到滿足條件的數(shù)據(jù)！",48,〃提示〃fgStudent.Rows=lElsefgStudent.Rows=rs.RecordCount+lfgStudent.Cols=9'設(shè)定行高Fori=0TofgStudent.Rows-lfgStudent.RowHeight(i)=280Nexti'設(shè)定列的屬性fgStudent.Row=0Fori=0TofgStudent.Cols-lfgStudent.Col=i'指定當(dāng)前列為第I列fgStudent.FixedAlignment(i)=4'使內(nèi)容居中SelectCaseiCase0fgStudent.ColWidth(i)=1500'設(shè)定列寬fgStudent.Text=〃學(xué)號(hào)〃Case1fgStudent.ColWidth(i)=2000'設(shè)定列寬fgStudent.Text=〃姓名〃Case2fgStudent.ColWidth(i)=800'設(shè)定列寬fgStudent.Text=〃性別〃Case3fgStudent.ColWidth(i)=800'設(shè)定列寬fgStudent.Text=〃班級(jí)〃Case4fgStudent.ColWidth(i)=1300'設(shè)定列寬fgStudent.Text=〃出生日期〃Case5fgStudent.ColWidth(i)=1500'設(shè)定列寬fgStudent.Text=〃電話〃Case6fgStudent.ColWidth(i)=1500fgStudent.Text=〃入學(xué)時(shí)間〃Case7fgStudent.ColWidth(i)=2500'設(shè)定列寬fgStudent.Text=〃地址〃Case8fgStudent.ColWidth(i)=3000'設(shè)定列寬fgStudent.Text=〃備注信息〃EndSelectNextii=1'從第二行開始顯示內(nèi)容While(Notrs.EOF)fgStudent.Row=iForj=0TofgStudent.Cols-1fgStudent.Col=jfgStudent.CellAlignment=4SelectCasejCase0fgStudent.Text=rs.Fields("student_id")Case1fgStudent.Text=rs.Fields("student_name")Case2fgStudent.Text=rs.Fields("student_sex")Case3fgStudent.Text=rs.Fields("class_no")Case4fgStudent.Text=rs.Fields("born_date")Case5fgStude