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

1、XIAN TECHNOLOGICAL UNIVERSITY課程設(shè)計(jì)報(bào)告課程名稱 可視化程序設(shè)計(jì) 專 業(yè)： 信息管理與信息系統(tǒng) 成 績(jī)： 2016年 6 月 30 日目錄（一）系統(tǒng)開(kāi)發(fā)計(jì)劃11 引言11.1編寫(xiě)目的 11.2項(xiàng)目背景 11.3系統(tǒng)開(kāi)發(fā)的背景12 項(xiàng)目概述12.1目標(biāo) 22.2系統(tǒng)簡(jiǎn)介22.3產(chǎn)品 33 實(shí)施計(jì)劃33.1人員配置 33.2項(xiàng)目進(jìn)度計(jì)劃   34 完成項(xiàng)目應(yīng)具備的條件和約束44.1計(jì)算機(jī)系統(tǒng)支持  44.2開(kāi)發(fā)人員應(yīng)具備相應(yīng)的開(kāi)發(fā)能力44.3資費(fèi)4（二）系統(tǒng)開(kāi)發(fā)可行性報(bào)

2、告41 經(jīng)濟(jì)上的可行性42 技術(shù)上的可行性43 管理上的可行性54 開(kāi)發(fā)環(huán)境的可行性5（三）信息系統(tǒng)需求說(shuō)明書(shū)51 需求規(guī)定51.1對(duì)功能的規(guī)定（說(shuō)明角色和功能）51.2功能分析61.3功能結(jié)構(gòu)圖71.4對(duì)性能的規(guī)定（時(shí)間響應(yīng)、穩(wěn)定性等）71.5輸人輸出要求81.6故障處理要求8（四） 信息系統(tǒng)設(shè)計(jì)報(bào)告81 系統(tǒng)總體設(shè)計(jì)81.1本系統(tǒng)的體系結(jié)構(gòu)81.2系統(tǒng)總體結(jié)構(gòu)91.2.1前臺(tái)業(yè)務(wù)模塊91.2.2 后臺(tái)管理模塊102 系統(tǒng)詳細(xì)設(shè)計(jì)102.1基礎(chǔ)代碼方案102.2數(shù)據(jù)庫(kù)設(shè)計(jì)152.2.1 系統(tǒng)E-R圖152.2.2數(shù)據(jù)庫(kù)表的設(shè)計(jì)16（五）系統(tǒng)測(cè)試報(bào)告171 系統(tǒng)運(yùn)行172 學(xué)生登錄173 教師

3、登錄194 教務(wù)登陸205 系統(tǒng)調(diào)試22（六）系統(tǒng)使用說(shuō)明書(shū)23（一）系統(tǒng)開(kāi)發(fā)計(jì)劃1 引言1.1編寫(xiě)目的 為了保證項(xiàng)目團(tuán)隊(duì)按時(shí)保質(zhì)地完成項(xiàng)目目標(biāo)，便于項(xiàng)目團(tuán)隊(duì)成員更好地了解項(xiàng)目情況，使項(xiàng)目工作開(kāi)展的各個(gè)過(guò)程合理有序，因此以文件化的形式，把開(kāi)發(fā)過(guò)程中各項(xiàng)工作的人員、分工、經(jīng)費(fèi)、系統(tǒng)資源條件等問(wèn)題的安排記錄下來(lái)，作為項(xiàng)目團(tuán)隊(duì)成員以及項(xiàng)目干系人之間的共識(shí)與約定，項(xiàng)目團(tuán)隊(duì)開(kāi)展和檢查項(xiàng)目工作的依據(jù)，以便計(jì)劃開(kāi)展和確保項(xiàng)目開(kāi)發(fā)成功。 1.2項(xiàng)目背景 隨著科學(xué)技術(shù)的不斷提高，計(jì)算機(jī)科學(xué)日漸成熟，其強(qiáng)大的功能以為人們深刻認(rèn)識(shí)，信息技術(shù)不斷發(fā)展的當(dāng)今各行各業(yè)的發(fā)展完善中都離不開(kāi)信息

4、處理，計(jì)算機(jī)被廣泛應(yīng)用于信息管理系統(tǒng)的環(huán)境，它已進(jìn)入人類社會(huì)的各個(gè)領(lǐng)域并發(fā)揮著越來(lái)越重要的作用。作為計(jì)算機(jī)應(yīng)用的一部分，使用計(jì)算機(jī)對(duì)學(xué)生成績(jī)管理信息進(jìn)行管理，具有手工管理所無(wú)法比擬的有點(diǎn)。利用它能夠進(jìn)行大規(guī)模的信息數(shù)據(jù)處理分析，使工作效率和安全性大大提高，所以對(duì)于高校學(xué)生成績(jī)的管理?yè)碛幸豢詈玫膶W(xué)習(xí)成績(jī)管理系統(tǒng)軟件是必須的。學(xué)生成績(jī)管理系統(tǒng)是一個(gè)學(xué)校不可缺少的重要部分，它的內(nèi)容對(duì)于學(xué)校的決策者和管理者來(lái)說(shuō)都至關(guān)重要，所以學(xué)生成績(jī)管理系統(tǒng)應(yīng)該為用戶提供充足的信息和快捷的查詢手段。同時(shí)，學(xué)生成績(jī)管理是各大學(xué)的主要日常管理工作之一，涉及到校、系、師、生的諸多方面，隨著教學(xué)體制的不斷改革，尤其是學(xué)分制、

5、選課制的展開(kāi)和深入，學(xué)生成績(jī)?nèi)粘９芾砉ぷ骷氨４婀芾砣遮叿敝?、?fù)雜。高校都迫切需要研制開(kāi)發(fā)一款屬于自己的功能強(qiáng)大，操作簡(jiǎn)單，具有人性化的學(xué)生成績(jī)管理系統(tǒng)。1.3系統(tǒng)開(kāi)發(fā)的背景 由本小組成員自己確定題目，老師給予指導(dǎo)，由本組成員聯(lián)合完成報(bào)告。以實(shí)現(xiàn)學(xué)生成績(jī)管理系統(tǒng)子功能。2 項(xiàng)目概述2.1目標(biāo) 在我國(guó)，各大中小學(xué)校的各類信息管理系統(tǒng)并非一個(gè)新的課題，但也有的學(xué)校根本就沒(méi)有信息任何管理系統(tǒng)，所有的工作幾乎還是手工操作來(lái)完成。計(jì)算機(jī)技術(shù)在日新月異的發(fā)展，信息化是社會(huì)進(jìn)程的必然趨勢(shì)，學(xué)校管理只有只有快，準(zhǔn)，精才能發(fā)揮其價(jià)值。本系統(tǒng)是將現(xiàn)代化的計(jì)算機(jī)技術(shù)和傳統(tǒng)的教學(xué)、教務(wù)工作相結(jié)合，按照學(xué)院的工

6、作流程設(shè)計(jì)完成的。為了使系統(tǒng)在學(xué)院的管理中發(fā)揮更大的作用，實(shí)現(xiàn)工作過(guò)程的計(jì)算機(jī)化，提高工作效率和工作質(zhì)量，現(xiàn)提出如下的系統(tǒng)開(kāi)發(fā)目標(biāo)： （1）系統(tǒng)應(yīng)具有實(shí)用性、可靠性和適用性，同時(shí)注意到先進(jìn)性。 （2）對(duì)各個(gè)數(shù)據(jù)庫(kù)進(jìn)行動(dòng)態(tài)管理，防止混亂。 （3）能夠按照用戶選擇的不同的條件進(jìn)行簡(jiǎn)單查詢和復(fù)合查詢。 （4）能夠?qū)Σ樵兘Y(jié)果進(jìn)行分類匯總。 （5）注意數(shù)據(jù)的安全性，具有數(shù)據(jù)備份和恢復(fù)的功能。 （6）方便用戶的操作，盡量減少用戶的操作。 2.2系統(tǒng)簡(jiǎn)介本系統(tǒng)主要用于學(xué)校學(xué)生信息管理，總體任務(wù)是實(shí)現(xiàn)學(xué)生信息關(guān)系的系統(tǒng)化、規(guī)范化和自動(dòng)化，其

7、主要任務(wù)是用計(jì)算機(jī)對(duì)學(xué)生信息進(jìn)行日常管理，如查詢、修改 、增加、刪除。本系統(tǒng)主要包括用戶登錄、信息查詢、修改和增加、課程查詢和增加、成績(jī)查詢和錄入、成績(jī)的統(tǒng)計(jì)等模塊。其功能主要有：（1） 教務(wù)處能夠?qū)崿F(xiàn)對(duì)整個(gè)專業(yè)信息、課程信息、學(xué)生信息的添加、修改、刪除、查詢等操作； （2） 可以將學(xué)生成績(jī)的數(shù)據(jù)發(fā)布到網(wǎng)上，方便學(xué)生教師進(jìn)行查詢，達(dá)到資源共享的目的。 （3）教師能夠在一定的權(quán)限內(nèi)對(duì)所有學(xué)生成績(jī)的查詢，教師可以給學(xué)生所選課程打分。 （4）學(xué)生可以在自己的權(quán)限內(nèi)對(duì)自己的成績(jī)查詢，以及個(gè)人信息的查詢，登錄密碼的修改。（5）密碼：進(jìn)入系統(tǒng)所需要的憑證。（6）權(quán)限：教師、學(xué)

8、生、教務(wù)權(quán)利的限制。2.3產(chǎn)品 程序：學(xué)生成績(jī)管理系統(tǒng)(VB程序)和數(shù)據(jù)庫(kù)。文件：系統(tǒng)開(kāi)發(fā)計(jì)劃、系統(tǒng)開(kāi)發(fā)可行性報(bào)告、系統(tǒng)需求說(shuō)明書(shū)、系統(tǒng)設(shè)計(jì)說(shuō)明書(shū)、測(cè)試報(bào)告、系統(tǒng)使用說(shuō)明書(shū)、匯總文檔。3 實(shí)施計(jì)劃3.1人員配置  組長(zhǎng)：張帆  成員：侯萌、賈丹丹、李海燕、李玉玲、李玥 需交成果任務(wù)分配參與者程序項(xiàng)目開(kāi)發(fā)的整個(gè)過(guò)程小組所有成員文檔系統(tǒng)開(kāi)發(fā)計(jì)劃李玥系統(tǒng)開(kāi)發(fā)可行性報(bào)告李海燕系統(tǒng)需求說(shuō)明書(shū)李玉玲系統(tǒng)設(shè)計(jì)說(shuō)明書(shū)張帆測(cè)試報(bào)告侯萌系統(tǒng)使用說(shuō)明書(shū)賈丹丹3.2項(xiàng)目進(jìn)度計(jì)劃    開(kāi)始時(shí)間：2016年6月21日 結(jié)束時(shí)間：2016年6月30日具

9、體進(jìn)度選題準(zhǔn)備，明確成員各自任務(wù)2016年6月20日系統(tǒng)計(jì)劃、可行性研究2016年6月2122日系統(tǒng)設(shè)計(jì)2016年6月2325日系統(tǒng)編碼2016年6月2628日系統(tǒng)測(cè)試調(diào)試2016年6月2829日PPT匯報(bào)答辯，提交系統(tǒng)及各種文檔2016年6月30日4 完成項(xiàng)目應(yīng)具備的條件和約束4.1計(jì)算機(jī)系統(tǒng)支持   本管理系統(tǒng)的開(kāi)發(fā)需要工作平臺(tái)：PC主機(jī)。  開(kāi)發(fā)環(huán)境：Windows7及以上操作系統(tǒng)、已安裝VB及Access 軟件。 運(yùn)行環(huán)境：Windows7及以上操作系統(tǒng)。4.2開(kāi)發(fā)人員應(yīng)具備相應(yīng)的開(kāi)發(fā)能力 Visual Basic 6.0的編程和Acc

10、ess數(shù)據(jù)庫(kù)的設(shè)計(jì)能力。4.3資費(fèi) 開(kāi)發(fā)時(shí)間為兩周，無(wú)資費(fèi)。（二）系統(tǒng)開(kāi)發(fā)可行性報(bào)告由于本系統(tǒng)管理的對(duì)象為教師和學(xué)生，且每個(gè)數(shù)據(jù)內(nèi)容具有較強(qiáng)的關(guān)聯(lián)性，涉及的計(jì)算過(guò)程不是很復(fù)雜。因此，比較適合采用數(shù)據(jù)庫(kù)管理。在技術(shù)難度方面，由于有指導(dǎo)老師的指導(dǎo)和相關(guān)參考文獻(xiàn)，特別是網(wǎng)上資料，特別是參考其他程序的功能，因此完全可以實(shí)現(xiàn)。1 經(jīng)濟(jì)上的可行性現(xiàn)在，計(jì)算機(jī)的價(jià)格已經(jīng)十分低廉，性能卻有了長(zhǎng)足的進(jìn)步。而本系統(tǒng)的開(kāi)發(fā)，也在一定程度上為學(xué)校的工作效率帶來(lái)了一個(gè)質(zhì)的飛躍，為此主要表現(xiàn)有以下幾個(gè)方面：一方面是支出的費(fèi)用，包括設(shè)備購(gòu)置費(fèi)、管理和維護(hù)費(fèi)用、人員工資和培訓(xùn)費(fèi)等，另一個(gè)是取得的收益。這是個(gè)超小的管理系統(tǒng)，從

11、投入的人力，財(cái)力與物力來(lái)講是非常之小的，只要一臺(tái)電腦，一臺(tái)打印機(jī)，這個(gè)系統(tǒng)就可以搞起來(lái)，考慮到學(xué)校里有電腦，現(xiàn)只要購(gòu)置一臺(tái)打印機(jī)就可以了。從節(jié)省人力方面，可以讓管理人員從繁冗復(fù)雜的工作中解脫出來(lái)，做更多的工作，可以給教學(xué)管理提高一個(gè)層次。具體有以下幾個(gè)方面： （1）本系統(tǒng)只需要一臺(tái)計(jì)算機(jī)； （2）本系統(tǒng)的運(yùn)行可以節(jié)省許多資源； （3）本系統(tǒng)的運(yùn)行可以大大的提高學(xué)校的工作效率； （4）本系統(tǒng)可以敏感文檔更加安全，等等。2 技術(shù)上的可行性 從技術(shù)方面來(lái)說(shuō)，Visual Basic6.06.0是啟動(dòng)畫(huà)面編程工具M(jìn)SDN之一，是目前世界上使用最廣泛的程序開(kāi)發(fā)工具之一。結(jié)構(gòu)簡(jiǎn)單，編寫(xiě)程序?qū)ο到y(tǒng)的資源占有

12、極低，是程序編寫(xiě)者編寫(xiě)小型程序的第一選擇。它的快捷開(kāi)發(fā)速度，簡(jiǎn)單易學(xué)的語(yǔ)法，體貼便利的開(kāi)發(fā)環(huán)境，可以方便操作，它擁有多種數(shù)據(jù)庫(kù)接口，可以非常方便的連接各種數(shù)據(jù)源。 技術(shù)的可行性分析要考慮將來(lái)要采用的硬件和軟件技術(shù)能否滿足用戶提出的要求。此外還要考慮開(kāi)發(fā)人員的水平，在數(shù)據(jù)庫(kù)方面要對(duì)管理模式比較熟悉。我們學(xué)習(xí)過(guò)數(shù)據(jù)庫(kù)和管理信息系統(tǒng)課程設(shè)計(jì)的相關(guān)課程，有能力編寫(xiě)學(xué)生成績(jī)管理系統(tǒng)這種不算太難的程序。 使用VB作為系統(tǒng)開(kāi)發(fā)環(huán)境，它提供完善的指令控制語(yǔ)句、類與對(duì)象的支持及豐富的數(shù)據(jù)類型，給開(kāi)發(fā)高性能系統(tǒng)提供的保障為開(kāi)發(fā)滿足客戶要求的系統(tǒng)，保證了代碼的模塊化要求，而代碼模塊化的提高，非常有利于以后對(duì)新系統(tǒng)的

13、擴(kuò)展與修改。 而且由于有指導(dǎo)老師的指導(dǎo)和相關(guān)參考文獻(xiàn)，特別是網(wǎng)上資料，特別是參考其它程序的功能，因此可以實(shí)現(xiàn)。 綜上所述，本系統(tǒng)的設(shè)計(jì)與開(kāi)發(fā)在技術(shù)上和硬件設(shè)備上的條件都是滿足的，因此，它在技術(shù)上是可行的。3 管理上的可行性主要是教務(wù)處管理人員的大力支持，系領(lǐng)導(dǎo)認(rèn)同，現(xiàn)有的管理制度和方法科學(xué)，規(guī)章制度齊全，原始數(shù)據(jù)正確等。規(guī)章制度和管理方法系統(tǒng)的建設(shè)提供了制度保障。4 開(kāi)發(fā)環(huán)境的可行性企業(yè)領(lǐng)導(dǎo)意見(jiàn)一致，并且有足夠的資金，可以抽出骨干力量參加新系統(tǒng)開(kāi)發(fā)，簡(jiǎn)單地說(shuō)，就是企業(yè)能夠?yàn)樾孪到y(tǒng)的開(kāi)發(fā)建設(shè)提供一個(gè)長(zhǎng)期良好的環(huán)境，因此，它的開(kāi)發(fā)環(huán)境也是可行的。（三）信息系統(tǒng)需求說(shuō)明書(shū)1 需求規(guī)定 1.1對(duì)功能的

14、規(guī)定（說(shuō)明角色和功能） 本系統(tǒng)主要針對(duì)3類不同的用戶。 (1) 系統(tǒng)管理員。這種類型的客戶端服務(wù)于管理層，建立在已有的結(jié)構(gòu)化和非結(jié)構(gòu)化數(shù)據(jù)基礎(chǔ)之上，通過(guò)對(duì)數(shù)據(jù)的統(tǒng)計(jì)和分析，就能快速獲得管理層所需的各種信息， 如所有學(xué)生信息、 所有課程信息、所有成績(jī)的統(tǒng)計(jì)等等一些情況。 (2) 學(xué)生。這種類型的客戶端服務(wù)于學(xué)生直接操作來(lái)獲得自己所需要的服務(wù)，如基本信息查詢、所學(xué)課程查詢、成績(jī)查詢等等。每一個(gè)功能，用戶都可以根據(jù)系統(tǒng)的提示一步一步往下進(jìn)行，不存在學(xué)生不會(huì)查詢的問(wèn)題，極大節(jié)約了學(xué)生和學(xué)校工作人員的的時(shí)間，也提高了效率。 (3)教師。這種類型的客戶端服務(wù)于教師直接操作來(lái)獲得及所需要的服務(wù)，如學(xué)生成績(jī)的

15、錄入、查詢和統(tǒng)計(jì)，課程信息的查詢等等，每一個(gè)功能 ，教師都可在進(jìn)入系統(tǒng)后查詢到，大大方便了教師的工作，提高了工作效率。功能簡(jiǎn)介說(shuō)明登陸用戶輸入賬號(hào)和密碼，如果賬號(hào)和密碼不相符 ，系統(tǒng)則顯示“用戶名密碼驗(yàn)證有誤，請(qǐng)重新輸入?！痹黾佑脩粼谳斎雽W(xué)生信息、課程信息、成績(jī)時(shí)，點(diǎn)擊增加，會(huì)提示“增加成功”。修改用戶輸入在進(jìn)行學(xué)生信息、課程修改時(shí)，確認(rèn)后，系統(tǒng)會(huì)提示“修改成功”查詢?cè)摴δ芸梢詫?shí)現(xiàn)查詢學(xué)生信息、課程、成績(jī)等信息。刪除管理員可對(duì)學(xué)生信息、課程進(jìn)行刪除操作，確認(rèn)后，系統(tǒng)會(huì)提示“刪除成功”統(tǒng)計(jì)教師可對(duì)自己所教授課程進(jìn)行統(tǒng)計(jì)，而管理員可以對(duì)所有的課程進(jìn)行統(tǒng)計(jì)，了解學(xué)生的整體學(xué)習(xí)情況。1.2功能分析 本

16、系統(tǒng)主要由以下功能需求： (1)前臺(tái)用戶登錄模塊 (2)前臺(tái)用戶增加模塊 (3)前臺(tái)用戶修改模塊 (4)前臺(tái)用戶刪除模塊 (5)前臺(tái)用戶查詢模塊 (6)后臺(tái)管理員賦予學(xué)生教師權(quán)限模塊 (7)后臺(tái)管理員成績(jī)管理模塊 (8)后臺(tái)管理員學(xué)生信息管理模塊 (9)后臺(tái)管理員課程信息管理模塊1.3功能結(jié)構(gòu)圖1.4對(duì)性能的規(guī)定（時(shí)間響應(yīng)、穩(wěn)定性等） 1、精度 輸入數(shù)據(jù)精度： 用戶密碼：六位整數(shù); 成績(jī)：最大為100分；賬號(hào)：三位整數(shù) 2、穩(wěn)定性 系統(tǒng)要比較健壯，只要是用戶的合理操作，系統(tǒng)都能夠給出合理正確的回應(yīng)，不出現(xiàn)令用戶感到意外的系統(tǒng)錯(cuò)誤或系統(tǒng)崩潰。1.5輸人輸出要求 (1)輸入： 輸入內(nèi)容：用戶名 ，

17、密碼 ，成績(jī) ，學(xué)生信息，課程信息 。 數(shù)據(jù)精度 密碼：六位整數(shù) 成績(jī)：最大為100 具體要求 成績(jī)最大為100分并且不能不寫(xiě)成績(jī) (2)輸出： 輸出內(nèi)容：輸入帳號(hào)和密碼提示，添加、修改、刪除成功都有提示，成 績(jī)顯示。 具體要求 顯示所有科目成績(jī)。1.6故障處理要求 (1)能夠?qū)τ脩翡浫氲母鞣N數(shù)據(jù)進(jìn)行校驗(yàn)。 (2)能夠及時(shí)捕捉系統(tǒng)在運(yùn)行時(shí)的錯(cuò)誤信息，并給出相應(yīng)的提示，系統(tǒng)應(yīng)有一定的容錯(cuò)能力。 (3)用磁盤(pán)方式對(duì)系統(tǒng)數(shù)據(jù)進(jìn)行完整備份。由應(yīng)用系統(tǒng)自動(dòng)調(diào)用數(shù)據(jù)后備的實(shí)用程序進(jìn)行磁盤(pán)備份。 （四） 信息系統(tǒng)設(shè)計(jì)報(bào)告1 系統(tǒng)總體設(shè)計(jì)1.1本系統(tǒng)的體系結(jié)構(gòu) C/S體系系統(tǒng): (1)C/S體系說(shuō)明C/S體系

18、即客戶端/服務(wù)器模式，客戶端采用VB開(kāi)發(fā)，運(yùn)行于WindowsXP的操作系統(tǒng)上；服務(wù)器端軟件運(yùn)行于Windows XP Server上；數(shù)據(jù)庫(kù)采用Access。 (2)C/S模式的設(shè)計(jì)銀行ATM機(jī)存取款系統(tǒng)采用C/S模式，在服務(wù)器端存儲(chǔ)客戶資源各種信息，操作員在客戶端可以進(jìn)行操作，查看操作數(shù)據(jù)庫(kù)。每個(gè)客戶端都與服務(wù)器相連接。 (3)開(kāi)發(fā)運(yùn)行環(huán)境 運(yùn)行環(huán)境： CPU: 1.5 GHz RAM：512M以上 硬盤(pán)：512M及以上 操作系統(tǒng)：Microsoft Windows XP 開(kāi)發(fā)工具： VB 6.0 開(kāi)發(fā)語(yǔ)言：VB+Access1.2系統(tǒng)總體結(jié)構(gòu)1.2.1前臺(tái)業(yè)務(wù)模塊 1.2.2 后臺(tái)管理模

19、塊 2 系統(tǒng)詳細(xì)設(shè)計(jì)2.1基礎(chǔ)代碼方案 教師登錄界面Private Sub Command3_Click()Dim Conn As New adodb.ConnectionConn.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Student.mdb;Persist Security Info=False") '建立連接If Text1.Text = "" ThenMsgBox "請(qǐng)輸入職工號(hào)！", vbCritical, "提示"Text1.Set

20、FocusExit SubEnd IfIf Text2.Text = "" ThenMsgBox "請(qǐng)輸入密碼！", vbCritical, "提示"Text2.SetFocusExit SubEnd IfDim rs As New adodb.RecordsetWith rsSQL = "select * from zhigong where 職工號(hào)='" & Text1.Text & " ' and 密碼='" & Text2.Text &am

21、p; "'"Set rs = Conn.Execute(SQL)If Not rs.EOF Then '是否查找'登錄成功MsgBox "登錄成功", vbOKOnly, "提示"Unload MeForm4.ShowText2.Text = ""ElseMsgBox "職工號(hào)密碼驗(yàn)證有誤，請(qǐng)重新輸入", vbCritical, "提示"Text2.Text = ""Text2.SetFocusEnd IfConn.CloseEnd

22、 WithEnd Sub 查詢學(xué)生信息界面Private Sub Command1_Click()Set db = New adodb.Connectiondb.CursorLocation = adUseClientSet rs = New adodb.RecordsetCall db.Open("PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=Student.mdb;") '連接數(shù)據(jù)庫(kù)rs.Open "select *from xueshengxx where 學(xué)號(hào) ='" & Tex

23、t1.Text & "'", db, adOpenStatic, adLockOptimisticSet DataGrid1.DataSource = rsEnd SubPrivate Sub Command2_Click()Set db = New adodb.Connectiondb.CursorLocation = adUseClientSet rs = New adodb.RecordsetCall db.Open("PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=Student.mdb;"

24、;) '連接數(shù)據(jù)庫(kù)rs.Open "select *from xueshengxx where 姓名 ='" & Text2.Text & "'", db, adOpenStatic, adLockOptimisticSet DataGrid1.DataSource = rsEnd Sub 增加界面Private Sub Command1_Click()Dim ADOrs As New Recordset '聲明一個(gè)記錄集對(duì)象Dim ADOrs1 As New Recordset '聲明一個(gè)記錄集對(duì)

25、象Dim strSQL As StringADOrs.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Student.mdb; Persist Security Info=False" '與ADOcn連接對(duì)象關(guān)聯(lián)ADOrs1.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Student.mdb; Persist Security Info=False" '與ADOcn連接對(duì)象

26、關(guān)聯(lián) If Text1.Text = "" Then MsgBox "未輸入班級(jí)，請(qǐng)重新輸入數(shù)據(jù)！", vbCritical + vbOKOnly Text1.SetFocus '定位光標(biāo) Exit Sub End IfIf Text2.Text = "" Then MsgBox "未輸入專業(yè)，請(qǐng)重新輸入數(shù)據(jù)！", vbCritical + vbOKOnly Text2.SetFocus '定位光標(biāo) Exit SubEnd If'首先查詢表中是否存在關(guān)鍵字相同的記錄strSQL = &quo

27、t;select * from zhuanye"strSQL = strSQL & " Where 班級(jí)='" + Text1.Text + " '"strSQL = strSQL & " and 專業(yè)='" + Text2.Text + "'"ADOrs.Open strSQL'如果關(guān)鍵字重復(fù),則退出If Not ADOrs.EOF Then MsgBox "該記錄已經(jīng)存在,不能繼續(xù)增加", vbCritical + vbOKO

28、nly Exit SubEnd IfADOrs1.Open "select * from zhuanye", , , adLockOptimisticADOrs1.AddNewADOrs1("班級(jí)") = Text1.TextADOrs1("專業(yè)") = Text2.TextADOrs1.UpdateText1.Text = "" '初始化文本框控件Text2.Text = ""Text1.SetFocus '定位光標(biāo)MsgBox "已成功添加新記錄", vb

29、Question + vbOKOnlyADOrs.Close '關(guān)閉記錄集ADOrs1.Close '關(guān)閉記錄集Set ADOrs = NothingSet ADOrs1 = NothingEnd Sub 刪除界面Private Sub Command2_Click()Dim 學(xué)號(hào) As StringDim 姓名 As StringDim 課程號(hào) As StringDim 課程名 As StringDim strSQL As StringDim ADOrs As New Recordset '聲明記錄集對(duì)象ADOrs.ActiveConnection = "P

30、rovider=Microsoft.Jet.OLEDB.4.0;Data Source=Student.mdb; Persist Security Info=False" '與ADOcn連接對(duì)象關(guān)聯(lián) '與ADOcn連接對(duì)象關(guān)聯(lián)'如果學(xué)號(hào)與姓名同時(shí)為空則提示重新輸入/選擇 If MsgBox("刪除學(xué)號(hào)為" + Combo1.Text + "姓名為" + Combo2.Text + "和課程號(hào)為" + Combo3.Text + "課程為" + Combo4.Text + "

31、;的成績(jī)記錄，該學(xué)生在學(xué)生成績(jī)表中的全部記錄也將一起刪除，是否繼續(xù)？", vbQuestion + vbYesNo) = vbYes Then'拼寫(xiě)Delete學(xué)生成績(jī)表指定記錄語(yǔ)句 strSQL = "Delete From chengji" strSQL = strSQL + " Where 學(xué)號(hào) = Adodc1.RecordSource" Adodc1.Recordset.Delete strSQL = "Delete From kecheng" strSQL = strSQL + " Where

32、課程號(hào) = Adodc2.RecordSource" Adodc2.Recordset.Delete Adodc1.Recordset.MoveNext Adodc2.Recordset.MoveNextIf Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast '拼寫(xiě)Delete學(xué)生情況表指定記錄語(yǔ)句 MsgBox "刪除成功!", vbQuestion + vbOKOnly Combo1.Text = "" Combo2.Text = "" End IfIf ADOrs.State = adStateOpen Then ADOrs.Clos