學生學籍成績管理系統(tǒng)(設計報告)

軟件工程課程設計一、前言學籍管理工作在正常的情況下需對大量的數(shù)據(jù)進行處理，它們包括，學生學籍信息錄入、學生學籍修改、學生基本檔案輸入、學籍變動、學生成績錄入、學生成績查詢等。如果由人工去處理這些數(shù)據(jù)需要花費大量的時間、人力、物力。學籍管理系統(tǒng)，是在總結(jié)以上管理方法的基礎上并結(jié)合用戶的需求對學籍的各種VisualBasic具有強大的數(shù)據(jù)庫管理功能及在應用程序開發(fā)上高效、靈活的特點，創(chuàng)建了各個過程，目標設計、系統(tǒng)開發(fā)背數(shù)據(jù)庫概念結(jié)構(gòu)設計、數(shù)據(jù)庫邏輯結(jié)構(gòu)設計、數(shù)據(jù)庫結(jié)構(gòu)實現(xiàn)、各個功能模塊的創(chuàng)建、系統(tǒng)的編譯和發(fā)行等進行了詳細描述。學籍管理系統(tǒng)設計突出了信息管理系統(tǒng)完整實用的開發(fā)方法，系統(tǒng)的最大特點是突出了實用性和實效性，緊密的結(jié)合了用戶的使用要求，操作方便，有一人進行管理就可以完成大量的學籍管理工作。二、系統(tǒng)開發(fā)工具和數(shù)據(jù)庫簡介結(jié)合本人學習期間所學的有關程序設計的語言為VisualBasic6.0，因此，本系統(tǒng)軟件將采用該語言進行設計開發(fā)。下面先介紹一下該工具的好處與特點。VisualBasic6.0概述1、VisualBasic6.0簡介無論用戶是一個WindowsWindows程序設計經(jīng)驗的專業(yè)程序開發(fā)人員，利用VisualBasic6.0你快速地完成所需設計任務。所謂Visual，中文的意思是“可視化界面元素外觀和位置的程序代碼，而只需將系統(tǒng)提供的對象放到屏幕上的適當位置，并通過屬性窗口進行適當?shù)脑O置或調(diào)整，就可以設計出一個優(yōu)秀的應用程序界面。此外，用戶除了可以使用單獨的VisualBasic6.0程序設計環(huán)境進行程序設VisualBasic6.0程序設計系統(tǒng)還被包括在ExcelAccess等眾多Windows功能應用軟件中，以供用戶進行二次開發(fā)。目前在編制網(wǎng)頁上使用較多的VBScript腳本語言實際上是VisualBasicVisualBasic6.0系統(tǒng)開發(fā)軟件都是一件非常合算的投資。2、VisualBasic6.0語言的特點不管你是編制一個小的應用程序，還是開發(fā)一套大型的專業(yè)系統(tǒng)軟件，甚至是開發(fā)一個跨越Internet的分布式應用系統(tǒng)軟件，VisualBasic6.0都為用戶提供了合適的工具。利用VisualBasic6.0的數(shù)據(jù)訪問特性，用戶可創(chuàng)建數(shù)據(jù)庫、前端ActiveX技術允許用戶使用其他應用程序提供的功能，如MicrosoftWord、MicrosoftExcel，甚至可直接使用由VisualBasic6.0VisualBasic的Internet功能允許用戶使用程序方便地通過Internet訪問文檔和應用程InternetVisualBasic6.0用戶創(chuàng)建的是一個真正的EXE（Windows98/2000/XP或WindowsNT系統(tǒng)VisualBasic系統(tǒng)環(huán)境。并且，該文件可以自由發(fā)布，安裝到單機或網(wǎng)絡服務器上。此外，VisualBasic6.0還增加了一些新的功能：具體如下：①增加了ADOMicrosoftMicrosoft地或遠程數(shù)據(jù)、連續(xù)和離散記錄集、用戶可訪問的數(shù)據(jù)綁定接口和分層記錄集。②提供了數(shù)據(jù)環(huán)境設計器，其中提供了一種創(chuàng)建ADO對象的交互設計環(huán)境，數(shù)據(jù)環(huán)境可作為窗體或報表中所有要求數(shù)據(jù)對象的數(shù)據(jù)源，或者通過數(shù)據(jù)環(huán)境的方法和屬性由等程序訪問，數(shù)據(jù)環(huán)境設計器具有用戶連接設計器的全部功能和附加特性，如拖放、分層、分組和合計等。③數(shù)據(jù)報表，允許用戶使用拖放方法利用任何記錄集合快速創(chuàng)建報表。④數(shù)據(jù)源，創(chuàng)建可綁定任何控件的數(shù)據(jù)源用戶定義控件和類。⑤SQLSQL服務器程序和Oracle庫中，用戶還可以使用編輯器編寫觸發(fā)器。⑥增強的數(shù)據(jù)窗體向?qū)?，現(xiàn)在用戶不僅可以構(gòu)造不綁定至數(shù)據(jù)控件的代碼窗體，而且可以使用ADO代碼，該向?qū)б呀?jīng)集成到應用程序向?qū)?、Chart向?qū)Ш虵lexGrid向?qū)е小asic6.0并可創(chuàng)建文本文件和目錄。⑧DataGridADO數(shù)據(jù)控件。（企業(yè)版VisualBasic6.0中用戶可以可視地創(chuàng)SQLOracle以及自動改變列數(shù)據(jù)類型。3、VisualBasic6.0的版本目前VisualBasic6.0有三種版本，各自滿足不同的開發(fā)需要。其中：①VisualBasic6.0該版本包括所有的內(nèi)部控件，連同Grid、Tab和Data_Bound控件。②VisualBasic6.0專業(yè)版為專業(yè)編程人員提供了一套進行開發(fā)的功能完備的ActiveXInternetApplicationDesigner（Internet報務器應用程序設計器IntegratedVisual集成可視化數(shù)據(jù)庫工具DataEnvironment)ActiveXData數(shù)DynamicHTMLPageDesigner（動態(tài)HTML頁面設計器③VisualBasic6.0企業(yè)版使得專業(yè)編程人員能夠開發(fā)功能強大的組內(nèi)分布式BackOfficeSQLServerMicrosoftTransactionServerInternetInformationVisualSNA三、需求分析設計思想C/SSQLServer2000VisualBasic6.0完成該系統(tǒng)客戶端應用程序的開發(fā)。可行性分析可行性分析是系統(tǒng)分析階段的第二項活動，它的主要目是進一步明確系統(tǒng)的目標、規(guī)模與功能，對系統(tǒng)開發(fā)背景、必要性和意義進行了調(diào)查分析并根據(jù)需要和可能提出開發(fā)系統(tǒng)的初步方案與計劃。可行性分析是對系統(tǒng)進行全面、概要的分析。通過調(diào)查分析，本系統(tǒng)設計主要有以下三個可行性：操作可行性本系統(tǒng)操作簡單，易于理解，只需通過簡單指導，上手較快，系統(tǒng)管理員、教師以及學生均能進行操作，運行環(huán)境要求低。技術可行性本系統(tǒng)在WindowsXPServer開發(fā)環(huán)境下，利用VisualBasic6.0開發(fā)工具，SQLServer2000能。SQLServer2000屬于主從時式的數(shù)據(jù)庫服務器這也是主從式數(shù)據(jù)庫服務器的特點，服務器本身重在數(shù)據(jù)的管理，為客戶端應用程序提供一致的接口。當然也SQLServer2005樣可以提高系統(tǒng)的性能，降低它的局限性。經(jīng)濟可行性采用新的學生學籍管理系統(tǒng)可取代原系統(tǒng)的手工管理工作，減少人工開支，節(jié)省資金，并且可大大提高數(shù)據(jù)信息的取得，縮短數(shù)據(jù)信息處理時間，提高學生信息的利用率，使教學質(zhì)量更進了一個臺階。功能需求統(tǒng)分析和邏輯設計的依據(jù)?；竟δ苄枨竽軐W生的學籍及成績進行基本管理，包括：學生基本信息和學科成績的存儲、輸入、刪除、修改、查詢，以及升留級管理。學生基本信息應包括：學號、姓名、出生年份、籍貫、性別、專業(yè)、班級、家庭住址、本校住址、個人聯(lián)系電話、家庭聯(lián)系電話；成績信息應包括：學號、課號、課名、成績、上課時間、教師號。查詢能夠按照：學號、課號、班級、時間等進行查詢。性能需求根據(jù)VisualBasic6.0軟硬件要求：開發(fā)工具：VisualBasic操作系統(tǒng)：Windows2000/XP；數(shù)據(jù)庫： SQLServerCPU： 2.4GHz以上；內(nèi)存： 512以上；硬盤： 80GB以上；VGA顯示器或更高；四、系統(tǒng)設計系統(tǒng)設計思想1、采用現(xiàn)有的資源，先進的管理系統(tǒng)開發(fā)方案，充分利用學?，F(xiàn)有的資源，減少開發(fā)中的時間和財力、物力、提高系統(tǒng)開發(fā)的水平和應用效果。2、系統(tǒng)就滿足學校的需求，例如學生信息的錄入、查詢、更新等。學生錄入與排名。3、系統(tǒng)就具備數(shù)據(jù)庫維護功能，及時根據(jù)用戶需求進行數(shù)據(jù)添加、刪除、修改等操作。系統(tǒng)設計分析本系統(tǒng)適用于中小學校，其功能主要分為成績管理：用于對成績的輸入、修改、查詢。學籍管理：用于對學生學籍的錄入與修改、查詢。幫助信息：用于對本系統(tǒng)的具體操作進行詳解。本系統(tǒng)性能力求易于使用，具體有較高的擴展性和可維護性。系統(tǒng)功能分析錄入功能：為一般用戶提供相應的錄入功能，為超級用戶提供對所有信息的錄入功能。查詢功能：為所有用戶提供查詢的功能，可查詢允許范圍內(nèi)的所有信息。對所有信息的修改刪除功能。退出功能：結(jié)束并關閉系統(tǒng)。學生學籍系統(tǒng)的目標節(jié)約資源，提高學籍信息的精確度大節(jié)省了學校能源。并且計算機的存儲與快速查詢功能大大提高了學籍管理的效率，并且還提高了學籍信息管理的精確度。方便快速操作，精減人員，節(jié)約開支方便快速的操作，可減少學籍信息管理的漏洞，又減少因工作的冗余出現(xiàn)的錯誤，并且操作非常簡單，可減少許多不很必要的人員，這無論從物質(zhì)上還是工作人員的工資上都為學校節(jié)約了開支。為學校增加了財富。功能模塊分解接口設計13332兆以上PC機滿足輸入端條件。軟件接口：Windows2000/NT或更高的操作系統(tǒng)。內(nèi)部接口：內(nèi)部接口(模塊之間的接口)驗證模塊：啟動系統(tǒng)時，便激活登陸口令界面；初始化模塊：對系統(tǒng)進行初始化；系統(tǒng)功能模塊：接收系統(tǒng)功能的相應消息，啟動信息錄入、信息查詢、信息維護等模塊。各模塊的具體分析：學生信息管理：主要用于學生的基本信息管理（年月、聯(lián)系地址等。成績管理：主要用于學生考試的成績進行管理數(shù)據(jù)庫設計數(shù)據(jù)流圖（略）數(shù)據(jù)庫分析用戶需求具體有學籍管理系統(tǒng)提供保存、更新、查詢、維護，這就需求數(shù)據(jù)庫結(jié)構(gòu)能充分滿足各種信息的輸入與輸出，實現(xiàn)有組織地、動態(tài)地存儲大量關聯(lián)交叉訪問，與應用程序的高度獨立性。數(shù)據(jù)流圖描述：本系統(tǒng)從總體上分為學生信息管理、學生信息瀏覽、成績?yōu)g覽和成績管理等部分。每個模塊有自己的作用。數(shù)據(jù)庫表設計學生基本信息表：xsxj.Mdb成績信息表：xscj.Mdb界面設計他的窗口信息學生的成績窗口設計有主窗體直接進入成績的查詢模塊。主要實現(xiàn)成績的查詢等功能。學生學籍窗口設計有主窗體直接進入學生狀況窗口模塊。主要實現(xiàn)學生狀況查詢等功能。學生學籍管理窗口設計有主窗體直接進入學生學籍管理窗口模塊。學生成績管理窗口設計有主窗體直接進入學生成績修改窗口模塊。主要實現(xiàn)學生成績資料查詢結(jié)果。五、詳細設計及源程序1、模塊module1.BasOptionExplicitDeclareFunctionSetWindowLongLib"user32"Alias"SetWindowLongA"(ByValhwndAsLong,ByValnIndexAsLong,ByValdwNewLongAsLong)AsLongDeclare Function GetWindowLong Lib "user32" Alias (ByValhwndAsLong,ByValnIndexAsLong)AsLongDeclare Function CallWindowProc Lib "user32" Alias (ByVallpPrevWndFuncAsLong,ByValhwndAsLong,ByValMsgAsLong,ByValwParamAsLong,ByVallParamAsLong)AsLongPublicConstGWL_WNDPROC=(-4)PublicConstWM_ENDSESSION=&H16PublicConstWM_QUERYENDSESSION=&H11PublicpreWinProcAsLongPublicFunctionWndproc(ByValhwndAsLong,ByValMsgAsLong,ByValwParamAsLong,ByVallParamAsLong)AsLongWndproc=CallWindowProc(preWinProc,hwnd,Msg,wParam,lParam)If(Msg=132)ThenSelectCaseWndprocCase10,11,12,13,14,15,16,17:Wndproc=0ExitFunctionEndSelectEndIfEndFunction2、主窗口form1.frmOptionExplicitPrivateSubCommand4_Click()Form6.ShowEndSubPrivateSubCommand5_Click()Form4.ShowUnloadMeEndSubPrivateSubCommand6_Click()Form5.ShowUnloadMeEndSubPrivateSubForm_Load()DimretAsLong'記錄原來的WindowProcedure的位址preWinProc=GetWindowLong(Me.hwnd,'設定formwindowProcedure到wndprocret=SetWindowLong(Me.hwnd,GWL_WNDPROC,AddressOfWndproc)EndSubPrivateSubForm_Unload2(CancelAsInteger)DimretAsLong'取消Message的截取，而使之又只送往原來的WindowProcedureret=SetWindowLong(Me.hwnd,GWL_WNDPROC,preWinProc)EndSubPrivateSubCommand1_Click()Form2.ShowUnloadMeEndSubPrivateSubCommand2_Click()Form3.ShowUnloadMeEndSubPrivateSubCommand3_Click()DimyesAsStringyes=MsgBox("你要確定退出？",32+1,"提示信息")Ifyes=1ThenUnloadMeEndIfEndSub3form2.frmOptionExplicitPrivateSubForm_Load()Data1.DatabaseName=App.Path&"\xsxj.mdb"DimretAsLong'記錄原來的WindowProcedure的位址preWinProc=GetWindowLong(Me.hwnd,GWL_WNDPROC)'設定formwindowProcedure到wndprocret=SetWindowLong(Me.hwnd,GWL_WNDPROC,AddressOfWndproc)EndSubPrivateSubForm_Unload2(CancelAsInteger)DimretAsLong'取消Message的截取，而使之又只送往原來的WindowProcedureret=SetWindowLong(Me.hwnd,GWL_WNDPROC,preWinProc)EndSubPrivateSubCommand1_Click()Form1.ShowUnloadEndSubPrivateSubCommand2_Click()Data1.Recordset.MoveLastCommand4.Enabled=TrueCommand3.Enabled=FalseEndSubPrivateSubCommand3_Click()Command4.Enabled=TrueData1.Recordset.MoveNextIfData1.Recordset.EOFThenData1.Recordset.MovePreviousCommand3.Enabled=FalseEndIfEndSubPrivateSubCommand4_Click()Command3.Enabled=TrueData1.Recordset.MovePreviousIfData1.Recordset.BOFThenData1.Recordset.MoveFirstCommand4.Enabled=FalseEndIfEndSubPrivateSubCommand5_Click()Data1.Recordset.MoveFirstCommand4.Enabled=FalseCommand3.Enabled=TrueEndSub4、成績?yōu)g覽窗口form3.frmOptionExplicitPrivateSubCommand2_Click()Data1.Recordset.MoveLastCommand4.Enabled=TrueCommand3.Enabled=FalseEndSubPrivateSubCommand3_Click()Command4.Enabled=TrueData1.Recordset.MoveNextIfData1.Recordset.EOFThenData1.Recordset.MovePreviousCommand3.Enabled=FalseEndIfEndSubPrivateSubCommand4_Click()Command3.Enabled=TrueData1.Recordset.MovePreviousIfData1.Recordset.BOFThenData1.Recordset.MoveFirstCommand4.Enabled=FalseEndIfEndSubPrivateSubCommand5_Click()Data1.Recordset.MoveFirstCommand4.Enabled=FalseCommand3.Enabled=TrueEndSubPrivateSubForm_Load()Data1.DatabaseName=App.Path&"\xscj.mdb"DimretAsLong'記錄原來的WindowProcedure的位址preWinProc=GetWindowLong(Me.hwnd,'設定formwindowProcedure到wndprocret=SetWindowLong(Me.hwnd,GWL_WNDPROC,AddressOfWndproc)EndSubPrivateSubForm_Unload2(CancelAsInteger)DimretAsLong'取消Message的截取，而使之又只送往原來的WindowProcedureret=SetWindowLong(Me.hwnd,GWL_WNDPROC,preWinProc)EndSubPrivateSubCommand1_Click()Form1.ShowUnloadMeEndSub5、學籍管理窗口form4.frmOptionExplicitPrivateSubCommand1_Click()Form1.ShowUnloadMeEndSubPrivateSubCommand2_Click()DimnumAsStringDimnAsStringDimsAsIntegerData1.Recordset.MoveFirstnum=InputBox("請輸入要刪除的學生學號（三位數(shù)）","")DoWhileNotData1.Recordset.EOFn=Data1.Recordset.Fields("學號")Ifnum=nThens=MsgBox("確定要刪除嗎？",vbQuestion+vbOKCancel,"確定刪除")Ifs=1ThenData1.Recordset.DeleteData1.Recordset.MoveNextIfData1.Recordset.RecordCount>0ThenIfData1.Recordset.EOFThenData1.Recordset.MoveLastEndIfEndIfEndIfExitDoElseData1.Recordset.MoveNextEndIfLoopIfData1.Recordset.EOFThenData1.Recordset.MoveFirstMsgBox("查無此人")EndIfEndSubPrivateSubCommand3_Click()DimnAsStringData1.RefreshDoWhileNotData1.Recordset.EOFn=Data1.Recordset.Fields("學號")Iftext1.Text=nThenMsgBox("text1.Enabled=Falsetext2.Enabled=Falsetext3.Enabled=Falsetext4.Enabled=text5.Enabled=text6.Enabled=Falsetext7.Enabled=Falsetext8.Enabled=Falsetext9.Enabled=FalseExitDoElseData1.UpdateRecordData1.RefreshData1.Recordset.MoveLasttext1.Enabled=Falsetext2.Enabled=Falsetext3.Enabled=Falsetext4.Enabled=Falsetext5.Enabled=Falsetext6.Enabled=Falsetext7.Enabled=Falsetext8.Enabled=Falsetext9.Enabled=FalseEndIfLoopEndSubPrivateSubCommand4_Click()Data1.RefreshData1.Recordset.AddNewtext1.Text=""text2.Text=""text3.Text=""text4.Text=""text5.Text=""text6.Text=""text7.Text=""text8.Text=""text9.Text=""text1.Enabled=Truetext2.Enabled=Truetext3.Enabled=Truetext4.Enabled=Truetext5.Enabled=Truetext6.Enabled=Truetext7.Enabled=Truetext8.Enabled=Truetext9.Enabled=TrueEndSubPrivateSubCommand5_Click()DimnumAsStringDimnAsStringnum=InputBox("請輸入三位數(shù)學號","學號查詢")Data1.RefreshDoWhileNotData1.Recordset.EOFn=Data1.Recordset.Fields("Ifn=numThenExitDoElseData1.Recordset.MoveNextEndIfLoopIfData1.Recordset.EOFThenData1.Recordset.MoveFirstMsgBox("查無此人")EndIfEndSubPrivateSubCommand6_Click()DimnameAsStringDimmAsStringname=InputBox("請輸入學生姓名","姓名查詢")Data1.RefreshDoWhileNotData1.Recordset.EOFm=Data1.Recordset.Fields("Ifm=nameThenExitDoElseData1.Recordset.MoveNextEndIfLoopIfData1.Recordset.EOFThenData1.Recordset.MoveFirstMsgBox("查無此人")EndIfEndSubPrivateSubForm_Load()Data1.DatabaseName=App.Path&"\xsxj.mdb"DimretAsLong'記錄原來的WindowProcedure的位址preWinProc=GetWindowLong(Me.hwnd,'設定formwindowProcedure到wndprocret=SetWindowLong(Me.hwnd,GWL_WNDPROC,AddressOfWndproc)EndSubPrivateSubForm_Unload2(CancelAsInteger)DimretAsLong'取消Message的截取，而使之又只送往原來的WindowProcedureret=SetWindowLong(Me.hwnd,GWL_WNDPROC,preWinProc)EndSub6、成績管理窗口form5.frmOptionExplicitPrivateSubCommand1_Click()Form1.ShowUnloadMeEndSubPrivateSubCommand3_Click()Adodc1.ConnectionString = " Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"\xscj.mdb;Persist Security Info=False"DimcnAsNewADODB.ConnectionDimrsAsNewADODB.RecordsetDimsqlAsStringDimcnstrAsStringcn.CursorLocation=adUseClientcnstr="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"\xscj.mdb;PersistSecurityInfo=False"cn.ConnectionString=cnstrcn.Opencnstrsql="select*fromxscj"rs.Open sql, cn, adOpenStatic,adLockOptimistic'adOpenStatic 或許用adOpenDynamicSetDataGrid1.DataSource=rsEndSubPrivateSubCommand5_Click()DimcnAsNewADODB.ConnectionDimrsAsNewADODB.Recordsetrs.CursorLocation=adUseClientcn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" App.Path&"\xscj.mdb;PersistSecurityInfo=False"cn.OpenIfText1.Text=""ThenMsgBox"請?zhí)顚憣W號！",vbExclamation,"提示信息"ExitSubEndIfrs.Open "select * from xscj where 學號= '" adOpenKeyset,adLockOptimisticIfrs.RecordCount=0ThenMsgBox"沒有此學號！",vbExclamation,"提示信息"EndIfSetDataGrid1.DataSource=rsText1.Text=""

Text1.Text& "'", cn,EndSubPrivateSubCommand6_Click()DimcnAsNewADODB.ConnectionDimrsAsNewADODB.Recordsetrs.CursorLocation=adUseClientcn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" App.Path&"\xscj.mdb;PersistSecurityInfo=False"cn.OpenIfText2.Text=""ThenMsgBox"請?zhí)顚懻n號！",vbExclamation,"提示信息"ExitSubEndIfrs.Open "select * from xscj where 課號= '" & Text2.Text& "'", cn,adOpenKeyset,adLockOptimisticIfrs.RecordCount=0ThenMsgBox"沒有此課號！",vbExclamation,"提示信息"EndIfSetDataGrid1.DataSource=rsText2.Text=""EndSubPrivateSubForm_Load()Adodc1.ConnectionString = " Source="&App.Path&"\xscj.mdb;Persist Security Info=False"DimcnAsNewADODB.ConnectionDimrsAsNewADODB.RecordsetDimsqlAsStringDimcnstrAsStringcn.CursorLocation=adUseClientcnstr