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

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

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

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

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

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

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

15、.3確定目標(biāo)系統(tǒng)的功能3</p><p>　　第二章 系統(tǒng)設(shè)計(jì)5</p><p>　　2.1系統(tǒng)功能分析5</p><p>　　2.2系統(tǒng)功能模塊設(shè)計(jì)5</p><p>　　2.3 數(shù)據(jù)庫(kù)的設(shè)計(jì)6</p><p>　　2.4主程序流程圖8</p><p>　　第三章 實(shí)現(xiàn)數(shù)據(jù)庫(kù)結(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ù)庫(kù)11</p><p>　　3.4 創(chuàng)建ODBC11</p><p>　　第四章 系統(tǒng)的實(shí)現(xiàn)與調(diào)試13</p><

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

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

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

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

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

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

23、因此，開發(fā)一套能夠?yàn)橛脩籼峁┏渥愕男畔⒑涂旖莸牟樵兪侄蔚脑倬蜆I(yè)培訓(xùn)信息管理系統(tǒng)，將是非常必要的，也是十分及時(shí)的。借此機(jī)會(huì)利用已掌握的各種專業(yè)知識(shí)，結(jié)合實(shí)際應(yīng)用，開發(fā)一個(gè)再就業(yè)免費(fèi)培訓(xùn)信息管理系統(tǒng)來幫助政府有關(guān)部門進(jìn)行有效的管理。</p><p><b>　　第一章 需求分析</b></p><p><b>　　1.1用戶調(diào)查</b></p&

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

40、　　表2-1為培訓(xùn)班信息表。</p><p>　　表2-1 class_info培訓(xùn)班信息表</p><p>　　表2-2為課程信息表。</p><p>　　表2-2 course_info課程信息表</p><p>　　表2-3為成績(jī)信息表。</p><p>　　表2-3 result_info成績(jī)信息表</

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

42、　表2-6 traincourse_info培訓(xùn)課程信息表</p><p>　　表2-7為培訓(xùn)學(xué)員信息表。</p><p>　　表2-7 trainer_info培訓(xùn)學(xué)員信息表</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圖可以看到，各個(gè)實(shí)體之間是有聯(lián)系的，且聯(lián)系是有類型的，其類型分為一對(duì)一、一對(duì)多和多對(duì)多三種。</p><p>　　本管理信息系統(tǒng)的數(shù)據(jù)庫(kù)中，用戶信息表(user_info)和培訓(xùn)班信息表(class_info)通過關(guān)鍵字“user_id”相連接；培訓(xùn)課程信息表(course_info)和培訓(xùn)成績(jī)信息表(result_info)通過關(guān)鍵字“co

44、urse_No”相連接；培訓(xùn)信息表(servicetrain_info)和培訓(xùn)計(jì)劃課程信息表(traincourse_info)通過關(guān)鍵字“train_No”相連接；培訓(xùn)學(xué)員信息表(trainer_info)和培訓(xùn)成績(jī)信息表(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>　　第三章 實(shí)現(xiàn)數(shù)據(jù)庫(kù)結(jié)構(gòu)和程序</p><p>　　經(jīng)過前面的需求分析和概念結(jié)構(gòu)設(shè)計(jì)以后，對(duì)數(shù)據(jù)庫(kù)的邏輯結(jié)構(gòu)和系統(tǒng)的程序結(jié)構(gòu)。下面將在計(jì)算機(jī)上創(chuàng)建數(shù)據(jù)庫(kù)。</p><p>　　3.1 SQL SERVER 2000設(shè)置</p>

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

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

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

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

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

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

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

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

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

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

56、聲明段聲明窗體級(jí)變量：</p><p>　　其次，利用ADO對(duì)象模型完成數(shù)據(jù)庫(kù)的鏈接，前面已經(jīng)引用ADO對(duì)象庫(kù)，再編寫如下代碼進(jìn)行數(shù)據(jù)庫(kù)的鏈接。通過對(duì)控件代碼的編寫，對(duì)數(shù)據(jù)庫(kù)中每個(gè)用戶的的用戶名及密碼進(jìn)行檢索，用戶名與密碼匹配則進(jìn)入主界面進(jìn)行下一個(gè)操作環(huán)節(jié)。如果用戶名與密碼不匹配則會(huì)彈出對(duì)話框：請(qǐng)重新輸入。</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 "請(qǐng)輸入用戶編號(hào)!", 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 "密碼錯(cuò)誤!" & vbCrLf & vbCrLf & "請(qǐng)重新輸入!", 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è)計(jì)</p><

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

68、用戶刪除、密碼修改這三個(gè)子菜單。各個(gè)主菜單在屬性欄里的名稱依次為：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 = "當(dāng)前用戶：" & 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è)免費(fèi)培訓(xùn)信息管理系統(tǒng)", "版權(quán)所有(C) 2008華東交通大學(xué)" & 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、費(fèi)培訓(xùn)工程信息管理系統(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è)計(jì)</p><p>　　在窗體上布置對(duì)象工具，分別設(shè)置它們的屬性如下圖4-4所示，名稱分別為：cmdBackUp、cmdExit、FrmBackUp。cmdBackUp按鈕代碼主要實(shí)現(xiàn)的功能是對(duì)數(shù)據(jù)庫(kù)進(jìn)行修改并保存，比如對(duì)數(shù)據(jù)進(jìn)行插入，刪除，修改等操作。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ù)庫(kù)備份成功!" & vbCrLf & "文件：" & backFile, vbOKOnly + vbInformation, "備份數(shù)據(jù)庫(kù)"</p><p>　　success = WritePrivateProfileString("BackUp", &quo

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

84、4-4 數(shù)據(jù)庫(kù)備份設(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ù)庫(kù)備份成

89、功!" & vbCrLf & "文件：" & backFile, vbOKOnly + vbInformation, "備份數(shù)據(jù)庫(kù)"</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è)計(jì)</p><p>　　4.4.1添加用戶窗體設(shè)計(jì)</p><p>　　在窗體上布置對(duì)象工具，分別設(shè)置它們的屬性如下圖圖4-5所示，名稱分別為：cmdCancel、cmdComp、cmdNext、cmdNext1、txtPwd1、txtPw

98、d2、txtUserdes、txtUserid、txtUsername、FrmAddUser。通過在txtPwd1、txtPwd2、txtUserdes、txtUserid、txtUsername中輸入信息進(jìn)行用戶信息的描述。然后對(duì)cmdNext（下一步）進(jìn)行代碼編寫，其具體功能為連接數(shù)據(jù)庫(kù)，將TXT中相應(yīng)的用戶信息進(jìn)行在數(shù)據(jù)庫(kù)中的錄入。</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>　　這四條語(yǔ)句分別為對(duì)，用戶的編號(hào)，姓名，地址，密碼進(jìn)行數(shù)據(jù)庫(kù)錄入。同樣，添加成功時(shí)會(huì)彈出對(duì)話框：添加成功，進(jìn)行提示。然后會(huì)提示是否繼續(xù)添加用戶，如果需要?jiǎng)t重復(fù)操作。</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 "請(qǐng)選擇一個(gè)操作級(jí)別！", 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、計(jì)</p><p>　　在窗體上布置對(duì)象工具，分別設(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() '顯示所有的用戶編號(hào)</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", "超級(jí)用戶", 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è)計(jì)</p><p>　　在窗體上布置對(duì)象工具，分別設(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 "請(qǐng)輸入用戶編號(hào)！", 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 "請(qǐng)輸入用戶編