學籍管理信息系統摘要：學校教務具有信息繁雜而且信息量大，相關制約因素很多的特點，因此實現起來比較困難。本系統設計了學籍管理系統中的五個模塊，這五個模塊是教師管理模塊，學生管理模塊，成績管理模塊，機構管理模塊，教務管理模塊。總之，該系統具有高效、易操作、易維護等特點，而且系統結構清晰、界面友好，功能較齊全，能有效的協助學校學籍管理工作。關鍵字：學籍管理設計目錄：一、選題背景21、課題來源2、課題目的與意義3、需要解決的問題及技術要求4、設計指導思想二、可行性分析31、技術可行性2、經濟可行性3、環境可行性4、進度可行性三、系統需求分析31、組織結構分析2、管理功能分析3、業務流程分析4、數據流程分析四、系統設計41、總體結構設計2、輸入與輸出設計3、人機對話4、處理流程設計5、數據庫設計五、系統實現81、登陸界面2、查詢界面3、還書界面4、新書入庫界面5圖書資料查詢界面6圖書詳細信息查看界面7學生管理界面六、系統測試17七、系統評價18八、參考文獻一、選題背景現今高校的教務管理中，由于教師及學生人數眾多，有很多不便。為了降低教務管理人員的工作強度，提高工作效率，有效管理教師和學生的信息以及院系和班級設置情況的信息。需要開發一套信息管理系統以協助教務管理人員掌握學校老師、學生及學院的基本情況。系統的使用對象是教務處工作人員。二、可行性分析（一）技術可行性分析本系統是以VB6.0為應用開發工具，Microsoftaccess為數據庫管理系統的信息管理系統。VisualBasic是一種可視化的、面對對象和條用事件驅動方式的結構化高級程序設計，可用于開發Windows環境下的種類應用程序。MicrosoftAccess是微軟公司推出的給予Windows的桌面關系數據庫管理系統（RDBMS），是Office系列應用軟件之一。它是一個功能強大而且使用方便的數據庫管理系統，為中小型數據庫提供了良好的創建環境。另外，圖書管理系統越來越多地被應用，便于開發時的借鑒。因此，本系統具有技術上的可行性。（二）經濟可行性分析從成本的角度考慮，包括系統的初始成本（各種軟、硬件級輔助設備的購置和機房及附屬設施費用），日常維護費用（系統維護，人員費用，運行費用等）但由于系統較簡單，面向對象單一，只有管理員和學生，較好管理，中間費用消耗少；從收益角度考慮，主要考慮無形效益，通過系統的運行，使學生更好更多地學到知識，使管理員的工作更加高效輕松，提高了整個圖書館的使用價值。因此，本系統具有經濟上的可行性。（三）環境可行性分析現在社會是信息的時代，而信息的各種特點決定了需要有專門的信息系統對它加以管理才能更好地發揮作用，各種技術水平也發展到相應程度，作為高等學府的西安財經學院更是有必要和實力建立一個完善高效的圖書管理信息系統。因此，本系統具有環境可信性。（四）進度可行性

由于系統較簡單且主要針對在校學生，相關信息的獲取渠道比較方便，所以系統能在合理期限內完成，即具有進度可行性。三、系統需求分析（一）組織結構分析根據收集到的各種系統學生成績表、學生和教師基本信息資料表，通過向有關業務管理部門的訪問調查，系統分析結果如下：教務科教務科（二）管理功能分析教務科：學生、教師基本信息資料管理；課程編排；學生考試成績登錄、統計；學生獎懲情況管理；安排教師教師教學任務及教學工作量。學籍管理科：組織在校學生轉專業，負責學生休、復、留等學籍異動管理；學校綜合系統管理中學生學籍庫的維護。此外，還負責辦理建立新生學籍檔案；編制本、專科學生名冊；負責畢業生成績及有關材料歸檔；辦理出國人員學習成績等證明材料。（三）業務流程分析業務流程圖如圖所示：

學籍管理信息系統分析表5學生學籍信息變動管理業務流程業務流程第5張/共8張圖例說明O業務處理單位描述業務處理_表格制作傳遞

數據存儲（四）數據流程分析數據流程基本符號處理過程數據流?數據存儲頂層數據流程學籍管理人員數據流程教師、學生數據流程學生或教師學生基本信息學生基本信息查詢學生或教師學生基本信息學生基本信息查詢P2■學生獎懲信息表*學生獎懲信息查詢P3學生學籍4變動信息學籍變動信息表四、系統設計（一）總體結構設計系統目標設計1）方便的數據輸入功能，良好的人機對面，盡量避免漢字和長字符串的人工重復輸入（采用代碼詞組）。2）靈活的查詢功能，能快速實現學生信息和教師信息以及學院班級信息的查詢。3）考慮到學校的發展，對新數據也能給予處理。4）把“靜態”的學籍管理變為“動態”管理，能隨時提供學校學生、教師、學院及班級的現狀信息。系統功能設計身份登錄：學籍管理人員及教師、學生都有自己的密碼，可以防止非系統人員進入本系統；可以對圖書管理人員和教師、學生兩種不同的用戶類型，分別給予不同的操作權限。資料維護：本系統將對每一位教師、學生以及各個學院的基本信息進行維護管理。系統維護管理包括對各種表記錄的添加、刪除、修改等操作。系統查詢：可以按照學號、教師號、學院編碼、班級編碼以及學生名、教師名等進行相關信息的查詢系統維護：實現對操作員的管理和維護，包括操作員登錄密碼和用戶名的修改等。系統的功能模塊學籍管理系統需要實現的功能主要有四大塊：“日常工作管理”、“基本資料維護”、“查詢”和“系統管理”模塊1）“信息查詢”模塊：學生信息查詢：主要功能是用戶通過輸入需要查詢的學號或學生姓名，實現對學生基本信息資料的查詢、成績查詢、獎懲情況查詢、學籍變動查詢等。教師信息查詢：主要功能是用戶通過輸入要查查詢的教師號或教師姓名，實現對教師基本信息的查詢。學院信息查詢：主要功能是用戶通過移動記錄指針，實現對各學院名稱、負責人、歷史等信息的查詢。班級信息查詢：主要功能是用戶通過移動記錄指針，實現對各班級班級負責人、入學時間、班主任電話等信息的查詢。2）“信息管理”模塊學生基本資料管理：包括學生基本信息的添加、刪除、修改教師基本資料管理：包括教師基本信息的添加、刪除、修改學院信息管理：包括對各學院設置信息的添加、刪除、修改班級信息管理：包括對各班級設置信息的添加、刪除、修改3）“用戶維護”模塊用戶管理模塊：包括對系統用戶的添加管理功能模塊圖

（二）輸入輸出設計輸入設計簡列式，登陸界面即采用該形式，簡單又直觀表格式，對于基本信息資料以及成績、獎懲情況的記錄，采用的是該形式，輸入教師、學生、學院、班級的相關信息輸出設計簡單組列式，用戶對于學生信息、教師信息、學院信息以及班級信息的查看界面就是這種形式，以DataGrid表格的形式給出（三）人機對話設計本系統中人機對話主要形式包括：菜單式，應答式，填表式。（四）處理流程設計登錄流程

學籍管理人員流程（五）數據庫設計1.概念結構設計——E-R模型設計邏輯結構設計邏輯結構設計的主要任務是把概念結構設計階段建立的E-R圖，按選定的數據庫管理軟件所支持的數據模型（層次型、網狀型、關系型），轉化成相應的邏輯模型。由于MicrosoftAccess支持的是關系數據模型，所以邏輯設計的首要工作就是把建立的E-R圖轉化成為關系模型，再做進一步的數據模型的優化。E-R圖一?關系模式：教師（教師號，索引號，教師名稱，性別，年齡，所屬學院，研究方向，辦公電話）學生（學號，學生姓名，所屬學院，所屬年級，班主任）學院（學院編號，學院名稱，負責人姓名，辦公電話，說明）班級（班級編號，班級名稱，入學時間，班主任姓名，班主任電話，說明）物理結構設計物理結構設計的主要任務是確定數據庫在物理設備上的存儲結構和存取方法，在本系統中就是利用MicrosoftAccess提供的命令，語句等將邏輯模型在計算所上實現的過程，包括建立了6張表，確定各表的索引關鍵字以及各表之間的關系等。以學生信息表為例簡單說明設計過程：字段名數據類型是否必填字段說明*snum文本是學號Sname文本是學生姓名Ssex文本是性別born文本是出生日期home文本是籍貫字段是表中的列，每一列用什么來命名，即為字段名稱，字段的數據類型是對某字段要輸入的值的約束或定義，在該表中均為文本型，說明則是為了設計者和其他人方便知道字段的含義。”snum”是主鍵，不允許NULL值的存在且字段值必須唯一。給予不同的學生不同的索引號，用于唯一標識表中的每條記錄。數據庫的規范化過程關系規范化處理主要是對初步設計出來的關系進行分析，并進行分解或合并，消除其中的插入異常，刪除異常，數據冗余，數據不一致等，從而獲得更好的關系模式。在本系統中通過規范化處理，關系中的各字段不可再分，無重復屬性，滿足第一范式1NF，且數據間不存在部分依賴，滿足第二范式2NF的要求。但由于在某些查詢中經常涉及多個關系間的聯接運算，這種聯接運算的代價是相當高的，所以從實際考慮有些關系并不能滿足3NF。五、系統實現（一）登陸界面1.登錄該界面是同時面向圖書管理員和學生的，根據輸入的用戶名和密碼，系統判斷用戶類型進入不同頁面，使用不同功能。主要代碼如下：2.注冊該界面用于新用戶的注冊，添加。代碼為:DimconnAsNewADODB.ConnectionDimadAsNewADODB.RecordsetPrivateSubCommand1_Click()DimsqlAsNewADODB.Recordsetsql.CursorLocation=adUseClientsql.Open"select*fromuserswhereid='〃&textl.Text&〃'〃，conn,adOpenDynamic,adLockOptimisticIftextl.Text=〃〃ThenMsgBox〃用戶名不能為空，請重新輸入!〃ExitSubForm4.ShowEndIfIftext2.Text=〃〃ThenMsgBox〃密碼不能為空，請重新輸入!〃ExitSubForm4.ShowEndIfIfText3.Text=〃〃ThenMsgBox〃確認密碼不能為空，請重新輸入!〃ExitSubForm4.ShowEndIfIfsql.RecordCount>0ThenMsgBox〃這個用戶名已經被占用，請您選用其它的用戶名！"textl.Text=""textl.SetFocussql.CloseEndIfIfTrim(text2.Text)<>Trim(Text3.Text)ThenMsgBox〃您兩次輸入的密碼不同，請重新輸入〃text2.Text=""Text3.Text=""text2.SetFocusExitSubEndIfad.AddNewad.Fields("id")=Trim(textl.Text)ad.Fields("password")=Trim(text2.Text)ad.Updatead.CloseMsgBox”注冊成功！請登錄！"Form4.HideEndSubPrivateSubCommand2_Click()textl.Text=""text2.Text=""Text3.Text=""EndSubPrivateSubCommand3_Click()Form4.HideEndSubPrivateSubForm_Load()conn.Open"driver=microsoftaccessdriver(*.mdb);dbq="&App.Path&"\admin.mdb;"ad.CursorLocation=adUseClientad.Open"select*fromusers",conn,adOpenDynamic,adLockOptimisticEndSub(二)學籍管理人員管理界面1.教師信息查詢本界面用于教師基本信息的查詢，可以按教師號進行查詢，也可以按教師姓名進行。代碼如下：DimconnAsNewADODB.ConnectionDimsqlAsStringDimstudentlAsNewADODB.RecordsetPrivateSubCommand1_Click()Command2.Enabled=Falsec2=InputBox("請輸入需查詢的教師號：〃，〃查詢條件〃)Ifc2<>""Thentsql="select*fromtinforwheretnum='"&c2&"'”studentl.CursorLocation=adUseClientstudentl.CursorType=adOpenDynamicstudentl.Opentsql,conn,adOpenDynamic,adLockBatchOptimisticSetDataGridl.DataSource=studentlIfstudentl.RecordCount=0ThenMsgBox”沒有該教師的信息"ElseMsgBox"你沒有輸入需查詢的教師號！"EndIfEndSubPrivateSubCommand2_Click()Commandl.Enabled=Falsec2=InputBox("請輸入需查詢的教師姓名：","查詢條件”)Ifc2<>""Thentsql="select*fromtinforwheretname='"&c2&"'”studentl.CursorLocation=adUseClientstudentl.CursorType=adOpenDynamicstudentl.Opentsql,conn,adOpenDynamic,adLockBatchOptimisticSetDataGrid1.DataSource=student1Ifstudent1.RecordCount=0ThenMsgBox”沒有該教師的信息"ElseMsgBox〃你沒有輸入需查詢的教師姓名！"EndIfEndSubPrivateSubCommand3_Click()Form10.HideForm2.ShowEndSubPrivateSubForm_Load()Withconn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=D:\courseware\課件'管理信息系統'大作業\admin.mdb”.ConnectionTimeout=30.OpenEndWithtsql="select*fromtinfor"student1.CursorLocation=adUseClientstudent1.CursorType=adOpenDynamicstudent1.Opentsql,conn,adOpenDynamic,adLockBatchOptimisticSetDataGrid1.DataSource=student1EndSub2學生信息查詢

本界面用于對學生信息的查詢，輸入學生學號，即可顯示所查詢學生的相關信息。窗體下半部分用sstab設置的分組格式可以同時顯示學生的學籍變更信息和獎懲管理信息。設置代碼如下：DimconnAsNewADODB.ConnectionDimsqlAsStringDimstudentlAsNewADODB.RecordsetDimsql2AsStringDimstudent2AsNewADODB.RecordsetPrivateSubCommand1_Click()Form5.Hidestudent1.Closestudent2.CloseForm2.ShowEndSubPrivateSubCommand2_Click()WithAdodcl.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=D:\courseware\課件'管理信息系統'大作業\admin.mdb”.CommandType=adCmdText.ConnectionTimeout=30EndWithIfText1.Text<>""Thensql="select*fromppwheresnum='"&Textl.Text&"'”studentl.CursorLocation=adUseClientstudent1.CursorType=adOpenDynamicstudentl.Opensql,conn,adOpenDynamic,adLockBatchOptimisticSetDataGrid2.DataSource=studentlsql2="select*fromxuejiwheresnum='"&Textl.Text&"'”student2.CursorLocation=adUseClientstudent2.CursorType=adOpenDynamicstudent2.Opensql2,conn,adOpenDynamic,adLockBatchOptimisticSetDataGridl.DataSource=student2sqll="selectsinfor.*,class,head,scollegeFromsinfor,sclass,scollegeWheresinfor.snum=sclass.snumandsclass.snum=scollege.snumandsinfor.snum=''&Textl.Text&"'"Adodcl.CursorLocation=adUseClientAdodcl.CursorType=adOpenDynamicAdodcl.RecordSource=sqllAdodcl.RefreshIfAdodcl.Recordset.RecordCount<>0ThenTextl.Text=""Textl.SetFocusElse:MsgBox〃沒有該學生的信息〃EndIfElseMsgBox〃你沒有輸入需查詢的學號！"Textl.SetFocusEndIfEndSubPrivateSubForm_Load()Withconn.ConnectionString=〃Provider=Microsoft.Jet.OLEDB.4.0;DataSource=D:\courseware\課件'管理信息系統'大作業\admin.mdb”.ConnectionTimeout=30.OpenEndWithEndSub3.學生信息管理界面DimcnnAsADODB.ConnectionDimrsAsNewADODB.RecordsetPrivateSubcmdadd_Click()Fori=0To5Text1(i).Enabled=TrueText1(i).Text=""Nextirs.AddNewText1(0).SetFocuscmdadd.Enabled=Falsecmddelete.Enabled=Falsecmdedit.Enabled=Falsecmdsave.Enabled=Truecmdcancel.Enabled=Truecmdmove(0).Enabled=Falsecmdmove(1).Enabled=Falsecmdmove(2).Enabled=Falsecmdmove(3).Enabled=FalseEndSubPrivateSubCmdcancel_Click()rs.CancelUpdateIfrs.BOFAndrs.EOFThenMsgBox〃數據表中無記錄，請添加記錄或退出〃cmdadd.Enabled=Truecmdsave.Enabled=Falsecmdcancel.Enabled=FalseElseCallviewdataFori=0To5Text1(i).Enabled=FalseNexticmdadd.Enabled=Truecmddelete.Enabled=Truecmdedit.Enabled=Truecmdsave.Enabled=Falsecmdcancel.Enabled=FalseEndIfEndSubPrivateSubcmddelete_Click()DimmyvalAsStringmyval=MsgBox("是否要刪除這個紀錄？"，vbYesNo)Ifmyval=vbYesThenrs.Deleters.MoveNextIfrs.RecordCount=0ThenMsgBox〃數據表中無記錄，請添加記錄或退出〃Fori=0To5Text1(i)=""Nexticmdadd.Enabled=Falsecmddelete.Enabled=Falsecmdedit.Enabled=Falsecmdsave.Enabled=Falsecmdcancel.Enabled=FalseElsers.MoveNextIfrs.EOFThenrs.MoveLastCallviewdataFori=0To5Text1(i).Enabled=FalseNextiEndIfCallviewdataEndIfEndIfEndSubPrivateSubcmdedit_Click()Ifrs.RecordCount<>0ThenFori=1To5Text1(i).Enabled=TrueNexticmdadd.Enabled=Falsecmddelete.Enabled=Falsecmdedit.Enabled=Falsecmdsave.Enabled=Truecmdcancel.Enabled=Truecmdmove(0).Enabled=Falsecmdmove(1).Enabled=Falsecmdmove(2).Enabled=Falsecmdmove(3).Enabled=FalseElseMsgBox("沒有要修改的記錄")EndIfEndSubPrivateSubcmdexit_Click()EndEndSubPrivateSubcmdmove_Click(IndexAsInteger)SelectCaseIndexCase0rs.MoveFirstcmdmove(0).Enabled=Falsecmdmove(1).Enabled=Falsecmdmove(2).Enabled=Truecmdmove(3).Enabled=TrueCase1rs.MovePreviousIfrs.BOFThenrs.MoveFirstcmdmove(2).Enabled=Truecmdmove(3).Enabled=TrueCase2rs.MoveFirstIfrs.EOFThenrs.MoveLastcmdmove(0).Enabled=Truecmdmove(1).Enabled=TrueCase3rs.MoveLastcmdmove(0).Enabled=Truecmdmove(1).Enabled=Truecmdmove(2).Enabled=Truecmdmove(3).Enabled=TrueEndSelectCallviewdataEndSubPrivateSubcmdsave_Click()IfText1(1)=""ThenMsgBox〃該學生號不能為空〃Text1(1).SetFocusExitSubEndIfrs.Fields("class")=Text1(0).Textrs.Fields("snum")=Text1(1).Textrs.Fields("sname")=Text1(2).Textrs.Fields("ssex")=Text1(3).Textrs.Fields("born")=Text1(4).Textrs.Fields("home")=Text1(5).Textrs.UpdateFori=0To5Text1(i).Enabled=FalseNexticmdadd.Enabled=Truecmddelete.Enabled=Truecmdedit.Enabled=Truecmdsave.Enabled=Falsecmdcancel.Enabled=Falsecmdmove(0).Enabled=Truecmdmove(1).Enabled=Truecmdmove(2).Enabled=Truecmdmove(3).Enabled=TrueEndSubPrivateSubCommand5_Click()EndEndSubPrivateSubForm_Load()Setcnn=NewADODB.Connectioncnn.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource=D:\