計(jì)算機(jī)專業(yè)本科畢業(yè)論文31259

1、東北師范大 學(xué) 本 科 生 畢 業(yè) 論 文（設(shè) 計(jì)） 題目：學(xué)生成績(jī)管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)學(xué) 號(hào)：001姓 名： 曹燕年 級(jí)： 1003學(xué) 院： 四川省仁壽縣教師進(jìn)修學(xué)校奧鵬學(xué)習(xí)中心24A專 業(yè)： 計(jì)算機(jī)科學(xué)與技術(shù)完成日期： 指導(dǎo)教師：  摘 要本系統(tǒng)全稱為學(xué)生成績(jī)管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)。根據(jù)開(kāi)發(fā)要求，它主要應(yīng)用于教育系統(tǒng)，完成對(duì)日常的教學(xué)、教務(wù)、教師以及學(xué)生的計(jì)算機(jī)化的管理。開(kāi)發(fā)學(xué)生成績(jī)管理系統(tǒng)可使學(xué)院教職員工減輕工作壓力，比較系統(tǒng)地對(duì)教務(wù)、教學(xué)上的各項(xiàng)服務(wù)和信息進(jìn)行管理，同時(shí)，可以減少勞動(dòng)力的使用，加快查詢速度、加強(qiáng)管理，以及國(guó)家各部門關(guān)于信息化的步伐，使各項(xiàng)管理更加

2、規(guī)范化。目前，學(xué)校工作繁雜、資料重多。目前，管理信息系統(tǒng)已進(jìn)入高校，但還未普及，而對(duì)于學(xué)生成績(jī)管理來(lái)說(shuō)，目前還沒(méi)有一套完整的、統(tǒng)一的系統(tǒng)。因此，開(kāi)發(fā)一套適和大眾的、兼容性好的系統(tǒng)是很有必要的。  系統(tǒng)管理內(nèi)容廣泛，全面涉及了教務(wù)教學(xué)上的各項(xiàng)服務(wù)，包括學(xué)生成績(jī)管理，其中有學(xué)生成績(jī)管理；學(xué)生管理等等。在開(kāi)發(fā)過(guò)程中，注意使其符合操作的業(yè)務(wù)流程，并力求系統(tǒng)的全面性、通用性，使得本系統(tǒng)不只適用于一家教育機(jī)構(gòu)。在開(kāi)發(fā)方法的選擇上，選擇了生命周期法與原型法相結(jié)合的方法，遵循系統(tǒng)調(diào)查研究、系統(tǒng)分析、系統(tǒng)設(shè)計(jì)和系統(tǒng)實(shí)施四個(gè)主要階段進(jìn)行設(shè)計(jì)，而在具體的設(shè)計(jì)上，采取了演化式原型法，隨著用戶的使用及對(duì)系統(tǒng)了

3、解的不斷加深，對(duì)某一部分或幾部分進(jìn)行重新分析、設(shè)計(jì)、實(shí)施。在開(kāi)發(fā)工具的選擇上，主要利用Delphi7.0 編程語(yǔ)言進(jìn)行開(kāi)發(fā)，使用其自帶的數(shù)據(jù)庫(kù)，從而保證了數(shù)據(jù)的完整性與一致性。本論文主要從系統(tǒng)分析、系統(tǒng)設(shè)計(jì)、系統(tǒng)實(shí)施與使用等幾個(gè)方面進(jìn)行介紹。 【關(guān)鍵詞】信息管理系統(tǒng) 信息化 成績(jī)管理 數(shù)據(jù)庫(kù) Delphi7.0AbstractThe name of our system is grade Management System. the system is mainly applied to education system which manageas the daily teaching ed

4、ucational administration and computeration of teachers and students. Developing grade Management System can not only ruduce the presure of the staff and systematically manage the service and information, but also decrease the use of labour force, accelerate the requiring speed, improve management, s

5、peed the pace of concernad national department autumated information retrieval to standardize the managements. Nowdays, the universities work are miscellaneous,especially in private ones.It's important to put the teachers' management on the table. Up to now, mamagement has come into universi

6、ties but not popularized. As for the teaching management, there is not a set of complete and unified system, so it's very necessary to develop a common,compatible one.  The system is wide and comprehensive in including most of the service items of teaching plans, such as grade management wh

7、ich refers to teaching plans, grade management, students management and so on. In developing procedure, we pursure the comprehensiveness and commomality of the system, so that it can not only be applied in one educational institution. In choosing the developing methods, we combine the life sycle app

8、roach and the prototype-based approach, approach in four main steps: system investigation, system analysis, system design and system implementation. AS to data design, evolutionary prototype-based approach is partialy adopted to reanalysize, redisign and reimplemate with the user's ever-increasi

9、ng understanding of the system. In choosing the developing tool, Delphi 7.0 programming language is employed. In line of its self-sustaining. to ensure the integratedness and consistency. This thesis mainly introduce the ideas of the analysizing ,designing ,implementing and application of this syste

10、m.目 錄1問(wèn)題定義41.1 工程概述41.2 經(jīng)濟(jì)目標(biāo)41.3 社會(huì)目標(biāo)41.4 工程規(guī)模42可行性分析42.1總體可行性分析42. 2業(yè)務(wù)流程分析52.3數(shù)據(jù)流程分析62.4數(shù)據(jù)存儲(chǔ)分析：實(shí)體聯(lián)系圖72.5系統(tǒng)功能模塊圖93需求分析103.1系統(tǒng)總體功能需求103.2系統(tǒng)主要模塊104概要設(shè)計(jì)1041系統(tǒng)方案確定104.2軟件結(jié)構(gòu)設(shè)計(jì)115詳細(xì)設(shè)計(jì)115.1 用到的建立數(shù)據(jù)庫(kù)的技術(shù)115.2 具體的數(shù)據(jù)庫(kù)表127全文總結(jié)198致 謝209參考文獻(xiàn)2110 附 錄221問(wèn)題定義1.1 工程概述 開(kāi)展該工程的原因由于現(xiàn)今的學(xué)生成績(jī)管理非常繁瑣，老師付出大量的工作時(shí)間，得到的效率很低。因此為提高

11、工作效率，減輕校方人員的工作負(fù)擔(dān)，決定開(kāi)發(fā)學(xué)生成績(jī)管理系統(tǒng)軟件。 該工程的基本目標(biāo)開(kāi)發(fā)此學(xué)生成績(jī)管理系統(tǒng)軟件，以供教學(xué)人員及操作者進(jìn)行學(xué)生成績(jī)管理，方便操作者隨時(shí)添加、查詢、修改等。為了我們提高軟件開(kāi)發(fā)的能力，學(xué)習(xí)SQL編程的技巧，提高工作設(shè)計(jì)思想，通過(guò)本次的工程開(kāi)發(fā)，開(kāi)發(fā)小組成員與輔助老師，能從中學(xué)習(xí)知識(shí)吸取經(jīng)驗(yàn)，再技術(shù)和軟件思想上同時(shí)得到鍛煉和提高，從而使總體水升到一個(gè)新的高度。1.2 經(jīng)濟(jì)目標(biāo)由于本學(xué)生成績(jī)開(kāi)發(fā)系統(tǒng)的主要背景在經(jīng)濟(jì)上不注重直接的經(jīng)濟(jì)收益，而是注重個(gè)人水平的提高和提高對(duì)所學(xué)知識(shí)的運(yùn)用。1.3 社會(huì)目標(biāo)本系統(tǒng)主要是由dephli7.0,Microsoft SQL Server

12、進(jìn)行設(shè)計(jì)開(kāi)發(fā)，此系統(tǒng)是基于客戶端/服務(wù)端的大型關(guān)系數(shù)據(jù)庫(kù)管理系統(tǒng)。 1.4 工程規(guī)模 該工程所需的時(shí)間一個(gè)人2個(gè)月即可以完成。2可行性分析2.1總體可行性分析由于本系統(tǒng)管理的對(duì)象單一,都是在校學(xué)生，且每個(gè)數(shù)據(jù)內(nèi)容具有較強(qiáng)的關(guān)聯(lián)性，涉及的計(jì)算過(guò)程不是很復(fù)雜。因此，比較適合于采用數(shù)據(jù)庫(kù)管理。且學(xué)校用于學(xué)生管理的都是個(gè)人計(jì)算機(jī)，在存儲(chǔ)量、速度方面都能滿足數(shù)據(jù)庫(kù)運(yùn)行的要求。在技術(shù)難度方面，由于有指導(dǎo)老師的指導(dǎo)和相關(guān)參考文獻(xiàn)，特別是網(wǎng)上資料，特別是參考其它程序的功能，因此完全可以實(shí)現(xiàn)。本系統(tǒng)的設(shè)計(jì)是在Windows xp中文版操作系統(tǒng)環(huán)境下，使用 delphi 7.0中文版開(kāi)發(fā)成功的。數(shù)據(jù)庫(kù)是MIS中的

13、重要支持技術(shù)，在MIS開(kāi)發(fā)過(guò)程中，如何選擇數(shù)據(jù)庫(kù)管理是一個(gè)重要的問(wèn)題，目前，數(shù)據(jù)庫(kù)產(chǎn)品較多，每種產(chǎn)品都具有各自的特點(diǎn)和適用范圍，因此，在選擇數(shù)據(jù)庫(kù)時(shí)，應(yīng)考慮數(shù)據(jù)庫(kù)應(yīng)用的特點(diǎn)及適用范圍，本系統(tǒng)選用的數(shù)據(jù)庫(kù)語(yǔ)言介紹如下：于是選擇了美國(guó) Borland 公司推出的 Delphi7.0 開(kāi)發(fā)工具。在pc機(jī)數(shù)據(jù)庫(kù)系統(tǒng)xbase家族中，Delphi 是第一個(gè)全面支持面向?qū)ο蟪绦蛟O(shè)計(jì)的數(shù)據(jù)庫(kù)語(yǔ)言工具。Delphi推出了7.0版本，它的主要特點(diǎn)有： 1.強(qiáng)大的查詢與管理功能2.強(qiáng)大的數(shù)據(jù)庫(kù)開(kāi)發(fā)功能3.擴(kuò)大了對(duì)SQL語(yǔ)言的支持4.大量使用可視化的界面操作工具5.支持面向?qū)ο蟮某绦蛟O(shè)計(jì)6.多平臺(tái)支持7.支持網(wǎng)絡(luò)應(yīng)

14、用2. 2業(yè)務(wù)流程分析成績(jī)管理業(yè)務(wù)流程圖： 教務(wù)處輸入計(jì)算機(jī)教師教務(wù)處學(xué)生成績(jī)教師輸出計(jì)算機(jī)機(jī) 圖2-1教務(wù)處輸入計(jì)算機(jī)班主任教務(wù)處學(xué)生班級(jí)班級(jí)輸出輸出計(jì)算機(jī)圖2-22.3數(shù)據(jù)流程分析數(shù)據(jù)流程圖下面我們?cè)敿?xì)的介紹學(xué)生成績(jī)管理模塊的數(shù)據(jù)流圖。學(xué)籍管理部門教師學(xué)生成績(jī)管理系統(tǒng)教務(wù)處學(xué)生教師教師學(xué)生情況學(xué)生成績(jī)查詢統(tǒng)計(jì)分析圖2-3學(xué)生成績(jī)管理系統(tǒng)的0層數(shù)據(jù)流圖管理部門教務(wù)處教師1.0學(xué)生管理2.0課程管理3.0成績(jī)管理4.0統(tǒng)計(jì)分析D1D2D3查詢者管理者學(xué)生課程成績(jī) 圖2-4學(xué)生成績(jī)管理系統(tǒng)1層數(shù)據(jù)流程圖2.4數(shù)據(jù)存儲(chǔ)分析：實(shí)體聯(lián)系圖1、數(shù)據(jù)模型設(shè)計(jì)。首先來(lái)做出學(xué)生成績(jī)管理系統(tǒng)的E-R圖，分析這個(gè)

15、問(wèn)題的實(shí)體，從系統(tǒng)分析可以知道，學(xué)生的成績(jī)是由任課教師按照課程給出的，學(xué)生、課程、教師組成了這個(gè)系統(tǒng)的三個(gè)實(shí)體。2、再分析三個(gè)實(shí)體之間的聯(lián)系。首先，這三個(gè)實(shí)體不是一個(gè)統(tǒng)一體，學(xué)生成績(jī)與教師沒(méi)有內(nèi)在聯(lián)系，教師必須通過(guò)課程實(shí)體才能與學(xué)生建立聯(lián)系，因而先不考慮。課程與學(xué)生這兩個(gè)實(shí)體是多對(duì)多聯(lián)系；一位學(xué)生要學(xué)習(xí)多門課程，一門課程有多位學(xué)生共同學(xué)習(xí)。而學(xué)習(xí)成績(jī)是這兩個(gè)實(shí)體“學(xué)生”和“成績(jī)”共有的屬性，應(yīng)填在二者的聯(lián)系“學(xué)習(xí)”邊。因?yàn)槌煽?jī)既不是學(xué)生獨(dú)有的，也不是課程獨(dú)有的；“學(xué)生甲70分”或“英語(yǔ)70分”是不完全的，說(shuō)“學(xué)生甲英語(yǔ)70分”才是正確的，因?yàn)?0分是學(xué)生甲和英語(yǔ)課二者共有的。這個(gè)E-R圖可畫成

16、下圖。學(xué)生課程成績(jī)學(xué)習(xí)mn 圖2-5學(xué)生成績(jī)管理系統(tǒng)中學(xué)生與課程的E-R圖教師與課程這兩個(gè)實(shí)體之間，是一對(duì)多聯(lián)系；一位教師可以都多門課程，而一門課程對(duì)于學(xué)生成績(jī)來(lái)說(shuō)只能有一位教師(英語(yǔ)、高等數(shù)學(xué)有多位教師教，但對(duì)某個(gè)固定的學(xué)生來(lái)說(shuō)只能有一位教師)。其E-R圖，如下所示。n教師課程教學(xué)l 圖2-6教師與課程的E-R圖組合到一起，得到最后的E-R圖，有了E-R圖，就可以設(shè)計(jì)數(shù)據(jù)庫(kù)。下圖為數(shù)據(jù)模型圖。學(xué)生課程教師學(xué)習(xí)學(xué)習(xí)課程學(xué)生教師實(shí)體模型數(shù)據(jù)模型數(shù)據(jù)庫(kù)lnmm學(xué)習(xí)圖2-72.5系統(tǒng)功能模塊圖 學(xué)生成績(jī)管理系統(tǒng)成績(jī)管理模塊成績(jī)查詢模塊系統(tǒng)維護(hù)模塊修改用戶權(quán)限添加學(xué)生的成績(jī)成績(jī)打印模塊修改學(xué)生的成績(jī)刪

17、除學(xué)生的成績(jī)刪除用戶修改密碼添加新用戶打印到表excel學(xué)生成績(jī)分析學(xué)生成績(jī)統(tǒng)計(jì)查詢學(xué)生的信息查詢學(xué)生的考試成績(jī)?yōu)g覽學(xué)生的成績(jī)圖2-83需求分析3.1系統(tǒng)總體功能需求通過(guò)調(diào)查,要求系統(tǒng)需要有以下功能: 由于操作人員的計(jì)算機(jī)知識(shí)普遍較差,要求有良好的人機(jī)界面; 由于該系統(tǒng)的使用對(duì)象多,要求有較好的權(quán)限管理; 原始數(shù)據(jù)修改簡(jiǎn)單方便,支持多條件修改 方便的數(shù)據(jù)查詢，支持多條件查詢; 在相應(yīng)的權(quán)限下，刪除數(shù)據(jù)方便簡(jiǎn)單，數(shù)據(jù)穩(wěn)定性好； 數(shù)據(jù)計(jì)算自動(dòng)完成，盡量減少人工干預(yù);3.2系統(tǒng)主要模塊 學(xué)生查詢模塊TRL+A)查詢學(xué)生的信息，具體是學(xué)生的學(xué)號(hào)、姓名、年齡，家庭地址，家庭電話等和查詢各個(gè)課程的考試情況

18、成績(jī)打印(CTRL+B)管理學(xué)生的成績(jī)報(bào)表的打印以及打印報(bào)表的整理、維護(hù)、保存等。成績(jī)管理模塊（CTRL+C）學(xué)校的成績(jī)管理工作是檢驗(yàn)學(xué)生學(xué)習(xí)情況的一個(gè)主要手段，本模塊包，設(shè)置了成績(jī)添加、成績(jī)游覽、成績(jī)查詢等功能模塊。4概要設(shè)計(jì)41系統(tǒng)方案確定通過(guò)對(duì)系統(tǒng)的調(diào)研與分析，系統(tǒng)主要應(yīng)完成的功能有：學(xué)生成績(jī)管理、課程管理、成績(jī)管理、系統(tǒng)管理，成績(jī)查詢，成績(jī)打印。4.2軟件結(jié)構(gòu)設(shè)計(jì)主程序系統(tǒng)模塊數(shù)據(jù)維護(hù)模塊數(shù)據(jù)瀏覽模塊成績(jī)管理模塊修改密碼退出修改搜索刪除瀏覽打印輸入統(tǒng)計(jì)分析 圖 4-1數(shù)據(jù)維護(hù)模塊包括對(duì)學(xué)生信息表、課程信息表、考生成績(jī)表的插入、修改、刪除、搜索等。數(shù)據(jù)瀏覽模塊 包括對(duì)學(xué)生信息表、課程信息

19、表、考生成績(jī)表的選擇瀏覽、打印。成績(jī)管理模塊包括對(duì)學(xué)生成績(jī)的輸入，總分和單課的統(tǒng)計(jì)和排名，分析各分?jǐn)?shù)段人數(shù)的分布情況。5詳細(xì)設(shè)計(jì)5.1 用到的建立數(shù)據(jù)庫(kù)的技術(shù)數(shù)據(jù)庫(kù)采用了Microsoft推出的SQL數(shù)據(jù)庫(kù)，這是微軟的一個(gè)大型數(shù)據(jù)庫(kù)，可以方便的進(jìn)行數(shù)據(jù)庫(kù)的連接。在數(shù)據(jù)庫(kù)里建一個(gè)數(shù)據(jù)庫(kù)，名字取為student, student里有三個(gè)表，學(xué)生信息表，課程信息表，考生成績(jī)表，用戶表5.2 具體的數(shù)據(jù)庫(kù)表 通過(guò)對(duì)成績(jī)管理系統(tǒng)的分析，系統(tǒng)應(yīng)設(shè)計(jì)以下主要實(shí)體kj（課程表）字段名稱類型寬度小數(shù)位課程號(hào)整形10課程名文本50考試類別文本10課程類別文本10開(kāi)課學(xué)期文本10學(xué)分單精度型數(shù)字自動(dòng)Xf(學(xué)生信息表

20、)字段名稱類型寬度小數(shù)位學(xué)號(hào)整型16姓名文本20年齡整型5院系文本8專業(yè)文本16出生日期文本8備注備注 Cj(成績(jī)表)字段名稱類型寬度小數(shù)位學(xué)號(hào)整型16姓名文本12課程號(hào)整型8課程名稱文本50分?jǐn)?shù)浮點(diǎn)20開(kāi)課學(xué)期日期型10排名整型20Use表：字段名稱類型寬度小數(shù)位username文本20password文本20Admin文本2Readonly文本2學(xué)生E-R圖：學(xué)生 出生日期姓名學(xué)號(hào)院系專業(yè)年齡圖 5-1課程E-R圖：課程開(kāi)課學(xué)期考試類別課程名學(xué)分課程號(hào)開(kāi)課類別圖 5-25.3主要的模塊登陸模塊 本界面的主要功能是為了對(duì)系統(tǒng)進(jìn)行安全性管理，本系統(tǒng)的用戶名和密碼保存在USE表中，本系統(tǒng)根據(jù)不同

21、的用戶而設(shè)置了不同的權(quán)限，可以用zhangsan，登陸本系統(tǒng)。圖 5-3主界面圖 5-4查詢模塊（可以方便的查詢到學(xué)生的基本信息，選課信息）查詢到學(xué)生的基本信息圖 5-5圖 5-6添加，刪除，修改，保存模塊（該模塊可以方便的對(duì)學(xué)生的成績(jī)進(jìn)行處理）圖 5-7打印模塊（把學(xué)生的數(shù)據(jù)從學(xué)生成績(jī)管理系統(tǒng)打印到excel中）圖 5-87全文總結(jié)在本系統(tǒng)的開(kāi)發(fā)過(guò)程中，由于本人是初次開(kāi)發(fā)軟件，在知識(shí)、經(jīng)驗(yàn)方面都存在著不足。另外，在整個(gè)開(kāi)發(fā)的過(guò)程中，時(shí)間也比較倉(cāng)促。因此，該系統(tǒng)必然會(huì)存在一些缺陷和不足。因?yàn)閷?duì)學(xué)生成績(jī)管理的整個(gè)流程不夠熟悉，在需求分析時(shí)未能做到完全滿足用戶的需求。雖然網(wǎng)絡(luò)在學(xué)生管理系統(tǒng)中的應(yīng)用

22、很多，因此是未來(lái)的發(fā)展方向，在本次開(kāi)發(fā)過(guò)程由于硬件的限制，實(shí)現(xiàn)網(wǎng)絡(luò)的基本功能，因此在以后的系統(tǒng)更新過(guò)程中可能會(huì)造成一些不必要的數(shù)據(jù)損失。盡管本管理系統(tǒng)存在著很多不足，但其功能全面、易于日后程序更新、數(shù)據(jù)庫(kù)管理容易、界面友好、操作方便、效率高、安全性好等優(yōu)點(diǎn)是本管理系統(tǒng)所必需的。相信本學(xué)生成績(jī)系統(tǒng)是一套學(xué)校在日常管理中必不可少的管理軟件，通過(guò)開(kāi)發(fā)這個(gè)系統(tǒng)，我掌握了的項(xiàng)本過(guò)程，了解了的基本知識(shí)鞏固了我對(duì)delphi 7.0和SQL2000畢業(yè)設(shè)計(jì)中的最大收獲并不是掌握這幾門開(kāi)發(fā)工具的應(yīng)用，而是學(xué)會(huì)了設(shè)計(jì)系統(tǒng)的思維方法。 8致 謝 本次畢業(yè)設(shè)計(jì)是在王厚淳老師的悉心指導(dǎo)和熱心幫助下完成的。王厚淳老師認(rèn)

23、真負(fù)責(zé)的工作制度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論水平都使我收益匪淺。他無(wú)論在理論上還是在實(shí)踐中都給我很大的鼓勵(lì)和指導(dǎo)，使我得到不少的提高，這對(duì)于我以后的工作和學(xué)習(xí)都有很大的幫助。沒(méi)有王厚淳老師的關(guān)心和幫助，我的課題是不可能順利完成的，特此對(duì)王厚淳導(dǎo)師表示真誠(chéng)的感謝。9參考文獻(xiàn)1 周佩德.數(shù)據(jù)庫(kù)原理及應(yīng)用.電子工業(yè)出版社2劉明等，delphi程序設(shè)計(jì)數(shù)據(jù)庫(kù)篇，19993 李光明.Delphi6.0編程實(shí)例大制作.冶金工業(yè)出版社4，劉明 精通DELPHI6.0入門與提高，人民郵電出版社5 李紅等編著，成績(jī)管理系統(tǒng)開(kāi)發(fā)與應(yīng)用，電子工業(yè)出版社，20036張海藩著，軟件工程，清華大學(xué)出版社，20057 康博

24、工作室，張紅軍，王紅等編著Dephli6.0中文版高級(jí)應(yīng)用與開(kāi)發(fā)指南，人民郵電出版社，2005年4月第3版8 sql2000編程 清華大學(xué)出版社10 附 錄部分代碼：Private Sub Command1_Click()Dim mrc As ADODB.Recordsettxtsql = "select username from use where username='" & Trim(Text1.Text) & "'"Set mrc = ExecuteSQL(txtsql)If mrc.EOF = True Then

25、 MsgBox " 用戶名錯(cuò)誤！", vbExclamation + vbOKOnly, "警告" Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) Exit SubEnd Ifusername = mrc.Fields(0)txtsql2 = "select username from use where password='" & Trim(Text2.Text) & "'"Set mrc =

26、ExecuteSQL(txtsql2)If mrc.EOF = True Then MsgBox " 密碼錯(cuò)誤！", vbExclamation + vbOKOnly, "警告" Text2.SetFocus Text2.SelStart = 0 Text2.SelLength = Len(Text2.Text) Exit SubEnd Iftxtsql = "select username from use where username='" & Trim(Text1.Text) & "'a

27、nd password='" & Trim(Text2.Text) & "'"Set mrc = ExecuteSQL(txtsql)If mrc.EOF = True Then MsgBox "用戶名稱和密碼不匹配！", vbExclamation + vbOKOnly, "警告" Exit SubEnd IfMDIForm1.Showfrmcpass.Text1.Text = Text1.TextUnload MeEnd SubPrivate Sub Command2_Click()Unl

28、oad MeEnd SubPrivate Sub Form_Load()End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then Text2.SetFocusEnd IfEnd SubPrivate Sub Text2_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then Command1.SetFocusEnd IfEnd Sub end if W_sturesearch.open():dw_1.settransobject(sqlca)dw_1.re

29、trieve()/有關(guān)窗口居中的代碼這里從略，請(qǐng)參考其他模塊。Cbx_1.clicked()/復(fù)選框的第一個(gè)選項(xiàng)被選單擊時(shí)的事件代碼： st_1.text=”請(qǐng)輸入學(xué)號(hào)：”cbx_2.checked=falsecbx_3.checked=falsecbx_4.checked=falsecbx_5.checked=falsesle_1.setfocus()Cbx_2.clicked(),cbx_3.clicked()，cbx_4.clicked(),cbx_5.clicked()的代碼可參考cbx_1.clicked()4.sle_1.getfocus(): this.text=” “5.sle

30、_1.modified(): if cbx_1.checked=true then dw_1.setfilter(“student_sno=”+sle_1.text+”) dw_1.filter()end if if cbx_2.checked=true thendw_1.setfilter(“student_sname=”+sle_1.text+”) dw_1.filter()end ifif cbx_3.checked=true thendw_1.setfilter(“student_classno=”+sle_1.text+”) dw_1.filter()end ifif cbx_4.c

31、hecked=true then dw_1.setfilter(“class_classname=”+sle_1.text+”) dw_1.filter()end if if cbx_5.checked=true then dw_1.setfilter(“class_department=”+sle_1.text+”) dw_1.filter()end if if dw_1.rowcount()=0 then messagebox(“注意!”,”記錄為空?！?end if 退出的代碼Private Sub CmdExt_Click() Unload MeEnd Sub刪除的代碼Private

32、Sub CmdDel_Click()If ID.Text <> "" Then TID = CInt(ID.Text) If MsgBox("你確定要?jiǎng)h除該行記錄嗎？", vbYesNo) = vbYes Then sql = "delete from T_Invoice where id=" & TID 'MsgBox sql Set conn = New ADODB.Connection Set rs = New ADODB.Recordset conn.ConnectionString = "

33、;Provider=SQLOLEDB.1;Persist Security Info=False;User ID=SA;Initial Catalog=DLFP;Data Source=127.0.0.1" conn.Open Set rs = conn.Execute(sql) MsgBox "數(shù)據(jù)刪除成功，請(qǐng)按確定返回！" Adodc.Refresh MSFMainFrm.Refresh Call SetText End IfElse MsgBox "你沒(méi)有選中要?jiǎng)h除的記錄！"End Sub保存的代碼rivate Sub CmdSave_C

34、lick()On Error GoTo Err:Set conn = New ADODB.ConnectionSet rs = New ADODB.Recordsetconn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=SA;Initial Catalog=DLFP;Data Source=127.0.0.1"conn.OpenIf (ID.Text = "") Then sMakeDate = CDate(Mid(MakeDate.Text, 1

35、, 8) Call SqlReady sql = "insert into T_Invoice values('" & sUserID & "', '" & sUserName & "','" & sCallUnit & "', '" & sMaintenanceUnit & "'," sql = sql + "'" & sInsta

36、llUnit & "','" & sMoveUnit & "'," & sCallNum & "," & sMaintenanceNum & "," sql = sql + "" & sInstallNum & "," & sMoveNum & "," & sCallUnitPrice & ", " &

37、 sMaintenanceUnitPrice & "," sql = sql + "" & sInstallUnitPrice & "," & sMoveUnitPrice & ",'" & sMakeInvoicePerson & "','" & sPayee & "', convert(Char(20), '" & sMakeDate & &qu

38、ot;', 20) ,'" & sMemo & "')" 'MsgBox sql Set rs = conn.Execute(sql) MsgBox "數(shù)據(jù)增加成功，點(diǎn)擊確定返回操作界面！" Adodc.Refresh MSFMainFrm.Refresh Call LockControl 'Rs.Close Set rs = Nothing Call SetTextElse Call SqlReady TID = CInt(Trim(ID.Text) MakeDate.Locked =

39、True sql = "update T_Invoice" sql = sql + " set Userid=" + "'" & sUserID & "'," sql = sql + "UserName=" + "'" & sUserName & "'," sql = sql + "CallUnit=" + "'" & sCallUnit

40、 & "'," sql = sql + "MaintenanceUnit=" + "'" & sMaintenanceUnit & "'," sql = sql + "InstallUnit =" + "'" & sInstallUnit & "'," sql = sql + "MoveUnit=" + "'" & sMo

41、veUnit & "'," sql = sql + "CallNum=" + "" & sCallNum & "," sql = sql + "MaintenanceNum=" + "" & sMaintenanceNum & "," sql = sql + "InstallNum =" + "" & sInstallNum & ","

42、; sql = sql + "MoveNum=" + "" & sMoveNum & "," sql = sql + "CallUnitPrice=" + "" & sCallUnitPrice & "," sql = sql + "MaintenanceUnitPrice=" + "" & sMaintenanceUnitPrice & "," sql = sql +

43、 "InstallUnitPrice=" + "" & sInstallUnitPrice & "," sql = sql + "MoveUnitPrice=" + "" & sMoveUnitPrice & "," sql = sql + "MakeInvoicePerson=" + "'" & sMakeInvoicePerson & "'," sql = sql + "Payee=" + "'" & sPayee & "'," sql = sql + "Memo=" + "'" & sMemo