《計算機(jī)專業(yè)本科畢業(yè)論文》由會員分享，可在線閱讀，更多相關(guān)《計算機(jī)專業(yè)本科畢業(yè)論文（19頁珍藏版）》請在裝配圖網(wǎng)上搜索。

1、. - 東北師大 學(xué) 本 科 生 畢 業(yè) 論 文〔設(shè)計〕 題目：學(xué)生成績管理系統(tǒng)設(shè)計與實現(xiàn) **：001 **：燕 年級：1003 學(xué)院：省仁壽縣教師進(jìn)修學(xué)校奧鵬學(xué)習(xí)中心[24]A 專業(yè)：計算機(jī)科學(xué)與技術(shù) 完成日期： 指導(dǎo)教師： 摘 要 本系統(tǒng)全稱為學(xué)生成

2、績管理系統(tǒng)設(shè)計與實現(xiàn)。根據(jù)開發(fā)要求，它主要應(yīng)用于教育系統(tǒng)，完成對日常的教學(xué)、教務(wù)、教師以及學(xué)生的計算機(jī)化的管理。開發(fā)學(xué)生成績管理系統(tǒng)可使學(xué)院教職員工減輕工作壓力，比較系統(tǒng)地對教務(wù)、教學(xué)上的各項效勞和信息進(jìn)展管理，同時，可以減少勞動力的使用，加快查詢速度、加強(qiáng)管理，以及國家各部門關(guān)于信息化的步伐，使各項管理更加規(guī)化。目前，學(xué)校工作繁雜、資料重多。目前，管理信息系統(tǒng)已進(jìn)入高校，但還未普及，而對于學(xué)生成績管理來說，目前還沒有一套完整的、統(tǒng)一的系統(tǒng)。因此，開發(fā)一套適和群眾的、兼容性好的系統(tǒng)是很有必要的。 系統(tǒng)管理容廣泛，全面涉及了教務(wù)教學(xué)上的各項效勞，包括學(xué)生成績管理，其中有學(xué)生成績管理；學(xué)生管理等

3、等。在開發(fā)過程中，注意使其符合操作的業(yè)務(wù)流程，并力求系統(tǒng)的全面性、通用性，使得本系統(tǒng)不只適用于一家教育機(jī)構(gòu)。在開發(fā)方法的選擇上，選擇了生命周期法與原型法相結(jié)合的方法，遵循系統(tǒng)調(diào)查研究、系統(tǒng)分析、系統(tǒng)設(shè)計和系統(tǒng)實施四個主要階段進(jìn)展設(shè)計，而在具體的設(shè)計上，采取了演化式原型法，隨著用戶的使用及對系統(tǒng)了解的不斷加深，對*一局部或幾局部進(jìn)展重新分析、設(shè)計、實施。在開發(fā)工具的選擇上，主要利用Delphi7.0編程語言進(jìn)展開發(fā)，使用其自帶的數(shù)據(jù)庫，從而保證了數(shù)據(jù)的完整性與一致性。本論文主要從系統(tǒng)分析、系統(tǒng)設(shè)計、系統(tǒng)實施與使用等幾個方面進(jìn)展介紹。 【關(guān)鍵詞】信息管理系統(tǒng) 信息化 成績管理 數(shù)據(jù)庫 Delp

4、hi7.0 Abstract The name of our system is grade Management System. the system is mainly applied to education system which manageas the daily teaching educational administration and puteration of teachers and students. Developing grade Management System can not only ruduce the presure of the staff a

5、nd systematically manage the service and information, but also decrease the use of labour force, accelerate the requiring speed, improve management, speed the pace of concernad national department autumated information retrieval to standardize the managements. Nowdays, the universities work are misc

6、ellaneous,especially in private ones.It's important to put the teachers' management on the table. Up to now, mamagement has e into universities but not popularized. As for the teaching management, there is not a set of plete and unified system, so it's very necessary to develop a mon,patible one. ?

7、 The system is wide and prehensive in including most of the service items of teaching plans, such as grade management which refers to teaching plans, grade management, students management and so on. In developing procedure, we pursure the prehensiveness and momality of the system, so that it can not

8、 only be applied in one educational institution. In choosing the developing methods, we bine the life sycle approach and the prototype-based approach, approach in four main steps: system investigation, system analysis, system design and system implementation. AS to data design, evolutionary prototyp

9、e-based approach is partialy adopted to reanalysize, redisign and reimplemate with the user's ever-increasing 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

10、thesis mainly introduce the ideas of the analysizing ,designing ,implementing and application of this system. 目 錄 1問題定義4 1.1 工程概述4 1.2 經(jīng)濟(jì)目標(biāo)4 1.3 社會目標(biāo)4 1.4 工程規(guī)模4 2可行性分析4 2.1總體可行性分析4 2. 2業(yè)務(wù)流程分析5 2.3數(shù)據(jù)流程分析6 2.4數(shù)據(jù)存儲分析：實體聯(lián)系圖7 2.5系統(tǒng)功能模塊圖9 3需求分析10 3.1系統(tǒng)總體功能需求10 3.2系統(tǒng)主要模塊10 4概要設(shè)計10 4．1

11、系統(tǒng)方案確定10 4.2軟件構(gòu)造設(shè)計11 5詳細(xì)設(shè)計11 5.1 用到的建立數(shù)據(jù)庫的技術(shù)11 5.2 具體的數(shù)據(jù)庫表12 7全文總結(jié)19 8致20 9參考文獻(xiàn)21 10 附錄22 1問題定義 1.1 工程概述 開展該工程的原因 由于現(xiàn)今的學(xué)生成績管理非常繁瑣，教師付出大量的工作時間，得到的效率很低。因此為提高工作效率，減輕校方人員的工作負(fù)擔(dān)，決定開發(fā)學(xué)生成績管理系統(tǒng)軟件?！　? 該工程的根本目標(biāo) 開發(fā)此學(xué)生成績管理系統(tǒng)軟件，以供教學(xué)人員及操作者進(jìn)展學(xué)生成績管理，方便操作者隨時添加、查詢、修改等。為了我們提高軟件開發(fā)的能力，學(xué)習(xí)SQL編程的技巧，提高工作設(shè)計思想

12、，通過本次的工程開發(fā)，開發(fā)小組成員與輔助教師，能從中學(xué)習(xí)知識吸取經(jīng)歷，再技術(shù)和軟件思想上同時得到鍛煉和提高，從而使總體水升到一個新的高度。 1.2 經(jīng)濟(jì)目標(biāo) 由于本學(xué)生成績開發(fā)系統(tǒng)的主要背景在經(jīng)濟(jì)上不注重直接的經(jīng)濟(jì)收益，而是注重個人水平的提高和提高對所學(xué)知識的運(yùn)用。 1.3 社會目標(biāo) 本系統(tǒng)主要是由dephli7.0,Microsoft SQL Server進(jìn)展設(shè)計開發(fā)，此系統(tǒng)是基于客戶端/效勞端的大型關(guān)系數(shù)據(jù)庫管理系統(tǒng)。 1.4 工程規(guī)模 該工程所需的時間一個人2個月即可以完成。 2可行性分析 2.1總體可行性分析 由于本系統(tǒng)管理的對象單一,都是在校學(xué)生，且每個數(shù)據(jù)容具有較

13、強(qiáng)的關(guān)聯(lián)性，涉及的計算過程不是很復(fù)雜。因此，比較適合于采用數(shù)據(jù)庫管理。且學(xué)校用于學(xué)生管理的都是個人計算機(jī)，在存儲量、速度方面都能滿足數(shù)據(jù)庫運(yùn)行的要求。在技術(shù)難度方面，由于有指導(dǎo)教師的指導(dǎo)和相關(guān)參考文獻(xiàn)，特別是網(wǎng)上資料，特別是參考其它程序的功能，因此完全可以實現(xiàn)。 本系統(tǒng)的設(shè)計是在Windows *p中文版操作系統(tǒng)環(huán)境下，使用 delphi 7.0中文版開發(fā)成功的。數(shù)據(jù)庫是MIS中的重要支持技術(shù)，在MIS開發(fā)過程中，如何選擇數(shù)據(jù)庫管理是一個重要的問題，目前，數(shù)據(jù)庫產(chǎn)品較多，每種產(chǎn)品都具有各自的特點和適用圍，因此，在選擇數(shù)據(jù)庫時，應(yīng)考慮數(shù)據(jù)庫應(yīng)用的特點及適用圍，本系統(tǒng)選用的數(shù)據(jù)庫語言介紹如下：

14、 于是選擇了美國 Borland 公司推出的 Delphi7.0 開發(fā)工具。在pc機(jī)數(shù)據(jù)庫系統(tǒng)*base家族中，Delphi是第一個全面支持面向?qū)ο蟪绦蛟O(shè)計的數(shù)據(jù)庫語言工具。Delphi推出了7.0版本，它的主要特點有： 1.強(qiáng)大的查詢與管理功能 2.強(qiáng)大的數(shù)據(jù)庫開發(fā)功能 3.擴(kuò)大了對SQL語言的支持 4.大量使用可視化的界面操作工具 5.支持面向?qū)ο蟮某绦蛟O(shè)計 6.多平臺支持 7.支持網(wǎng)絡(luò)應(yīng)用 2. 2業(yè)務(wù)流程分析 成績管理業(yè)務(wù)流程圖： 教務(wù)處 輸入計算機(jī) 教師 教務(wù)處 學(xué)生 成績 教師 輸出計算機(jī)機(jī) 圖2-1 教務(wù)處 輸入計算機(jī) 班主任

15、教務(wù)處 學(xué)生 班級 班級 輸出 輸出計算機(jī) 圖2-2 2.3數(shù)據(jù)流程分析 數(shù)據(jù)流程圖 下面我們詳細(xì)的介紹學(xué)生成績管理模塊的數(shù)據(jù)流圖。 學(xué)籍管理部門 教師 學(xué)生成績管理系統(tǒng) 教務(wù)處 學(xué)生 教師 教師 學(xué)生情況 學(xué)生成績 查詢 統(tǒng)計分析 圖2-3 學(xué)生成績管理系統(tǒng)的0層數(shù)據(jù)流圖 管理 部門 教務(wù)處 教師 1.0 學(xué)生管理 2.0 課程管理 3.0 成績管理 4.0 統(tǒng)計分析 D1 D2 D3 查詢者 管理者 學(xué)生 課程 成績

16、 圖2-4 學(xué)生成績管理系統(tǒng)1層數(shù)據(jù)流程圖 2.4數(shù)據(jù)存儲分析：實體聯(lián)系圖 1、數(shù)據(jù)模型設(shè)計。首先來做出學(xué)生成績管理系統(tǒng)的E-R圖，分析這個問題的實體，從系統(tǒng)分析可以知道，學(xué)生的成績是由任課教師按照課程給出的，學(xué)生、課程、教師組成了這個系統(tǒng)的三個實體。 2、再分析三個實體之間的聯(lián)系。首先，這三個實體不是一個統(tǒng)一體，學(xué)生成績與教師沒有在聯(lián)系，教師必須通過課程實體才能與學(xué)生建立聯(lián)系，因而先不考慮。課程與學(xué)生這兩個實體是多對多聯(lián)系；一位學(xué)生要學(xué)習(xí)多門課程，一門課程有多位學(xué)生共同學(xué)習(xí)。而學(xué)習(xí)成績是這兩個實體"學(xué)生〞和"成績〞共有的屬性，應(yīng)填在二者的聯(lián)系"學(xué)習(xí)〞邊。因為成績既不

17、是學(xué)生獨有的，也不是課程獨有的；"學(xué)生甲70分〞或"英語70分〞是不完全的，說"學(xué)生甲英語70分〞才是正確的，因為70分是學(xué)生甲和英語課二者共有的。這個E-R圖可畫成以下圖。 學(xué)生 課程 成績 學(xué)習(xí) m n 圖2-5 學(xué)生成績管理系統(tǒng)中學(xué)生與課程的E-R圖 教師與課程這兩個實體之間，是一對多聯(lián)系；一位教師可以都多門課程，而一門課程對于學(xué)生成績來說只能有一位教師(英語、高等數(shù)學(xué)有多位教師教，但對*個固定的學(xué)生來說只能有一位教師)。其E-R圖，如下所示。 n 教師 課程 教學(xué) l

18、 圖2-6 教師與課程的E-R圖組合到一起，得到最后的E-R圖，有了E-R圖，就可以設(shè)計數(shù)據(jù)庫。以下圖為數(shù)據(jù)模型圖。 學(xué)生 課程 教師 學(xué)習(xí) 學(xué)習(xí) 課程 學(xué)生 教師 實體模型 數(shù)據(jù)模型 數(shù)據(jù)庫 l n m m 學(xué)習(xí) 圖2-7 2.5系統(tǒng)功能模塊圖 學(xué)生成績管理系統(tǒng) 成績管理模塊 成績查詢模塊 系統(tǒng)維護(hù)模塊 修改用戶權(quán)限 添加學(xué)生的成績 成績打印模塊 修改學(xué)生的成績 刪除學(xué)生的成績 刪除用戶 修改密碼 添加 新 用戶 打印到 表e * c e l 學(xué)生成

19、績分析 學(xué)生成績 統(tǒng)計 查詢學(xué)生的信息 查詢學(xué)生的考試成績 瀏覽學(xué)生的成績 圖2-8 3需求分析 3.1系統(tǒng)總體功能需求 通過調(diào)查,要求系統(tǒng)需要有以下功能: ⑴由于操作人員的計算機(jī)知識普遍較差,要求有良好的人機(jī)界面; ⑵由于該系統(tǒng)的使用對象多,要求有較好的權(quán)限管理; ⑶原始數(shù)據(jù)修改簡單方便,支持多條件修改 ⑷方便的數(shù)據(jù)查詢，支持多條件查詢; ⑸在相應(yīng)的權(quán)限下，刪除數(shù)據(jù)方便簡單，數(shù)據(jù)穩(wěn)定性好； ⑹數(shù)據(jù)計算自動完成，盡量減少人工干預(yù); 3.2系統(tǒng)主要模塊 學(xué)生查詢模塊TRL+A) 查詢學(xué)生的信息，具體是學(xué)生的**、、年齡，家庭地址，家庭等和查詢各個課程的

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

21、模塊 包括對學(xué)生信息表、課程信息表、考生成績表的插入、修改、刪除、搜索等。 數(shù)據(jù)瀏覽模塊 包括對學(xué)生信息表、課程信息表、考生成績表的選擇瀏覽、打印。 成績管理模塊 包括對學(xué)生成績的輸入，總分和單課的統(tǒng)計和排名，分析各分?jǐn)?shù)段人數(shù)的分布情況。 5詳細(xì)設(shè)計 5.1 用到的建立數(shù)據(jù)庫的技術(shù) 數(shù)據(jù)庫采用了Microsoft推出的SQL數(shù)據(jù)庫，這是微軟的一個大型 數(shù)據(jù)庫，可以方便的進(jìn)展數(shù)據(jù)庫的連接。在數(shù)據(jù)庫里建一個數(shù)據(jù)庫，名字取為student, student里有三個表，學(xué)生信息表，課程信息表，考生成績表，用戶表 5.2 具體的數(shù)據(jù)庫表 通過對成績管理系統(tǒng)的分析，系統(tǒng)應(yīng)設(shè)計以下主要

22、實體 kj〔課程表〕 字段名稱 類型 寬度 小數(shù)位 課程號 整形 10 課程名 文本 50 考試類別 文本 10 課程類別 文本 10 開課學(xué)期 文本 10 學(xué)分 單精度型數(shù)字 自動 *f(學(xué)生信息表) 字段名稱 類型 寬度 小數(shù)位 ** 整型 16 文本 20 年齡 整型 5 院系 文本 8 專業(yè) 文本 16 出生日期 文本 8 備注 備注 Cj(成績表) 字段名稱 類型 寬度 小數(shù)位 ** 整型 16 文本

23、12 課程號 整型 8 課程名稱 文本 50 分?jǐn)?shù) 浮點 20 開課學(xué)期 日期型 10 排名 整型 20 Use表： 字段名稱 類型 寬度 小數(shù)位 username 文本 20 password 文本 20 Admin 文本 2 Readonly 文本 2 學(xué)生E-R圖： 學(xué)生 出生日期 ** ** 院系 專業(yè) 年齡 圖 5-1 課程E-R圖： 課程 開課學(xué)期 考試類別 課程名 學(xué)分 課程號 開課類別 圖 5-2 5.3主

24、要的模塊 登陸模塊 本界面的主要功能是為了對系統(tǒng)進(jìn)展平安性管理，本系統(tǒng)的用戶名和密碼保存在USE表中，本系統(tǒng)根據(jù)不同的用戶而設(shè)置了不同的權(quán)限，可以用zhangsan，05020899登陸本系統(tǒng)。 圖 5-3 主界面 圖 5-4 查詢模塊〔可以方便的查詢到學(xué)生的根本信息，選課信息〕 查詢到學(xué)生的根本信息 圖 5-5 圖 5-6 添加，刪除，修改，保存模塊〔該模塊可以方便的對學(xué)生的成績進(jìn)展處理〕 圖 5-7 打印模塊〔把學(xué)生的數(shù)據(jù)從學(xué)生成績管理系統(tǒng)打印到e*cel中〕 圖 5-8 7全文總結(jié) 在本系統(tǒng)的開發(fā)過程中，由于本人是初次開發(fā)軟件，在知識、經(jīng)歷方面都存在著缺

25、乏。另外，在整個開發(fā)的過程中，時間也比較倉促。因此，該系統(tǒng)必然會存在一些缺陷和缺乏。因為對學(xué)生成績管理的整個流程不夠熟悉，在需求分析時未能做到完全滿足用戶的需求。雖然網(wǎng)絡(luò)在學(xué)生管理系統(tǒng)中的應(yīng)用很多，因此是未來的開展方向，在本次開發(fā)過程由于硬件的限制，實現(xiàn)網(wǎng)絡(luò)的根本功能，因此在以后的系統(tǒng)更新過程中可能會造成一些不必要的數(shù)據(jù)損失。 盡管本管理系統(tǒng)存在著很多缺乏，但其功能全面、易于日后程序更新、數(shù)據(jù)庫管理容易、界面友好、操作方便、效率高、平安性好等優(yōu)點是本管理系統(tǒng)所必需的。相信本學(xué)生成績系統(tǒng)是一套學(xué)校在日常管理中必不可少的管理軟件，通過開發(fā)這個系統(tǒng)，我掌握了的項本過程，了解了的根本知識穩(wěn)固了我對d

26、elphi 7.0和SQL2000畢業(yè)設(shè)計中的最大收獲并不是掌握這幾門開發(fā)工具的應(yīng)用，而是學(xué)會了設(shè)計系統(tǒng)的思維方法。 8致 本次畢業(yè)設(shè)計是在王厚淳教師的悉心指導(dǎo)和熱心幫助下完成的。王厚淳教師認(rèn)真負(fù)責(zé)的工作制度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論水平都使我收益匪淺。他無論在理論上還是在實踐中都給我很大的鼓勵和指導(dǎo)，使我得到不少的提高，這對于我以后的工作和學(xué)習(xí)都有很大的幫助。沒有王厚淳教師的關(guān)心和幫助，我的課題是不可能順利完成的，特此對王厚淳導(dǎo)師表示真誠的感。 9參考文獻(xiàn) [1] 周佩德."數(shù)據(jù)庫原理及應(yīng)用".電子工業(yè) [2]明等，delphi程序設(shè)計——數(shù)據(jù)庫篇，1999 [3] 光明.

27、"Delphi6.0編程實例大制作".冶金工業(yè) [4]，明 精通DELPHI6.0入門與提高，人民郵電 [5] 紅等編著，成績管理系統(tǒng)開發(fā)與應(yīng)用，電子工業(yè)，2003 [6]海藩著，軟件工程，清華大學(xué)，2005 [7] 康博工作室，紅軍，王紅等編著"Dephli6.0中文版高級應(yīng)用與開發(fā)指南"，人民郵電，2005年4月第3版 [8] sql2000編程 清華大學(xué) 10 附 錄 局部代碼： Private Sub mand1_Click() Dim mrc As ADODB.Recordset t*tsql = "select username from use where

28、username='" & Trim(Te*t1.Te*t) & "'" Set mrc = E*ecuteSQL(t*tsql) If mrc.EOF = True Then MsgBo* " 用戶名錯誤！", vbE*clamation + vbOKOnly, "警告" Te*t1.SetFocus Te*t1.SelStart = 0 Te*t1.SelLength = Len(Te*t1.Te*t) E*it Sub End If username = mrc.Fields(0) t*tsql2 = "select username from u

29、se where password='" & Trim(Te*t2.Te*t) & "'" Set mrc = E*ecuteSQL(t*tsql2) If mrc.EOF = True Then MsgBo* " 密碼錯誤！", vbE*clamation + vbOKOnly, "警告" Te*t2.SetFocus Te*t2.SelStart = 0 Te*t2.SelLength = Len(Te*t2.Te*t) E*it Sub End If t*tsql = "select username from use where username=

30、'" & Trim(Te*t1.Te*t) & "'and password='" & Trim(Te*t2.Te*t) & "'" Set mrc = E*ecuteSQL(t*tsql) If mrc.EOF = True Then MsgBo* "用戶名稱和密碼不匹配！", vbE*clamation + vbOKOnly, "警告" E*it Sub End If MDIForm1.Show Unload Me End Sub Private Sub mand2_Click() Unload Me End Sub Private Sub Form_Loa

31、d() End Sub Private Sub Te*t1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Te*t2.SetFocus End If End Sub Private Sub Te*t2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then mand1.SetFocus End If End Sub end if W_sturesearch.open(): dw_1.settransobject(sqlca) dw_1.retrieve()

32、 //有關(guān)窗口居中的代碼這里從略，請參考其他模塊。 Cb*_1.clicked()//復(fù)選框的第一個選項被選單擊時的事件代碼： st_1.te*t=〞請輸入**：〞 cb*_2.checked=false cb*_3.checked=false cb*_4.checked=false cb*_5.checked=false sle_1.setfocus() Cb*_2.clicked(),cb*_3.clicked()，cb*_4.clicked(), cb*_5.clicked()的代碼可參考cb*_1.clicked() this.te*t=〞" if cb

33、*_1.checked=true then dw_1.setfilter("student_sno=’〞+sle_1.te*t+〞’〞) dw_1.filter() end if if cb*_2.checked=true then dw_1.setfilter("student_sname=’〞+sle_1.te*t+〞’〞) dw_1.filter() end if if cb*_3.checked=true then dw_1.setfilter("student_classno=’〞+sle_1.te*t+〞’〞) dw_1.filter(

34、) end if if cb*_4.checked=true then dw_1.setfilter("class_classname=’〞+sle_1.te*t+〞’〞) dw_1.filter() end if if cb*_5.checked=true then dw_1.setfilter("class_department=’〞+sle_1.te*t+〞’〞) dw_1.filter() end if if dw_1.rowcount()=0 then messagebo*("注意!〞,〞記錄為空。〞) end if 退出的代碼 Privat

35、e Sub CmdE*t_Click() Unload Me End Sub 刪除的代碼 Private Sub CmdDel_Click() If ID.Te*t <> " Then TID = CInt(ID.Te*t) If MsgBo*("你確定要刪除該行記錄嗎.", vbYesNo) = vbYes Then sql = "delete from T_Invoice where id=" & TID 'MsgBo* sql Set conn = New ADODB.Connection

36、 Set rs = New ADODB.Recordset conn.Open Set rs = conn.E*ecute(sql) MsgBo* "數(shù)據(jù)刪除成功，請按確定返回！" Adodc.Refresh MSFMainFrm.Refresh Call SetTe*t End If Else MsgBo* "你沒有選中要刪除的記錄！" End Sub 保存的代碼 rivate Sub CmdSave_Click() On Error GoTo

37、Err: Set conn = New ADODB.Connection Set rs = New ADODB.Recordset conn.Open If (ID.Te*t = ") Then sMakeDate = CDate(Mid(MakeDate.Te*t, 1, 8)) Call SqlReady sql = "insert into T_Invoice values('" & sUserID & "', '" & sUserName & "','" & sCallUnit & "', '" & sMaintenanceUnit & "',"

38、 sql = sql + "'" & sInstallUnit & "','" & sMoveUnit & "'," & sCallNum & "," & sMaintenanceNum & "," sql = sql + " & sInstallNum & "," & sMoveNum & "," & sCallUnitPrice & ", " & sMaintenanceUnitPrice & "," sql = sql + " & sInstallUnitPrice & "," & sMoveUnitPrice & ",'" & sMakeInvoicePer

39、son & "','" & sPayee & "', convert(Char(20), '" & sMakeDate & "', 20) ,'" & sMemo & "')" 'MsgBo* sql Set rs = conn.E*ecute(sql) MsgBo* "數(shù)據(jù)增加成功，點擊確定返回操作界面！" Adodc.Refresh MSFMainFrm.Refresh Call LockControl 'Rs.Close Set rs = Nothing Call SetTe*t Else

40、 Call SqlReady TID = CInt(Trim(ID.Te*t)) MakeDate.Locked = True sql = "update T_Invoice" sql = sql + " set Userid=" + "'" & sUserID & "'," sql = sql + "UserName=" + "'" & sUserName & "'," sql = sql + "CallUnit=" + "'" & sCallUnit & "'," sql = sql + "MaintenanceUni

41、t=" + "'" & sMaintenanceUnit & "'," sql = sql + "InstallUnit =" + "'" & sInstallUnit & "'," sql = sql + "MoveUnit=" + "'" & sMoveUnit & "'," sql = sql + "CallNum=" + " & sCallNum & "," sql = sql + "MaintenanceNum=" + " & sMaintenanceNum & "," sql = sql + "InstallNum =" + " &

42、 sInstallNum & "," sql = sql + "MoveNum=" + " & sMoveNum & "," sql = sql + "CallUnitPrice=" + " & sCallUnitPrice & "," sql = sql + "MaintenanceUnitPrice=" + " & sMaintenanceUnitPrice & "," sql = sql + "InstallUnitPrice=" + " & sInstallUnitPrice & "," sql = sql + "MoveUnitPri

43、ce=" + " & sMoveUnitPrice & "," sql = sql + "MakeInvoicePerson=" + "'" & sMakeInvoicePerson & "'," sql = sql + "Payee=" + "'" & sPayee & "'," sql = sql + "Memo=" + "'" & sMemo & "'" sql = sql + " where id=" & TID Set rs = conn.E*ecute(sql) MsgBo* "數(shù)據(jù)修改成功，點擊確定返回操作界面！"

44、 Adodc.Refresh MSFMainFrm.Refresh Set rs = Nothing Call SetTe*t End If E*it Sub Err: MsgBo* " 提交失?。? " + Err.Description, , "信息" End Sub 打印模塊的代碼 Private Sub CmdPrint_Click() If (ID.Te*t = ") Then MsgBo* "請選擇要打印的記錄!", vbCritical Else On Error GoTo PrintE

45、rr: Set conn = New ADODB.Connection Set rs = New ADODB.Recordset conn.Open TID = CInt(ID.Te*t) sql = "select * from V_Invoice where 序號=" & TID Set rs = conn.E*ecute(sql) Set *lApp = CreateObject("e*cel.application") 'MsgBo* App.Path '& "\學(xué)生大學(xué)成績表.*ls"

46、 Set Wb = *lApp.ActiveWorkbook Set Ws = Wb.ActiveSheet Ws.Cells(1, 1).Value = rs("課程號") Ws.Cells(1,2 ).Value = rs("課程名") Ws.Cells(1， 3) = rs("分?jǐn)?shù)") Ws.Cells(1, 4) = rs("開課學(xué)期") If (Check2.Value <> 1) Then *lApp.Visible = True Else If Dir("c:\~printBd.tm

47、p") <> " Then Kill "c:\~printBd.tmp" 'Delete End If Wb.SaveAs "c:\~printBd.tmp" 'save Ws.PrintOut Wb.Close Set Ws = Nothing Set Wb = Nothing *lApp.Quit Set *lApp = Nothing End If E*it Sub End If PrintErr: MsgBo* "打印錯誤,請重新打印!", vbCritical End Sub . 優(yōu)選-