學(xué)生成績(jī)管理系統(tǒng)VB+SQL

課 程 設(shè) 計(jì) 任 務(wù) 書題 目 學(xué)生成績(jī)管理系統(tǒng) 系 (部) 數(shù)理系 專 業(yè) 班 級(jí) 學(xué)生姓名 學(xué) 號(hào) 12 月 21 日至 12 月 25 日 共 1 周指導(dǎo)教師(簽字) 系 主 任(簽字) 年 月 日學(xué)生成績(jī)管理系統(tǒng)通過(guò)完成從用戶需求分析、概念結(jié)構(gòu)設(shè)計(jì)，邏輯結(jié)構(gòu)設(shè)計(jì)等一系列的數(shù)據(jù)庫(kù)設(shè)計(jì)到上機(jī)編程、調(diào)試和應(yīng)用等全過(guò)程，進(jìn)一步理解和掌握教材中的相關(guān)內(nèi)容。一實(shí)驗(yàn)要求 （1）先對(duì)選定的實(shí)驗(yàn)做簡(jiǎn)單的需求分析;（2）做出數(shù)據(jù)流圖和數(shù)據(jù)字典;（3）在數(shù)據(jù)流圖和字典的基礎(chǔ)上做出E-R圖(概念結(jié)構(gòu)設(shè)計(jì));（4）在E-R圖基礎(chǔ)上進(jìn)行關(guān)系模式設(shè)計(jì)（至少滿足3NF）（邏輯結(jié)構(gòu)設(shè)計(jì)）;（5）根據(jù)需求分析的各種數(shù)據(jù)請(qǐng)求得出各種視圖以及各種約束、規(guī)則、觸發(fā)器腳本描述;（6）根據(jù)第(5)的內(nèi)容在SQL-SERVER中設(shè)計(jì)中實(shí)例的數(shù)據(jù)庫(kù)；（7）用自己熟悉的一門語(yǔ)言進(jìn)行設(shè)計(jì)的功能的實(shí)現(xiàn)（8）整理前面幾步的文檔和程序源碼，可執(zhí)行程序，形成最終的實(shí)驗(yàn)報(bào)告。（9）實(shí)驗(yàn)報(bào)告的最后寫出本次實(shí)驗(yàn)完成中遇到的問(wèn)題及解決方法二需求分析1.功能需求本系統(tǒng)開(kāi)發(fā)的目的，就是通過(guò)系統(tǒng)開(kāi)發(fā)，實(shí)現(xiàn)課程管理有關(guān)工作的計(jì)算機(jī)化，提高關(guān)鍵環(huán)節(jié)的處理速度和規(guī)范化，并對(duì)有關(guān)的工作進(jìn)行集成和重組，通過(guò)網(wǎng)絡(luò)系統(tǒng)實(shí)現(xiàn)集中管理、分散操作，提高選課管理工作的質(zhì)量和效率。通過(guò)對(duì)學(xué)校的選課及成績(jī)管理工作進(jìn)行實(shí)際調(diào)查，學(xué)生可以自由選擇課程、選老師，學(xué)生注冊(cè)的行政班和教學(xué)班是游離的，開(kāi)發(fā)工作需要涉及任課教師、學(xué)生、管理員(教務(wù)工作人員)三種用戶。2.學(xué)生需求在學(xué)校規(guī)定的選課期間，學(xué)生通過(guò)任何一臺(tái)連接因特網(wǎng)計(jì)算機(jī)的瀏覽器就能進(jìn)行網(wǎng)上選課。學(xué)生以用戶名和密碼進(jìn)入選課系統(tǒng)。選課系統(tǒng)會(huì)根據(jù)用戶名和密碼自動(dòng)識(shí)別所在的系，然后顯示出與學(xué)生有關(guān)的課程列表。系統(tǒng)必須控制某一門課程在學(xué)期間只能選一次。在學(xué)生選課時(shí)能自動(dòng)進(jìn)行有關(guān)邏輯判斷，如：是否選課超過(guò)了規(guī)定的門數(shù)，是否選擇了不符合預(yù)修條件的課程，是否選擇的課程超過(guò)此課程最大選擇人數(shù)，只有符合要求的選擇才能選課成功。學(xué)生可以更改部分個(gè)人信息如密碼，電話號(hào)碼等；學(xué)生可以查詢已修課程成績(jī)和已選課程信息。3.教師需求任課教師登錄后，可以查看自己所教課程的課程表；對(duì)于同一學(xué)期內(nèi)有多門課程的教師，需要選擇具體課程后，才能查看已選這門課程的學(xué)生信息：期末，教師可以上傳這些學(xué)生的成績(jī)。4.管理員需求系統(tǒng)管理員登錄后，可以對(duì)學(xué)生，教師，課程，教學(xué)班級(jí)的基本信息進(jìn)行添加，修改，刪除等工作。課程安排是選課的核心，只有按照實(shí)際的教學(xué)情況安排出每個(gè)學(xué)期必修和選修的課程，才能保證選課的順利進(jìn)行。在每學(xué)期，學(xué)生選課前，各院系管理員必須在該院系培養(yǎng)方案中錄入本學(xué)期可以開(kāi)設(shè)的課程和排課安排，對(duì)于需要預(yù)修條件的課程，需要設(shè)置好預(yù)修條件?；A(chǔ)部管理員負(fù)責(zé)公共課的課程開(kāi)設(shè)和排課安排。其中排課及教學(xué)班級(jí)的安排上要保證同一個(gè)教師在同一時(shí)間只能上一門課程；同一個(gè)教室同一時(shí)間也只能開(kāi)一門課程。三數(shù)據(jù)分析與建模1.數(shù)據(jù)流圖和數(shù)據(jù)字典頂層圖：數(shù)據(jù)字典：數(shù)據(jù)流項(xiàng)目：學(xué)生信息=姓名+學(xué)號(hào)+性別+年齡+專業(yè)+總學(xué)分成績(jī)單=姓名+課目+成績(jī)數(shù)據(jù)項(xiàng)條目：數(shù)據(jù)項(xiàng)名：成績(jī)類型：int長(zhǎng)度：4范圍：100-0加工條目：處理過(guò)程：過(guò)程名：學(xué)籍管理系統(tǒng)輸入：學(xué)生信息，考試成績(jī)，學(xué)生記錄輸出：統(tǒng)計(jì)表，成績(jī)單數(shù)據(jù)字典：數(shù)據(jù)存儲(chǔ)：數(shù)據(jù)存儲(chǔ)名：學(xué)生記錄組成：姓名+學(xué)號(hào)+性別+年齡+專業(yè)+總學(xué)分處理過(guò)程：處理過(guò)程名：錄入存儲(chǔ)處理輸入：學(xué)生信息處理要求：如果沒(méi)有所輸入的學(xué)生記錄，則建立新的學(xué)生記錄，存儲(chǔ)基本情況和課目成績(jī)處理過(guò)程名：查詢處理輸入：學(xué)生信息，課程號(hào)輸出：成績(jī)處理要求：根據(jù)學(xué)生的學(xué)號(hào)查詢相應(yīng)的成績(jī)處理過(guò)程名：統(tǒng)計(jì)處理輸入：學(xué)生考試成績(jī)輸出：平均成績(jī)，排名成績(jī)數(shù)據(jù)字典：數(shù)據(jù)流：新生信息=入學(xué)時(shí)間+姓名+年齡+專業(yè)+性別合格單=姓名+專業(yè)處理過(guò)程：處理過(guò)程名：審查輸入：學(xué)生信息輸出：合格單處理要求：根據(jù)學(xué)生信息判斷是否是新生處理過(guò)程名：是否是新生輸入：合格單輸出：新生信息處理要求：根據(jù)合格單建立新生信息處理過(guò)程名：錄入存儲(chǔ)學(xué)生信息，各科成績(jī)輸入：新生信息，考試成績(jī)輸出：本次考試成績(jī)數(shù)據(jù)字典：數(shù)據(jù)存儲(chǔ)：數(shù)據(jù)存儲(chǔ)名：考試成績(jī)組成：姓名+專業(yè)+成績(jī)+學(xué)號(hào)組織方式：一學(xué)號(hào)為關(guān)鍵字處理過(guò)程：處理過(guò)程名：有效性檢查輸入：學(xué)號(hào)，課程號(hào)輸出：有效查詢處理要求：根據(jù)所輸入的信息查詢有效性處理過(guò)程名：成績(jī)查詢輸入：考試成績(jī)輸出：成績(jī)處理要求：根據(jù)考試成績(jī)查詢成績(jī)處理過(guò)程：處理過(guò)程名：統(tǒng)計(jì)選擇輸入：學(xué)生記錄輸出：按規(guī)定統(tǒng)計(jì)成績(jī)處理要求：根據(jù)所輸入學(xué)生記錄查詢成績(jī)2.E_R圖1） 學(xué)生實(shí)體E-R圖2）課程實(shí)體E-R圖3） 教師實(shí)體E-R圖4)各實(shí)體之間的E-R圖3.ER圖轉(zhuǎn)換為關(guān)系模式:1）學(xué)生（XS）（學(xué)號(hào)(sno)，姓名(sname)，專業(yè)(sdept），性別(ssex)，出生日期(sbirth），總學(xué)分(all_credit)）學(xué)生表：主碼：學(xué)號(hào)(sno)函數(shù)依賴：sno U.此表中，不存在非主屬性對(duì)碼的部分依賴，傳遞依賴，以及主屬性對(duì)碼的部分依賴和傳遞依賴，故滿足3NF2）課程（KC）（課程號(hào)(cno)，課程名(cname)，開(kāi)課學(xué)期(term)，學(xué)時(shí)(class_hour)，學(xué)分(credit)）課程表：主碼：課程號(hào)(cno)函數(shù)依賴：cno U此表中不存在非主屬性對(duì)碼的部分依賴，傳遞依賴，以及主屬性對(duì)碼的部分依賴和傳遞依賴，故滿足3NF3）選課（XS_KC）（學(xué)號(hào)(sno)，課程號(hào)(cno),成績(jī)(grade)）選課表：主碼：（學(xué)號(hào)，課程號(hào)）外碼：學(xué)號(hào)，課程號(hào)函數(shù)依賴：(sno,cno) U此表中不存在非主屬性對(duì)碼的部分依賴，傳遞依賴，以及主屬性對(duì)碼的部分依賴和傳遞依賴，故滿足3NF4）教師（TCH）（編號(hào)(tno),姓名(tname)，性別(tsex)，出生日期(tbirth)，職稱(professional)，專業(yè)(department)）教師表：主碼：編號(hào)(tno)函數(shù)依賴：tno U此表中不存在非主屬性對(duì)碼的部分依賴，傳遞依賴，以及主屬性對(duì)碼的部分依賴和傳遞依賴，故滿足3NF5）授課（TCH_KC）（教師編號(hào)(tno),課程號(hào)(cno)，上課地點(diǎn)(place)）授課表：主碼：（教師編號(hào)，課程號(hào)）外碼：教師編號(hào)，課程號(hào)函數(shù)依賴：(tno,cno)U此表中不存在非主屬性對(duì)碼的部分依賴，傳遞依賴，以及主屬性對(duì)碼的部分依賴和傳遞依賴，故滿足3NF4.邏輯設(shè)計(jì)結(jié)果：數(shù)據(jù)庫(kù)表名XS（學(xué)生）字段名數(shù)據(jù)類型含義說(shuō)明空值情況備注SnoChar(10)學(xué)號(hào)不能為空主鍵SnameChar(10)姓名不能為空ssexChar(10)性別可以為空只能取“男”“女”，默認(rèn)為“男”Sbirthdate出生日期可以空SdeptChar(10)所在專業(yè)可以空All_creditInt總學(xué)分可以空數(shù)據(jù)庫(kù)表名KC（課程）字段名數(shù)據(jù)類型含義說(shuō)明空值情況備注CnoChar(10)課程號(hào)不能為空主鍵SnameChar(10)課程名不能為空creditint學(xué)分可以空Class_hourInt課時(shí)數(shù)可以空TermInt開(kāi)課學(xué)期可以空數(shù)據(jù)庫(kù)表名TCH（教師）字段名數(shù)據(jù)類型含義說(shuō)明空值情況備注tnoChar(10)教師號(hào)不能為空主鍵tnameChar(10)姓名不能為空完全依賴Tno，是uniqueTbirthdate出生日期可以空TsexChar(10)性別可以空只能取“男”“女”，默認(rèn)為男ProfessionalChar（10）職稱可以空DepartmentChar（10）專業(yè)可以空數(shù)據(jù)庫(kù)表名XS_KC（選課）字段名數(shù)據(jù)類型含義說(shuō)明空值情況備注CnoChar(10)課程號(hào)不能為空主碼 SnoChar(10)學(xué)號(hào)不能為空主碼Gradeint成績(jī)可以空數(shù)據(jù)庫(kù)表名TCH_KC（授課）字段名數(shù)據(jù)類型含義說(shuō)明空值情況備注TnoChar(10)教師編號(hào)不能為空主碼 CnoChar(10)課程號(hào)不能為空主碼PlaceChar（10）授課地點(diǎn)可以空四數(shù)據(jù)庫(kù)應(yīng)用開(kāi)發(fā)與運(yùn)行 此為主界面，有五個(gè)按鈕，可進(jìn)行查詢，修改等操作。上圖為學(xué)生信息查詢窗口，可按學(xué)號(hào)，姓名，專業(yè)進(jìn)行查詢下圖學(xué)生選課信息窗口，雙擊上圖學(xué)生信息查詢窗口中表格左邊，可彈出此窗口顯示該學(xué)生選課信息。上圖為教師信息查詢窗口，可按教師編號(hào)，姓名，職稱部門進(jìn)行查詢，雙擊表格左部可顯示教師授課信息，如下圖所示。此為學(xué)生信息修改窗口，單擊一行，可在上面文本框中顯示該生信息，并進(jìn)行插入，修改，刪除等操作。此為學(xué)生成績(jī)錄入窗口，單擊一行可現(xiàn)實(shí)該生學(xué)號(hào)及所選課程，并在成績(jī)文本框中進(jìn)行添加及修改該課程成績(jī)操作。此為學(xué)生選課窗口，單擊一行顯示該行信息，可進(jìn)行選課，刪除操作5 結(jié)果分析、結(jié)論與體會(huì) 在這次課程設(shè)計(jì)中，我遇到的困難很多，在解決它們的同時(shí)我又學(xué)到了很多，受益匪淺，特別是如何分析、建立、開(kāi)發(fā)一個(gè)系統(tǒng)。 在一個(gè)系統(tǒng)開(kāi)發(fā)的過(guò)程中編碼不是重要的，重要的是分析系統(tǒng)、建立起系統(tǒng)模型。在分析一個(gè)系統(tǒng)前，分析人員必須要對(duì)將要開(kāi)發(fā)的系統(tǒng)所涉及到的各方面知識(shí)有一個(gè)認(rèn)識(shí)，然后將系統(tǒng)的模型建立起來(lái)。 在程序編寫中，我認(rèn)識(shí)到軟件要有簡(jiǎn)便的界面，良好的程序風(fēng)格。擁有這些條件，程序的可讀性才會(huì)好，開(kāi)發(fā)的復(fù)雜度才能大大減少，修改代碼時(shí)更加容易下手。 我認(rèn)為，所謂友好的界面，就是用戶需要的界面，力求簡(jiǎn)便全面。所以設(shè)計(jì)一個(gè)界面時(shí)，開(kāi)發(fā)人員必須要了解用戶的想法，從用戶的角度去設(shè)計(jì)，當(dāng)然，開(kāi)發(fā)不能全聽(tīng)用戶的意見(jiàn)，在詳細(xì)分析了系統(tǒng)后，開(kāi)發(fā)人員可以向用戶提出一些修改的意見(jiàn)，在雙方多次交流后定出程序所需的功能，以決定界面的實(shí)現(xiàn)。 在編碼中，良好的編程風(fēng)格與習(xí)慣是提高工作效率的一個(gè)重要方面，而且良好的編程風(fēng)格與習(xí)慣也是使軟件便于維護(hù)的基礎(chǔ)。那如何是良好的編程風(fēng)格與習(xí)慣呢？我認(rèn)為主要是程序的模塊化、必要的注釋。所謂模塊化就是使程序的功能實(shí)現(xiàn)分成多個(gè)單獨(dú)的功能模塊，而不能在一大段代碼中實(shí)現(xiàn)多個(gè)功能，如果這樣做，別的人是非常難讀懂你的程序。必要的注釋，顯而易見(jiàn)是要在程序的編寫中加入對(duì)程序的說(shuō)明，原因就是為了別人能讀懂你的程序，過(guò)一段時(shí)間后你自己還能讀懂自己的程序。最后說(shuō)明下這次課程設(shè)計(jì)給我感受最深的有三點(diǎn)： 1進(jìn)行管理系統(tǒng)開(kāi)發(fā)這樣的工作，要有恒心，要能靜下新來(lái)做，而不能浮躁。 2要善于同別人交流與合作，善于獲取各種有用的資源。 3要真真實(shí)實(shí)的多查資料，多問(wèn)，多看。6 參考文獻(xiàn)及資料1 學(xué)用Visual Basic 編程 潭浩 西安電子科技大學(xué)出版社 2 數(shù)據(jù)庫(kù)原理 丁寶康 施伯樂(lè)著 經(jīng)濟(jì)科學(xué)出版社 3 SQL Server數(shù)據(jù)庫(kù)開(kāi)發(fā)入門與范例解析 夏邦貴著 北京機(jī)械工業(yè)出版社4 SQL Server 2005應(yīng)用開(kāi)發(fā)技術(shù)指南 彭東著 北京清華大學(xué)出版社 5Visual Basic6.0 林陳雷著 人民郵電出版社 6面向?qū)ο蟪绦蛟O(shè)計(jì)系列教材 龔沛曾著 高等教育出版社 7Visual Basic6.0 數(shù)據(jù)庫(kù)開(kāi)發(fā)與專業(yè)應(yīng)用 敬 錚著 國(guó)防工業(yè)出版社 8Visual Basic6.0 數(shù)據(jù)庫(kù)程序設(shè)計(jì)高手 溫賢發(fā)著 科學(xué)出版社七.附錄SQL Server 建立五張表VB程序及控件設(shè)置Private Sub Command3_Click() 取消Stusno.Text = Stusname.Text = Stusbirth.Text = Stusdept.Text = Stuall_credit.Text = Stusexm = FalseStusexf = FalseEnd Sub修改元組Private Sub Stuchange_Click()If Trim(Stusno.Text) = Or Trim(Stusname.Text) = Or (Stusexm = False And Stusexf = False) ThenMsgBox 加*數(shù)據(jù)項(xiàng)不能為空，請(qǐng)重新設(shè)置, vbOKOnly, 信息提示Stusno.SetFocusExit SubEnd IfIf Trim(Stusbirth.Text) ThenIf Not IsDate(Trim(Stusbirth.Text) ThenMsgBox 出生日期輸入不正確，請(qǐng)重新輸入, vbOKOnly, 信息提示Stusbirth.SetFocusExit SubEnd IfEnd IfStuADO.Recordset.Fields(學(xué)號(hào)) = Trim(Stusno.Text)StuADO.Recordset.Fields(姓名) = Trim(Stusname.Text)StuADO.Recordset.Fields(出生日期) = Trim(Stusbirth.Text)StuADO.Recordset.Fields(專業(yè)) = Trim(Stusdept.Text)StuADO.Recordset.Fields(總學(xué)分) = Trim(Stuall_credit.Text)If Stusexm = True ThenStuADO.Recordset.Fields(性別) = 男Else: Stusexf = TrueStuADO.Recordset.Fields(性別) = 女End IfStuADO.Recordset.UpdateEnd Sub刪除元組Private Sub StuDel_Click()ret = MsgBox(是否要?jiǎng)h除 + StuADO.Recordset(學(xué)號(hào)) + 號(hào)學(xué)生的記錄?, vbYesNo, 提示)If ret = vbYes ThenStuADO.Recordset.DeleteEnd IfStuADO.RecordSource = select sno 學(xué)號(hào),sname 姓名,sdept 專業(yè),ssex 性別,sbirth 出生日期,all_credit 總學(xué)分 from XSCommand3_ClickStuADO.RefreshEnd Sub選中一行顯示元組Private Sub StuDG_Click()Stusno.Text = StuADO.Recordset(學(xué)號(hào))Stusname.Text = StuADO.Recordset(姓名)Stusbirth.Text = StuADO.Recordset(出生日期)Stusdept.Text = StuADO.Recordset(專業(yè))Stuall_credit = StuADO.Recordset(總學(xué)分)If Trim(StuADO.Recordset(性別) = 男 ThenStusexm = TrueElseStusexf = TrueEnd IfEnd Sub插入元組Private Sub Studinsert_Click()If Trim(Stusno.Text) = Or Trim(Stusname.Text) = Or (Stusexm = False And Stusexf = False) ThenMsgBox 加*數(shù)據(jù)項(xiàng)不能為空，請(qǐng)重新設(shè)置, vbOKOnly, 信息提示Stusno.SetFocusExit SubEnd IfIf Trim(Stusbirth.Text) ThenIf Not IsDate(Trim(Stusbirth.Text) ThenMsgBox 出生日期輸入不正確，請(qǐng)重新輸入, vbOKOnly, 信息提示Stusbirth.SetFocusExit SubEnd IfEnd IfStuADO.Recordset.AddNewStuADO.Recordset.Fields(學(xué)號(hào)) = Trim(Stusno.Text)StuADO.Recordset.Fields(姓名) = Trim(Stusname.Text)StuADO.Recordset.Fields(出生日期) = Trim(Stusbirth.Text)StuADO.Recordset.Fields(專業(yè)) = Trim(Stusdept.Text)StuADO.Recordset.Fields(總學(xué)分) = Trim(Stuall_credit.Text)If Stusexm = True ThenStuADO.Recordset.Fields(性別) = 男Else: Stusexf = TrueStuADO.Recordset.Fields(性別) = 女End IfStuADO.Recordset.UpdateEnd Sub取消Private Sub Stucancel_Click()Stusno.Text = Stusname.Text = Stucname.Text = End Sub選課Private Sub Stuchoose_Click()StuADOXS.RecordSource = select * from XS where sno= + Trim(Stusno.Text) + StuADOXS.RefreshIf Trim(Stusno.Text) = Or Trim(Stusname.Text) = Or Trim(Stucname.Text) = Thenret = MsgBox(輸入不正確，請(qǐng)重新輸入!, vbYes, 錯(cuò)誤！)ElseIf Trim(Stusname.Text) Trim(StuADOXS.Recordset(sname) Thenret = MsgBox(輸入學(xué)號(hào)與姓名不匹配，請(qǐng)重新輸入!)ElseStuADOXS_KC.RecordSource = select * from XS_KCStuADOXS_KC.RefreshStuADOXS_KC.Recordset.AddNewStuADOXS_KC.Recordset.Fields(sno) = Trim(Stusno.Text)StuADOKC.RecordSource = select * from KC where cname= + Trim(Stucname.Text) + StuADOKC.RefreshStuADOXS_KC.Recordset.Fields(cno) = StuADOKC.Recordset(cno)StuADOXS_KC.Recordset.UpdateStuADO.RefreshEnd IfEnd Sub刪除元組Private Sub Studelete_Click()ret = MsgBox(是否要?jiǎng)h除 + StuADO.Recordset(學(xué)號(hào)) + 號(hào)學(xué)生的選課記錄?, vbYesNo, 提示)If ret = vbYes ThenStuADOXS_KC.RecordSource = select * from XS_KC where sno= + StuADO.Recordset(學(xué)號(hào)) + StuADOXS_KC.RefreshStuADOXS_KC.Recordset.DeleteEnd IfStuADO.RefreshStucancel_ClickEnd Sub單擊顯示元組Private Sub StuDG_Click()Stusno.Text = StuADO.Recordset(學(xué)號(hào))Stusname.Text = StuADO.Recordset(姓名)Stucname.Text = StuADO.Recordset(課程名)End SubPrivate Sub Stuadd_Click()If Stugrade.Text = Thenret = MsgBox(輸入為空，請(qǐng)重新輸入, vbYes, 錯(cuò)誤提示)ElseStuADOKC.RecordSource = select * from KC where cname= + Trim(Stucname.Text) + StuADOKC.RefreshStuADOXS_KC.RecordSource = select * from XS_KC where cno= + StuADOKC.Recordset(cno) + StuADOXS_KC.RefreshStuADOXS_KC.Recordset.Fields(sno) = Stusno.TextStuADOXS_KC.Recordset.Fields(cno) = StuADOKC.Recordset(cno)StuADOXS_KC.Recordset.Fields(grade) = Stugrade.TextStuADOXS_KC.Recordset.UpdateStuADO.RecordSource = select sno 學(xué)號(hào),XS_KC.cno 課程號(hào),cname 課程名,grade 成績(jī) from KC,XS_KC where KC.cno=XS_KC.cnoStuADO.RefreshEnd IfEnd Sub取消Private Sub Stucancel_Click()Stusno.Text = Stucname.Text = Stugrade.Text = End Sub刪除學(xué)生成績(jī)Private Sub Studelete_Click()ret = MsgBox(是否要?jiǎng)h除 + Trim(StuADO.Recordset(學(xué)號(hào)) + 號(hào)學(xué)生成績(jī)?, vbYesNo, 提示)If ret = vbYes ThenStuADO.Recordset(成績(jī)) = NullEnd IfEnd Sub單擊顯示元組Private Sub StuDG_Click()Stusno.Text = StuADO.Recordset(學(xué)號(hào))Stucname.Text = StuADO.Recordset(課程名)End Sub修改學(xué)生成績(jī)Private Sub Stusure_Click()If Stugrade.Text = Thenret = MsgBox(輸入為空，請(qǐng)重新輸入, vbYes, 錯(cuò)誤提示)ElseStuADOKC.RecordSource = select * from KC where cname= + Trim(Stucname.Text) + StuADOKC.RefreshStuADOXS_KC.RecordSource = select * from XS_KC where cno= + StuADOKC.Recordset(cno) + + and sno= + Trim(Stusno.Text) + StuADOXS_KC.RefreshStuADOXS_KC.Recordset.Fields(grade) = Trim(Stugrade.Text)StuADOXS_KC.Recordset.UpdateStuADO.RecordSource = select sno 學(xué)號(hào),XS_KC.cno 課程號(hào),cname 課程名,grade 成績(jī) from KC,XS_KC where KC.cno=XS_KC.cnoStuADO.RefreshEnd IfEnd SubPrivate Sub Command1_Click()StuSearch.ShowEnd SubPrivate Sub Command2_Click()AddStu.ShowEnd SubPrivate Sub Command3_Click()AddStuCourse.ShowEnd SubPrivate Sub Command4_Click()AddStuGrade.ShowEnd SubPrivate Sub Command5_Click()TchSearch.ShowEnd SubDim SqlStr As StringPublic Sub MakeSqlStr()SqlStr = If Trim(Stusno) ThenSqlStr = SqlStr + and sno like% + Trim(Stusno.Text) + % End IfIf Trim(Stusname) ThenSqlStr = SqlStr + and sname like % + Trim(Stusname.Text) + %End IfIf Trim(Stusdept) ThenSqlStr = SqlStr + and sdept= + Trim(Stusdept.Text) + End IfEnd SubPrivate Sub Command1_Click()MakeSqlStrStuADO.RecordSource = select sno 學(xué)號(hào),sname 姓名,sdept 專業(yè),ssex 性別,sbirth 出生日期,all_credit 總學(xué)分 from XS where (ssex =男 or ssex=女) _& SqlStrStuADO.RefreshEnd SubPrivate Sub StuDG_DblClick()ShowStuKC.StuKCADO.RecordSource = select sn