畢業(yè)論文范文——人才管理系統(tǒng)

37目 錄前言2第一章 系統(tǒng)描述31.1開(kāi)發(fā)工具31.2系統(tǒng)開(kāi)發(fā)環(huán)境5第二章 數(shù)據(jù)庫(kù)設(shè)計(jì)72.1數(shù)據(jù)庫(kù)需求分析72.2數(shù)據(jù)庫(kù)結(jié)構(gòu)的實(shí)現(xiàn)8第三章 系統(tǒng)總體設(shè)計(jì)103.1系統(tǒng)功能描述103.2數(shù)據(jù)流程分析113.3系統(tǒng)功能模塊設(shè)計(jì)11第四章 系統(tǒng)詳細(xì)設(shè)計(jì)134.1啟動(dòng)程序設(shè)計(jì)134.2用戶(hù)登錄設(shè)計(jì)144.3主窗體界面的設(shè)計(jì)194.4技術(shù)人才管理窗體設(shè)計(jì)214.5管理人才管理窗體設(shè)計(jì)344.6關(guān)于系統(tǒng)窗體設(shè)計(jì)36第五章 系統(tǒng)的調(diào)試與注意事項(xiàng)37結(jié)束語(yǔ)38致謝39參考文獻(xiàn)39前 言隨著科學(xué)技術(shù)的不斷提高，計(jì)算機(jī)科學(xué)日漸成熟，其強(qiáng)大的功能已經(jīng)為人們深刻認(rèn)識(shí)，他已經(jīng)進(jìn)入人類(lèi)社會(huì)的各個(gè)領(lǐng)域，并發(fā)揮著越來(lái)越重要的作用。作為新世紀(jì)的大學(xué)生，理應(yīng)站在時(shí)代發(fā)展的前列，掌握現(xiàn)代科學(xué)技術(shù)知識(shí)，調(diào)整自己的知識(shí)結(jié)構(gòu)和能力結(jié)構(gòu)，以適應(yīng)社會(huì)發(fā)展的要求。新世紀(jì)需要具有豐富現(xiàn)代科學(xué)知識(shí)、能夠獨(dú)立解決面臨任務(wù)、充滿(mǎn)激情、具有創(chuàng)新意識(shí)的新型人才。二十一世紀(jì)什么最貴？是人才！現(xiàn)在我國(guó)的某些單位對(duì)人才的管理水平還停留在紙介質(zhì)的基礎(chǔ)上，這樣的機(jī)制已經(jīng)不能適應(yīng)時(shí)代的發(fā)展，因?yàn)樗速M(fèi)了許多人力和物力，在信息時(shí)代這種傳統(tǒng)的管理方法必然被計(jì)算機(jī)為基礎(chǔ)的信息管理所取代。在學(xué)校，我學(xué)習(xí)的是計(jì)算機(jī)專(zhuān)業(yè)，三年的專(zhuān)業(yè)知識(shí)學(xué)習(xí)，確實(shí)學(xué)到了不少東西，但是理論與實(shí)踐是大不相同的，為了能夠?qū)W以致用，同時(shí)也為了檢驗(yàn)自己學(xué)習(xí)水平，所以我針對(duì)人才管理方面開(kāi)發(fā)了一套實(shí)用的系統(tǒng)程序。在作為計(jì)算機(jī)應(yīng)用的一部分,使用計(jì)算機(jī)對(duì)人才信息進(jìn)行管理,具有著手工管理所無(wú)法比擬的優(yōu)點(diǎn).例如:檢索迅速、查找方便、可靠性高、存儲(chǔ)量大、穩(wěn)定性好、壽命長(zhǎng)、成本低等。這些優(yōu)點(diǎn)能夠極大地方便人才信息的管理，使的人才管理工作系統(tǒng)化、規(guī)范化、自動(dòng)化，科學(xué)正規(guī)化，從而大大提高人才管理的效率。這樣既能發(fā)揮計(jì)算機(jī)在現(xiàn)實(shí)生活中的實(shí)用功能，方便人才的管理，及人才的基本信息，也檢驗(yàn)了所學(xué)專(zhuān)業(yè)在生活中發(fā)揮的作用，體現(xiàn)出計(jì)算機(jī)的優(yōu)越性。編寫(xiě)系統(tǒng)程序時(shí)，我使用的是VB程序，Visual Basic 是一種可視化的面向?qū)ο蠛筒捎檬录?qū)動(dòng)方式的結(jié)構(gòu)化高級(jí)程序設(shè)計(jì)語(yǔ)言，它效率高，功能強(qiáng)大，可與Windows的專(zhuān)業(yè)開(kāi)發(fā)工具SDK相媲美，可以高效、快速地開(kāi)發(fā)出Windows環(huán)境下功能強(qiáng)大、圖形界面豐富的應(yīng)用軟件系統(tǒng)。由于這是初次編寫(xiě)，難免會(huì)有不足之處，有幸得到了輔導(dǎo)老師的指點(diǎn)，幫助解決了不少的問(wèn)題，使得系統(tǒng)能夠及時(shí)地開(kāi)發(fā)完成，然而在今后系統(tǒng)的應(yīng)用當(dāng)中，該程序還會(huì)在實(shí)際應(yīng)用中不斷完善，發(fā)揮本系統(tǒng)本應(yīng)有的作用。第一章 系統(tǒng)描述一、開(kāi)發(fā)工具本軟件用Visual Basic 6.0開(kāi)發(fā)系統(tǒng)。Visual Basic 是一種可視化的，面向?qū)ο蠛筒捎檬录?qū)動(dòng)方式的結(jié)構(gòu)化高級(jí)程序設(shè)計(jì)語(yǔ)言，可用于開(kāi)發(fā)Windows環(huán)境下的各類(lèi)應(yīng)用程序。它簡(jiǎn)單易學(xué)，效率高，且功能強(qiáng)大，可以與Windows的專(zhuān)業(yè)開(kāi)發(fā)工具SDK相媲美。在Visual Basic環(huán)境下，利用事件驅(qū)動(dòng)的編制機(jī)制，新穎易用的可視化設(shè)計(jì)工具，使用Windows內(nèi)部的應(yīng)用程序接口（API）函數(shù)，以及動(dòng)態(tài)鏈接庫(kù)（DLL）,動(dòng)態(tài)數(shù)據(jù)交換（DDE），對(duì)象的鏈接與嵌入（OLE）,開(kāi)放式數(shù)據(jù)連接（ODBC）等技術(shù)，可以高效，快速地開(kāi)發(fā)出Windows環(huán)境下功能強(qiáng)大，圖形界面豐富的應(yīng)用軟件系統(tǒng)。隨著版本的提高，Visual Basic的功能也越來(lái)越強(qiáng)。5.0版以后，Visual Basic推出了中文版，與以前各版相比，其功能有了質(zhì)的飛躍，已憂(yōu)為32位，全面支持面向?qū)ο蟮拇笮统绦蛘Z(yǔ)言。在推出6.0版時(shí)，Visual Basic又在數(shù)據(jù)訪問(wèn)，控件，語(yǔ)言，向?qū)Ъ癐nternet支持等方面增加了許多新的功能。Visual Basic有以下的主要特點(diǎn)：1.可視化編程在用傳統(tǒng)在用傳統(tǒng)程序設(shè)計(jì)語(yǔ)言來(lái)設(shè)計(jì)程序時(shí)，都是通過(guò)編寫(xiě)程序代碼來(lái)設(shè)計(jì)用戶(hù)界面，在設(shè)計(jì)過(guò)程中看不到界面的實(shí)際顯示效果，必須編譯后運(yùn)行程序才能觀察。如果對(duì)界面的效果不滿(mǎn)意，還要回到程序中去修改。有時(shí)候，這種編程-編譯-修改的操作可能要反復(fù)多次，大大影響了軟件開(kāi)發(fā)效率。Visual Basic 提供了可視化設(shè)計(jì)工具，把Windows界面設(shè)計(jì)的復(fù)雜性：“封裝”起來(lái)，開(kāi)發(fā)人員不必為界面設(shè)計(jì)而編寫(xiě)大量程序代碼，只需要按設(shè)計(jì)要求的屏幕布局，用系統(tǒng)提供的工具，在屏幕上畫(huà)出各種“部件”，即圖形對(duì)象，并設(shè)置這些圖形對(duì)象的屬性。Visual Basic自動(dòng)產(chǎn)生界面設(shè)計(jì)代碼，程序設(shè)計(jì)人員只需要編寫(xiě)實(shí)現(xiàn)程序功能的那部分代碼，從而可以大大提高程序設(shè)計(jì)的效率。2. 面向?qū)ο蟮某绦蛟O(shè)計(jì)4.0版特別是5.0版以后的Visual Basic支持面向?qū)ο蟮某绦蛟O(shè)計(jì)，但它與一般的面向?qū)ο蟮某绦蛟O(shè)計(jì)語(yǔ)言（C+）不完全相同。在一般的面向?qū)ο蟪绦蛟O(shè)計(jì)語(yǔ)言中，對(duì)象由程序代碼和數(shù)據(jù)組成，是抽象的概念；而Visual Basic則是應(yīng)用面向?qū)ο蟮某绦蛟O(shè)計(jì)方法（OOP），把程序和數(shù)據(jù)封裝起來(lái)作來(lái)一個(gè)對(duì)象，并為每個(gè)對(duì)象賦予應(yīng)有的屬性，使對(duì)象成為實(shí)在的東西。在設(shè)計(jì)對(duì)象時(shí)，不必編寫(xiě)建立和描述每個(gè)對(duì)象的程序代碼，而是用工具畫(huà)在界面上，Visual Basic自動(dòng)生成對(duì)象的程序代碼封裝起來(lái)。每個(gè)對(duì)象以圖形方式顯示在界面上，都是可視的。3結(jié)構(gòu)化程序設(shè)計(jì)語(yǔ)言Visual Basic是在BASIC和Quick BASIC語(yǔ)言的基礎(chǔ)上發(fā)展起來(lái)的，具有高級(jí)程序設(shè)計(jì)語(yǔ)言的語(yǔ)句結(jié)構(gòu)，接近于自然語(yǔ)言和人類(lèi)的邏輯思維方式，其語(yǔ)句簡(jiǎn)單易懂：其編輯器支持彩色代碼，可自動(dòng)進(jìn)行語(yǔ)法錯(cuò)誤檢查，同時(shí)具有功能強(qiáng)且使用靈活的調(diào)試器和編譯器。Visual Basic是解釋型語(yǔ)言，在輸入代碼的同時(shí)，解釋系統(tǒng)將高級(jí)語(yǔ)言分解翻譯成計(jì)算機(jī)可以識(shí)別的機(jī)器指令，并判斷每個(gè)語(yǔ)句的語(yǔ)法錯(cuò)誤，在設(shè)計(jì)Visual Basic程序的過(guò)程中，隨時(shí)可以運(yùn)行程序，而在整個(gè)應(yīng)用程序設(shè)計(jì)好之后，可以編譯生成可執(zhí)行的文件（.EXE）,脫離Visual Basic環(huán)境，直接在Windows環(huán)境下運(yùn)行。4事件驅(qū)動(dòng)編程機(jī)制Visual Basic通過(guò)事件來(lái)執(zhí)行對(duì)象的操作。一個(gè)對(duì)象可能會(huì)產(chǎn)生多個(gè)事件，每個(gè)事件都可以通過(guò)一段程序來(lái)響應(yīng)。例如，命令按鈕是一個(gè)對(duì)象，當(dāng)用戶(hù)單擊該按鈕時(shí)，將產(chǎn)生一個(gè)“單擊”（Click）事件，而在產(chǎn)生該事件將執(zhí)行一段程序，用來(lái)實(shí)現(xiàn)指定的操作。在用Visual Basic設(shè)計(jì)大型應(yīng)用軟件時(shí)，不必建立具有明顯開(kāi)始和結(jié)束的程序，而是編寫(xiě)若干個(gè)微小的子程序，即過(guò)程，這些過(guò)程分別面向不同的對(duì)象，由用戶(hù)操作引發(fā)某個(gè)事件來(lái)驅(qū)動(dòng)執(zhí)行某種特定的功能，或者由事件驅(qū)動(dòng)程序調(diào)用通用來(lái)執(zhí)行指定的操作。這樣可以方便編程人員，提高效率。5訪問(wèn)數(shù)據(jù)庫(kù)Visual Basic系統(tǒng)具有很強(qiáng)的數(shù)據(jù)庫(kù)管理功能。利用數(shù)據(jù)控件和數(shù)據(jù)庫(kù)管理窗口，可以直接建立或處理Microsoft Access格式的數(shù)據(jù)庫(kù)，并提供了強(qiáng)大的數(shù)據(jù)存儲(chǔ)和檢索功能。同時(shí)，Visual Basic還能直接編輯和訪問(wèn)其他外部數(shù)據(jù)庫(kù)，如Btrieve,Dbase,Foxpro,Paradox等，這些數(shù)據(jù)庫(kù)格式都可以用Visual Basic編輯和處理。Visual Basic提供開(kāi)放式數(shù)據(jù)連接（Open Database Connectivity）,即ODBC功能，它可通過(guò)直接訪問(wèn)或建立連接的方式使用并操作后臺(tái)大型網(wǎng)絡(luò)數(shù)據(jù)庫(kù)，如SQL Server,Oracle等。在應(yīng)用程序中，可以使用結(jié)構(gòu)化查詢(xún)語(yǔ)言SQL數(shù)據(jù)標(biāo)準(zhǔn)，直接訪問(wèn)Server上的數(shù)據(jù)庫(kù)的SQL的編程技術(shù)，為單機(jī)上運(yùn)行的數(shù)據(jù)庫(kù)提供了SQL網(wǎng)絡(luò)接口，以便在分布式環(huán)境中快速而有效地實(shí)現(xiàn)客戶(hù)服務(wù)器（Client/Server）方案。以上介紹了Visual Basic的一些主要特性。除上述特性外，Visual Basic還提供了其他一些功能，包括動(dòng)態(tài)數(shù)據(jù)交換（DDE），對(duì)象的鏈接與嵌入（OLE）,動(dòng)態(tài)鏈接庫(kù)（DLL）,Internet組件下載，建立自己的ActiveX控件，ActiveX文檔以及遠(yuǎn)程自動(dòng)化工具直接支持遠(yuǎn)程操作，ActiveX數(shù)據(jù)對(duì)象（ADO）和ADO數(shù)據(jù)控件，遠(yuǎn)程數(shù)據(jù)對(duì)象（RDO）和遠(yuǎn)程數(shù)據(jù)控件（RDC）,并用有聲明，觸發(fā)，管理自定義事件的功能等。Visual Basic數(shù)據(jù)庫(kù)應(yīng)用程序有3個(gè)部分，即數(shù)據(jù)引擎，數(shù)據(jù)庫(kù)和應(yīng)用程序。數(shù)據(jù)庫(kù)引擎是數(shù)據(jù)庫(kù)驅(qū)動(dòng)程序，使用它，程序員可以用統(tǒng)一的格式訪問(wèn)各種數(shù)據(jù)庫(kù)，不管這個(gè)數(shù)據(jù)庫(kù)是本地的Access數(shù)據(jù)庫(kù)，還是所支持的其他任何格式的數(shù)據(jù)庫(kù)，其中所使用的數(shù)據(jù)訪問(wèn)對(duì)象和編程技術(shù)都是相同的。使用VB應(yīng)用程序訪問(wèn)數(shù)據(jù)庫(kù)時(shí)，Jet引擎被包含在一組動(dòng)態(tài)鏈接庫(kù)DLL文件中。運(yùn)行時(shí)，這些文件被引用到VB程序中，Jet引擎將應(yīng)用程序的請(qǐng)求翻譯成對(duì).mdb(Access文件后綴)文件或其他數(shù)據(jù)庫(kù)的物理操作。Jet引擎真正讀取，寫(xiě)入和修改數(shù)據(jù)庫(kù)，并處理所有內(nèi)部的事務(wù)。數(shù)據(jù)庫(kù)是包含數(shù)據(jù)庫(kù)表的一個(gè)或多個(gè)文件。對(duì)于本地Access數(shù)據(jù)庫(kù)來(lái)說(shuō)，就是.mdb文件。二、 系統(tǒng)開(kāi)發(fā)的環(huán)境1硬件環(huán)境：主機(jī)：586及其以上的微機(jī)和兼容機(jī)；內(nèi)存：至少32M；硬盤(pán)自由空間：容量至少1G，數(shù)據(jù)所需空間視使用情況而定；2軟件配置操作系統(tǒng)：Windows2000/xp以上數(shù)據(jù)庫(kù)管理系統(tǒng)：Access 2000設(shè)計(jì)語(yǔ)言：Visual Basic 6.0第二章 數(shù)據(jù)庫(kù)設(shè)計(jì)一、數(shù)據(jù)庫(kù)需求分析2.1.1：Access數(shù)據(jù)庫(kù)的特點(diǎn)數(shù)據(jù)庫(kù)是存儲(chǔ)在計(jì)算機(jī)內(nèi)，有組織，可共享的數(shù)據(jù)集合。數(shù)據(jù)庫(kù)中的數(shù)據(jù)按一定的數(shù)據(jù)模型組織，描述和存儲(chǔ)，具較小的數(shù)據(jù)冗余度，較高的數(shù)據(jù)獨(dú)立性和可擴(kuò)展性，并且數(shù)據(jù)庫(kù)中的的數(shù)據(jù)可為各種合法用戶(hù)共享。Access 2000 是微軟公司的Microsoft Office 2000系列軟件中的一個(gè)重要組成部分。它是一個(gè)運(yùn)行與Windows平臺(tái)上的關(guān)系數(shù)據(jù)庫(kù)管理系統(tǒng)，通過(guò)各種數(shù)據(jù)庫(kù)對(duì)象對(duì)數(shù)據(jù)進(jìn)行控制和管理。2.1.2：Access 2000的主要功能如下所述。 定義表，利用表存儲(chǔ)相應(yīng)的信息。 定義表之間的聯(lián)系，利用表中相關(guān)的字段鏈接不同的表。 強(qiáng)大的數(shù)據(jù)處理能力。 創(chuàng)建Web頁(yè)。 開(kāi)發(fā)應(yīng)用程序。Access 2000還提供了管理大量數(shù)據(jù)所需要的數(shù)據(jù)定義，數(shù)據(jù)操作和數(shù)據(jù)控制功能。Access 2000 支持ODBC（開(kāi)放式數(shù)據(jù)庫(kù)連接）特性，用戶(hù)能夠訪問(wèn)許多外部數(shù)據(jù)庫(kù)（如Oracle和Sybase等）的數(shù)據(jù)。二、數(shù)據(jù)庫(kù)結(jié)構(gòu)的實(shí)現(xiàn)經(jīng)過(guò)前面的需求分析以后，得到數(shù)據(jù)庫(kù)的邏輯結(jié)構(gòu)。現(xiàn)在就可以在Access數(shù)據(jù)庫(kù)中創(chuàng)建數(shù)據(jù)表了。221：創(chuàng)建數(shù)據(jù)庫(kù)在設(shè)計(jì)數(shù)據(jù)庫(kù)表結(jié)構(gòu)之前，首先要?jiǎng)?chuàng)建一個(gè)數(shù)據(jù)庫(kù)。本系統(tǒng)使用的數(shù)據(jù)庫(kù)為“人才信息.mdb”。222設(shè)計(jì)表結(jié)構(gòu)數(shù)據(jù)庫(kù)包括三張表：管理人才表，技術(shù)人才表，密碼表。下面分別介紹這些表結(jié)構(gòu)。1密碼表編號(hào)字段名稱(chēng)數(shù)據(jù)類(lèi)型說(shuō)明1用戶(hù)名文本保存用戶(hù)名，主鍵2密碼文本保存用戶(hù)密碼2管理人才表：編號(hào)字段名稱(chēng)數(shù)據(jù)類(lèi)型說(shuō)明1職工編號(hào)文本主鍵，必填字段2姓名文本必填字段3性別文本必填字段4國(guó)別文本5民族文本6年數(shù)字7月數(shù)字8日數(shù)字9專(zhuān)業(yè)文本10身份證號(hào)文本11婚姻狀況文本12文化程度文本13政治面貌文本14技術(shù)職稱(chēng)文本15主要特長(zhǎng)文本16工作經(jīng)歷備注17主要業(yè)績(jī)備注3技術(shù)人才表：編號(hào)字段名稱(chēng)數(shù)據(jù)類(lèi)型說(shuō)明1職工編號(hào)文本主鍵，必填字段2姓名文本必填字段3性別文本必填字段4民族文本5年數(shù)字6月數(shù)字7日數(shù)字8文化程度文本9政治面貌文本10技術(shù)職稱(chēng)文本11主要特長(zhǎng)文本12工作經(jīng)驗(yàn)備注13主要研究成果備注第三章、系統(tǒng)總體設(shè)計(jì)一、系統(tǒng)功能描述人才管理系統(tǒng)的基本功能是對(duì)企業(yè)、事業(yè)單位的組織機(jī)構(gòu)和員工進(jìn)行管理，本系統(tǒng)的主要功能如下：1. 技術(shù)人才信息管理l 添加技術(shù)人才信息，包括姓名、職工編號(hào)、性別、民族、出生日期等信息、l 修改技術(shù)人才信息l 刪除技術(shù)人才信息l 查詢(xún)技術(shù)人才信息2. 管理人才信息管理l 添加管理人才信息，包括姓名、職工編號(hào)、性別、民族、出生日期等信息l 修改管理人才信息l 刪除管理人才信息l 查詢(xún)管理人才信息3. 用戶(hù)管理l 添加新用戶(hù)l 修改用戶(hù)密碼4. 系統(tǒng)管理l 數(shù)據(jù)信息備份l 退出系統(tǒng)二、數(shù)據(jù)流程分析本系統(tǒng)只是一個(gè)對(duì)人才信息的儲(chǔ)存和管理，數(shù)據(jù)流程簡(jiǎn)單。此時(shí)的數(shù)據(jù)流程如圖所示。錄入查詢(xún)刪除技術(shù)人才管理人才修改數(shù)據(jù)流程圖三、系統(tǒng)功能模塊設(shè)計(jì)從功能描述的內(nèi)容可以看到，本系統(tǒng)可以實(shí)現(xiàn)五個(gè)完整的功能。根據(jù)這些功能，設(shè)計(jì)出的系統(tǒng)功能模塊如圖2-1所示。每個(gè)功能模塊都需要針對(duì)不同的表完成相同的數(shù)據(jù)庫(kù)操作，即添加記錄,修改記錄,刪除記錄，及查詢(xún)和顯示記錄。添加技術(shù)人才信息修改技術(shù)人才信息刪除技術(shù)人才信息查詢(xún)技術(shù)人才信息添加新用戶(hù)修改用戶(hù)密碼修改管理人才信息添加管理人才信息刪除管理人才信息退出系統(tǒng)數(shù)據(jù)庫(kù)備份系統(tǒng)管理用戶(hù)信息管理人才管理系統(tǒng)技術(shù)人才信息管理管理人才信息管理查詢(xún)管理人才信息圖2-1系統(tǒng)功能模塊設(shè)計(jì)圖第四章 系統(tǒng)詳細(xì)設(shè)計(jì)一、 啟動(dòng)程序設(shè)計(jì)程序代碼如下：Private Sub Timer1_Timer()If Label1.FontSize 40 ThenLabel1.FontSize = Label1.FontSize * 1.5ElsefrmLogin.Show 1Unload MeEnd IfEnd Sub二、用戶(hù)登錄程序設(shè)計(jì)用戶(hù)登錄的作用是判斷使用本程序的用戶(hù)是否是合法用戶(hù)。在程序進(jìn)入用戶(hù)登錄程序時(shí)要求輸入用戶(hù)名和密碼，如果用戶(hù)密碼正確程序繼續(xù)執(zhí)行。當(dāng)密碼錯(cuò)誤輸入的次數(shù)超過(guò)設(shè)定次數(shù)時(shí)，給出提示信息程序退出，這樣就防止了非法用戶(hù)對(duì)本程序的使用。事實(shí)上這是一個(gè)密碼輸入、密碼保存和密碼正確性的判斷的問(wèn)題。工作界面的設(shè)計(jì).用戶(hù)登錄的工作界面要放在啟動(dòng)界面上，但是不能破壞啟動(dòng)界面的整體效果，為此設(shè)計(jì)用戶(hù)登錄的工作界面，如下圖4-1所示。圖 4-1 用戶(hù)登錄窗體這介界面的背景是啟動(dòng)界面的一部分,調(diào)用用戶(hù)登錄后在這個(gè)圖片的原位置顯示登錄界面,這樣啟動(dòng)界面的完整性得以保證.由于這個(gè)用戶(hù)登錄界面上只有一個(gè)文本框,因此就不研究控件了?！罢?qǐng)輸入密碼”這幾個(gè)字是做在圖上的 密碼輸入的程序設(shè)計(jì)密碼輸入的一般操作為：（1）輸入密碼，在輸入密碼時(shí)一般要隱藏密碼 的真實(shí)字符；（2）核對(duì)密碼的正確性。這里應(yīng)注意，在密碼輸入法時(shí)應(yīng)用其它字符代替密碼字符，一般用“*”號(hào)。核對(duì)密碼的正確性就是用預(yù)設(shè)密碼和當(dāng)前輸入的密碼進(jìn)行比較，以判斷密碼輸入的正確性，這里實(shí)際上是一個(gè)密碼保存的問(wèn)題。密碼保存的方便做法是將密碼放在程序里，作為程序的組成部分，即在程序中安排一個(gè)固定的字符串作為密碼，作為密碼輸入的字符串和這個(gè)固定的字符串做比較。如果密碼正確程序繼續(xù)運(yùn)行，否則退出程序。這種做法最大問(wèn)題是密碼不能更換，一旦密碼泄露也就無(wú)密可保。將密碼放在一個(gè)文件里，每次輸入密碼時(shí)從密碼文件中讀出密碼，然后作密碼輸入是否正確的判斷也是一個(gè)辦法。使用文件保有存密碼最大的好處是密碼可以隨時(shí)更換，如晨將密碼加密后再存入文件，那么即使知道文件中數(shù)據(jù)是密碼，也不會(huì)知道真的密碼組成。這種辦法的最大缺陷是，一但密碼文件損壞或被刪除，程序就不能使用了。程序代碼如下：Option ExplicitPublic LoginSucceeded As BooleanDim connConnection As ADODB.ConnectionDim rsRecordSet As ADODB.Recordset檢查正確的密碼Private Sub cmdOK_Click()Dim strConnect As StringDim strProvider As String Dim strDataSource As String Dim strDataBaseName As String strProvider = Provider= Microsoft.Jet.OLEDB.3.51; strDataSource = App.Path strDataBaseName = 人才信息.mdb; strDataSource = Data Source= & strDataSource & _ strDataBaseName strConnect = strProvider & strDataSource Set connConnection = New ADODB.Connection connConnection.CursorLocation = adUseClient connConnection.Open strConnect Set rsRecordSet = New ADODB.Recordset account = txtUserName.Text pt = txtPassword.Text rsRecordSet.CursorType = adOpenStatic rsRecordSet.CursorLocation = adUseClient rsRecordSet.LockType = adLockPessimistic rsRecordSet.Source = select * from 密碼表 where 用戶(hù)名= & txtUserName.Text & rsRecordSet.ActiveConnection = connConnection rsRecordSet.Open If (rsRecordSet.RecordCount = 0) Then MsgBox 無(wú)此用戶(hù)名, , 登錄 Else If (rsRecordSet.Fields(密碼).Value = Trim(txtPassword.Text) Then Form1.Show Me.Hide Else MsgBox 無(wú)效的密碼，請(qǐng)重試!, , 登錄 txtPassword = txtPassword.SetFocus numlogin = numlogin + 1 If numlogin = 3 Then MsgBox 錯(cuò)誤輸入已達(dá)3次，系統(tǒng)退出！, vbOKOnly + vbExclamation, 警告 Unload Me Exit Sub End If End If End If connConnection.Close Set connConnection = NothingEnd SubPrivate Sub cmdCancel_Click() 設(shè)置全局變量為 false 不提示失敗的登錄 LoginSucceeded = False Unload MeEnd Sub 系統(tǒng)管理界面的設(shè)計(jì)用戶(hù)管理界面的窗體如圖-2所示。圖4-2 用戶(hù)管理窗體用戶(hù)管理窗體設(shè)計(jì)的代碼如下：Option ExplicitDim strque As StringDim strcon As StringDim stropen As StringDim strtext As StringPrivate connConnection As ADODB.ConnectionPrivate rsRecordSet As ADODB.RecordsetPrivate Sub Command3_Click() If Text5.Text = Then MsgBox 新密碼為空！, vbOKOnly Exit Sub End If stropen = select * from 密碼表 strtext = select * from 密碼表 where 用戶(hù)名 = & account & rsRecordSet.Source = strtext rsRecordSet.Open If rsRecordSet.RecordCount = 0 Then MsgBox 無(wú)此用戶(hù)！, vbOKOnly Exit Sub Else If Text5.Text Text6.Text Then MsgBox 兩次輸入密碼不同！, vbOKOnly Else rsRecordSet.Fields(0) = account rsRecordSet.Fields(1) = Text5.Text rsRecordSet.Update MsgBox 密碼修改成功！, vbOKOnly rsRecordSet.Close End If End IfEnd SubPrivate Sub Command1_Click() If Text1.Text = Then MsgBox 新帳號(hào)為空！, vbOKOnly Exit Sub End If stropen = select * from 密碼表 where 用戶(hù)名 = & Text1.Text & rsRecordSet.Source = stropen rsRecordSet.Open If rsRecordSet.RecordCount = 0 Then rsRecordSet.Close stropen = select * from 密碼表 rsRecordSet.Source = stropen rsRecordSet.Open If Text2.Text Text3.Text Then MsgBox 兩次輸入密碼不同！, vbOKOnly Else rsRecordSet.AddNew rsRecordSet.Fields(0) = Text1.Text rsRecordSet.Fields(1) = Text2.Text rsRecordSet.Update MsgBox 用戶(hù)添加成功！, vbOKOnly rsRecordSet.Close End If Else MsgBox 已有該用戶(hù)！, vbOKOnly Text1.Text = Text1.SetFocus rsRecordSet.Close Exit Sub End IfEnd SubPrivate Sub Command2_Click() connConnection.Close Set connConnection = Nothing Unload Me Form1.ShowEnd SubPrivate Sub Command4_Click() connConnection.Close Set connConnection = Nothing Unload Me Form1.ShowEnd SubPrivate Sub Form_Load() Dim strConnect As String Dim strProvider As String Dim strDataSource As String Dim strDataBaseName As String Dim pt As String strProvider = Provider= Microsoft.Jet.OLEDB.3.51; strDataSource = App.Path strDataBaseName = 人才信息.mdb; strDataSource = Data Source= & strDataSource & _ strDataBaseName strConnect = strProvider & strDataSource Set connConnection = New ADODB.Connection connConnection.CursorLocation = adUseClient connConnection.Open strConnect Set rsRecordSet = New ADODB.Recordset rsRecordSet.CursorType = adOpenStatic rsRecordSet.CursorLocation = adUseClient rsRecordSet.LockType = adLockPessimistic rsRecordSet.ActiveConnection = connConnectionEnd Sub三、主窗體界面的設(shè)計(jì)主窗體界面如圖-3所示。圖4-3 人才管理主窗體主窗體界面的設(shè)計(jì)代碼如下：Option ExplicitAPI函數(shù)聲明Private Declare Function PlaySound Lib winmm.dll Alias PlaySoundA (ByVal lpszName As String, ByVal hModule As Long, ByVal dwflags As Long) As Long常數(shù)聲明Dim hWndl As LongDim flag As IntegerPrivate Sub Quit() Unload Me End SubPrivate Sub e_Click()Unload MeEnd SubPrivate Sub Form_Load()End SubPrivate Sub gy_Click()frmAbout.Show 1End SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case Button.Key Case j Form7.Show 1 Case g Form3.Show 1 Case y Form12.Show 1 Case s Dim FileName1, FileName2 As StringOn Error GoTo A1CommonDialog1.Filter = *.mdb|*.mdbCommonDialog1.ShowOpenFileName1 = CommonDialog1.FileNameCommonDialog1.ShowSaveFileName2 = CommonDialog1.FileNameA1:If Err.Number = 75 Or Err.Number = 53 Then Exit Sub Else If Err.Number = 70 Then If FileName1 = FileName2 Then MsgBox 文件已經(jīng)存在，請(qǐng)更改文件名 ！, vbOKOnly + vbExclamation Exit Sub Else Exit Sub End If Else FileCopy FileName1, FileName2 End IfEnd If Case q frmAbout.Show 1 Case e Quit End SelectEnd Sub四、技術(shù)人才管理窗體設(shè)計(jì)該窗體主要完成錄入、刪除、修改、查詢(xún)技術(shù)人才管理功能的調(diào)用，如圖-4所示。圖 4-4技術(shù)人才菜單1當(dāng)用戶(hù)單擊“錄入”時(shí)，將調(diào)出“技術(shù)人才錄入窗體” 完成技術(shù)人才信息保存。工作界面使用的控件，如表4-3所示，控件屬性設(shè)置如表4-4所示。控件設(shè)置名稱(chēng)作用Datal連接數(shù)據(jù)庫(kù)Command1確認(rèn)，轉(zhuǎn)下一記錄Command2清除當(dāng)前錄入數(shù)據(jù)，重新錄入數(shù)據(jù)Command3保存錄入數(shù)據(jù)，返回主菜單Command4返回，不保存數(shù)據(jù)Combo1文化程度預(yù)設(shè)值Combo2政治面貌預(yù)設(shè)Combo3技術(shù)職稱(chēng)預(yù)設(shè)值Frme1性別選擇分組框Label1窗體標(biāo)題Line1分割線Option1“男”單選框Option2“女”單選框StatusBar1顯示記錄情況和當(dāng)前日期時(shí)間Text1Text2與撥尖人才數(shù)據(jù)表各字段綁定表 4-4工作界面窗體控件設(shè)置控件主要屬性控件名稱(chēng)屬性值DatalRecordSource拔尖人才VisibleFasleCombo1DataField文化程度Combo2DataField政治面貌Combo.DataField技術(shù)職稱(chēng)Text1DataField姓名Text2DataField年Text3DataField月Text4DataField日Text5DataField市（縣）Text6DataField區(qū)Text7DataField街Text8DataField號(hào)Text9DataField技術(shù)特長(zhǎng)Text10DataField何種獎(jiǎng)勵(lì)Text11DataField科研成果MultilineTrueText12DataField性別VisibleFalseText13EnabledTrueInterval1000(1秒) 表4-5工作界面的各個(gè)控件屬性設(shè)置復(fù)選框和文本框的數(shù)據(jù)源均為Datal。這里將Text11的”MultiLine”屬性設(shè)為：“True”是為了能輸入多行文字。數(shù)據(jù)錄入的工作流程如圖4-6所示。窗體裝入關(guān)閉關(guān)閉按鈕確定數(shù)據(jù)文件、激活數(shù)據(jù)源得到記錄總數(shù)、在狀態(tài)欄顯示記錄總數(shù)和當(dāng)前記錄數(shù)及當(dāng)前日期和時(shí)間輸入一條新記錄輸入姓名顯示提示信息，等待輸入姓名回車(chē)鍵向下輸入姓名為空等待按下回車(chē)鍵選擇性別改變下一文本框的背景顏色并設(shè)置焦點(diǎn)，等待輸入其他數(shù)據(jù)各項(xiàng)數(shù)據(jù)輸入完畢下一記錄按鈕按下重新錄入按鈕按下保存數(shù)據(jù)按鈕按下返回按鈕按下保存當(dāng)前錄入的記錄清空所有輸入數(shù)據(jù)保存數(shù)據(jù)、返回主菜返回主菜單、不保存數(shù)據(jù)插入一新記錄、等待數(shù)據(jù)輸入等待數(shù)據(jù)輸入事件過(guò)程如表-6所示。過(guò)程名類(lèi)型執(zhí)行條件作用Form_load事件過(guò)程裝入窗體調(diào)用關(guān)閉關(guān)閉按鈕的函數(shù)過(guò)程關(guān)閉關(guān)閉按鈕、設(shè)置各控件的屬性、連接數(shù)據(jù)庫(kù)、插入一條新記錄Text1_KeyPress事件過(guò)程回車(chē)鍵按下判斷姓名是否為空，設(shè)置單選鈕使能為真，設(shè)Option1值為真Option1_Click事件過(guò)程O(píng)ption1單擊選擇性別為“男”并賦值給Text12Option2_Click事件過(guò)程O(píng)ption2單擊選擇性別為“女”并賦值給Text12Text2_KeyPressText4_KeyPress事件過(guò)程回車(chē)鍵按下分別輸入“年”“月”“日”，判斷輸入數(shù)據(jù)的合法性，激活下一控件Combo1_ KeyPressCombo3_ KeyPress事件過(guò)程回車(chē)鍵按下選擇“文化程度”、“政治面貌”、“技術(shù)職稱(chēng)”，激活下一控件Text5_KeyPressText11_KeyPress事件過(guò)程回車(chē)鍵按下繼續(xù)輸入其他各項(xiàng)數(shù)據(jù)，激活下一控件Command1_Click事件過(guò)程鼠標(biāo)單擊插入空記錄，恢復(fù)各控件原屬性設(shè)置Command1_KeyPress事件過(guò)程回車(chē)鍵按下插入空記錄，恢復(fù)各控件原屬性設(shè)置Command2_Click事件過(guò)程鼠標(biāo)單擊清空錄入數(shù)據(jù)，恢復(fù)各控件原屬性設(shè)置，重新輸入Command3_Click事件過(guò)程鼠標(biāo)單擊保存輸入數(shù)據(jù)，返回工作選項(xiàng)Command4_Click事件過(guò)程鼠標(biāo)單擊取消數(shù)據(jù)輸入操作，返回工作選項(xiàng)Timer1_Timer事件過(guò)程定時(shí)時(shí)間到更新當(dāng)前時(shí)間表4-62技術(shù)人才信息查詢(xún)信息查詢(xún)的工作界面與數(shù)據(jù)錄入時(shí)使用的工作界面基本相同，只是多了一個(gè)輸入姓名的文本框和一個(gè)顯示“請(qǐng)輸入姓名”的標(biāo)簽，如4-7圖所示：本程序使用Visual Basic自身提供的Find查詢(xún)的模糊查詢(xún)方法。圖4-7技術(shù)人才信息查詢(xún)工作界面Private Sub Command1_Click() 查詢(xún)記錄 Set rsRecordSet2 = New ADODB.Recordset rsRecordSet2.ActiveConnection = connConnection strcon = select * from 技術(shù)人才表 where strtext = Text18.Text strque = strcon & 職工編號(hào) = & strtext & If Text18 = Then MsgBox 請(qǐng)輸入職工編號(hào) ！ , vbExclamation Text18 = Text18.SetFocus Exit Sub End If rsRecordSet2.Source = strque rsRecordSet2.Open If rsRecordSet2.RecordCount = 0 Then MsgBox 沒(méi)有找到要查詢(xún)的信息, vbOKOnly End If Call bind1 Command1.Enabled = False Command2.Enabled = FalseEnd Sub因?yàn)檫@里是進(jìn)行查詢(xún)，這時(shí)數(shù)據(jù)應(yīng)該只能顯示不能修改，故需要將所有用于顯示數(shù)據(jù)的文本框鎖住，即除用于輸入姓名的文本框“Text17”外，將其他文本框的Locked屬性設(shè)置為”True”。在刪除數(shù)據(jù)的程序中對(duì)文本框的Locked屬性也作了相同的設(shè)定。3.技術(shù)信息人才刪除在該窗體中對(duì)記錄的刪除方法是先查詢(xún)后刪除，工作界面如4-8圖所示，工作時(shí)首先輸入需要待刪除人員的職工編號(hào)，然后計(jì)算機(jī)查找相應(yīng)記錄，在查到需要?jiǎng)h除的記錄后，單擊“刪除”按鈕即可刪除記錄。圖4-8技術(shù)信息人才刪除界面代碼段如下：Private Sub Command4_Click() If blquery Then blquery = False rsRecordSet2.Delete 刪除查詢(xún)后的記錄 Else rsRecordSet.Delete 刪除沒(méi)有點(diǎn)擊查詢(xún)按鈕時(shí)的的記錄 End If rsRecordSet.Close 關(guān)閉原來(lái)的記錄集 strcon = select * from 技術(shù)人才表 rsRecordSet.Source = strcon rsRecordSet.LockType = adLockPessimistic rsRecordSet.Open 重新打開(kāi)原來(lái)的記錄集 Call bind Command4.Enabled = False Command2.Enabled = True Command3.Enabled = TrueEnd Sub3技術(shù)人才信息的修改數(shù)據(jù)修改的工作界面如4-9圖所示圖4-9技術(shù)人才信息修改的工作界面這個(gè)程序與數(shù)據(jù)查詢(xún)不同之處是各文本框沒(méi)有鎖定，與數(shù)據(jù)錄入的不同之處是不能輸入新記錄。這里不在細(xì)述。程序清單如下：Option ExplicitDim strque As StringDim strcon As StringDim strtext As StringDim blquery As BooleanDim bldatabase As BooleanPrivate WithEvents connConnection As ADODB.ConnectionPrivate WithEvents rsRecordSet As ADODB.RecordsetPrivate WithEvents rsRecordSet2 As ADODB.RecordsetPrivate Sub Command1_Click() blquery = True Set rsRecordSet2 = New ADODB.Recordset rsRecordSet2.ActiveConnection = connConnection strcon = select * from 技術(shù)人才表 where strtext = Text18.Text strque = strcon & 職工編號(hào) = & strtext & If Text18 = Then MsgBox 請(qǐng)輸入職工編號(hào) ！ , vbExclamation Text18 = Text18.SetFocus Exit Sub End If rsRecordSet2.Source = strque rsRecordSet2.LockType = adLockPessimistic rsRecordSet2.Open Call bind1 If