基于.net架構(gòu)的再就業(yè)培訓管理系統(tǒng)畢業(yè)論文

1、<p><b>　　畢業(yè)設(shè)計（論文）</b></p><p>　　題目：再就業(yè)培訓管理系統(tǒng) </p><p>　　Re-employment Training Management System</p><p>　　學 院： 信息工程學院 </p><p>

2、;　　專業(yè): 計算機科學與技術(shù) 班級 </p><p>　　學生姓名： 學號 </p><p>　　指導教師： 完成日期： </p><p>　　畢業(yè)設(shè)計（論文）任務書</p><p>　　畢業(yè)設(shè)計（論文）開題報告書</

3、p><p>　　畢業(yè)設(shè)計（論文）開題報告書（續(xù)）</p><p>　　課題類型：（1）A—工程設(shè)計；B—技術(shù)開發(fā)；C—軟件工程；D—理論研究；</p><p>　?。?）X—真實課題；Y—模擬課題；Z—虛擬課題</p><p>　?。?）、（2）均要填，如AY、BX等。</p><p><b>　　再就業(yè)培訓管理

4、系統(tǒng)</b></p><p><b>　　摘 要</b></p><p>　　再就業(yè)培訓工程信息管理系統(tǒng)屬于管理信息系統(tǒng)(MIS),其系統(tǒng)開發(fā)主要包括數(shù)據(jù)庫的規(guī)劃設(shè)計與維護、客戶端應用程序的開發(fā)兩個方面。對于前者要求建立起的數(shù)據(jù)庫具有完整性和一致性，且具有一定的數(shù)據(jù)安全性；而對于后者則要求程序界面友好、功能完備，容易使用，具有流行軟件的操作習慣等特點。根

5、據(jù)畢業(yè)設(shè)計的要求，選用Visual Basic 6.0作為前端開發(fā)工具，利用其提供的集成開發(fā)環(huán)境及支持面向?qū)ο蟮母鞣N標準化的控件，尤其是對ADO的支持完成對數(shù)據(jù)庫的各種操作，達到對培訓信息管理的目的。設(shè)計時首先在短時間內(nèi)先建立系統(tǒng)應用原型，然后對初始原型系統(tǒng)進行需求迭代，不斷修正和改進，直至達到滿意的實際可行系統(tǒng)。該管理系統(tǒng)收集了所有參加政府就業(yè)及再就業(yè)免費培訓工程的省直屬企業(yè)下崗失業(yè)人員、全省國有企業(yè)下崗失業(yè)人員、農(nóng)民工及未就業(yè)大學生

6、的基本信息、培訓情況、考核狀況、就業(yè)及就業(yè)去向等資料，并進行統(tǒng)一管理，以實現(xiàn)以上四項政府就業(yè)和再就業(yè)免費培訓工程的年度工作相關(guān)統(tǒng)計。在設(shè)計該系統(tǒng)時，充分運用VB中一些常用的控件來實現(xiàn)相應的功能。而且，利用ADO的支持，在數(shù)據(jù)庫中，進行更新、查詢等一系列數(shù)據(jù)庫操作。最終，通過對VB中</p><p>　　【關(guān)鍵詞】再就業(yè)培訓；管理；數(shù)據(jù)庫；ADO</p><p>　　Re-employmen

7、t Training Management System</p><p><b>　　Abstract</b></p><p>　　The re-employment free-training management information system is one kind of the Management Information System(MIS), w

8、hich includes two parts of aspects in programming, they are planning designs and maintenance for the database and programming for the client application. It requires a integrated and consistent database for the previou

9、s, and the characteristics for the latter, which include friendly interface,perfect function,easy using and popular operational habit. According to the demand o</p><p>　　training project free of the annual

10、work-related statistics. In designing the system, make full use of some commonly used in VB controls to achieve the corresponding function. Moreover, the use of ADO support in the database, updated, such as a database fo

11、r operation. Eventual</p><p>　　ly, through the controls in VB code prepared to achieve the desired function. And use the connection to the database and re-employment of all information relevant to the manage

12、ment and statistics. The completion of these two aspects make this software into a workable management system software, through it, can be free to re-employment training to some statistics and information management. Thu

13、s, the managers of all training at a glance, the decision-makin</p><p>　　g and more convenient arrangement.</p><p>　　【Key Words】Reemploymeny free training;Management; Database； ADO</p>&l

14、t;p><b>　　目錄</b></p><p><b>　　引言1</b></p><p>　　第一章 需求分析2</p><p><b>　　1.1用戶調(diào)查2</b></p><p>　　1.2 數(shù)據(jù)庫需求分析2</p><p>　　1

15、.3確定目標系統(tǒng)的功能3</p><p>　　第二章 系統(tǒng)設(shè)計5</p><p>　　2.1系統(tǒng)功能分析5</p><p>　　2.2系統(tǒng)功能模塊設(shè)計5</p><p>　　2.3 數(shù)據(jù)庫的設(shè)計6</p><p>　　2.4主程序流程圖8</p><p>　　第三章 實現(xiàn)數(shù)據(jù)庫結(jié)構(gòu)和

16、程序10</p><p>　　3.1 SQL SERVER 2000設(shè)置10</p><p>　　3.2 Visual Basic設(shè)置10</p><p>　　3.3 創(chuàng)建數(shù)據(jù)庫11</p><p>　　3.4 創(chuàng)建ODBC11</p><p>　　第四章 系統(tǒng)的實現(xiàn)與調(diào)試13</p><

17、;p>　　4.1登錄窗體的設(shè)計13</p><p>　　4.2系統(tǒng)主窗體的設(shè)計15</p><p>　　4.3 文件系統(tǒng)管理模塊的設(shè)計17</p><p>　　4.4 系統(tǒng)用戶管理模塊的設(shè)計18</p><p>　　4.5 培訓管理模塊的設(shè)計22</p><p>　　4.6 培訓班管理模塊的設(shè)計25&

18、lt;/p><p>　　4.7 培訓課程管理模塊的設(shè)計26</p><p>　　4.8 培訓學員管理模塊的設(shè)計27</p><p>　　4.9 培訓成績管理模塊的設(shè)計28</p><p>　　4.10 綜合信息查詢模塊的設(shè)計31</p><p>　　4.11 系統(tǒng)模塊的設(shè)計35</p><p&

19、gt;<b>　　第五章 總結(jié)39</b></p><p><b>　　謝辭40</b></p><p><b>　　參考文獻41</b></p><p><b>　　附錄42</b></p><p>　　附錄A 外文翻譯－原文部分42</

20、p><p>　　附錄B 外文翻譯－譯文部分47</p><p><b>　　引言</b></p><p>　　再就業(yè)培訓信息管理系統(tǒng)是政府部門必須面對的民生問題，特別是近幾年，隨著市場經(jīng)濟的發(fā)展，高等院校大面積的擴招，就業(yè)問題已成為一個相當緊迫的社會問題。要想滿足大量的就業(yè)培訓信息管理需求，光靠傳統(tǒng)使用的人工方式管理信息，是不可能實現(xiàn)的。傳統(tǒng)人工

21、管理模式存在著諸多缺點，如：效率低、保密性差，另外隨著未就業(yè)人數(shù)的不斷增加，其工作量也將大大增加，這必然導致管理信息工作者的工作量和勞動強度大大加強，同時也將產(chǎn)生大量的文件和數(shù)據(jù)，這給信息的查找、更新和維護都帶來了不少困難。這樣的管理機制已經(jīng)不能適應時代發(fā)展的需要，其管理方法將浪費許多人力和物力。隨著科學技術(shù)的不斷提高，計算機科學與技術(shù)日漸成熟，計算機應用的普及，計算機已進入人類社會生活的各個領(lǐng)域，并發(fā)揮著越來越重要的作用。這種傳統(tǒng)的手

22、工管理模式必然被以計算機為物質(zhì)基礎(chǔ)的信息管理方法所取代。</p><p>　　作為計算機應用的一部分，使用計算機對再就業(yè)培訓信息進行管理，有著手工管理所無法比擬的優(yōu)點，如：檢索迅速、查找方便、可靠性高、儲存量大、保密性好、壽命長、成本低等。這些優(yōu)點能夠極大地提高再就業(yè)培訓信息管理的效率，也是政府相關(guān)部門走向科學化、正規(guī)化管理發(fā)展必要條件，更是政府與時代接軌的重要條件。</p><p>　　

23、因此，開發(fā)一套能夠為用戶提供充足的信息和快捷的查詢手段的再就業(yè)培訓信息管理系統(tǒng)，將是非常必要的，也是十分及時的。借此機會利用已掌握的各種專業(yè)知識，結(jié)合實際應用，開發(fā)一個再就業(yè)免費培訓信息管理系統(tǒng)來幫助政府有關(guān)部門進行有效的管理。</p><p><b>　　第一章 需求分析</b></p><p><b>　　1.1用戶調(diào)查</b></p&

24、gt;<p>　　經(jīng)過細致的調(diào)研，并查閱政府再就業(yè)培訓信息管理的相關(guān)資料后，首先加深了對再就業(yè)培訓信息管理業(yè)務的深刻了解，其次在充分熟悉培訓信息管理業(yè)務的同時，將整個再就業(yè)培訓信息管理的業(yè)務流程描述如下：</p><p>　　(1)普通用戶注冊，首先到用戶登記處注冊用戶，只有注冊用戶才有權(quán)登陸本系統(tǒng)。</p><p>　　(2)注冊后，根據(jù)所選報的培訓課程分配到培訓班。<

25、;/p><p>　　(3)進入正常的培訓生活，參加各種培訓教學課程，培訓結(jié)束要求每位參與培訓的學員參加各門培訓課程的考核，只有成績合格者，才可獲得培訓合格證書，成績優(yōu)異者，優(yōu)先推薦就業(yè)。</p><p>　　(4)考核結(jié)束，由系統(tǒng)管理員將每位學員的培訓成績及其他一些相關(guān)信息記錄至培訓學員個人信息管理處。</p><p>　　根據(jù)以上總結(jié)，得出其業(yè)務流程如圖1-1所示。&

26、lt;/p><p>　　圖1-1 再就業(yè)培訓信息業(yè)務流程圖</p><p>　　1.2 數(shù)據(jù)庫需求分析</p><p>　　設(shè)計數(shù)據(jù)庫管理信息系統(tǒng)時應首先充分了解用戶各個方面的需求，包括現(xiàn)有的以及將來可能增加的需求。</p><p>　　用戶的需求具體體現(xiàn)在各種信息的提供、保存、更新和查詢，這就要求數(shù)據(jù)庫結(jié)構(gòu)能夠滿足各種信息的輸入和輸出。收集基

27、本數(shù)據(jù)、數(shù)據(jù)結(jié)構(gòu)以及數(shù)據(jù)處理的流程，組成一份詳盡的數(shù)據(jù)字典，為后面的具體設(shè)計打下基礎(chǔ)。</p><p>　　仔細分析調(diào)查有關(guān)系統(tǒng)的需求之后，得到如圖1-2所示的本系統(tǒng)所處理的數(shù)據(jù)流程。</p><p>　　圖1-2 政府再就業(yè)免費培訓信息管理系統(tǒng)數(shù)據(jù)流程圖</p><p>　　針對下崗失業(yè)等再就業(yè)人員的需求，通過對培訓管理工作過程的內(nèi)容和數(shù)據(jù)流程分析，設(shè)計如下所示的

28、數(shù)據(jù)項和數(shù)據(jù)結(jié)構(gòu)：</p><p>　　用戶注冊信息，包括的數(shù)據(jù)項有用戶編號、用戶名稱等。</p><p>　　培訓信息，包括的數(shù)據(jù)項有培訓編號、培訓名稱等。</p><p>　　培訓班信息，包括的數(shù)據(jù)項有班號、教師編號等。</p><p>　　培訓課程信息，包括的數(shù)據(jù)項有課程編號、課程名稱、課程類型、課程描述等。</p>&l

29、t;p>　　培訓學員信息，包括的數(shù)據(jù)項有姓名、學員編號、性別、出生日期、聯(lián)系方式等。</p><p>　　培訓成績信息，包括的數(shù)據(jù)項有考試編號、學員編號、課程編號、分數(shù)等。</p><p>　　1.3確定目標系統(tǒng)的功能</p><p>　　通過詳細的用戶調(diào)查，在現(xiàn)行的業(yè)務處理流程和數(shù)據(jù)流圖的基礎(chǔ)上，就可以基本確定目標系統(tǒng)要達到的目標了。</p>

30、<p>　　需求分析的任務是確定系統(tǒng)必須完成的工作，也就是對目標系統(tǒng)提出完整、準確、清晰、具體的要求。在經(jīng)過多方了解和調(diào)查后，基本清楚了培訓信息管理的功能要求。培訓信息管理系統(tǒng)必須完成以下功能：</p><p>　　(1)數(shù)據(jù)添加功能：對于要參與培訓的未就業(yè)人員，系統(tǒng)必須具有培訓班的設(shè)置、培訓課程的設(shè)置，如果新增培訓課程，則能添加新增培訓課程，培訓結(jié)束的考核成績及學員表現(xiàn)必須能夠錄入。</p>

31、;<p>　　(2)數(shù)據(jù)修改功能：當上述資料發(fā)生變化或輸入錯誤信息時，應能夠及時對數(shù)據(jù)進行修改和補充。</p><p>　　(3)數(shù)據(jù)查詢功能：該系統(tǒng)的主要功能之一即根據(jù)用戶提供的相關(guān)信息，能夠及時查找出對應的信息，系統(tǒng)應該提供多種查詢方法，以便滿足用戶的不同需求。</p><p>　　(4)數(shù)據(jù)的打印功能：培訓學員基本信息和考核成績錄入后應可以打印出來形成文字檔案，這也是管

32、理系統(tǒng)必須具備的功能。</p><p><b>　　第二章 系統(tǒng)設(shè)計</b></p><p>　　系統(tǒng)設(shè)計一般分為總體設(shè)計和詳細設(shè)計。經(jīng)過需求分析階段的工作，已經(jīng)清楚系統(tǒng)必須完成的工作，總體設(shè)計的基本目的就是“概括地說系統(tǒng)應該如何實現(xiàn)？”。通過該階段的工作將劃分出組成系統(tǒng)的物理元素—程序、文件、數(shù)據(jù)庫、文檔等，另一方面的主要工作是設(shè)計軟件的結(jié)構(gòu)，即確定系統(tǒng)都由哪些模塊

33、組成及模塊之間的相互關(guān)系。</p><p><b>　　2.1系統(tǒng)功能分析</b></p><p>　　系統(tǒng)開發(fā)的總體任務是實現(xiàn)各種信息的系統(tǒng)化、規(guī)范化和自動化。系統(tǒng)功能分析是在系統(tǒng)開發(fā)的總體任務的基礎(chǔ)上完成的。本次畢業(yè)設(shè)計的政府再就業(yè)免費培訓信息管理系統(tǒng)需要完成的功能主要有：</p><p>　　(1)文件系統(tǒng)信息的管理，包括數(shù)據(jù)庫的備份、數(shù)

34、據(jù)庫的還原等。</p><p>　　(2)用戶信息的管理，包括用戶的添加、刪除以及密碼的修改。</p><p>　　(3)免費培訓信息的管理，包括培訓的編號、培訓的名稱以及再就業(yè)服務中心的聯(lián)系方式。</p><p>　　(4)免費培訓班信息的管理，包括培訓班的編號、老師的編號以及信息的添加、刪除、保存等。</p><p>　　(5)免費培訓課

35、程信息的管理，包括課程的名稱、編號、類型等以及課程的查詢，有哪些課程的開設(shè)。</p><p>　　(6)參加免費培訓的學員的信息管理，包括對姓名、身份證號、培訓班號和參加培訓的開始時間等信息的添加、刪除、保存和查詢。</p><p>　　(7)培訓成績的信息管理，包括考試的分數(shù)、所考的課程等信息的添加、刪除、保存等。</p><p>　　(8)綜合查詢的信息管理，包

36、括培訓班信息的查詢、培訓課程信息的查詢、培訓成績信息的查詢和培訓學員信息的查詢。</p><p>　　(9)統(tǒng)計報表信息的管理，包括再就業(yè)免費培訓班報表、再就業(yè)免費培訓學員報表。</p><p>　　2.2系統(tǒng)功能模塊設(shè)計</p><p>　　對上述各項功能進行集中、分塊，按照結(jié)構(gòu)化程序設(shè)計的要求，得到如圖1-1所示的系統(tǒng)功能模塊圖。</p><

37、p>　　圖2-1 系統(tǒng)功能模塊圖</p><p>　　2.3 數(shù)據(jù)庫的設(shè)計</p><p>　　數(shù)據(jù)庫在一個培訓信息管理系統(tǒng)中占有非常重要的地位，數(shù)據(jù)庫結(jié)構(gòu)設(shè)計的好壞直接對應用系統(tǒng)的效率以及實現(xiàn)的效果產(chǎn)生影響。合理的數(shù)據(jù)庫結(jié)構(gòu)設(shè)計可以提高數(shù)據(jù)存儲的效率，以確保數(shù)據(jù)的完整性和一致性。</p><p>　　在需求分析階段已完成了系統(tǒng)的數(shù)據(jù)分析。該階段的主要工作就

38、是把前一階段的成果轉(zhuǎn)化為具體的數(shù)據(jù)庫。一般把數(shù)據(jù)庫的設(shè)計分為數(shù)據(jù)庫的邏輯設(shè)計和數(shù)據(jù)庫的物理設(shè)計兩個步驟。</p><p>　　2.3.1 數(shù)據(jù)庫的邏輯設(shè)計</p><p>　　現(xiàn)在需要將上面的數(shù)據(jù)庫概念結(jié)構(gòu)轉(zhuǎn)化為SQL Server 2000數(shù)據(jù)庫系統(tǒng)所支持的實際數(shù)據(jù)模型，即數(shù)據(jù)庫的邏輯結(jié)構(gòu)。</p><p>　　根據(jù)數(shù)據(jù)庫的需求分析和概念結(jié)構(gòu)設(shè)計，設(shè)計了名為my_

39、zjys的數(shù)據(jù)庫。數(shù)據(jù)庫由多個表格組成，各個表格的詳細設(shè)計過程將在物理設(shè)計中提到。每個表格表示在數(shù)據(jù)庫中的一個表。</p><p>　　2.3.2 數(shù)據(jù)庫的物理設(shè)計</p><p>　　根據(jù)數(shù)據(jù)庫的需求分析和概念結(jié)構(gòu)設(shè)計，設(shè)計了名稱為my_zjys的數(shù)據(jù)庫。數(shù)據(jù)庫由下列多個表格組成，各個表格的設(shè)計結(jié)果如下列表格所示。每個表格表示在數(shù)據(jù)庫中的一個表。</p><p>

40、　　表2-1為培訓班信息表。</p><p>　　表2-1 class_info培訓班信息表</p><p>　　表2-2為課程信息表。</p><p>　　表2-2 course_info課程信息表</p><p>　　表2-3為成績信息表。</p><p>　　表2-3 result_info成績信息表</

41、p><p>　　表2-4為培訓服務中心表。</p><p>　　表2-4 service_info服務中心設(shè)置表</p><p>　　表2-5為培訓信息表。</p><p>　　表2-5 servicetrain_info培訓信息表</p><p>　　表2-6為培訓課程信息表。</p><p>　

42、　表2-6 traincourse_info培訓課程信息表</p><p>　　表2-7為培訓學員信息表。</p><p>　　表2-7 trainer_info培訓學員信息表</p><p>　　表2-8為用戶信息表。</p><p>　　表2-8 user_info用戶信息表</p><p>　　2.3.3 數(shù)據(jù)表

43、之間的關(guān)系</p><p>　　從本系統(tǒng)的E-R圖可以看到，各個實體之間是有聯(lián)系的，且聯(lián)系是有類型的，其類型分為一對一、一對多和多對多三種。</p><p>　　本管理信息系統(tǒng)的數(shù)據(jù)庫中，用戶信息表(user_info)和培訓班信息表(class_info)通過關(guān)鍵字“user_id”相連接；培訓課程信息表(course_info)和培訓成績信息表(result_info)通過關(guān)鍵字“co

44、urse_No”相連接；培訓信息表(servicetrain_info)和培訓計劃課程信息表(traincourse_info)通過關(guān)鍵字“train_No”相連接；培訓學員信息表(trainer_info)和培訓成績信息表(result_info)通過關(guān)鍵字“trainer_id”相連接。</p><p><b>　　2.4主程序流程圖</b></p><p>　　

45、主程序流程圖如圖2-2所示</p><p>　　圖2-2 軟件系統(tǒng)主程序的程序流程圖</p><p>　　第三章 實現(xiàn)數(shù)據(jù)庫結(jié)構(gòu)和程序</p><p>　　經(jīng)過前面的需求分析和概念結(jié)構(gòu)設(shè)計以后，對數(shù)據(jù)庫的邏輯結(jié)構(gòu)和系統(tǒng)的程序結(jié)構(gòu)。下面將在計算機上創(chuàng)建數(shù)據(jù)庫。</p><p>　　3.1 SQL SERVER 2000設(shè)置</p>

46、<p>　　對SQL Server2000進行相應設(shè)置，打開SQL Server 2000的企業(yè)管理器。選擇“SQL Server 2000”中的服務器，然后單擊右鍵并選擇彈出式菜單中的“屬性”命令，出現(xiàn)如圖3-1所示的對話框。</p><p>　　圖3-1 設(shè)置SQL Server 2000的安全屬性</p><p>　　選擇“安全性”屬性頁，并設(shè)置成“SQL Server和

47、Windows”身份驗證。</p><p>　　3.2 Visual Basic設(shè)置</p><p>　　本程序利用ADO（ActiveX Data Object）完成對數(shù)據(jù)的訪問和操作，需要添加ADO庫。選擇Visual Basic的“Project”菜單中的“References”命令，在如圖3-2所示的對話框中選擇“Microsoft ActiveX Data Object 2.5

48、Liberary”選項。Visual Basic提供了ADO的多個版本，選擇其中的最高版本即可。</p><p>　　圖3-2 為Visual Basic添加ADO庫</p><p><b>　　3.3 創(chuàng)建數(shù)據(jù)庫</b></p><p>　　右擊新建數(shù)據(jù)庫，名稱為“my_zjys”，數(shù)據(jù)文件中“my_zjys_Data”選擇保存位置，事物日志

49、中“my_zjys_Log”選擇保存位置。</p><p>　　3.4 創(chuàng)建ODBC</p><p>　　程序?qū)?shù)據(jù)庫的訪問需要通過ODBC來實現(xiàn)。打開“控制面板”中“管理工具”的“ODBC（數(shù)據(jù)源）”，在如圖所示的對話框中，用戶DSN中添加一個用戶數(shù)據(jù)源。數(shù)據(jù)源的驅(qū)動程序為“SQL Server”，單擊“完成”。</p><p>　　數(shù)據(jù)源名稱為“sqlmy_zj

50、ys”，“服務器”選項中選擇本機服務器號。</p><p>　　創(chuàng)建好的ODBC用戶DSN如下圖3-3所示：</p><p>　　圖3-3 用戶DSN添加</p><p>　　第四章 系統(tǒng)的實現(xiàn)與調(diào)試</p><p>　　有關(guān)數(shù)據(jù)庫結(jié)構(gòu)的所有后臺工作已經(jīng)完成。現(xiàn)在將實現(xiàn)系統(tǒng)中的各個功能模塊。 </p><p>　　本

51、系統(tǒng)設(shè)計的數(shù)據(jù)庫鏈接采用ADO的代碼建立鏈接對象完成數(shù)據(jù)庫的鏈接，完全以程序代碼的形式使用ADO對象。</p><p>　　在使用ADO對象之前，必須先利用Visual Basic菜單的“工程”——“引用”來引用“Microsoft Active Data Object 2.6 Library”，然后ADO對象群中Connection、Recordest、Command、Fields等對象才會成為可以引用的對象。

52、否則，類似下面的語句：</p><p>　　Dim conn as new ADODB.Connection</p><p>　　Dim rs as New ADODB.Recordset</p><p>　　都會產(chǎn)生“用戶定義類型未定義”的錯誤，因為“Connection”和“Recordset”都是定義在“Microsoft Active Data Object

53、 2.6 Library”中的。如果沒有事先將其引用的話，Visual Basic將無法辨別它們。</p><p>　　數(shù)據(jù)庫連接的具體操作過程如下：新建工程后，執(zhí)行“工程”菜單下的“引用”命令。</p><p>　　單擊“引用”命令，彈出引用對話框，在引用清單中選取“ Microsoft Active Data Object 2.6 Library”項目即可，否則程序在執(zhí)行時會產(chǎn)生“用戶

54、定義類型未定義”的編譯錯誤。</p><p>　　在程序設(shè)計過程中，一般要先把所有的記錄信息都顯示在一個表格控件中，用戶可按特定的方式進行信息查詢，這就需要重新指定Recordset對象，把滿足條件的記錄信息重新顯示在表格控件中。</p><p>　　啟動Visual Basic后，選擇“新建工程”，在工程摸板中選擇“標準模塊”，保存工程命名為“my_zjys”。</p>&

55、lt;p>　　4.1登錄窗體的設(shè)計</p><p>　　在窗體上布置3個Label、3個TextBox、3個Image、2個XpButton，分別設(shè)置它們的屬性如下圖圖4-1所示，名稱分別為：txtUserID、txtUserName、txtPass、cmdOK、cmdCancel。</p><p>　　圖4-1 用戶登錄界面</p><p>　　首先在通用

56、聲明段聲明窗體級變量：</p><p>　　其次，利用ADO對象模型完成數(shù)據(jù)庫的鏈接，前面已經(jīng)引用ADO對象庫，再編寫如下代碼進行數(shù)據(jù)庫的鏈接。通過對控件代碼的編寫，對數(shù)據(jù)庫中每個用戶的的用戶名及密碼進行檢索，用戶名與密碼匹配則進入主界面進行下一個操作環(huán)節(jié)。如果用戶名與密碼不匹配則會彈出對話框：請重新輸入。</p><p>　　Dim MyLogin As OpenRs</p>

57、<p>　　Dim UseridSQL As String</p><p>　　Dim Level As Integer</p><p>　　Public CurrentUser As String</p><p>　　Private Sub Cmdcancel_Click()</p><p><b>　　Unload

58、 Me</b></p><p><b>　　End Sub</b></p><p>　　Private Sub cmdOK_Click()</p><p>　　If txtUserID.Text = "Administrator" And txtPass.Text = "ACCP2002" T

59、hen</p><p><b>　　Unload Me</b></p><p>　　FrmMain.Show</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　If txtUser

60、ID.Text = "" Then</p><p>　　MsgBox "請輸入用戶編號!", vbOKOnly + vbInformation, "用戶登陸"</p><p>　　txtUserID.SetFocus</p><p><b>　　Exit Sub</b></p&g

61、t;<p><b>　　Else</b></p><p>　　UseridSQL = "select * from User_Info where user_Id='" & txtUserID.Text & "'"</p><p>　　MyLogin.rsDK1 UseridSQL&

62、lt;/p><p>　　If MyLogin.rs1.EOF = False Then</p><p>　　txtUserName.Text = Trim(MyLogin.rs1!user_name)</p><p>　　Level = MyLogin.rs1!user_level</p><p>　　If txtPass.Text = Trim

63、(MyLogin.rs1!user_pwd) Then</p><p>　　CurrentUser = Trim(MyLogin.rs1!user_name)</p><p>　　Call DisplayMenu</p><p><b>　　Unload Me</b></p><p>　　FrmMain.Show<

64、/p><p><b>　　Else</b></p><p>　　MsgBox "密碼錯誤!" & vbCrLf & vbCrLf & "請重新輸入!", vbOKOnly + vbInformation, "用戶登陸"</p><p>　　txtPass.Text

65、= ""</p><p>　　txtPass.SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p><b>　　End If</b></p><p>

66、<b>　　End Sub</b></p><p>　　Private Sub Form_Load()</p><p>　　Set MyLogin = New OpenRs</p><p><b>　　End Sub</b></p><p>　　4.2系統(tǒng)主窗體的設(shè)計</p><

67、p>　　這個項目使用多文檔界面，單擊工具欄中的“添加MDI Form”按鈕，產(chǎn)生一個窗體。打開菜單編輯器，按照設(shè)計要求設(shè)置菜單項，如圖4-2所示。主菜單包括：文件、用戶管理、培訓信息管理、培訓班信息管理、培訓課程信息管理、培訓學員信息管理、培訓成績信息管理、查詢管理、統(tǒng)計報表中心、幫助。各個主菜單通過菜單編輯器進行子菜單的設(shè)置。例如，文件菜單中包括：備份數(shù)據(jù)庫、還原數(shù)據(jù)庫、注銷、退出系統(tǒng)這四個子菜單。用戶管理菜單中包括：用戶添加、

68、用戶刪除、密碼修改這三個子菜單。各個主菜單在屬性欄里的名稱依次為：mnuFile、mnuUserManage、mnuTrain、mnuClass、mnuCourseInfo、mnuTrainerInfo、mnuCourseInfo、mnuQuery、mnuReport、mnuHelp、mnuAbout、mnuAddResult、mnuAddTrainerInfo、mnuAddUser、mnuBackUpDB、mnuClassQuery、

69、mnuClassReport、mnuDeleteUser、mnuExit。窗體布置的工具屬性如下圖4-3所示。</p><p>　　圖4-2 菜單編輯器</p><p>　　圖4-3 主窗體的設(shè)置效果圖</p><p><b>　　聲明段聲明如下：</b></p><p>　　Dim Myinfo As String&

70、lt;/p><p>　　Dim success As Long</p><p>　　Dim Classprint As OpenRs</p><p>　　Private Declare Function htmlhelp Lib "hhctrl.ocx" Alias "HtmlHelpA" (ByVal hwndCaller As

71、 Long, ByVal pszFile As String, ByVal uCommand As Long, ByVal dwData As Long) As Long</p><p><b>　　代碼如下：</b></p><p>　　Private Sub MDIForm_Load()</p><p>　　Set Classprint =

72、 New OpenRs</p><p>　　Timer1.Enabled = True</p><p>　　Dim mypanel As Panel</p><p>　　Set mypanel = StatusBar1.Panels.Add(1, , , sbrDate) '狀態(tài)欄1顯示日期</p><p>　　Set mypanel

73、 = StatusBar1.Panels.Add(2) '狀態(tài)欄2顯示星期幾</p><p>　　Call MyWeekDay</p><p>　　Set mypanel = StatusBar1.Panels.Add(3)</p><p>　　StatusBar1.Panels(3).Text = "當前用戶：" & FrmLo

74、gin.CurrentUser</p><p>　　mypanel.AutoSize = sbrContents</p><p>　　Set mypanel = StatusBar1.Panels.Add(4) '狀態(tài)欄3顯示文本消息</p><p>　　mypanel.AutoSize = sbrSpring</p><p><

75、;b>　　End Sub</b></p><p>　　Private Sub mnuAbout_Click()</p><p>　　ShellAbout Me.hwnd, "政府再就業(yè)免費培訓信息管理系統(tǒng)", "版權(quán)所有(C) 2008華東交通大學" & vbCrLf & "開發(fā):楊波", Me.

76、Icon</p><p><b>　　End Sub</b></p><p>　　Private Sub mnuClassReport_Click()</p><p>　　Classprint.rsDK1 "select c.class_no,s.train_no,train_name,u.user_id,user_name from

77、 class_info c inner join servicetrain_info s on c.train_no=s.train_no inner join user_info u on c.user_id=u.user_id"</p><p>　　ClassReport.Show</p><p>　　Set ClassReport.DataSource = Classpri

78、nt.rs1</p><p><b>　　End Sub</b></p><p>　　Private Sub Timer1_Timer()</p><p>　　If Myinfo = "" Then</p><p>　　Myinfo = Space(85) & "歡迎使用政府再就業(yè)免

79、費培訓工程信息管理系統(tǒng)！"</p><p><b>　　End If</b></p><p>　　Myinfo = Right(Myinfo, Len(Myinfo) - 1)</p><p>　　StatusBar1.Panels(4).Text = Myinfo</p><p><b>　　End

80、 Sub</b></p><p>　　4.3 文件系統(tǒng)管理模塊的設(shè)計</p><p>　　在窗體上布置對象工具，分別設(shè)置它們的屬性如下圖4-4所示，名稱分別為：cmdBackUp、cmdExit、FrmBackUp。cmdBackUp按鈕代碼主要實現(xiàn)的功能是對數(shù)據(jù)庫進行修改并保存，比如對數(shù)據(jù)進行插入，刪除，修改等操作。backFile = "my_zjys"

81、 & NowTime</p><p>　　sql = "BACKUP DATABASE my_zjys TO disk='" & App.Path & "\BackUP\" & backFile & "'"</p><p>　　cn.Execute (sql)</p&g

82、t;<p>　　MsgBox "數(shù)據(jù)庫備份成功!" & vbCrLf & "文件：" & backFile, vbOKOnly + vbInformation, "備份數(shù)據(jù)庫"</p><p>　　success = WritePrivateProfileString("BackUp", &quo

83、t;NewFile", backFile, App.Path & "\Zjys.ini")</p><p>　　該代碼是對返回數(shù)據(jù)庫的操作，對數(shù)據(jù)庫my_zjys數(shù)據(jù)的修改進行保存。如果保存成功，也就是修改數(shù)據(jù)庫成功。會彈出對話框：數(shù)據(jù)庫備份成功，進行提示。</p><p>　　設(shè)置窗體如下圖4-4所示：</p><p>　　圖

84、4-4 數(shù)據(jù)庫備份設(shè)置窗體</p><p><b>　　聲明段聲明：</b></p><p>　　Dim cn As ADODB.Connection</p><p>　　Dim success As Long</p><p>　　Dim fso As New FileSystemObject, fldr As Fold

85、er</p><p><b>　　代碼如下：</b></p><p>　　Private Sub cmdBackUp_Click()</p><p>　　Dim backFile As String</p><p>　　Dim NowTime As String</p><p>　　Dim sql

86、 As String</p><p>　　Dim buff As String</p><p>　　If fso.FolderExists(App.Path & "\BackUp") = False Then</p><p>　　Set fldr = fso.CreateFolder(App.Path & "\BackU

87、p")</p><p><b>　　End If</b></p><p>　　NowTime = Format(Now, "yyyy-mm-dd_hh-mm-ss")</p><p>　　backFile = "my_zjys" & NowTime</p><p>

88、;　　sql = "BACKUP DATABASE my_zjys TO disk='" & App.Path & "\BackUP\" & backFile & "'"</p><p>　　cn.Execute (sql)</p><p>　　MsgBox "數(shù)據(jù)庫備份成

89、功!" & vbCrLf & "文件：" & backFile, vbOKOnly + vbInformation, "備份數(shù)據(jù)庫"</p><p>　　success = WritePrivateProfileString("BackUp", "NewFile", backFile, App.Pat

90、h & "\Zjys.ini")</p><p>　　buff = String(255, 0)</p><p>　　ret = GetPrivateProfileString("BackUp", "Time", "1", buff, 256, App.Path & "\Zjys.in

91、i")</p><p>　　lbTime.Caption = buff</p><p>　　Select Case lbTime.Caption</p><p>　　Case "1" success = WritePrivateProfileString("BackUp", "File1",

92、backFile, App.Path & "\Zjys.ini")</p><p>　　Case "2" success = WritePrivateProfileString("BackUp", "File2", backFile, App.Path & "\Zjys.ini")</p&

93、gt;<p>　　Case "3" success = WritePrivateProfileString("BackUp", "File3", backFile, App.Path & "\Zjys.ini")</p><p>　　Case "4" success = WritePr

94、ivateProfileString("BackUp", "File4", backFile, App.Path & "\Zjys.ini")</p><p>　　Case "5" success = WritePrivateProfileString("BackUp", "File5&quo

95、t;, backFile, App.Path & "\Zjys.ini")</p><p>　　End Select</p><p>　　lbTime.Caption = lbTime.Caption + 1</p><p>　　If lbTime.Caption = 6 Then</p><p>　　lbTime

96、.Caption = 1</p><p><b>　　End If</b></p><p>　　success = WritePrivateProfileString("BackUp", "Time", lbTime.Caption, App.Path & "\Zjys.ini")</p>

97、<p><b>　　End Sub</b></p><p>　　4.4 系統(tǒng)用戶管理模塊的設(shè)計</p><p>　　4.4.1添加用戶窗體設(shè)計</p><p>　　在窗體上布置對象工具，分別設(shè)置它們的屬性如下圖圖4-5所示，名稱分別為：cmdCancel、cmdComp、cmdNext、cmdNext1、txtPwd1、txtPw

98、d2、txtUserdes、txtUserid、txtUsername、FrmAddUser。通過在txtPwd1、txtPwd2、txtUserdes、txtUserid、txtUsername中輸入信息進行用戶信息的描述。然后對cmdNext（下一步）進行代碼編寫，其具體功能為連接數(shù)據(jù)庫，將TXT中相應的用戶信息進行在數(shù)據(jù)庫中的錄入。</p><p>　　MyAddUser.rs1!user_id = Tri

99、m(txtUserid.Text)</p><p>　　MyAddUser.rs1!user_name = Trim(txtUsername)</p><p>　　MyAddUser.rs1!user_des = Trim(txtUserdes.Text)</p><p>　　MyAddUser.rs1!user_pwd = Trim(txtPwd1.Text)&l

100、t;/p><p>　　這四條語句分別為對，用戶的編號，姓名，地址，密碼進行數(shù)據(jù)庫錄入。同樣，添加成功時會彈出對話框：添加成功，進行提示。然后會提示是否繼續(xù)添加用戶，如果需要則重復操作。</p><p>　　設(shè)置窗體如下圖4-5所示：</p><p>　　圖4-5 用戶添加設(shè)置窗體</p><p><b>　　聲明段聲明：</b&

101、gt;</p><p>　　Dim MyAddUser As OpenRs</p><p>　　Dim Choose As Boolean</p><p>　　Dim Level As Integer</p><p><b>　　代碼如下：</b></p><p>　　Private Sub cm

102、dComp_Click() '完成按鈕</p><p>　　If Choose = False Then</p><p>　　MsgBox "請選擇一個操作級別！", vbOKOnly + vbInformation, "添加新用戶"</p><p><b>　　Exit Sub</b></

103、p><p><b>　　End If</b></p><p>　　MyAddUser.rs1.AddNew</p><p>　　MyAddUser.rs1!user_id = Trim(txtUserid.Text)</p><p>　　MyAddUser.rs1!user_name = Trim(txtUsername)&

104、lt;/p><p>　　MyAddUser.rs1!user_des = Trim(txtUserdes.Text)</p><p>　　MyAddUser.rs1!user_pwd = Trim(txtPwd1.Text)</p><p>　　MyAddUser.rs1!user_level = Level</p><p>　　MyAddUse

105、r.rs1.Update</p><p>　　If MsgBox("添加用戶成功！" & vbCrLf & vbCrLf & "是否繼續(xù)添加用戶？", vbYesNo + vbQuestion, "添加用戶") = vbYes Then</p><p>　　Frame3.Visible = False<

106、;/p><p>　　cmdComp.Visible = False</p><p>　　Frame1.Visible = True</p><p>　　cmdNext.Visible = True</p><p>　　txtUserid.SetFocus</p><p>　　Call ClearText</p>

107、<p><b>　　Else</b></p><p><b>　　Unload Me</b></p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　4.4.2 刪除用戶窗體設(shè)

108、計</p><p>　　在窗體上布置對象工具，分別設(shè)置它們的屬性如下圖圖4-6所示，名稱分別為：cmdDelUser、cmdExit、DelUser_Grid、FrmDelUser。</p><p>　　設(shè)置窗體如下圖4-6所示：</p><p>　　圖4-6 用戶刪除設(shè)置窗體</p><p><b>　　聲明段聲明：</b

109、></p><p>　　Dim MyDelUser As OpenRs</p><p><b>　　代碼如下：</b></p><p>　　Private Sub UserTree() '顯示所有的用戶編號</p><p>　　Dim mynod As Node</p><p>　

110、　Dim sql1 As String</p><p>　　TreeView1.Nodes.Clear</p><p>　　'sql1 = "select * from User_Info order by user_level,user_id"</p><p>　　'MyDelUser.rsDK1 sql1</p>

111、<p>　　MyDelUser.rsDK1 "select * from user_info where user_level=1 order by user_id"</p><p>　　If Not MyDelUser.rs1.EOF Then</p><p>　　Set mynod = TreeView1.Nodes.Add(, , "Admi

112、n", "系統(tǒng)管理員", 1, 1)</p><p>　　While Not MyDelUser.rs1.EOF</p><p>　　Set mynod = TreeView1.Nodes.Add("Admin", tvwChild, , CStr(MyDelUser.rs1!user_id), 2, 2)</p><p

113、>　　MyDelUser.rs1.MoveNext</p><p><b>　　Wend</b></p><p><b>　　End If</b></p><p>　　MyDelUser.rsDK1 "select * from user_info where user_level=2 order by u

114、ser_id"</p><p>　　If Not MyDelUser.rs1.EOF Then</p><p>　　Set mynod = TreeView1.Nodes.Add(, , "PowerUser", "超級用戶", 1, 1)</p><p>　　While Not MyDelUser.rs1.EOF&

115、lt;/p><p>　　Set mynod = TreeView1.Nodes.Add("PowerUser", tvwChild, , CStr(MyDelUser.rs1!user_id), 2, 2)</p><p>　　MyDelUser.rs1.MoveNext</p><p><b>　　Wend</b></p

116、><p><b>　　End If</b></p><p>　　MyDelUser.rsDK1 "select * from user_info where user_level=3 order by user_id"</p><p>　　If Not MyDelUser.rs1.EOF Then</p><

117、p>　　Set mynod = TreeView1.Nodes.Add(, , "User", "普通用戶", 1, 1)</p><p>　　While Not MyDelUser.rs1.EOF</p><p>　　Set mynod = TreeView1.Nodes.Add("User", tvwChild, , C

118、Str(MyDelUser.rs1!user_id), 2, 2)</p><p>　　MyDelUser.rs1.MoveNext</p><p><b>　　Wend</b></p><p><b>　　End If</b></p><p><b>　　End Sub</b>

119、;</p><p>　　4.4.3 修改密碼窗體設(shè)計</p><p>　　在窗體上布置對象工具，分別設(shè)置它們的屬性如下圖圖4-7所示，名稱分別為：cmdExit、cmdOK、FrmModiPass、txtNewPass、txtNewPass1、txtOldPass、txtUserId、txtUserName。</p><p>　　窗體設(shè)置如下圖4-7所示：</

120、p><p>　　圖4-7 修改密碼設(shè)置窗體</p><p><b>　　聲明段聲明：</b></p><p>　　Private Modipass As New OpenRs</p><p><b>　　代碼如下：</b></p><p>　　Private Sub cmdOK_

121、Click()</p><p>　　If txtUserId.Text = "" Then</p><p>　　MsgBox "請輸入用戶編號！", vbOKOnly + vbInformation, "修改密碼"</p><p>　　txtUserId.SetFocus</p><p&

122、gt;<b>　　Exit Sub</b></p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Deactivate()</p><p>　　txtUserId.Text =

123、 ""</p><p><b>　　End Sub</b></p><p>　　Private Sub txtOldPass_GotFocus()</p><p>　　If txtUserId.Text = "" Then</p><p>　　MsgBox "請輸入用戶編