學(xué)生學(xué)籍成績(jī)管理系統(tǒng)(設(shè)計(jì)報(bào)告)

軟件工程課程設(shè)計(jì)一、前言學(xué)籍管理工作在正常的情況下需對(duì)大量的數(shù)據(jù)進(jìn)行處理，它們包括，學(xué)生學(xué)籍信息錄入、學(xué)生學(xué)籍修改、學(xué)生基本檔案輸入、學(xué)籍變動(dòng)、學(xué)生成績(jī)錄入、學(xué)生成績(jī)查詢等。如果由人工去處理這些數(shù)據(jù)需要花費(fèi)大量的時(shí)間、人力、物力。學(xué)籍管理系統(tǒng)，是在總結(jié)以上管理方法的基礎(chǔ)上并結(jié)合用戶的需求對(duì)學(xué)籍的各種VisualBasic具有強(qiáng)大的數(shù)據(jù)庫(kù)管理功能及在應(yīng)用程序開發(fā)上高效、靈活的特點(diǎn)，創(chuàng)建了各個(gè)過程，目標(biāo)設(shè)計(jì)、系統(tǒng)開發(fā)背數(shù)據(jù)庫(kù)概念結(jié)構(gòu)設(shè)計(jì)、數(shù)據(jù)庫(kù)邏輯結(jié)構(gòu)設(shè)計(jì)、數(shù)據(jù)庫(kù)結(jié)構(gòu)實(shí)現(xiàn)、各個(gè)功能模塊的創(chuàng)建、系統(tǒng)的編譯和發(fā)行等進(jìn)行了詳細(xì)描述。學(xué)籍管理系統(tǒng)設(shè)計(jì)突出了信息管理系統(tǒng)完整實(shí)用的開發(fā)方法，系統(tǒng)的最大特點(diǎn)是突出了實(shí)用性和實(shí)效性，緊密的結(jié)合了用戶的使用要求，操作方便，有一人進(jìn)行管理就可以完成大量的學(xué)籍管理工作。二、系統(tǒng)開發(fā)工具和數(shù)據(jù)庫(kù)簡(jiǎn)介結(jié)合本人學(xué)習(xí)期間所學(xué)的有關(guān)程序設(shè)計(jì)的語(yǔ)言為VisualBasic6.0，因此，本系統(tǒng)軟件將采用該語(yǔ)言進(jìn)行設(shè)計(jì)開發(fā)。下面先介紹一下該工具的好處與特點(diǎn)。VisualBasic6.0概述1、VisualBasic6.0簡(jiǎn)介無論用戶是一個(gè)WindowsWindows程序設(shè)計(jì)經(jīng)驗(yàn)的專業(yè)程序開發(fā)人員，利用VisualBasic6.0你快速地完成所需設(shè)計(jì)任務(wù)。所謂Visual，中文的意思是“可視化界面元素外觀和位置的程序代碼，而只需將系統(tǒng)提供的對(duì)象放到屏幕上的適當(dāng)位置，并通過屬性窗口進(jìn)行適當(dāng)?shù)脑O(shè)置或調(diào)整，就可以設(shè)計(jì)出一個(gè)優(yōu)秀的應(yīng)用程序界面。此外，用戶除了可以使用單獨(dú)的VisualBasic6.0程序設(shè)計(jì)環(huán)境進(jìn)行程序設(shè)VisualBasic6.0程序設(shè)計(jì)系統(tǒng)還被包括在ExcelAccess等眾多Windows功能應(yīng)用軟件中，以供用戶進(jìn)行二次開發(fā)。目前在編制網(wǎng)頁(yè)上使用較多的VBScript腳本語(yǔ)言實(shí)際上是VisualBasicVisualBasic6.0系統(tǒng)開發(fā)軟件都是一件非常合算的投資。2、VisualBasic6.0語(yǔ)言的特點(diǎn)不管你是編制一個(gè)小的應(yīng)用程序，還是開發(fā)一套大型的專業(yè)系統(tǒng)軟件，甚至是開發(fā)一個(gè)跨越Internet的分布式應(yīng)用系統(tǒng)軟件，VisualBasic6.0都為用戶提供了合適的工具。利用VisualBasic6.0的數(shù)據(jù)訪問特性，用戶可創(chuàng)建數(shù)據(jù)庫(kù)、前端ActiveX技術(shù)允許用戶使用其他應(yīng)用程序提供的功能，如MicrosoftWord、MicrosoftExcel，甚至可直接使用由VisualBasic6.0VisualBasic的Internet功能允許用戶使用程序方便地通過Internet訪問文檔和應(yīng)用程InternetVisualBasic6.0用戶創(chuàng)建的是一個(gè)真正的EXE（Windows98/2000/XP或WindowsNT系統(tǒng)VisualBasic系統(tǒng)環(huán)境。并且，該文件可以自由發(fā)布，安裝到單機(jī)或網(wǎng)絡(luò)服務(wù)器上。此外，VisualBasic6.0還增加了一些新的功能：具體如下：①增加了ADOMicrosoftMicrosoft地或遠(yuǎn)程數(shù)據(jù)、連續(xù)和離散記錄集、用戶可訪問的數(shù)據(jù)綁定接口和分層記錄集。②提供了數(shù)據(jù)環(huán)境設(shè)計(jì)器，其中提供了一種創(chuàng)建ADO對(duì)象的交互設(shè)計(jì)環(huán)境，數(shù)據(jù)環(huán)境可作為窗體或報(bào)表中所有要求數(shù)據(jù)對(duì)象的數(shù)據(jù)源，或者通過數(shù)據(jù)環(huán)境的方法和屬性由等程序訪問，數(shù)據(jù)環(huán)境設(shè)計(jì)器具有用戶連接設(shè)計(jì)器的全部功能和附加特性，如拖放、分層、分組和合計(jì)等。③數(shù)據(jù)報(bào)表，允許用戶使用拖放方法利用任何記錄集合快速創(chuàng)建報(bào)表。④數(shù)據(jù)源，創(chuàng)建可綁定任何控件的數(shù)據(jù)源用戶定義控件和類。⑤SQLSQL服務(wù)器程序和Oracle庫(kù)中，用戶還可以使用編輯器編寫觸發(fā)器。⑥增強(qiáng)的數(shù)據(jù)窗體向?qū)?，現(xiàn)在用戶不僅可以構(gòu)造不綁定至數(shù)據(jù)控件的代碼窗體，而且可以使用ADO代碼，該向?qū)б呀?jīng)集成到應(yīng)用程序向?qū)?、Chart向?qū)Ш虵lexGrid向?qū)е?。Basic6.0并可創(chuàng)建文本文件和目錄。⑧DataGridADO數(shù)據(jù)控件。（企業(yè)版VisualBasic6.0中用戶可以可視地創(chuàng)SQLOracle以及自動(dòng)改變列數(shù)據(jù)類型。3、VisualBasic6.0的版本目前VisualBasic6.0有三種版本，各自滿足不同的開發(fā)需要。其中：①VisualBasic6.0該版本包括所有的內(nèi)部控件，連同Grid、Tab和Data_Bound控件。②VisualBasic6.0專業(yè)版為專業(yè)編程人員提供了一套進(jìn)行開發(fā)的功能完備的ActiveXInternetApplicationDesigner（Internet報(bào)務(wù)器應(yīng)用程序設(shè)計(jì)器IntegratedVisual集成可視化數(shù)據(jù)庫(kù)工具DataEnvironment)ActiveXData數(shù)DynamicHTMLPageDesigner（動(dòng)態(tài)HTML頁(yè)面設(shè)計(jì)器③VisualBasic6.0企業(yè)版使得專業(yè)編程人員能夠開發(fā)功能強(qiáng)大的組內(nèi)分布式BackOfficeSQLServerMicrosoftTransactionServerInternetInformationVisualSNA三、需求分析設(shè)計(jì)思想C/SSQLServer2000VisualBasic6.0完成該系統(tǒng)客戶端應(yīng)用程序的開發(fā)?？尚行苑治隹尚行苑治鍪窍到y(tǒng)分析階段的第二項(xiàng)活動(dòng)，它的主要目是進(jìn)一步明確系統(tǒng)的目標(biāo)、規(guī)模與功能，對(duì)系統(tǒng)開發(fā)背景、必要性和意義進(jìn)行了調(diào)查分析并根據(jù)需要和可能提出開發(fā)系統(tǒng)的初步方案與計(jì)劃。可行性分析是對(duì)系統(tǒng)進(jìn)行全面、概要的分析。通過調(diào)查分析，本系統(tǒng)設(shè)計(jì)主要有以下三個(gè)可行性：操作可行性本系統(tǒng)操作簡(jiǎn)單，易于理解，只需通過簡(jiǎn)單指導(dǎo)，上手較快，系統(tǒng)管理員、教師以及學(xué)生均能進(jìn)行操作，運(yùn)行環(huán)境要求低。技術(shù)可行性本系統(tǒng)在WindowsXPServer開發(fā)環(huán)境下，利用VisualBasic6.0開發(fā)工具，SQLServer2000能。SQLServer2000屬于主從時(shí)式的數(shù)據(jù)庫(kù)服務(wù)器這也是主從式數(shù)據(jù)庫(kù)服務(wù)器的特點(diǎn)，服務(wù)器本身重在數(shù)據(jù)的管理，為客戶端應(yīng)用程序提供一致的接口。當(dāng)然也SQLServer2005樣可以提高系統(tǒng)的性能，降低它的局限性。經(jīng)濟(jì)可行性采用新的學(xué)生學(xué)籍管理系統(tǒng)可取代原系統(tǒng)的手工管理工作，減少人工開支，節(jié)省資金，并且可大大提高數(shù)據(jù)信息的取得，縮短數(shù)據(jù)信息處理時(shí)間，提高學(xué)生信息的利用率，使教學(xué)質(zhì)量更進(jìn)了一個(gè)臺(tái)階。功能需求統(tǒng)分析和邏輯設(shè)計(jì)的依據(jù)?；竟δ苄枨竽軐?duì)學(xué)生的學(xué)籍及成績(jī)進(jìn)行基本管理，包括：學(xué)生基本信息和學(xué)科成績(jī)的存儲(chǔ)、輸入、刪除、修改、查詢，以及升留級(jí)管理。學(xué)生基本信息應(yīng)包括：學(xué)號(hào)、姓名、出生年份、籍貫、性別、專業(yè)、班級(jí)、家庭住址、本校住址、個(gè)人聯(lián)系電話、家庭聯(lián)系電話；成績(jī)信息應(yīng)包括：學(xué)號(hào)、課號(hào)、課名、成績(jī)、上課時(shí)間、教師號(hào)。查詢能夠按照：學(xué)號(hào)、課號(hào)、班級(jí)、時(shí)間等進(jìn)行查詢。性能需求根據(jù)VisualBasic6.0軟硬件要求：開發(fā)工具：VisualBasic操作系統(tǒng)：Windows2000/XP；數(shù)據(jù)庫(kù)： SQLServerCPU： 2.4GHz以上；內(nèi)存： 512以上；硬盤： 80GB以上；VGA顯示器或更高；四、系統(tǒng)設(shè)計(jì)系統(tǒng)設(shè)計(jì)思想1、采用現(xiàn)有的資源，先進(jìn)的管理系統(tǒng)開發(fā)方案，充分利用學(xué)校現(xiàn)有的資源，減少開發(fā)中的時(shí)間和財(cái)力、物力、提高系統(tǒng)開發(fā)的水平和應(yīng)用效果。2、系統(tǒng)就滿足學(xué)校的需求，例如學(xué)生信息的錄入、查詢、更新等。學(xué)生錄入與排名。3、系統(tǒng)就具備數(shù)據(jù)庫(kù)維護(hù)功能，及時(shí)根據(jù)用戶需求進(jìn)行數(shù)據(jù)添加、刪除、修改等操作。系統(tǒng)設(shè)計(jì)分析本系統(tǒng)適用于中小學(xué)校，其功能主要分為成績(jī)管理：用于對(duì)成績(jī)的輸入、修改、查詢。學(xué)籍管理：用于對(duì)學(xué)生學(xué)籍的錄入與修改、查詢。幫助信息：用于對(duì)本系統(tǒng)的具體操作進(jìn)行詳解。本系統(tǒng)性能力求易于使用，具體有較高的擴(kuò)展性和可維護(hù)性。系統(tǒng)功能分析錄入功能：為一般用戶提供相應(yīng)的錄入功能，為超級(jí)用戶提供對(duì)所有信息的錄入功能。查詢功能：為所有用戶提供查詢的功能，可查詢?cè)试S范圍內(nèi)的所有信息。對(duì)所有信息的修改刪除功能。退出功能：結(jié)束并關(guān)閉系統(tǒng)。學(xué)生學(xué)籍系統(tǒng)的目標(biāo)節(jié)約資源，提高學(xué)籍信息的精確度大節(jié)省了學(xué)校能源。并且計(jì)算機(jī)的存儲(chǔ)與快速查詢功能大大提高了學(xué)籍管理的效率，并且還提高了學(xué)籍信息管理的精確度。方便快速操作，精減人員，節(jié)約開支方便快速的操作，可減少學(xué)籍信息管理的漏洞，又減少因工作的冗余出現(xiàn)的錯(cuò)誤，并且操作非常簡(jiǎn)單，可減少許多不很必要的人員，這無論從物質(zhì)上還是工作人員的工資上都為學(xué)校節(jié)約了開支。為學(xué)校增加了財(cái)富。功能模塊分解接口設(shè)計(jì)13332兆以上PC機(jī)滿足輸入端條件。軟件接口：Windows2000/NT或更高的操作系統(tǒng)。內(nèi)部接口：內(nèi)部接口(模塊之間的接口)驗(yàn)證模塊：?jiǎn)?dòng)系統(tǒng)時(shí)，便激活登陸口令界面；初始化模塊：對(duì)系統(tǒng)進(jìn)行初始化；系統(tǒng)功能模塊：接收系統(tǒng)功能的相應(yīng)消息，啟動(dòng)信息錄入、信息查詢、信息維護(hù)等模塊。各模塊的具體分析：學(xué)生信息管理：主要用于學(xué)生的基本信息管理（年月、聯(lián)系地址等。成績(jī)管理：主要用于學(xué)生考試的成績(jī)進(jìn)行管理數(shù)據(jù)庫(kù)設(shè)計(jì)數(shù)據(jù)流圖（略）數(shù)據(jù)庫(kù)分析用戶需求具體有學(xué)籍管理系統(tǒng)提供保存、更新、查詢、維護(hù)，這就需求數(shù)據(jù)庫(kù)結(jié)構(gòu)能充分滿足各種信息的輸入與輸出，實(shí)現(xiàn)有組織地、動(dòng)態(tài)地存儲(chǔ)大量關(guān)聯(lián)交叉訪問，與應(yīng)用程序的高度獨(dú)立性。數(shù)據(jù)流圖描述：本系統(tǒng)從總體上分為學(xué)生信息管理、學(xué)生信息瀏覽、成績(jī)?yōu)g覽和成績(jī)管理等部分。每個(gè)模塊有自己的作用。數(shù)據(jù)庫(kù)表設(shè)計(jì)學(xué)生基本信息表：xsxj.Mdb成績(jī)信息表：xscj.Mdb界面設(shè)計(jì)他的窗口信息學(xué)生的成績(jī)窗口設(shè)計(jì)有主窗體直接進(jìn)入成績(jī)的查詢模塊。主要實(shí)現(xiàn)成績(jī)的查詢等功能。學(xué)生學(xué)籍窗口設(shè)計(jì)有主窗體直接進(jìn)入學(xué)生狀況窗口模塊。主要實(shí)現(xiàn)學(xué)生狀況查詢等功能。學(xué)生學(xué)籍管理窗口設(shè)計(jì)有主窗體直接進(jìn)入學(xué)生學(xué)籍管理窗口模塊。學(xué)生成績(jī)管理窗口設(shè)計(jì)有主窗體直接進(jìn)入學(xué)生成績(jī)修改窗口模塊。主要實(shí)現(xiàn)學(xué)生成績(jī)資料查詢結(jié)果。五、詳細(xì)設(shè)計(jì)及源程序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,'設(shè)定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)'設(shè)定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、成績(jī)?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,'設(shè)定formwindowProcedure到wndprocret=SetWindowLong(Me.hwnd,GWL_WNDPROC,AddressOfWndproc)EndSubPrivateSubForm_Unload2(CancelAsInteger)DimretAsLong'取消Message的截取，而使之又只送往原來的WindowProcedureret=SetWindowLong(Me.hwnd,GWL_WNDPROC,preWinProc)EndSubPrivateSubCommand1_Click()Form1.ShowUnloadMeEndSub5、學(xué)籍管理窗口form4.frmOptionExplicitPrivateSubCommand1_Click()Form1.ShowUnloadMeEndSubPrivateSubCommand2_Click()DimnumAsStringDimnAsStringDimsAsIntegerData1.Recordset.MoveFirstnum=InputBox("請(qǐng)輸入要?jiǎng)h除的學(xué)生學(xué)號(hào)（三位數(shù)）","")DoWhileNotData1.Recordset.EOFn=Data1.Recordset.Fields("學(xué)號(hào)")Ifnum=nThens=MsgBox("確定要?jiǎng)h除嗎？",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("學(xué)號(hào)")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("請(qǐng)輸入三位數(shù)學(xué)號(hào)","學(xué)號(hào)查詢")Data1.RefreshDoWhileNotData1.Recordset.EOFn=Data1.Recordset.Fields("Ifn=numThenExitDoElseData1.Recordset.MoveNextEndIfLoopIfData1.Recordset.EOFThenData1.Recordset.MoveFirstMsgBox("查無此人")EndIfEndSubPrivateSubCommand6_Click()DimnameAsStringDimmAsStringname=InputBox("請(qǐng)輸入學(xué)生姓名","姓名查詢")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,'設(shè)定formwindowProcedure到wndprocret=SetWindowLong(Me.hwnd,GWL_WNDPROC,AddressOfWndproc)EndSubPrivateSubForm_Unload2(CancelAsInteger)DimretAsLong'取消Message的截取，而使之又只送往原來的WindowProcedureret=SetWindowLong(Me.hwnd,GWL_WNDPROC,preWinProc)EndSub6、成績(jī)管理窗口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"請(qǐng)?zhí)顚憣W(xué)號(hào)！",vbExclamation,"提示信息"ExitSubEndIfrs.Open "select * from xscj where 學(xué)號(hào)= '" adOpenKeyset,adLockOptimisticIfrs.RecordCount=0ThenMsgBox"沒有此學(xué)號(hào)！",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"請(qǐng)?zhí)顚懻n號(hào)！",vbExclamation,"提示信息"ExitSubEndIfrs.Open "select * from xscj where 課號(hào)= '" & Text2.Text& "'", cn,adOpenKeyset,adLockOptimisticIfrs.RecordCount=0ThenMsgBox"沒有此課號(hào)！",vbExclamation,"提示信息"EndIfSetDataGrid1.DataSource=rsText2.Text=""EndSubPrivateSubForm_Load()Adodc1.ConnectionString = " Source="&App.Path&"\xscj.mdb;Persist Security Info=False"DimcnAsNewADODB.ConnectionDimrsAsNewADODB.RecordsetDimsqlAsStringDimcnstrAsStringcn.CursorLocation=adUseClientcnstr