VB課程設(shè)計(jì)學(xué)生成績(jī)管理系統(tǒng)單片機(jī)

1、1VB 課程設(shè)計(jì)學(xué)生成績(jī)管理系統(tǒng)姓名：學(xué)號(hào)：班級(jí)：系別：電子工程系2前前 言言隨著信息技術(shù)在管理上越來(lái)越深入而廣泛的應(yīng)用，管理信息系統(tǒng)的實(shí)施在技術(shù)上已逐步成熟。管理信息系統(tǒng)是一個(gè)不斷發(fā)展的新型學(xué)科，任何一個(gè)單位要生存要發(fā)展，要高效率地把內(nèi)部活動(dòng)有機(jī)地組織起來(lái)，就必須建立與自身特點(diǎn)相適應(yīng)的管理信息系統(tǒng)。本文介紹了在 VISUAL BASIC6.0 環(huán)境下采用“自上而下地總體規(guī)劃，自下而上地應(yīng)用開(kāi)發(fā)”的策略開(kāi)發(fā)一個(gè)管理信息系統(tǒng)的過(guò)程。通過(guò)分析學(xué)生成績(jī)管理的不足，創(chuàng)建了一套行之有效的計(jì)算機(jī)管理學(xué)生的方案。文章介紹了學(xué)生成績(jī)管理信息系統(tǒng)的系統(tǒng)分析部分，包括可行性分析、業(yè)務(wù)流程分析等；系統(tǒng)設(shè)計(jì)部分主要介

2、紹了系統(tǒng)功能設(shè)計(jì)和數(shù)據(jù)庫(kù)設(shè)計(jì)及代碼設(shè)計(jì)；系統(tǒng)實(shí)現(xiàn)部分說(shuō)明了幾個(gè)主要模塊的算法， 本系統(tǒng)面友好，操作簡(jiǎn)單，比較實(shí)用。3目 錄前 言2第一章 學(xué)生成績(jī)管理系統(tǒng)511 需求分析6111 系統(tǒng)概述81. 1. 2 功能需求描述10第二章 總體設(shè)計(jì)及流程圖142.1 開(kāi)發(fā)與設(shè)計(jì)的總體思想152.2 系統(tǒng)模塊結(jié)構(gòu)圖162.2.1 模塊設(shè)計(jì)162.2.2 界面設(shè)計(jì)172.2.3 數(shù)據(jù)庫(kù)設(shè)計(jì)17第三章 詳細(xì)設(shè)計(jì)183.1 學(xué)生管理模塊1843.2 教師管理模塊233.3 課程管理模塊233.4 成績(jī)管理模塊23參考文獻(xiàn)27致 謝27河南工業(yè)職業(yè)技術(shù)學(xué)院 VB 大型作業(yè)- -1前前 言言 幾年的學(xué)習(xí)即將結(jié)束，經(jīng)

3、過(guò)幾個(gè)月的努力，我所設(shè)計(jì)的“學(xué)生成績(jī)管理系統(tǒng)”也已完成。以往學(xué)的都是理論性很強(qiáng)的知識(shí)，再加上實(shí)踐機(jī)會(huì)不多，更增強(qiáng)了我對(duì)計(jì)算機(jī)科學(xué)的興趣。在這段時(shí)間里，我增強(qiáng)了自己動(dòng)手的能力，更重要的是似乎把握住了計(jì)算機(jī)的一些實(shí)質(zhì)性的東西終于能夠用我所學(xué)的知識(shí)解決一些實(shí)際應(yīng)用的問(wèn)題了。但我知道，數(shù)據(jù)庫(kù)技術(shù)只是計(jì)算機(jī)科學(xué)的一個(gè)小小分支，計(jì)算機(jī)還有更廣闊的領(lǐng)域有待我們?nèi)ヌ剿鳌?這次畢業(yè)設(shè)計(jì)是用 Visul Basic 語(yǔ)言設(shè)計(jì)的“學(xué)生成績(jī)管理系統(tǒng)” ，這就要求對(duì) Visul Basic 語(yǔ)言及數(shù)據(jù)庫(kù)技術(shù)能夠真正了解和熟練的掌握，并且能夠靈活的運(yùn)用。 當(dāng)今的時(shí)代是信息的時(shí)代，數(shù)據(jù)庫(kù)技術(shù)是數(shù)據(jù)管理的最新方法，也是信息管

4、理中一項(xiàng)非常重要的新技術(shù)，數(shù)據(jù)庫(kù)管理是幫助人們處理大量信息，實(shí)現(xiàn)科學(xué)化和現(xiàn)代化的強(qiáng)有力工具，數(shù)據(jù)庫(kù)管理子系統(tǒng)已發(fā)展成為通用的系統(tǒng)軟件。由于數(shù)據(jù)庫(kù)具有數(shù)據(jù)結(jié)構(gòu)化、最低冗余度、較高的程序獨(dú)立性、易于擴(kuò)充、易于編制應(yīng)用程序等優(yōu)點(diǎn)，因而是近年來(lái)發(fā)展非常迅猛的計(jì)算機(jī)軟件。數(shù)據(jù)庫(kù)技術(shù)是數(shù)據(jù)信息管理技術(shù)的最新成果，被廣泛應(yīng)用于國(guó)民經(jīng)濟(jì)、文化教育、軍事情報(bào)、科學(xué)計(jì)算、人工智能和計(jì)算機(jī)輔助設(shè)計(jì)領(lǐng)域，為計(jì)算機(jī)的應(yīng)用開(kāi)辟了廣闊的天地。河南工業(yè)職業(yè)技術(shù)學(xué)院 VB 大型作業(yè)- -2第一章 學(xué)生成績(jī)管理系統(tǒng)11 需求分析 考試成績(jī)是學(xué)生在校期間的重要?dú)v史資料，學(xué)生成績(jī)信息的管理（成績(jī)的錄入、查詢(xún)、分類(lèi)統(tǒng)計(jì)等）是各個(gè)學(xué)校面

5、臨的一個(gè)重要問(wèn)題。該成績(jī)管理系統(tǒng)主要是用于管理在校學(xué)生的考試成績(jī)，對(duì)教、班級(jí)、學(xué)生、課程和成績(jī)信息進(jìn)行維護(hù)與管理。本系統(tǒng)要求運(yùn)行穩(wěn)定，圖形用戶(hù)界面符合用戶(hù)的日常使用習(xí)慣，數(shù)據(jù)處理正確無(wú)誤。111 系統(tǒng)概述 學(xué)生成績(jī)管理系統(tǒng)主要完成學(xué)生成績(jī)的管理，包括：（1）教師管理。主要完成教師的添加、修改、刪除和查詢(xún)。（2）班級(jí)管理。主要完成班級(jí)的添加、修改、刪除和班級(jí)列表。（3）學(xué)生管理。主要完成對(duì)學(xué)生信息的添加、修改、刪除和查詢(xún)。（4）課程管理。主要完成對(duì)課程信息的維護(hù)，包括課程添加、修改、刪除和查詢(xún)功能。（5）成績(jī)管理。主要完成成績(jī)的添加、刪改和成績(jī)杳詢(xún)。1.1.2 功能需求描述 該系統(tǒng)的功能需求有如

6、下幾個(gè)方面：（1）教師管理。主要用于對(duì)教師信息進(jìn)得維護(hù)。功能包括新教師信息的添加、修改和刪除已有的教師信息，對(duì)教師信息進(jìn)行查詢(xún)。（2）班級(jí)管理。主要用于對(duì)班級(jí)信息進(jìn)行維護(hù)。功能包括對(duì)班級(jí)信息的添河南工業(yè)職業(yè)技術(shù)學(xué)院 VB 大型作業(yè)- -3加、刪改和班級(jí)列表。（3）學(xué)生管理。主要用于維護(hù)學(xué)生信息。功能包括對(duì)學(xué)生信息的添加、刪改和查詢(xún)。（4）課程管理。主要用于維護(hù)課程信息，功能包括課程的添加、刪改和查詢(xún)。（5）成績(jī)管理。用于維護(hù)成績(jī)信息，功能包括成績(jī)的添加和查詢(xún)。第二章 總體設(shè)計(jì)及流程圖 上面的需求分析已經(jīng)對(duì)系統(tǒng)的功能需求、環(huán)境需求做了較為明確的闡述。根據(jù)上述需求，下面按照開(kāi)發(fā)設(shè)計(jì)思想、功能模塊、

7、圖形用戶(hù)界面、數(shù)據(jù)庫(kù)等方面闡述成績(jī)管理系統(tǒng)的總體設(shè)計(jì)。2.1 開(kāi)發(fā)與設(shè)計(jì)的總體思想 作為學(xué)校使用的成績(jī)管理系統(tǒng)，能夠滿(mǎn)足成績(jī)管理的基本功能需求，界面簡(jiǎn)單、操作簡(jiǎn)便是設(shè)計(jì)的一個(gè)重要考慮。2.22.2 系統(tǒng)模塊結(jié)構(gòu)圖系統(tǒng)模塊結(jié)構(gòu)圖 河南工業(yè)職業(yè)技術(shù)學(xué)院 VB 大型作業(yè)- -42.2.1 模塊設(shè)計(jì)河南工業(yè)職業(yè)技術(shù)學(xué)院 VB 大型作業(yè)- -5圖 2-7 主窗體菜單設(shè)計(jì)的效果圖1.教師管理菜單設(shè)計(jì)（1）教師信息添加界面設(shè)計(jì) 教師信息添加界面使用文本框輸入教師相關(guān)基本信息，使用組合列表框選擇部門(mén)和性別。單擊添加按鈕保存教師信息，單擊返回按鈕返回主菜單。具體設(shè)計(jì)效果圖如圖 2-8 所示。河南工業(yè)職業(yè)技術(shù)學(xué)院

8、 VB 大型作業(yè)- -6圖 2-8 具體設(shè)計(jì)效果圖（2）教師信息修改刪除界面設(shè)計(jì)圖 2-9 具體設(shè)計(jì)效果圖2.學(xué)生管理界面設(shè)計(jì)河南工業(yè)職業(yè)技術(shù)學(xué)院 VB 大型作業(yè)- -7（1）學(xué)生信息添加界面設(shè)計(jì)學(xué)生信息添加界面使用文本框輸入學(xué)生的姓名、學(xué)號(hào)、生日、電話(huà)、地址和備注信息。同時(shí)使用了兩個(gè)組合列表框，分別用于選擇班級(jí)和性別。組合列表框中的數(shù)據(jù)會(huì)在窗體加載的時(shí)候就進(jìn)行初始化。具體設(shè)計(jì)效果圖如圖 1-11 所示。（2）學(xué)生信息刪改界面設(shè)計(jì)在學(xué)生信息刪改界面中，在班級(jí)組合列表框中選擇班級(jí)，該班級(jí)的所有學(xué)號(hào)會(huì)添加到學(xué)號(hào)組合列表框中，在學(xué)號(hào)組合列表框中選擇學(xué)號(hào)，就會(huì)在下方顯示該學(xué)生的基本信息。根據(jù)需要單擊修

9、改按鈕來(lái)修改學(xué)生信息，也可以單擊刪除按鈕來(lái)刪除該學(xué)生的信息，或是單擊返回按鈕返回主菜單。具體設(shè)計(jì)效果圖如圖 2-10 所示。圖 2-10 具體設(shè)計(jì)效果圖（3）學(xué)生信息查詢(xún)界面設(shè)計(jì)河南工業(yè)職業(yè)技術(shù)學(xué)院 VB 大型作業(yè)- -8學(xué)生信息查詢(xún)辦面提供了四種查詢(xún)方式：全部、按班級(jí)查詢(xún)、按學(xué)號(hào)查詢(xún)和按姓名查詢(xún)。提供了一個(gè)表格用于赤示查詢(xún)結(jié)果。3.課程管理界面設(shè)計(jì)（1）課程信息添加界面設(shè)計(jì)課程添加界面提供了文本框，用于輸入課程名稱(chēng)、課程編號(hào)、課程學(xué)時(shí)數(shù)和學(xué)分等課程基本信息。并且提供了兩個(gè)組合列表框，分別用于選擇課程類(lèi)型和任課教師。這兩個(gè)組合列表框的數(shù)據(jù)是在加載窗體的時(shí)候進(jìn)行初始化的。（2）課程信息刪改界面設(shè)

10、計(jì)課程信息刪改界面提供了文本框，用于輸入課程編號(hào)，單擊查詢(xún)按鈕就會(huì)查找該課程編號(hào)所代表的課程信息，找到后將信息顯示出來(lái)。修改和刪除按鈕用于完成修改和刪除操作。具體設(shè)計(jì)效果圖如圖 2-11 所示。圖 2-11 具體設(shè)計(jì)效果圖河南工業(yè)職業(yè)技術(shù)學(xué)院 VB 大型作業(yè)- -94.成績(jī)管理界面設(shè)計(jì)（1）成績(jī)錄入界面設(shè)計(jì)成績(jī)界面使用文本框輸入學(xué)生學(xué)號(hào)和課程成績(jī)。使用組合列表框選擇課程編號(hào)。使用表格顯示查詢(xún)結(jié)果。使用兩個(gè)文本框顯示學(xué)生姓名和課程名稱(chēng)。這兩個(gè)文本框是不可編輯的。具體設(shè)計(jì)效果圖如圖 2-12 所示。圖 2-12 具體設(shè)計(jì)效果圖（2）成績(jī)刪改界面設(shè)計(jì)河南工業(yè)職業(yè)技術(shù)學(xué)院 VB 大型作業(yè)- -10圖

11、2-13 具體設(shè)計(jì)效果圖（3）成績(jī)查詢(xún)界面設(shè)計(jì)成績(jī)查詢(xún)界面提供了三種查詢(xún)方式：按學(xué)號(hào)、按課程和按成績(jī)查詢(xún)。使用表格顯示查詢(xún)結(jié)果。2.2.3 數(shù)據(jù)庫(kù)設(shè)計(jì) 根據(jù)系統(tǒng)功能設(shè)計(jì)的要求以及功能模塊的劃分，數(shù)據(jù)庫(kù)表結(jié)構(gòu)設(shè)計(jì)如下。1.學(xué)生信息表名稱(chēng)：學(xué)生信息表（見(jiàn)表 2-1）表名稱(chēng)標(biāo)識(shí)：studentInfo數(shù)據(jù)來(lái)源：學(xué)生管理模塊進(jìn)行錄入。2教師信息表名稱(chēng)：教師信息表（見(jiàn)表 2-2）表名稱(chēng)標(biāo)識(shí)：teacherInfo數(shù)據(jù)來(lái)源：教師管理模塊進(jìn)行錄入。3.班級(jí)信息表 表 2-3 班級(jí)信息表名稱(chēng)字段名稱(chēng)類(lèi)型主鍵非空班級(jí)編號(hào)ClassNo文本YesYes河南工業(yè)職業(yè)技術(shù)學(xué)院 VB 大型作業(yè)- -11班級(jí)名稱(chēng)clas

12、sName文本NoYes4.部門(mén)信息表 表 2-4 部門(mén)信息表名稱(chēng)字段名稱(chēng)類(lèi)型主鍵非空部門(mén)編號(hào)Dept_no文本YesYes部門(mén)名稱(chēng)Dept_name文本NoYes5.課程信息表 表 2-5 課程信息表名稱(chēng)字段名稱(chēng)類(lèi)型主鍵非空序號(hào)No自動(dòng)編號(hào)YesYes課程編號(hào)Course_no文本NoYes課程名稱(chēng)Course_name文本NoYes課程類(lèi)型Course_type文本NoYes學(xué)時(shí)數(shù)Course_hours數(shù)字NoYes學(xué)分Score數(shù)字NoYes河南工業(yè)職業(yè)技術(shù)學(xué)院 VB 大型作業(yè)- -12授課教師Teacher文本NoYes6.成績(jī)信息表 表 2-6 成績(jī)信息表名稱(chēng)字段名稱(chēng)類(lèi)型主鍵非空編

13、號(hào)No自動(dòng)編號(hào)YesYes學(xué)號(hào)Stu_no文本NoYes課程號(hào)Course_no文本NoYes成績(jī)Score數(shù)字NoYes第三章 詳細(xì)設(shè)計(jì)基于系統(tǒng)需求分析與系統(tǒng)總體設(shè)計(jì)的結(jié)論，本系統(tǒng)采用 Visual Basic 6.0實(shí)現(xiàn)各模塊的功能，下面按照功能模塊的劃分來(lái)分別闡述系統(tǒng)的詳細(xì)設(shè)計(jì)和實(shí)現(xiàn)過(guò)程。3.1 學(xué)生管理模塊1.功能描述為用戶(hù)提供學(xué)生信息的添加、修改、刪除和查詢(xún)界面，完成學(xué)生信息的添加、修改、刪除和查詢(xún)功能。2.窗體和源文件定義河南工業(yè)職業(yè)技術(shù)學(xué)院 VB 大型作業(yè)- -13該功能模塊涉及到的窗體名稱(chēng)和文件名參見(jiàn)表 3-1。 表 3-1 窗體列表窗體各稱(chēng)窗體文件名作用frmStudentf

14、rmStudent.frm用于學(xué)生信息添加frmUpdateStudentfrmUpdateStudent.frm用于修改、刪除學(xué)生信息frmQueryStudentfrmQueryStudent.frm用于查詢(xún)學(xué)生信息Module1Module1.bas用于定義全局變量和公用函數(shù)3.2 教師管理模塊1功能描述 該模塊提供教師信息的添加、修改、刪除和查詢(xún)界面，完成教師信息的添加、修改、刪除和查詢(xún)功能。2窗體和源文件定義 表 3-3 窗體列表窗體名稱(chēng)窗體文件名作用frmAddTeacherfrmAddTeacher.frm用于教師信息河南工業(yè)職業(yè)技術(shù)學(xué)院 VB 大型作業(yè)- -14添加frmUpd

15、ateTeacherfrmUpdateTeacher.frm用于修改、刪除教師信息frmQueryTeacherfrmQueryTeacher.frm用于查詢(xún)教師信息3.變量聲明窗體模塊中的聲明Public sqlstr As StringPublic msgText As String代碼模塊中的聲明Public dbpath As StringPublic connStr As String4.函數(shù)與方法聲明 表 3-4 主要函數(shù)與方法窗體名稱(chēng)函數(shù)/方法名作用frmAddTeacherSub initDepartment()在組合列表框中列出所有部門(mén)名稱(chēng)河南工業(yè)職業(yè)技術(shù)學(xué)院 VB 大型作業(yè)

16、- -15Sub initForm()初始化窗體上的文本框和組合列表框Private sub cmdOK_Click()添加教師信息Sub initDepartment()在組合列表框中列出所有部門(mén)名稱(chēng)Sub initTeacherNo()在組合列表框中列出所有教師編號(hào)Sub getTeacherNo()獲取教師信息Private sub cmdDelete_click()刪除教師信息frmUpdateTeacherprivatesubcmdUpdate_click()修改教師信息Sub initDepartment()在組合列表框中列出所有部門(mén)名稱(chēng)Sub initTitles()在組合列表框

17、中列出所有的職稱(chēng)frmQueryTeacherPrivate sub queryTeacher()查詢(xún)教師信息河南工業(yè)職業(yè)技術(shù)學(xué)院 VB 大型作業(yè)- -16處理：1)獲取信息輸入窗口中填寫(xiě)的數(shù)據(jù)。2)執(zhí)行查詢(xún)得到結(jié)果集，然后調(diào)用結(jié)果集對(duì)象的 addNew 方法。3)設(shè)置各個(gè)字段的值。4)調(diào)用 update 方法更新結(jié)果集，完成教師信息添加。輸出：將數(shù)據(jù)寫(xiě)入教師信息表程序清單：與學(xué)生信息添加代碼類(lèi)似，請(qǐng)參考本書(shū)提供的源代碼。(3)frmUpdateTeacher 窗體：private sub cmdUpdate_Click()功能：主要用來(lái)完成教師信息的修改，將窗體上修改后的信息添加到數(shù)據(jù)庫(kù)中。

18、輸入：教師信息刪改窗體上輸入的數(shù)據(jù)。處理：1)獲取信息輸入窗口中填寫(xiě)的數(shù)據(jù)并得到 SQL 語(yǔ)句。2)執(zhí)行 SQL 語(yǔ)句完成數(shù)據(jù)修改。輸出：將修改后的數(shù)據(jù)寫(xiě)入教師信息表。程序清單：Private sub cmdUpdate_Click() Dim conn As ADODB.Connection sqlStr= “UPDATE teacherInfo set birthdate=#”& txtBirth 河南工業(yè)職業(yè)技術(shù)學(xué)院 VB 大型作業(yè)- -17& “#,department= ”&cboDept(0).Text & “,telno= ”&txtTel

19、.Text&” ,title= ”&txtTitle.Text&” ”& “where teacher_no= ” & txtNo.Text & “ ”on Error GoTo exitsubset conn=New ADODB.Connectionconn.Open connStrconn.Execute sqlstrMsgBox “成功修改數(shù)據(jù)!” Exitsub:Conn.closeinitDepartmentend sub 3.5 成績(jī)管理模塊1功能描述該模塊提供成績(jī)信息的錄入、修改、刪除和查詢(xún)界面，完成成績(jī)信息的錄入、修改、刪除和查詢(xún)

20、功能。2窗體和源文件定義該功能模塊涉及到的窗體名稱(chēng)和文件名參見(jiàn)表 3-9。 表 3-9 窗體列表河南工業(yè)職業(yè)技術(shù)學(xué)院 VB 大型作業(yè)- -18窗體名稱(chēng)窗體文件名作用frmAddScorefrmAddScore.frm用于成績(jī)信息添加frmUpdateScorefrmUpdateScore.frm用于修改、刪除成績(jī)信息frmQueryScorefrmQueryscore.frm用于查詢(xún)成績(jī)信息3.變量聲明 窗體模塊中的聲明Public sqlstr As StringPublic msgText As String代碼模塊中的聲明Public dbpath As StringPublic con

21、nStr As String4函數(shù)與方法聲明 表 3-10 主要函數(shù)與方法窗體名稱(chēng)函數(shù)/方法名作用河南工業(yè)職業(yè)技術(shù)學(xué)院 VB 大型作業(yè)- -19Sub initCourseNo()在下拉列表框中顯示所有課程號(hào)Private sub txtStuNo_KeyPress(KeyAscii As Integer)文本框響應(yīng)回車(chē)鍵，如果輸入學(xué)號(hào)后回車(chē)，就會(huì)查找并顯示學(xué)生姓名Private sub cboCourseNo_Click()在組合列表框中選擇課程編號(hào)，觸發(fā) click 事件，查找顯示課程名稱(chēng)frmAddScorePrivate sub cmdOK_Click()向數(shù)據(jù)庫(kù)中添加成績(jī)信息Sub

22、initCourseNo()在下拉列表框中顯示所有課程號(hào)Sub getScoreInfo()從數(shù)據(jù)庫(kù)中查找成績(jī)信息Private sub cmdUpdate_click()修改成績(jī)信息frmUpdateScorePrivate sub cmdDelete_Click()刪除成績(jī)信息frmQueryScorePrivate sub cmdOK_Click()查詢(xún)成績(jī)河南工業(yè)職業(yè)技術(shù)學(xué)院 VB 大型作業(yè)- -20(1)frmAddScore 窗體：private sub txtStuNo_KeyPress(KeyAscii As Integer)功能：相應(yīng)鍵盤(pán)事件，如果是回車(chē)鍵，則按學(xué)號(hào)查詢(xún)學(xué)生姓

23、名。輸入：按鍵的 ASCII 碼。處理：1)判斷按鍵是否為回車(chē)鍵。2)如果為回車(chē)鍵，剛轉(zhuǎn) 3,否則退出。3)查詢(xún)學(xué)生姓名并顯示出來(lái)。輸出：學(xué)生姓名。程序清單： Private sub txtStuNo_keypress(keyAscii As Integer)Dim rstStudent As ADODB.RecordsetIf KeyAscii=13 Then sqlStr= “select name from studentInfo” set rststudent=ExecuteSQL(sqlStr,msgText) If Not rstStudent.EOF ThentxtName=rs

24、tStudent.Fields(0) Else MsgBox “未找到學(xué)生的信息記錄！”,vbOKOnly+vbExclamation, “警告”河南工業(yè)職業(yè)技術(shù)學(xué)院 VB 大型作業(yè)- -21 Exit subEnd IfrstStudent.Close End If End sub (2)frmAddScore 窗體：private sub cmdOK_Click()功能：將窗體中的成績(jī)信息添加到數(shù)據(jù)庫(kù)中。輸入：成績(jī)添加窗體中填寫(xiě)的數(shù)據(jù)。處理：1)獲取信息輸入窗口中填寫(xiě)的數(shù)據(jù)。2)執(zhí)行查詢(xún)得到結(jié)果集，然后調(diào)用結(jié)果集對(duì)象的 addNew 方法。3)設(shè)置各個(gè)字段的值。4)調(diào)用 update 方法

25、更新結(jié)果集，完成成績(jī)信息添加。輸出：將成績(jī)信息寫(xiě)入數(shù)據(jù)庫(kù)。程序清單： Private sub cmdok_click() Dim rstScore As ADODB.Recordset Dim stuNo As String河南工業(yè)職業(yè)技術(shù)學(xué)院 VB 大型作業(yè)- -22 Dim courseNo As String Dim score As String 獲取數(shù)據(jù) stuNo=Trim(txtstuNo.Text) courseNo=Trim(cboCourseNo.Text) score=Trim(txtScore.Text) If stuNo= “”or score= “”Then Msg

26、Box “請(qǐng)將信息補(bǔ)充完整”,vbOKOnly+vbExclamation, “警告”Exit sub End If 添加新記錄 sqlStr=”select*from scoreInfo” set rstScore=ExecuteSQL(sqlStr,msgText) rstScore.AddNew rstScore.Fields(“stu_no”)=stuNo rstScore.Fields(“course_no”)=courseNo rstScore.Fields(“course_score”)=scorerstScore.UpdaterstScore.Close河南工業(yè)職業(yè)技術(shù)學(xué)院 V

27、B 大型作業(yè)- -23MsgBox “成績(jī)信息添加完成！”,vboOKOnly+vbExclamation, “警告”initFormEnd sub(3)frmUpdateScore 窗體:sub getScoreInfo()功能：根據(jù)課程編號(hào)和學(xué)號(hào)，從數(shù)據(jù)庫(kù)中讀取成績(jī)信息、課程名和學(xué)生名。輸入：課程編號(hào)和學(xué)號(hào)。處理：1)獲取課程名稱(chēng)和學(xué)號(hào)，得到多表查詢(xún)的 SQL 語(yǔ)句。2)執(zhí)行查詢(xún)得到結(jié)果集。3)從結(jié)果集中讀取各個(gè)字段的值并顯示出來(lái)。輸出：學(xué)生姓名、課程名稱(chēng)、考試成績(jī)。程序清單： Sub getScoreInfo() Dim rstScore As ADODB.Recordset從數(shù)據(jù)庫(kù)中讀

28、取成績(jī)相關(guān)信息并添加到窗體中的輸入框 sqlStr= “select name,course_name,coure_score fromcourseInfo,studentInfo,scoreInfo”&“wherescoreInfo.course_no= ”&cbocourseNo.text & “ ”& “AND scoreInfo.course_no=courseInfo.course_no”& “AND 河南工業(yè)職業(yè)技術(shù)學(xué)院 VB 大型作業(yè)- -24scoreInfo.stu_no=studentInfo.stu_no”& “AND sc

29、oreInfo.stu_no= ”& txtStuNo.Text & “ ” txtName=Trim(rstScore.Fields(“name”) txtCourseName.Text=trim(rstScore.Fields(“dourse_name”) txtScore.Text=Trim(rstScore.Fields(“course_score”)Else MsgBox “沒(méi)找到符合條件的數(shù)據(jù)！”,vbOKOnly+vbExclamation, “警告” Exit sub End If rstScore.CloseEnd sub(4)frmQueryScore 窗體

30、:private sub cmdOk_Click()功能：根據(jù)查詢(xún)條件查找成績(jī)信息。輸入：查詢(xún)方式和關(guān)鍵字。處理：1)獲取查詢(xún)方式和輸入的關(guān)鍵字。2)形成 SQL 語(yǔ)句，執(zhí)行 SQL 語(yǔ)句得到結(jié)果集。3)從結(jié)果集中讀取全部數(shù)據(jù)，并在表格中顯示出來(lái)。輸出：符合查詢(xún)條件的課程成績(jī)信息。河南工業(yè)職業(yè)技術(shù)學(xué)院 VB 大型作業(yè)- -25程序清單：Dim sqlstr1 As StringDim sqlcond1 As StringDim sqlcond2 As StringDim sqlcond3 As StringDim sign As BooleanSqlcond1= “”Sqlcond2= “”Sqlcond3= “”Sign=FalseSqlstr=”selectstudentInfo.stu_noasstuNo.studentI as stuName,”_&“courseInfo.course_nameascourseName,scoreInfo.course_score as score”&_ “from studentInfo,courseInfo,scoreInfo WHERE”檢查是否已選擇了查詢(xún)條件If chkOp(0).value1 And chkOp91).value1 And chkO