vb學生成績管理系統(tǒng)設計源代碼1

中要：學生成績管理系統(tǒng)是典型的信息管理系統(tǒng)(MIS),其開發(fā)主要包括數(shù)據(jù)庫的建立和維護以及前端應用程序的開發(fā)兩個方面。對于前者要求建立起數(shù)據(jù)一致性和完整性強、數(shù)據(jù)安點。本系統(tǒng)主要完成對學生情況和學生成績的管理，包括數(shù)據(jù)庫中詢、添加、刪除、修改、報表等功能。系統(tǒng)的是數(shù)據(jù)庫中各個表的，每一個表的修改都將聯(lián)庫的修改。詢和多條件功能也是系統(tǒng)的，也有精確之一，在系統(tǒng)中即有單條件查和模糊件修改功能，并具備報表打印功系統(tǒng)有完整的用戶添加、刪除和能。經(jīng)過分析,我們使用MICROSOFT公司的VISUALBASIC利用其提供的各種面向?qū)ο蟮拈_發(fā)工具,尤其是數(shù)據(jù)窗口這一能方便而簡潔數(shù)據(jù)庫的智能化對象,首先在短時間內(nèi)建立系統(tǒng)應用原型,然后,對初始原型系統(tǒng)進行需求迭代,不斷修正和改進,直到中要：學生成績管理系統(tǒng)是典型的信息管理系統(tǒng)(MIS),其開發(fā)主要包括數(shù)據(jù)庫的建立和維護以及前端應用程序的開發(fā)兩個方面。對于前者要求建立起數(shù)據(jù)一致性和完整性強、數(shù)據(jù)安點。本系統(tǒng)主要完成對學生情況和學生成績的管理，包括數(shù)據(jù)庫中詢、添加、刪除、修改、報表等功能。系統(tǒng)的是數(shù)據(jù)庫中各個表的，每一個表的修改都將聯(lián)庫的修改。詢和多條件功能也是系統(tǒng)的，也有精確之一，在系統(tǒng)中即有單條件查和模糊件修改功能，并具備報表打印功系統(tǒng)有完整的用戶添加、刪除和能。經(jīng)過分析,我們使用MICROSOFT公司的VISUALBASIC利用其提供的各種面向?qū)ο蟮拈_發(fā)工具,尤其是數(shù)據(jù)窗口這一能方便而簡潔數(shù)據(jù)庫的智能化對象,首先在短時間內(nèi)建立系統(tǒng)應用原型,然后,對初始原型系統(tǒng)進行需求迭代,不斷修正和改進,直到形成用戶滿意的可行系統(tǒng)。：管理信息系統(tǒng)；數(shù)據(jù)庫；vb6.0；access2000ABSTRACT：ABSTRACT：Studentstatusresultsystemisdevelopmenttwoaspectsthattypicalinformationmanagementsystem,MIS(MIS),itsdevelopmentincludesprimarilythebackgrounddatabasecreateswithsupportandthefrontendappliestheprocedure.Createstorisetotheformerrequesttheconsistencyofdataisstrongwiththeintegrity,thelibrarythatthesafenessofdatalike.Butrequestthelatterverymuchtoapplytheprocedurefunctioncomplete,easyusageetc.characteristics.Thissystemcompletesprimarilytostudent'scircumstancewiththemanagementofstudent'sscore,includethedatabasetheinsidethewatchincrease,modify,deleteetc.hesystemcanalsocompletetothebrowsingofvariousinformation,search,increase,delete,modify,reportetc.function.Systemofnucleusisothertableinaninfluenceforofrelation,eachamodificationofwatchmovinginatableindatabasethatmodificationthatoperationhoursystem,betocompletethelogarithmsaccordingtowillcompletethedatabaseofoneself.Searchthefunctionisalsooneofthenucleusofthesystem,havingnamelyinsystemthesingleconditionsearchtosearchwithmanyconditions,alsohavingtheaccuratesearchtosearchwithblur,systemnotonlycontainstaticconditionsearch,alsohavethedynamicbornconditionsearch,itspurposeisallforthesakeoftheconvenientconsumertouse.Systemcontaincompleteconsumerincrease,deletetomodifythefunctionwiththepassword,theunionhasthereportprintsthefunction.Throughanalysis,weusetheMICROSOFTcompanyVISUALBASICdevelopmenttool,makinguseofitseverykindofthetoolofdevelopmentthatprovidethatfacetotheobject,particularlyisintelligencethatthewindowofdatathisoncanningbeconvenientbutmanipulatethedatabaseinbrieftoturntheobject,createintheinashorttimemanipulatethedatabaseinbrieftoturntheobject,createintheinashorttimefirstsystemapplicationprototype,then,starttothebeginningtheprototypesystemproceedstorequirewiththeiteration,revisingcontinuouslywithimprove,untilformingtheconsumerissatisfiedcanrowsystem.Keywords:MIS；database；vb6.0；access2000目錄目錄 IV第一章緒論 1開發(fā)背景 1開發(fā)環(huán)境 目錄目錄 IV第一章緒論 1開發(fā)背景 1開發(fā)環(huán)境 11.2.1VB6.0簡介 2MicrosoftAccess的使用 2ADO的介紹 31.3課題的來源 3第二章系統(tǒng)的需求分析 42.1總體需求····················································································4系統(tǒng)總需求概述 4系統(tǒng)目標 42.1.32．2系統(tǒng)功能如圖2.1 5·················································································52.2.1系統(tǒng)登陸管理功能 62.2.22.2.32.2.42.2.5查看和修改管理功能 6信息錄入模塊功能管理 72.2.22.2.32.2.42.2.5查看和修改管理功能 6信息錄入模塊功能管理 7模塊的功能 8打印模塊的功能 8第三章概要設計 9系統(tǒng)設計思路 9界面設計 9用戶登陸 93.1.3和錄入 93.1.4數(shù)據(jù)庫分析 9設計簡述 10vb設計的界面簡述 10Access2000設計數(shù)據(jù)庫 10系統(tǒng)介紹 10運行設計 113.3E-R圖 12系統(tǒng)環(huán)境與軟件安裝 14硬件環(huán)境要求 14軟件環(huán)境要求 14軟件安裝及運行 14第四章詳細設計與實現(xiàn) 154.1軟件環(huán)境要求 14軟件安裝及運行 14第四章詳細設計與實現(xiàn) 154.1概述 15數(shù)據(jù)庫設計 15課程表 16學生情況表 164.2.34.2.44.2.5學生與課程表 16用戶表 17建立ACCESS數(shù)據(jù)庫 17界面的實現(xiàn) 20登陸界面 20主界面 234.3.34.3.44.3.5查看和修改信息 24成績錄入 27學生信息的錄入 294.3.6·······················································································294.3.6報表輸出 32第五章系統(tǒng)測試 34第五章系統(tǒng)測試 34系統(tǒng)功能測試 34整體模塊測試 34系統(tǒng)數(shù)據(jù)庫測試 34系統(tǒng)錯誤處理測試 35參考文獻 36致謝 371.1開發(fā)背景隨著經(jīng)濟全球化、管理現(xiàn)代化的到來，信息化建設已提到議事日程。競爭的大中型企業(yè)等企業(yè)計劃性。在我國的各類學校，尤其是高等院校，近些年由于闊招生員，大大增加了學校的管理體制的負擔，因此，學生成績管理系統(tǒng)大大管理系統(tǒng)是度，十分完備的管理層次，是一個學校能夠辦學成功的關(guān)鍵所在。1.1開發(fā)背景隨著經(jīng)濟全球化、管理現(xiàn)代化的到來，信息化建設已提到議事日程。競爭的大中型企業(yè)等企業(yè)計劃性。在我國的各類學校，尤其是高等院校，近些年由于闊招生員，大大增加了學校的管理體制的負擔，因此，學生成績管理系統(tǒng)大大管理系統(tǒng)是度，十分完備的管理層次，是一個學校能夠辦學成功的關(guān)鍵所在。1.2開發(fā)環(huán)境開發(fā)學生信息管理系統(tǒng)的軟件主要是MicrosoftVisualBasic6.0和MicrosoftAcces。6.0Windows為廣泛的、易學易用的面向?qū)ο蟮拈_發(fā)工具。VisualBasic提供了大量的控實現(xiàn)本系統(tǒng)VB是一個相對較好的選擇。VB6.0VisualBasic具有數(shù)據(jù)庫連接和數(shù)據(jù)處理功能，因此完全有資格作為數(shù)據(jù)庫應用程序的開發(fā)環(huán)境。Microsoft公司把許多新的數(shù)據(jù)VBAccessFoxPtoParadoxforWindows的直接競爭者[2]。實現(xiàn)本系統(tǒng)VB是一個相對較好的選擇。VB6.0VisualBasic具有數(shù)據(jù)庫連接和數(shù)據(jù)處理功能，因此完全有資格作為數(shù)據(jù)庫應用程序的開發(fā)環(huán)境。Microsoft公司把許多新的數(shù)據(jù)VBAccessFoxPtoParadoxforWindows的直接競爭者[2]。VisualBasic優(yōu)點：★簡單性:VisualBasic的代碼甚至不編寫任何代碼就可以數(shù)據(jù)庫，對數(shù)據(jù)庫進行瀏覽。Access)那樣局限于特定的比較靈活?！锟蓴U充性。VisualBasic是一種可以擴充的語言，其中包括在數(shù)據(jù)庫應用方面的擴充。在VisualBasic中，可以使用ActiveX控件(以前版本中VBXOLEMicrosoft第開發(fā)者提供。有了這些控件，可以很容易地在VisualBasic中增加新功能，擴充VisualBasic數(shù)據(jù)存取控制的指令系統(tǒng)。在其它數(shù)據(jù)庫開發(fā)平臺中，目前還不具備ActiveX控件。AccessAccessMicrosoftoffice,目前已經(jīng)成為世界上最流行地連接相關(guān)的信息而且還對其他的數(shù)據(jù)庫系統(tǒng)有所補充[3]操作其它來源的資Paradox，MicrosoftFoxPro）和服Accesswindows統(tǒng)的高級應用程序開發(fā)系統(tǒng)。Access與其它數(shù)據(jù)庫開發(fā)系統(tǒng)之間相當顯著的差。SQLAccess差。SQLAccessMicrosoftAccess1.2.3ADOADO(ActiveXDataObject)是Microsoft數(shù)據(jù)庫應用程序開發(fā)的新接DB(對象連接和鑲?cè)氲臄?shù)據(jù)庫)為基礎(chǔ)，經(jīng)過OLEDB精心包裝后的數(shù)據(jù)庫訪問技術(shù)，利用它可以快速的創(chuàng)建數(shù)據(jù)庫應用程序。ADO提供了一組非常簡單，將一般通用的數(shù)據(jù)細節(jié)進行封裝的對象。由于ODBC數(shù)據(jù)源也提供而且還可以應用所有的ODBC驅(qū)動程序[4]。1.3課題的來源發(fā)的一個學生成績管理系統(tǒng)。本系統(tǒng)開發(fā)后不是為了馬上可以應用到實際工套更為完善的學生成績管理系統(tǒng)。第二章系統(tǒng)的需求分析2.1總體需求2.1.1模塊和打印模塊。1.系統(tǒng)登陸模塊：主要完成對登陸用戶名和進行有效性驗證，當輸入的數(shù)據(jù)合法時，跳轉(zhuǎn)到主菜單頁面，進行對應的操作查看和修改模塊：在這個模塊中可以對學生的基本信息和學生的成績進行添加，修改和刪除。信息錄入模塊：可以添加課程，添加成績和基本信息。2.3.4.模塊：可以對學生的基本信息和學生成績進行。其中學生。學生成績查基本信息的可以通過學號，班級，專業(yè)院系詢可以通過學號，班級和全部進行。5.打印報表模塊：可以打印學生的自然情況，學生的各科成績和補考學生的。2.1.2采用現(xiàn)有的軟件和科學的管理系統(tǒng)開發(fā)方案，完成對學生成績管理的部達到操作直觀、方便、實用等要求。第二章系統(tǒng)的需求分析2.1總體需求2.1.1模塊和打印模塊。1.系統(tǒng)登陸模塊：主要完成對登陸用戶名和進行有效性驗證，當輸入的數(shù)據(jù)合法時，跳轉(zhuǎn)到主菜單頁面，進行對應的操作查看和修改模塊：在這個模塊中可以對學生的基本信息和學生的成績進行添加，修改和刪除。信息錄入模塊：可以添加課程，添加成績和基本信息。2.3.4.模塊：可以對學生的基本信息和學生成績進行。其中學生。學生成績查基本信息的可以通過學號，班級，專業(yè)院系詢可以通過學號，班級和全部進行。5.打印報表模塊：可以打印學生的自然情況，學生的各科成績和補考學生的。2.1.2采用現(xiàn)有的軟件和科學的管理系統(tǒng)開發(fā)方案，完成對學生成績管理的部達到操作直觀、方便、實用等要求。2.1.3業(yè)務總體流程2.12.1系統(tǒng)總體流程圖該學生成績成績管理系統(tǒng)基本流程如下：數(shù)據(jù)庫中直接進行操作或由用戶提交數(shù)據(jù)的輸入：由用戶直接輸入完成。令進行操作。數(shù)據(jù)的顯示或提交：通過運用SQL語句連接到數(shù)據(jù)庫完成相應的功能。2．2系統(tǒng)功能模塊，打印報表模塊。每一部分實現(xiàn)的功能如下：結(jié)束數(shù)據(jù)庫數(shù)據(jù)備份2.1.3業(yè)務總體流程2.12.1系統(tǒng)總體流程圖該學生成績成績管理系統(tǒng)基本流程如下：數(shù)據(jù)庫中直接進行操作或由用戶提交數(shù)據(jù)的輸入：由用戶直接輸入完成。令進行操作。數(shù)據(jù)的顯示或提交：通過運用SQL語句連接到數(shù)據(jù)庫完成相應的功能。2．2系統(tǒng)功能模塊，打印報表模塊。每一部分實現(xiàn)的功能如下：結(jié)束數(shù)據(jù)庫數(shù)據(jù)備份顯示或提交數(shù)據(jù)對各模塊進行操作主菜單功能選擇系統(tǒng)登陸2.2.1系統(tǒng)登陸管理功能用戶名和的有效性驗證；根據(jù)用戶名判斷用戶是管理員或者普通用戶出錯信息提示；登陸模塊的示例如圖2.2：2.2登陸模塊用例圖2.2.22.2.1系統(tǒng)登陸管理功能用戶名和的有效性驗證；根據(jù)用戶名判斷用戶是管理員或者普通用戶出錯信息提示；登陸模塊的示例如圖2.2：2.2登陸模塊用例圖2.2.2用戶管理：實現(xiàn)靈活的增加成績信息；用戶管理：實現(xiàn)靈活的修改和刪除學生基本信息。出錯信息提示。查看和修改功能如圖2.3:系統(tǒng)管理員系統(tǒng)操作系統(tǒng)登陸成績添加成績刪除管理員成績修改信息修改信息刪除2.3查看和修改功能2.2.3信息錄入模塊功能管理成績添加：可以添加某門課程的成績基本信息添加：可以添加學生名字，學號，等信息。信息錄入功能介紹如圖2.4成績添加管理員課程添加學生信息添加2.4信息錄入功能成績添加成績刪除管理員成績修改信息修改信息刪除2.3查看和修改功能2.2.3信息錄入模塊功能管理成績添加：可以添加某門課程的成績基本信息添加：可以添加學生名字，學號，等信息。信息錄入功能介紹如圖2.4成績添加管理員課程添加學生信息添加2.4信息錄入功能2.2.4模塊的功能學生基本信息的：可以通過學號，班級，專業(yè)和院系。學生成績的：學號，班級和全部2.2.5補考學生的打印2.2.4模塊的功能學生基本信息的：可以通過學號，班級，專業(yè)和院系。學生成績的：學號，班級和全部2.2.5補考學生的打印3.1系統(tǒng)設計思路3.1.1界面設計用VB設計基礎(chǔ)界面，在初步設計時，可以只對窗體進行設計，而不涉及程序的內(nèi)容，待窗體設計完畢后，再進行程序編程，這也是VB的優(yōu)點之一。3.1.2用戶登陸的db5無效的用戶名或，返回用戶登陸界面。3.1.3學生信息信息內(nèi)容和錄入數(shù)據(jù)庫內(nèi)其安全和主屬性的唯一。3.1.4數(shù)據(jù)庫分析，設計一個用戶表比較出的結(jié)果完全滿足用戶的需求。3.1系統(tǒng)設計思路3.1.1界面設計用VB設計基礎(chǔ)界面，在初步設計時，可以只對窗體進行設計，而不涉及程序的內(nèi)容，待窗體設計完畢后，再進行程序編程，這也是VB的優(yōu)點之一。3.1.2用戶登陸的db5無效的用戶名或，返回用戶登陸界面。3.1.3學生信息信息內(nèi)容和錄入數(shù)據(jù)庫內(nèi)其安全和主屬性的唯一。3.1.4數(shù)據(jù)庫分析，設計一個用戶表比較出的結(jié)果完全滿足用戶的需求。3.2設計簡述3.2.1vb輸入帳戶以把excel表中的數(shù)據(jù)導入到數(shù)據(jù)庫中[5]。查找向?qū)?，可以根?jù)各種條件對學生進行查找，并顯示。成績，對成績進行單人或者全班。打印管理，管理員可以打印單人或者全班成績，并且對打印的字段進行設置。幫助信息，說明作者，版本信息。3.2.2Access2000表包括學生與課程的各種基本屬性，“學號”與“課程”為主屬性。用戶權(quán)限表包括“用戶”號”，“姓名”和以課程名字命名的屬性，“學號”為主屬性。3.2.3系統(tǒng)介紹3.2設計簡述3.2.1vb輸入帳戶以把excel表中的數(shù)據(jù)導入到數(shù)據(jù)庫中[5]。查找向?qū)?，可以根?jù)各種條件對學生進行查找，并顯示。成績，對成績進行單人或者全班。打印管理，管理員可以打印單人或者全班成績，并且對打印的字段進行設置。幫助信息，說明作者，版本信息。3.2.2Access2000表包括學生與課程的各種基本屬性，“學號”與“課程”為主屬性。用戶權(quán)限表包括“用戶”號”，“姓名”和以課程名字命名的屬性，“學號”為主屬性。3.2.3系統(tǒng)介紹，信息和課程。如果登陸失敗，則系統(tǒng)。3.1登陸成功3.1系統(tǒng)簡圖3.2.4各個模塊在軟件運行過程中能較好的交換信息，處理數(shù)據(jù)[6]。2．運行控制：軟件運行時有較好的界面，基本能夠?qū)崿F(xiàn)用戶的數(shù)據(jù)處理要求。3.運行時間:系統(tǒng)的運行時間基本可以用戶所提出的要求.學 籍 信 息 庫輸入輸入輸入輸入輸入輸入成績打印報表成績輸入課程輸入信息輸入學生主界面登陸成功3.1系統(tǒng)簡圖3.2.4各個模塊在軟件運行過程中能較好的交換信息，處理數(shù)據(jù)[6]。2．運行控制：軟件運行時有較好的界面，基本能夠?qū)崿F(xiàn)用戶的數(shù)據(jù)處理要求。3.運行時間:系統(tǒng)的運行時間基本可以用戶所提出的要求.學 籍 信 息 庫輸入輸入輸入輸入輸入輸入成績打印報表成績輸入課程輸入信息輸入學生主界面用戶登陸學籍管理系統(tǒng)3.3E-R3.3.1課程管理E-R3.2課程號課程管理課程名稱授課教師3.2E-R3.3.2E-R3.3E-R學生與課程學生與課程3.3E-R3.3.1課程管理E-R3.2課程號課程管理課程名稱授課教師3.2E-R3.3.2E-R3.3E-R學生與課程學生與課程學生與課程學生與課程學生與課程學生與課程3.3.3學生信息E-R3.4出生年月學號班級名字性別民族學生信息附注父母姓名郵政編碼電話號碼地址專業(yè)院系3.4E-R圖3.3.4用戶管理E-R3.5用戶編號用戶名稱用戶管理用戶圖3.5 理E-R圖3.3.3學生信息E-R3.4出生年月學號班級名字性別民族學生信息附注父母姓名郵政編碼電話號碼地址專業(yè)院系3.4E-R圖3.3.4用戶管理E-R3.5用戶編號用戶名稱用戶管理用戶圖3.5 理E-R圖3.4系統(tǒng)環(huán)境與軟件安裝3.4.13（建3.4系統(tǒng)環(huán)境與軟件安裝3.4.13（建128MB。3.4.2MicrosoftAccessVisualBasic6.0臺，可在Windows95/98/2000（server）/XP操作系統(tǒng)下運行.3.4.3軟件安裝及運行建議用戶在系統(tǒng)上安裝Microsoft公司的VisualBasic6.0企業(yè)版和運行程序。打開VisualBasic6.0企業(yè)版，運行“student.vbp”工程，或執(zhí)行“student.exe”文件[7]。第四章詳細設計與實現(xiàn)MicrosoftVisualBasic6.0為開發(fā)工具，MicrosoftAccess作為數(shù)據(jù)庫實現(xiàn)學生成績管理系統(tǒng)各個模塊的功能。4.1概述WindowsXPMicrosoftAccessMicrosoftVisualBasic6.0畫出幾個模塊的第四章詳細設計與實現(xiàn)MicrosoftVisualBasic6.0為開發(fā)工具，MicrosoftAccess作為數(shù)據(jù)庫實現(xiàn)學生成績管理系統(tǒng)各個模塊的功能。4.1概述WindowsXPMicrosoftAccessMicrosoftVisualBasic6.0畫出幾個模塊的界面，然后通過添加程序代碼實現(xiàn)各個模塊的功能。4.2數(shù)據(jù)庫設計本系統(tǒng)的數(shù)據(jù)庫為MicrosoftAccess,既方便操作，又達到系統(tǒng)設因此本系統(tǒng)中的數(shù)據(jù)庫表應設計的實體和屬性如下：登陸信息（用戶ID，用戶，用戶編號）（課程名稱，課程號，學號，備注，成績）課程信息（課程號，課程名稱，授課教師）學生情況信息（學號，班級，名字， ，出生日期， 母姓名，，，專業(yè)，院系，號碼，附注）4.2.1課程表4.1課程表字段名類型是否為空說明課程號文本否主鍵，課程編號課程名稱文本否授課教師文本否4.2.2學生情況表4.2學生情況表字段名類型是否為空說明名字文本否主鍵，學號出生日期父母地址備注4.2.3學生與課程表4.2.1課程表4.1課程表字段名類型是否為空說明課程號文本否主鍵，課程編號課程名稱文本否授課教師文本否4.2.2學生情況表4.2學生情況表字段名類型是否為空說明名字文本否主鍵，學號出生日期父母地址備注4.2.3學生與課程表表4.3 學生與課程表字段名類型（長度）是否為空說明課程號文本否主鍵，課程編號學號數(shù)字否否否4.2.44.4用戶表字段名類型是否為空說明用戶名文本否用戶文本否用戶編號文本否主鍵4.2.5建立ACCESSACCESS表4.3 學生與課程表字段名類型（長度）是否為空說明課程號文本否主鍵，課程編號學號數(shù)字否否否4.2.44.4用戶表字段名類型是否為空說明用戶名文本否用戶文本否用戶編號文本否主鍵4.2.5建立ACCESSACCESSdb5.mdb;4.1建立數(shù)據(jù)庫db5.md。db5.mdb根據(jù)上面的表格，使用程序設計器建立系統(tǒng)需要的表格如圖4.2,4.3,4.4,4.5db5.mdb根據(jù)上面的表格，使用程序設計器建立系統(tǒng)需要的表格如圖4.2,4.3,4.4,4.5超級用戶表課程表學生表4-3超級用戶表課程表學生表4-3課程表學生與課程表4.3界面的實現(xiàn)label學生與課程表4.3界面的實現(xiàn)label2textboxPublicLoginSucceededAsBooleanIntegerrs.eofflasers.fields(0)text1.text，rs.fields(1)text2.text（用戶都正確）1timer_timerlabel1.left1timer_timerlabel1.left0，0rightlabel0，leftlabel1，label1label1.leftformlabel1rightlabel1leftlabel0，label1button2_click（系統(tǒng)）。4-6：登陸界面主要代碼：PrivateSubcmdOK_Click()OnErrorGoToerrh:rsAsADODB.RecordsetSetrs=cn.Execute("SELECTUserName,PasswordIfrs.EOFThenrs.CloseSetrs=NothingUnloadMeFROM超級用戶")LoadFrmMainExitSubEndIfrs.MoveFirstLoadFrmMainExitSubEndIfrs.MoveFirst'校驗是否為超級用戶DoIfrs.Fields("UserName")=txtUserName.TextThenIfrs.Fields("Password")=txtPassword.TextThenUserType=TrueLoginSucceeded=Truers.CloseIftxtPassword.Text="Admin"ThenIsAdmin=TrueUnloadMeLoadFrmMainExitSubExitDoEndIfEndIfrs.MoveNextLoopUntilrs.EOF'校驗是否為普通用戶Setrs=cn.Execute("SELECTFROM學生WHERE&txtPassword.Text&Ifrs.EOFThen學號="&"'"MsgBox無效或用戶名請重試"Login"txtPassword.SetFocusSendKeys"{Home}+{End}"Elsers.CloseUserType=False=TrueUnloadMeLoadFrmMainrs.CloseUserType=False=TrueUnloadMeLoadFrmMainEndIfExitSub4.3.2“主界面”包括菜單和經(jīng)過處理的圖片組成。在各個菜單中包含子菜單，enabledtrue（主界面可用）。在Form_Load()般用戶系統(tǒng)管理、信息錄入、打印報表菜單將不可用。Form_QueryUnload的時候掉所有窗口的免得造成內(nèi)存泄漏，cn.CloseADO，F(xiàn)orEachfrmInForms4.7主界面4.3.3textbox主界面4.3.3textbox，5combo，12commandbuttondatagridTimercombo可以選擇具體表，datagrid可以顯示選擇表，14個label分別為“學號”、姓名、話號碼、附注，12個button分別是“第一個”、前一個、下一個、最后、修（對基本信息（對基本信息（成績）、刪除（對成績）OptionExplicitDimrsAsADODB.RecordsetDimrs1AsADODB.RecordsetDimtxtSQLAsStringDimMsgTextAsStringDimmybookmarkAsVariantDimmccleanAsBoolean。DimmybookmarkAsVariantDimmccleanAsBoolean。combo2combo2.additem集使用方法rs.Fields(0)打開文件中的中有所有的信息，管理員可以任意選擇想對應的課程和課程號。出對并建立的連接，Adodc1.Recordset.UpdateMsgBox"添加成功!"ElseMsgBoxDataGrid2來。command7_click（修改（對成績））中添加代碼。Setrs=cn.Execute("select成績from學生與課程where課程號='"&&and&Trim(Combo2.Text)&and學號='"&Trim(Text2.Text)&rsrs.statersdatagriddatagrid2.enabled（由rsdatagrid）；如果不存在則根據(jù)各個成績,不能修改!”、“該項不能為空,請輸入備注!”、“該項不能為空,請輸入課程名稱!”、“該項不能為空,請輸入課程號!”、“該項不能為空,請輸入成績!”。在command8_click（刪除）中添加代碼。輸入以給成績的課程號和課程rsrs.state判斷rsrsrs.delete；給出提示IfMsgBox("你的操作將會刪除當前的，你確信嗎？)，rs1.Close MsgBox"沒有這條,無法刪除!"。rsdbcommand2_click（第一個）goto生學生信息的基本信息。command3_click（最后）gotoAdodc2.Recordset.MoveLast轉(zhuǎn)到下一條信息。command5_click（前一個）中添加代碼。rsdbcommand2_click（第一個）goto生學生信息的基本信息。command3_click（最后）gotoAdodc2.Recordset.MoveLast轉(zhuǎn)到下一條信息。command5_click（前一個）中添加代碼。Adodc2.Recordset.MovePreviousgotocommand6_click（修改（對基本信息））Command2、Command3、Command4、Command5、Command10EnabledFalse，text1text12、Combo1bo1True。若有信息示輸入，提示（"請輸入學號!"）………。和bo1False。MsgBox"什么也沒修改,無所謂取消不取消!"。command10_click（刪除(對基本信息)）中添加代碼。MsgBoxErr.Description提示(“你確信刪除嗎?”)。選是刪除當前的一條。查看和修改信息功能的截圖如圖4-8查看和修改信息界面4.3.4成績錄入模塊的界面包括五個個label控件，四個command控件，三個combo控件，兩個adodc查看和修改信息界面4.3.4成績錄入模塊的界面包括五個個label控件，四個command控件，三個combo控件，兩個adodc控件。Label主要起提示作用，command的captionAsNewADODB.Recordset，db，rs，db1，rs1Command1（添加）IF若符合條件則提示“添加成功!”否則談出各種不匹配的窗口。Command（更改etrscn.Execute("select成績&Trim(Combo1.Text)&and&Trim(Combo2.Text)&"'and學號='"&Trim(Text2.Text)&"'")，課程IF80注中不能選不及格，MsgBox提示"成績和備注不匹配,請核對!"。刪除）中添加代碼。IfMsgBox("你的操作將會刪除當前的vbOKCancel,vbOKThen，信息必須與學生信息信息相同才能刪除學生成績。若沒有則提示“沒有這條,無法刪除!”。rs.Open打開數(shù)據(jù)庫中的連接（用來連接課程號和課程名）刪除）中添加代碼。IfMsgBox("你的操作將會刪除當前的vbOKCancel,vbOKThen，信息必須與學生信息信息相同才能刪除學生成績。若沒有則提示“沒有這條,無法刪除!”。rs.Open打開數(shù)據(jù)庫中的連接（用來連接課程號和課程名）UnloadMe成績錄入功能模塊的截圖如圖4.9成績錄入界面4.3.5，出生年月，，父母姓名，地址，，專業(yè)院系，號碼，附注。學生信息錄入功能模塊的截圖如4.10學生基本信息錄入4.3.6本界面包括兩個framelabeltextoption控件，一個Adodc控件，一個datagrid控件。Frame控件可以乘放其他控件，使界面美觀，label文字提示作用，datagrid控件顯示集，option是單選框，分別為依據(jù)“學號”、“班級”、“專業(yè)”、“院系”。中。單擊“的依據(jù)，并在文本框中輸入要的關(guān)鍵字，單擊“”到指定內(nèi)容。結(jié)果以列表的形式顯示在datagrid4.3.5，出生年月，，父母姓名，地址，，專業(yè)院系，號碼，附注。學生信息錄入功能模塊的截圖如4.10學生基本信息錄入4.3.6本界面包括兩個framelabeltextoption控件，一個Adodc控件，一個datagrid控件。Frame控件可以乘放其他控件，使界面美觀，label文字提示作用，datagrid控件顯示集，option是單選框，分別為依據(jù)“學號”、“班級”、“專業(yè)”、“院系”。中。單擊“的依據(jù)，并在文本框中輸入要的關(guān)鍵字，單擊“”到指定內(nèi)容。結(jié)果以列表的形式顯示在datagrid控件基本信息4.11系統(tǒng)還提供了成績此不在贅述。成績 功能截圖如4.12主要代碼：PrivateSubCommand1_Click()OnErrorGoToerror:IfText1.Text<>""Then主要代碼：PrivateSubCommand1_Click()OnErrorGoToerror:IfText1.Text<>""ThenIfOption1.ValueThensearchSQL="SELECT*FROM學生與課程WHERE學號="&&Text1.Text&"'"IfOption2.ValueThensearchSQL="SELECT*FROM學生與課程where學號in(select學號fromwhere班級='"&Trim(Text1.Text)&"')"IfOption3.ValueThensearchSQL"SELECT*FROM學生與課程"ElseMsgBox條件不能為空"Text1.SetFocusEndIf'IfOption1.ValueThen'Text1.Enabled=True'Text2.Enabled=False'Text2.ForeColor=&HC0C0C0'Text1.SetFocus'searchSQL="SELECT*FROM="&"'"&Text1.Text&"'"'EndIf'IfOption2.ValueThen'Text2.Enabled=True'Text1.Enabled=False'Text1.ForeColor=&HC0C0C0'Text2.SetFocusWHERE學號'searchSQL="SELECT*FROM學生與課程where學號inselectfromwhere班級='"&Trim(Text2.Text)&"')"'EndIf'IfOption3.ValueThensearchSQL="SELECT*FROM"'EndIf'EndIf'Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=E:\軟件工程\db5.mdb;PersistSecurityInfo=False"Adodc1.RecordSourcesearchSQLAdodc1.RefreshIfSource=E:\軟件工程\db5.mdb;PersistSecurityInfo=False"Adodc1.RecordSourcesearchSQLAdodc1.RefreshIfOption1.ValueThenIfAdodc1.Recordset.EOFThenMsgBox沒有這個學生!"EndIfExitSubEndIfIfOption2.ValueThenIfAdodc1.Recordset.EOFThenMsgBox沒有這個班級!"EndIfExitSubEndIfIfOption3.ValueThenIfAdodc1.Recordset.EOFThenMsgBox沒有相應的信息!"EndIfExitSubEndIfExitSub' SetDataGrid2.DataSource=Adodc1'DataGrid2.Refresherror:MsgBoxErr.DescriptionEndSub4.3.6報表輸出進行打印。界面截圖如圖4.13報表輸出主要代碼：PrivateSubForm_Load()OnErrorGoToerrh'DataEnvironment.Connection1.CursorLocation=報表輸出主要代碼：PrivateSubForm_Load()OnErrorGoToerrh'DataEnvir