VB+access成績分析統(tǒng)計(jì)系統(tǒng)論文

PAGEPAGE26摘要成績分析統(tǒng)計(jì)系統(tǒng)是典型的信息管理系統(tǒng)(MIS),其開發(fā)主要包括后臺數(shù)據(jù)庫的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個(gè)方面。此系統(tǒng)設(shè)計(jì)采用 VisualBasic6.0作為數(shù)據(jù)庫的前端開發(fā)工具，采用MicrosoftAccess2000關(guān)系數(shù)據(jù)庫管理系統(tǒng)作為后臺建立數(shù)據(jù)庫并對其進(jìn)行維護(hù)可以對數(shù)據(jù)庫進(jìn)行添加修改刪除等操作。系統(tǒng)能夠完成對成績的查詢、錄入、修改、刪除等有關(guān)信息管理的操作并能對成績做出簡單的分析除此之外系統(tǒng)還能夠?qū)偝煽兗皢慰瞥煽冞M(jìn)行一些常規(guī)的統(tǒng)計(jì)為學(xué)生成績管理者減少繁重而枯燥的工作節(jié)約人力和物力，以及避免一些因人的情緒煩躁而出現(xiàn)的失誤。率。關(guān)鍵字：成績分析統(tǒng)計(jì)系統(tǒng) VisualBasicMicrosoftAccess2000 數(shù)據(jù)目錄摘要?????????????????????????????1引言?????????????????????????????2第一章相關(guān)知識1.1VisualBasic6.0簡介?????????????????????21.2ACCESS2000???????????????31.3管理信息系統(tǒng)概述??????????????????????3管理信息系統(tǒng)的組成系統(tǒng)開發(fā)的一般方法管理信息系統(tǒng)的開發(fā)過程第二章系統(tǒng)需求分析及可行性分析2.1設(shè)計(jì)概要??????????????????????????42.2考慮因素??????????????????????????5實(shí)用性可靠性穩(wěn)定性2.3需求分析??????????????????????????5進(jìn)行需求分析，初步規(guī)劃系統(tǒng)功能確定管理系統(tǒng)所要具備的功能2.4可行性分析?????????????????????????6技術(shù)可行性經(jīng)濟(jì)可行性操作可行性]法律可行性第三章系統(tǒng)總統(tǒng)規(guī)劃3.1系統(tǒng)規(guī)劃??????????????????????????63.2系統(tǒng)方框圖?????????????????????????73.3數(shù)據(jù)庫和數(shù)據(jù)表的設(shè)計(jì)????????????????????7第四章系統(tǒng)詳細(xì)設(shè)計(jì)4.1用戶登錄模塊設(shè)計(jì)??????????????????????84.2系統(tǒng)封面模塊設(shè)計(jì)??????????????????????94.3成績管理模塊設(shè)計(jì)??????????????????????10成績查詢模塊成績錄入模塊成績修改模塊成績刪除模塊4.4成績分析模塊設(shè)計(jì)??????????????????????19及格率優(yōu)秀率4.5成績統(tǒng)計(jì)模塊設(shè)計(jì)??????????????????????19總成績統(tǒng)計(jì)單科成績統(tǒng)計(jì)4.6關(guān)于模塊的設(shè)計(jì)第五章軟件測試5.1系統(tǒng)測試環(huán)境????????????????????????225.2系統(tǒng)總統(tǒng)測試 ???????????????????????22第六章總結(jié)語致謝?????????????????????????????23主要參考文獻(xiàn)引言系統(tǒng)逐漸成為了人們工作中不可缺少的工具。隨著科學(xué)技術(shù)的不斷提高，計(jì)算機(jī)科學(xué)日漸成熟,其強(qiáng)大的功能已為人們深刻認(rèn)識,它已進(jìn)入人類社會的各個(gè)領(lǐng)域并發(fā)揮著越來越重要的作用。對于一個(gè)班本論文向讀者詳細(xì)介紹了成績分析統(tǒng)計(jì)系統(tǒng)的程序開發(fā)過程及使用說明。VisaulBasic6.0懇切希望老師們給我的設(shè)計(jì)提出寶貴的意見和建議。第一章相關(guān)知識VisualBasic6.0ACCESS2000,并對信息管理系統(tǒng)作了簡單的概述。VisualBasic6.0微軟公司的visualbasic6.0是windows應(yīng)用程序開發(fā)工具，是目前最為廣泛的、易學(xué)易用的面向?qū)ο蟮拈_發(fā)工具。visualbasic提供了大量的控件，這些控件可用于設(shè)計(jì)界面和實(shí)現(xiàn)各種功能減少了編程人員的工作量也簡化了界面設(shè)計(jì)過程從而有效的提高了應(yīng)用程序的運(yùn)行效率和可靠性它采用面向?qū)ο笳Z言，利用組建化的編程思想，可以開發(fā)出運(yùn)行在 MicrosoftWindows98/2000/ME/XP/NT平臺的高效率的應(yīng)用，而僅僅需要手工書寫少量代碼，重要表現(xiàn)在：所見即所得的界面設(shè)計(jì)，基于對象的設(shè)計(jì)方法，極短的軟件開發(fā)周期較易維護(hù)的生成代碼。與其它的流行的編程語言相比，VB語言簡單易學(xué)，是高質(zhì)量的先進(jìn)軟件開發(fā)工具。故而，實(shí)現(xiàn)本系統(tǒng)VB是一個(gè)相對較好的選擇。ACCESS2000簡介數(shù)據(jù)庫是數(shù)據(jù)管理的最新技術(shù)，是計(jì)算機(jī)科學(xué)的重要分之。數(shù)據(jù)庫，顧名思義，是數(shù)據(jù)存放的倉庫。它是指長期儲存在計(jì)算機(jī)內(nèi)的、有組織的、可共享的數(shù)據(jù)集合。為了有效的管理數(shù)據(jù)庫，常常需要一些數(shù)據(jù)庫管理系統(tǒng)為用修改、檢索、顯示、刪除和統(tǒng)計(jì)。ACCESS2000Windows95/98/2000WindowsNT理，不論用戶創(chuàng)建的獨(dú)立桌面數(shù)據(jù)庫適用于個(gè)人、部門還是整個(gè)企業(yè)，2000ACCESS2000無須很高的專業(yè)程序設(shè)計(jì)水平就能創(chuàng)建一個(gè)功能強(qiáng)大的數(shù)據(jù)庫系統(tǒng)。為此，本系統(tǒng)的數(shù)據(jù)庫采用ACCESS2000作為數(shù)據(jù)庫。管理信息系統(tǒng)概述MIS（ManagementInformationSystem，在MIS管理信息系統(tǒng)的組成管理信息系統(tǒng)在企業(yè)中的應(yīng)用存在三個(gè)要素，這就是人、計(jì)算機(jī)和數(shù)據(jù)。人是指企業(yè)、機(jī)構(gòu)領(lǐng)導(dǎo)者、管理人員、技術(shù)人員，以及MISMISMISMIS發(fā)的重點(diǎn)。MISMIS采購、庫房、工藝設(shè)計(jì)和財(cái)務(wù)等多個(gè)部門，必須有一整套管理制度做保證。系統(tǒng)開發(fā)的一般方法管理信息系統(tǒng)的開發(fā)是一個(gè)復(fù)雜的系統(tǒng)工程，它涉及到計(jì)算機(jī)處理技術(shù)、系題，對企業(yè)提出的新的管理需求該如何滿足等。系統(tǒng)可行性研究：確定系統(tǒng)所要實(shí)現(xiàn)的目標(biāo)。通過對企業(yè)狀況的初步調(diào)用高效、處理規(guī)范化的原則。系統(tǒng)開發(fā)方法的選擇和開發(fā)計(jì)劃的制定：針對己經(jīng)確定的開發(fā)策略選定和資源利用計(jì)劃。象的開發(fā)方法等。管理信息系統(tǒng)的開發(fā)過程管理信息系統(tǒng)的開發(fā)過程一般包括系統(tǒng)開發(fā)準(zhǔn)備、系統(tǒng)調(diào)查、系統(tǒng)分析、系統(tǒng)設(shè)計(jì)、系統(tǒng)實(shí)現(xiàn)、系統(tǒng)轉(zhuǎn)換、系統(tǒng)運(yùn)行與維護(hù)、系統(tǒng)評價(jià)等步驟。根據(jù)開發(fā)系用戶需要根據(jù)實(shí)際情況進(jìn)行取舍和計(jì)劃。第二章系統(tǒng)需求分析及可行性分析本章節(jié)主要介紹系統(tǒng)的總體設(shè)計(jì)概要、設(shè)計(jì)時(shí)需要考慮的因素、用戶需求分析和設(shè)計(jì)要求、系統(tǒng)設(shè)計(jì)及其可行性分析。設(shè)計(jì)概要考慮因素中如下幾個(gè)方面應(yīng)予以重視：實(shí)用性分發(fā)揮系統(tǒng)在實(shí)際工作中的作用。系統(tǒng)界面友好，工作人員操作簡潔?？煽啃粤屯暾陌踩Ｃ軝C(jī)制。穩(wěn)定性庫、軟件開發(fā)語言都要以系統(tǒng)的日常運(yùn)行穩(wěn)定為標(biāo)準(zhǔn)。需求分析整地體現(xiàn)用戶的要求。進(jìn)行需求分析，初步規(guī)劃系統(tǒng)功能每次考試之后，考試成績的管理工作對于成績管理工作者來說是相當(dāng)?shù)臒┈?，傳統(tǒng)的手工操作既浪費(fèi)了人力，又浪費(fèi)了物力，效率無法提高，且經(jīng)常產(chǎn)生差錯(cuò)，而成績管理系統(tǒng)是各個(gè)學(xué)校所需要使用的一個(gè)管理系統(tǒng)。等等。成績分析統(tǒng)計(jì)系統(tǒng)里面的成績及其他信息，不能讓任何人進(jìn)行查看和修改，為此要對系統(tǒng)設(shè)置登錄密碼，防止他人未經(jīng)允許而查看成績或修改成績。此外，還應(yīng)考慮系統(tǒng)的操作方便和簡潔性，應(yīng)使界面簡單明了，一看就會，便于工作人員的操作。確定管理系統(tǒng)所要具備的功能由于成績管理系統(tǒng)是一個(gè)大型的信息管理系統(tǒng)，它需要專業(yè)的開發(fā)人員才系統(tǒng)提出以下幾個(gè)比較簡單而常用的功能要求：用戶輸入用戶名和密碼登陸系統(tǒng)；按學(xué)號或姓名對要查詢的學(xué)生成績進(jìn)行查詢。根據(jù)要修改成績學(xué)生學(xué)號修改成績。根據(jù)學(xué)生學(xué)號刪除該學(xué)生的全部成績或指定某門功課的成績。三名同學(xué)的姓名及其總分和最后一名同學(xué)各科成績。分別統(tǒng)計(jì)各門功課的平均分、最高分和最低分。分析統(tǒng)計(jì)各科成績及總成績的及格率。分析統(tǒng)計(jì)各科成績及總成績的優(yōu)秀率。分析統(tǒng)計(jì)總成績的全班排名?？尚行苑治隹尚行匝芯康哪康木褪且米钚〉拇鷥r(jià)在盡可能短的時(shí)間內(nèi)確定問題是否行。技術(shù)可行性使用現(xiàn)有的技術(shù)能不能實(shí)現(xiàn)這個(gè)系統(tǒng)。由于本管理系統(tǒng)的對象單一，僅對某個(gè)教學(xué)班的成績進(jìn)行管理與統(tǒng)計(jì)分析，且在對成績信息進(jìn)行查詢、錄入、修改、刪除及分析統(tǒng)計(jì)基本不涉及到計(jì)算過程，這個(gè)系統(tǒng)比較適合采用VisualBasic6.0足本系統(tǒng)的要求。經(jīng)濟(jì)可行性VisualBasic6.0量，提高了工作效率，其經(jīng)濟(jì)效益是顯兒易見的。操作可行性作方式簡單明了。法律可行性因?yàn)楸竟芾硐到y(tǒng)是教學(xué)班對班上同學(xué)成績的信息管理和成績分析統(tǒng)計(jì)的應(yīng)用系統(tǒng)，且由本人自己自主開發(fā)，因此，不存在法律上的問題。第三章系統(tǒng)總體規(guī)劃系統(tǒng)規(guī)劃通過上面的系統(tǒng)需求分析和可行性研究，基本確定了本管理系統(tǒng)的各個(gè)功績管理模塊、成績統(tǒng)計(jì)模塊、成績分析模塊、關(guān)于模塊等組成。登錄模塊該模塊的主要作用是為了保證系統(tǒng)的安全性，防止非法用戶進(jìn)入系統(tǒng)對數(shù)據(jù)進(jìn)行一切操作。系統(tǒng)封面模塊用戶輸入合法的用戶名和密碼是進(jìn)入此界面。除登錄模塊以外，本系統(tǒng)的中。成績管理模塊在此模塊中包含著四個(gè)子模塊：成績查詢、成績錄入、成績修改和成績刪除。為了方便查詢成績，在成績查詢子模塊中，設(shè)計(jì)了兩種查詢方式：按學(xué)號對指定的科目成績進(jìn)行刪除。成績統(tǒng)計(jì)模塊本模塊包含總成績統(tǒng)計(jì)和單科統(tǒng)計(jì)兩個(gè)模塊。在總成績統(tǒng)計(jì)模塊中，能對成績分析模塊總成績的全班排名。系統(tǒng)方框圖字段名稱字段類型字段大小必須填寫學(xué)號文本10是姓名文本8是性別文本2是年齡數(shù)字整型否英語數(shù)字單精度否數(shù)學(xué)數(shù)字單精度否VB數(shù)字單精度否備注文本50否成成成成總單優(yōu)及名版績績績績成科秀格次本查錄修刪績統(tǒng)率率一權(quán)詢?nèi)敫某y(tǒng)計(jì)覽限計(jì)表登陸成績分析統(tǒng)計(jì)系統(tǒng)界登陸成績分析統(tǒng)計(jì)系統(tǒng)界成績管理成績統(tǒng)計(jì)成績分析關(guān)于退出在ACCESS2000中創(chuàng)建一個(gè)如下圖“student.mdb”的數(shù)據(jù)表：這是整個(gè)系統(tǒng)運(yùn)行的后臺數(shù)據(jù)庫依據(jù)，主要存放學(xué)生的成績及相關(guān)信息，在設(shè)計(jì)數(shù)據(jù)表是要特別注意字段大小的設(shè)置，設(shè)置過大，浪費(fèi)存儲空間，過小，使得數(shù)據(jù)存儲不下而產(chǎn)生溢出。第四章 系統(tǒng)詳細(xì)設(shè)計(jì)通過對成績分析統(tǒng)計(jì)系統(tǒng)的需求分析、可行性分析和總體規(guī)劃，以及后臺詳細(xì)介紹本系統(tǒng)的各模塊的設(shè)計(jì)及編碼。用戶登錄模塊設(shè)計(jì)：（在這里，為了編程實(shí)現(xiàn)的簡單起見，制作時(shí)采用了一個(gè)確定的登錄密碼“2005）當(dāng)輸入不正確時(shí)，出現(xiàn)“錯(cuò)誤”提示其實(shí)現(xiàn)代碼為：PrivateSubCommand1_Click()If(cmbUserid.Text="楊鐵軍"OrcmbUserid.Text="Admin")Andpassword.Text="2005"ThenMIAN主窗口.Showfrm登錄.HideUnloadMeElseMsgBox"該用戶不存在或者您輸入的密碼不正確！請重試！",vbOKOnly,"錯(cuò)誤"password.Text=password.SetFocusEndIfEndSub系統(tǒng)在窗體載入時(shí)同時(shí)連接數(shù)據(jù)庫：PrivateSubForm_Load()'窗體載入的時(shí)候就連接數(shù)據(jù)庫conn.ConnectionString = Source=student.mdb;PersistSecurityInfo=False"conn.OpenMe.cmbUserid.AddItem("楊鐵軍")Me.cmbUserid.AddItem("Admin")EndSub系統(tǒng)封面模塊設(shè)計(jì)：當(dāng)用戶通過身份驗(yàn)證時(shí)就進(jìn)入此界面，可以進(jìn)行所有操作。為了使系統(tǒng)界面顯得美觀大方，在設(shè)計(jì)封面時(shí)，采用了一幅畫作為背景。在此封面的菜單設(shè)計(jì)如下：成績管理（M）??成績查詢??-??成績錄入??-??成績修改??-??成績刪除成績統(tǒng)計(jì)??總成績統(tǒng)計(jì)??-??單科統(tǒng)計(jì)成績分析??優(yōu)秀率??及格率關(guān)于（G）??版本權(quán)限退出（E）成績管理模塊設(shè)計(jì)成績查詢模塊糊查詢。其結(jié)構(gòu)為：其主要實(shí)現(xiàn)代碼為：PrivateSubcbo查詢_Click()Ifopt按姓名查詢.Value=TrueThenSetrs=Nothingsql="select*fromstudentwhere姓名like'%"&txt按姓名查詢.Text&"%'"rs.Opensql,conn,adOpenDynamic,adLockOptimisticSetMSHFlexGrid1.DataSource=rsEndIfIfopt按學(xué)號查詢.Value=TrueThenSetrs=Nothingsql"select*fromstudentwhere&cbo.Text&"'"

rs.Opensql,conn,adOpenDynamic,adLockOptimisticSetMSHFlexGrid1.DataSource=rsEndIfEndSubPrivateSubopt按姓名查詢_Click()Ifopt.Value=Truecbo.Enabled=Falseopt.Value=Falsetxt.Enabled=TrueEndIfcboEndSubPrivateSubopt按學(xué)號查詢_Click()Ifopt.Value=Truecbo.Enabled=Trueopt.Value=Falsetxt.Enabled=FalseSetrs=Nothingsql="select*fromstudent"rs.Opensql,conn,adOpenDynamic,adLockOptimisticDoWhileNotrs.EOFcbo按學(xué)號查詢.AddItemrs!學(xué)號rs.MoveNextLoopEndIftxt.TextEndSub成績錄入模塊按紐時(shí)，觸發(fā)時(shí)鐘控件一，使窗口高度增大，MSHFlexGrid裝載數(shù)據(jù)，顯示。EnableFalse，失去與數(shù)據(jù)源的連接。當(dāng)單擊“確定”按紐時(shí)，清除MSHFlexGrid，并使高度減少，達(dá)到一定值時(shí)失去效應(yīng)。源程序窗口為：其代碼實(shí)現(xiàn)為：PrivateSubcbo查看成績_Click()Timer1.Enabled=TrueEndSubPrivateSubcbo關(guān)閉_Click()Unloadfrm成績錄入EndSubPrivateSubcbo確定_Click()Timer2.Enabled=TrueMSHFlexGrid1.ClearEndSubPrivateSubcbo添加記錄_Click()Iftxt.Text<>""Andtxt.Text<>""Andcbo.Text""Andtxt.Text<>""Andtxt.Text<>""Andtxt.Text""Andtxtvb.Text<>""ThenSetrs=Nothingsql"insertintostudent(學(xué)號,姓名,性別,年齡,英語,數(shù)學(xué),vb)values&txt.Text&&txt.Text&&cbo.Text&&txt.Text&"','"&txt.Text&"','"&txt.Text&&txtvb.Text&"')"rs.Opensql,conn,adOpenDynamic,adLockOptimisticMsgBox"錄入完成",vbOKOnly,"錄入成功"txt.Texttxt.Textcbo.Cleartxt.Texttxt.Texttxt.Texttxtvb.Text=""EndIfEndSubPrivateSubForm_Load()frm.Left=(MIAN.Width-frm.Width)/2frm.Top=(MIAN.Height-frm.Height)/cbo.AddItem("男")cbo性別.AddItem("女")EndSubPrivateSubTimer1_Timer()frm成績錄入.Height=frm成績錄入.Height+200Iffrm成績錄入.Height>=8600ThenTimer1.Enabled=FalseSetrs=Nothingsql="select*fromstudent"rs.Opensql,conn,adOpenDynamic,adLockOptimisticSetMSHFlexGrid1.DataSource=rsEndIfEndSubPrivateSubTimer2_Timer()frm.Height=frm.Height-Iffrm.Height<=3600ThenTimer2.Enabled=EndIfEndSubPrivateSubtxtvb_Change()pdzmtxtvbEndSubPrivateSubtxt年齡_Change()pdzmtxt年齡EndSubPrivateSubtxt數(shù)學(xué)_Change()pdzmtxt數(shù)學(xué)EndSubPrivateSubtxt姓名_Change()pdsztxt姓名EndSubPrivateSubtxt學(xué)號_Change()pdzmtxt學(xué)號EndSubPrivateSubtxt英語_Change()pdzmtxt英語EndSub成績修改模塊根據(jù)要修改成績的學(xué)生的學(xué)號修改成績。具體實(shí)現(xiàn)窗口為："'"

其代碼為：PrivateSubcbo按學(xué)號查詢_Click()Setrs=Nothingsql="select*fromstudentwhere學(xué)號='"&cbo按學(xué)號查詢.Text&rs.Opensql,conn,adOpenDynamic,adLockOptimistictxt姓名.Text=rs!姓名txt.Text=rs!cbo.Text=rs!txt.Text=rs!txt.Text=rs!txtvb.Text=rs!VBSetMSHFlexGrid1.DataSource=rsEndSubPrivateSubcbo關(guān)閉_Click()UnloadMeEndSubPrivateSubcbo修改_Click()Setrs=Nothingsql="select*fromstudentwhere學(xué)號='"&cbo按學(xué)號查詢.Text&"'""'"

rs.Opensql,conn,adOpenDynamic,adLockOptimisticrs.Fields("性別").Value=cbo性別.Textrs.Fields("年齡").Value=txt年齡.Textrs.Fields("姓名").Value=txt姓名.Textrs.Fields("英語").Value=txt英語.Textrs.Fields("數(shù)學(xué)").Value=txt數(shù)學(xué).Textrs.Fields("vb").Value=txtvb.Textrs.UpdateSetrs=Nothingsql="select*fromstudentwhere學(xué)號='"&cbo按學(xué)號查詢.Text&rs.Opensql,conn,adOpenDynamic,adLockOptimistictxt姓名.Text=rs!姓名txt.Text=rs!txt.Text=rs!txtvb.Text=rs!VBcbo.Text=rs!txt.Text=rs!SetMSHFlexGrid1.DataSource=rsMsgBox"修改完成",vbOKOnly,"修改成功"EndSubPrivateSubForm_Load()frm.Left=(MIAN.Width-frm.Width)/2frm.Top=(MIAN.Height-frm.Height)/Setrs=Nothingsql="select*fromstudent"rs.Opensql,conn,adOpenDynamic,adLockOptimisticDoWhileNotrs.EOFcbo按學(xué)號查詢.AddItemrs!學(xué)號rs.MoveNextLoopcbo.AddItemcbo.AddItemEndSub成績刪除模塊指定學(xué)生的全部成績進(jìn)行刪除也可以指定某一門功課。其實(shí)現(xiàn)窗體為："'""'"

其代碼為：PrivateSubcbo按學(xué)號查看_Click()Setrs=Nothingsql="select*fromstudentwhere學(xué)號='"&cbo按學(xué)號查看.Text&rs.Opensql,conn,adOpenDynamic,adLockOptimistictxt.Text=rs!姓名cbo.Text=rs!txt.Text=rs!英語txt數(shù)學(xué).Text=rs!數(shù)學(xué)txtvb.Text=rs!VBtxtchk.Text=rs!txtchk.Text=rs!txtchkvb.Text=rs!VBEndSubPrivateSubcbo關(guān)閉_Click()Unloadfrm成績刪除EndSubPrivateSubcbo確定_Click()Setrs=Nothingsql="select*fromstudentwhere學(xué)號='"&cbo按學(xué)號查看.Text&rs.Opensql,conn,adOpenDynamic,adLockOptimistictxt.Text=rs!姓名cbo.Text=rs!txt.Text=rs!英語txt數(shù)學(xué).Text=rs!數(shù)學(xué)txtvb.Text=rs!VBtxtchk.Text=rs!txtchk.Text=rs!txtchkvb.Text=rs!VBEndSub"'""'""'"

PrivateSubcbo刪除_Click()Setrs=Nothingsql="select*fromstudentwhere學(xué)號='"&cbo按學(xué)號查看.Text&rs.Opensql,conn,adOpenDynamic,adLockOptimisticrs.Fields("英語").Value=0rs.Fields("數(shù)學(xué)").Value=0rs.Fields("vb").Value=0rs.UpdateSetrs=Nothingsql="select*fromstudentwhere學(xué)號='"&cbo按學(xué)號查看.Text&rs.Opensql,conn,adOpenDynamic,adLockOptimistictxt.Text=rs!姓名cbo.Text=rs!txt.Text=rs!英語txt數(shù)學(xué).Text=rs!數(shù)學(xué)txtvb.Text=rs!VBtxtchk.Text=rs!txtchk.Text=rs!txtchkvb.Text=rs!VBEndSubPrivateSubchkvb_Click()Setrs=Nothingsql="select*fromstudentwhere學(xué)號='"&cbo按學(xué)號查看.Text&rs.Opensql,conn,adOpenDynamic,adLockOptimisticrs.Fields("vb").Value=0rs.UpdateEndSub"'""'"

PrivateSubchk數(shù)學(xué)_Click()Setrs=Nothingsql="select*fromstudentwhere&cbo.Textrs.Opensql,conn,adOpenDynamic,adLockOptimisticrs.Fields("數(shù)學(xué)").Value=0rs.UpdateEndSubPrivateSubchk英語_Click()Setrs=Nothingsql="select*fromstudentwhere學(xué)號='"&cbo按學(xué)號查看.Text&rs.Opensql,conn,adOpenDynamic,adLockOptimisticrs.Fields("英語").Value=0rs.UpdateEndSubPrivateSubForm_Load()frm.Left=(MIAN.Width-frm.Width)/2frm.Top=(MIAN.Height-frm.Height)/EndSubPrivateSubopt按學(xué)號查看_Click()txt英語.Text=""txt數(shù)學(xué).Text=""txtvb.Text=""txtchk英語.Text=""txtchk數(shù)學(xué).Text=""txtchkvb.Text=""Ifopt按學(xué)號查看.Value=TrueThencbo按學(xué)號查看.Enabled=TrueSetrs=Nothingsql="select*fromstudent"rs.Opensql,conn,adOpenDynamic,adLockOptimisticDoWhileNotrs.EOFcbo按學(xué)號查看.AddItemrs!學(xué)號rs.MoveNextLoopEndIfEndSub4.5.24.5.2成績分析模塊設(shè)計(jì)4.4.1及格率模塊該模塊能夠分別統(tǒng)計(jì)出每門功課的及格率及總成績的及格率。其窗口為：4.4.24.4.2該模塊和及格率模塊幾乎是一樣，只是在算法上稍有不同，其實(shí)就是作為被6085成績統(tǒng)計(jì)模塊設(shè)計(jì)4.5.1總成績統(tǒng)計(jì)門成績。窗口如下：塊各項(xiàng)統(tǒng)計(jì)自動出現(xiàn)。窗口如下：其實(shí)現(xiàn)代碼為：PrivateSubForm_Load()frm.Left=(MIAN.Width-frm.Width)/2frm.Top=(MIAN.Height-frm.Height)/Setrs=Nothingsql="selectavg(aselavg,max(aselmax,min(aselmin,avg(數(shù)學(xué))asasasasvbavg,max(VB)asvbmax,min(VB)asvbminfromstudent"rs.Opensql,conn,adOpenDynamic,adLockOptimistictxt英語平均.Text