現(xiàn)代企業(yè)的e-HR戰(zhàn)略隨著網(wǎng)絡技術跳躍式的發(fā)展，以網(wǎng)絡經(jīng)濟為主導的新經(jīng)濟形勢下的現(xiàn)代企業(yè)之競爭愈來愈直接地反映為人才戰(zhàn)略的競爭。在此背景下，企業(yè)管理的轉型，尤其是人力資源管理的轉型就日顯重要。為適應快速變化的市場，企業(yè)需要更加靈活、快速反應的人力資源管理平臺和解決方案。“人力資源管理”已真正成為企業(yè)管理炙手可熱的話題。無論從形式還是從內(nèi)容上，企業(yè)的確是越來越重視人力資源的管理與開發(fā)。然而，在人力資源管理是否應該實施e-化、以及如何實現(xiàn)e-化的問題上，不少現(xiàn)代企業(yè)還存在著諸多困惑。筆者結合自身的工作實踐和學習體會，妄談以下觀點與大家分享。不妥之處，請見諒。

一、人力資源管理需要企業(yè)全員參與

經(jīng)過幾年的發(fā)展和培育，國內(nèi)企業(yè)終于出現(xiàn)了一批專業(yè)的人力資源管理者，他們不僅接受了先進人力資源管理理念的熏陶，而且掌握了企業(yè)人力資源實務操作方法。為此，在大多數(shù)企業(yè)經(jīng)營者和廣大員工看來：在建立企業(yè)的人力資源管理體系等問題上，似乎只有HR管理者們最具有發(fā)言權，人力資源管理也只是HR專業(yè)人士的事情。

然而，現(xiàn)代人力資源理論越來越多地認為：人力資源管理絕不僅僅是人力資源部和HR專業(yè)人士的事，他要求企業(yè)全員的支持和參與。沒有了領導和決策層的強有力支持，HR部門的戰(zhàn)略就無法與企業(yè)業(yè)務戰(zhàn)略協(xié)調(diào)一致、許多計劃就很難得以實施，這就勢必會影響到HR部門的工作力度，從而影響企業(yè)完整的HR管理體系的建立。同時，作為業(yè)務能手的企業(yè)中層經(jīng)理們的全面參與和配合，將極大地推動公司新的HR計劃和政策的制訂和實施－－這無疑會大大減輕HR部門的工作強度，使政策和制度的制定和實施真正落實到位。另外，員工的廣泛參與會有助于提高HR服務的速度、質量和員工滿意度。

總之，企業(yè)的人力資源管理活動是需要通過企業(yè)不同角色（HR專業(yè)人士、決策層、中層經(jīng)理以及員工）的共同參與來完成的，而不只是HR部門的工作。這也就是所謂的“全面人力資源管理”。理想狀況下，企業(yè)不同角色之間應該建立起一條良性的HR管理生態(tài)鏈。HR管理首先是企業(yè)經(jīng)營的需要；HR部門為滿足這種需求設計和制訂各種用于加強HR管理的各項規(guī)章和制度（比如薪酬福利體系、績效管理體系、招聘甑選體系、以及員工培訓和發(fā)展體系等），并通過分析市場的各種反饋，來幫助企業(yè)提升需求的層次；同時，HR部門還需要將企業(yè)內(nèi)部的各級中層經(jīng)理培養(yǎng)成為各項HR規(guī)章制度的代言人和實施者，由中層經(jīng)理直接面對作為最終用戶的員工進行日常管理。

可以想見，如果沒有全員的參與，人力資源管理無異于HR部門閉門造車。而企業(yè)一旦能夠切實按照全員參與的原則進行HR管理，HR部門就可以把精力放在分析作為其顧客的其他角色（包括公司高層、中層和員工）的需求，并不斷提升自己滿足客戶需求的能力，為客戶提供更好的HR產(chǎn)品與服務。

當然，目前中國大多數(shù)企業(yè)的實際情況是：由于過去幾年對人力資源管理的培訓主要集中在人力資源專業(yè)人事身上，而忽視了對企業(yè)高層和中層經(jīng)理及員工的相關培訓，使得很多的企業(yè)經(jīng)營者對人力資源管理缺乏理性和感性認識，導致HR管理生態(tài)鏈上的各個角色不能很好地進入狀態(tài)。因此，對于大多數(shù)中國企業(yè)而言，接受過專業(yè)培訓的HR部門還必須承擔起宣傳和推廣HR管理產(chǎn)品和服務（包括管理理念與管理技術兩個層面）的責任。

那么，如何才能更有效地使HR體系和產(chǎn)品和服務在企業(yè)中更廣泛地得到高效應用呢？建立e-化的HR系統(tǒng)是現(xiàn)代企業(yè)加強人力資源管理，增強可持續(xù)競爭力的有效辦法。

二、實施人力資源管理e-化戰(zhàn)略

在企業(yè)的資金、技術、市場和人才等諸多經(jīng)營要素中，管理者對人力資源的經(jīng)營是最為模糊的。很多企業(yè)往往將人力資源視為一種不得已的成本開銷，而不知道如何對人力資源進行價值經(jīng)營。在人力資源經(jīng)營理念中，很重要的一個概念就是人力資本。企業(yè)的所有經(jīng)營活動，都是依賴于人力資本來實現(xiàn)的。資金、技術、市場是相對容易掌握的，而可持續(xù)競爭優(yōu)勢的創(chuàng)造最終要靠人。而實現(xiàn)人力資本的最大化，有賴于對企業(yè)內(nèi)部不同角色客戶之需求的滿足。這就要求HR部門通過分析不同客戶的需求，有針對性地為他們提供HR管理產(chǎn)品與服務。那么，作為客戶的企業(yè)高層、中層經(jīng)理以及普通員工對HR的需求又分別是什么呢？

人力資源管理的主要功能在于“選人、用人、育人、留人”，每一個功能其實都可以設計相應的指標來進行效果評價。人力成本的組成要素可以由企業(yè)自行定義，比如吸收成本、使用成本、安置成本、追加成本、流動成本、機會成本、沉沒成本、重置成本乃至原始成本等，都是可考慮的因素。比如：每流失一名關鍵崗位的員工，都會給企業(yè)的人力資本帶來損失，而這個值基本上可以通過該崗位的平均人力成本來衡量，于是，這些關鍵崗位的離職率越低，企業(yè)的人力資本損失就越少，從另外一個角度來看，就是HR部門為企業(yè)實現(xiàn)的人力資本的保值增值。事實上，通過對HR部門的工作進行定量評價，也有助于企業(yè)決策者對HR部門的認識從“成本中心”向“利潤中心”轉變。

對于企業(yè)高層而言，過去他們都習慣于看銷售額、利潤、利潤率、增長率等經(jīng)營指標，卻很少去分析人力資源狀態(tài)指標與經(jīng)營指標的內(nèi)在聯(lián)系，因而很難從根本上找到提升企業(yè)經(jīng)營績效的辦法；但如果能夠建立起不同部門（機構）、不同人群（如銷售、研發(fā)、管理和服務等）的經(jīng)營指標與關鍵的人力資源狀態(tài)指標（如總人數(shù)、學歷結構、年齡結構、司齡狀況、離職率、晉升率、人力成本等）之間的關系，就能使高層比較直觀地掌握企業(yè)經(jīng)營指標受人力資源狀態(tài)指標影響的規(guī)律，從而有針對性地制訂相應策略、通過人力資源管理、開發(fā)、經(jīng)營手段來提升組織績效。

一旦企業(yè)高層真正意識到人力資源經(jīng)營的重要性，并掌握了人力資源經(jīng)營效果的評價方法，他們就會成為對HR管理需求的發(fā)起者，從而使人力資源管理真正列上決策者的重要議事日程，而不是通常人們所說的：“人力資源管理是重要但不緊急的”。因此，HR部門針對企業(yè)高層進行的人力資源宣傳推廣策略應該是：通過提供一些關鍵的、可獲取結果的人力資源投入產(chǎn)出經(jīng)營指標以及人力資源狀態(tài)指標，將人力資源經(jīng)營的理念傳遞給高層。而對于中層管理人員而言，他們往往是業(yè)務能力強于管理能力，而其中最為薄弱的恐怕是對人力資源的管理了。原因在于，過去人們普遍認為HR管理只是HR部門的事，人力資源管得好與壞也只與HR部門有關系。但現(xiàn)代人力資源管理的發(fā)展趨勢是：多數(shù)人力資源活動（比如員工招聘與錄用、績效管理、培訓與發(fā)展、薪酬管理、企業(yè)文化和員工關系等）的實施將由中層經(jīng)理與HR部門共同完成，甚至委托/授權給中層經(jīng)理獨立完成。事實上，HR部門是無法了解到每一個員工的詳細情況的，只有一線中層經(jīng)理才對自己下屬的狀況與需求最為熟悉。HR部門要做的，是制定HR管理的計劃、流程以及策略（即設計制造HR管理產(chǎn)品、并提供顧問咨詢和服務平臺），通過培訓一線中層經(jīng)理熟悉并善于在日常管理中貫徹這些計劃、流程與策略。同時，人力資源部還可以通過著重培養(yǎng)一線中層經(jīng)理的溝通技巧，以確保溝通渠道的暢通和有效。通過培訓與授權，讓中層經(jīng)理參與到HR管理全部活動中來，使得他們在管理能力得到提升的同時還能促進其業(yè)務的發(fā)展。

對于一般員工而言，一套完善的HR管理體系以及對管理體系的執(zhí)行力度是他們最為關注的。因為大多數(shù)人都會傾向于選擇一個有序、透明的工作環(huán)境。HR管理體系的建立與對管理體系的宣傳指導應該由HR部門來統(tǒng)一實施，而作為HR管理產(chǎn)品和服務代言人的一線中層經(jīng)理將負責在管理體系上的執(zhí)行。讓員工共享更多的信息，是增進員工與HR部門之間信任度的重要因素。當然，在讓員工了解HR部門工作的基礎上，要想進一步減少員工的抱怨，提升員工對HR部門工作的滿意度，就需要員工參與到HR管理活動中來，同時還要求HR部門做到能滿足員工的個性化需求，給予員工更多的關注。比如：使員工能夠方便地自主更新并獲得與個人相關的人事信息、能夠得到及時的轉正；生日能夠得到公司的祝福；培訓能夠得到及時的安排；能夠及時了解內(nèi)部職位的空缺信息；能夠隨時了解自己的薪資福利狀況和股權信息；能夠方便的請假、銷假；能夠隨時查詢并調(diào)整自己的工作目標；能夠和HR部門進行有效溝通等等。不過，這些服務的提供，實際上是需要利用技術手段來支持員工與HR部門之間建立更多的互動，否則這些服務的提供是很難實現(xiàn)的。

總之，HR部門對企業(yè)內(nèi)不同客戶進行的人力資源管理推廣，一靠對HR管理體系的宣傳指導與切實執(zhí)行，二靠通過技術手段滿足大家不同層次的個性化需求，給予大家更多的關注，并讓大家參與到HR管理活動中來。讓他們充分應用HR管理產(chǎn)品和服務，才是成功的保證。而有效地利用信息技術手段，建立起企業(yè)的e-HR管理平臺，將有力地推動HR管理生態(tài)鏈上不同角色對HR管理活動的參與熱情和參與深度。

三、金蝶軟件實施e-HR戰(zhàn)略、推動企業(yè)全面人力資源管理

HR部門通常需要通過人力資源宣傳推廣手段，促進企業(yè)不同角色參與到HR管理活動中來，并希望借助信息技術的手段（人力資源管理系統(tǒng)）真正實現(xiàn)“全面人力資源管理”。

事實上，人力資源管理系統(tǒng)已經(jīng)經(jīng)歷了比較長的發(fā)展過程，只不過傳統(tǒng)的人力資源管理系統(tǒng)，主要是用來解決HR部門自身的業(yè)務管理問題，比如人事信息管理、薪資計算、考勤管理等等，這類信息系統(tǒng)的應用，能夠從某種程度上提升HR管理的效率，但由于系統(tǒng)的用戶對象主要是HR部門的管理人員，HR管理的信息流無法突破本部門之外，從而導致了HR管理體系的封閉狀況始終不能得到改善。

隨著互聯(lián)網(wǎng)技術的出現(xiàn)，信息流突破了部門的限制而延伸到企業(yè)內(nèi)外的各個角落，使得HR管理的業(yè)務流程再造成為可能，HR管理體系也將因此而突破封閉的模式，企業(yè)各級管理者及普通員工也能參與到HR的管理活動中來。于是e-HR應運而生了。與傳統(tǒng)人力資源管理系統(tǒng)不同，e-HR是從"全面人力資源管理"的角度出發(fā)，利用互聯(lián)網(wǎng)技術為HR管理搭建一個標準化、規(guī)范化、網(wǎng)絡化的工作平臺，在滿足HR部門業(yè)務管理需求的基礎上，還能將HR管理生態(tài)鏈上不同的角色聯(lián)系起來，使得e-HR成為企業(yè)實行“全面人力資源管理”的紐帶。

作為國內(nèi)民營企業(yè)的嬌嬌者，金蝶軟件很早就認識到人力資源管理的重要性，總裁徐少春自身就是人力資源工作最大的推動者，好幾年前就提出了激情管理與數(shù)字化管理相結合的管理模式，致力于提升企業(yè)管理競爭力。在成功開發(fā)K/3人力資源系統(tǒng)的過程中，積極在本集團加以推廣應用，從而在很大程度上保證了e-HR在金蝶的成功實施。

金蝶通過與咨詢公司等合作從制訂戰(zhàn)略開始，首先理順了高層管理人員的思路，再逐層落實組織結構，在職位分析方面，從任職資格到職位評估，做了大量的基礎工作。對金蝶來說這一切都是值得的，它使得整個公司的管理明確化，無論是為管理工作e化的實現(xiàn)，還是更進一步提升企業(yè)的管理工作，都可以順利的實現(xiàn)。在金蝶，通過K/3人力資源系統(tǒng)，每一個員工都可以通過自己的職位自動確定自己在系統(tǒng)中所擁有的權限和范圍，并可獲取與之相關的資源和信息。而系統(tǒng)中的人力資源管理事務也都隨之展開。部門有招聘需求時，系統(tǒng)會自動生成用工需求，提供與職位相關的信息，同時可根據(jù)任職要求自動過濾應聘人員資料；而培訓體系也是基于任職要求和員工職業(yè)發(fā)展通路建立起來，這也就解決了很多企業(yè)管理者想培訓卻不知如何培訓的問題。員工的績效考核和干部管理人員民主評議更是可以方便地實現(xiàn)在線操作。

通過實踐，金蝶人真正感受到了e-HR的好處。以下是我們的一些體會：

1．e-HR之于HR部門

HR部門實施的人力資源管理活動，包括了從人力資源計劃、招聘、在職管理（人事信息管理、考勤休假管理、培訓管理、績效管理、薪酬管理、員工關系）一直到員工離職的所有HR管理職能。雖然越來越多的HR管理活動會授權和委托給一線中層經(jīng)理來實施，但HR管理體系的建立、HR管理活動的計劃、管理過程的監(jiān)控、管理結果的匯總與分析、以及結果應用等工作都需要HR部門統(tǒng)一來完成。只是HR管理活動的過程將更多地授權給中層經(jīng)理和普通員工來完成。因此，對HR部門而言，除了負責eHR平臺的系統(tǒng)管理之外，更多地是通過eHR平臺來進行HR管理活動的計劃、監(jiān)控與分析，而不是進行大量的數(shù)據(jù)維護，而數(shù)據(jù)維護的工作經(jīng)授權后將逐漸由一線經(jīng)理與員工分擔完成。當然，出于管理的需要，類似于薪酬管理這樣的職能，很多企業(yè)還將以HR部門為主來完成。

2．e-HR之于高層

對公司高層而言，e-HR首先是人力資源信息查詢與決策支持的平臺。決策者能不通過HR部門的幫助，自助式地獲取企業(yè)人力資源的狀態(tài)信息，在條件允許的情況下（要求企業(yè)業(yè)務管理系統(tǒng)、財務系統(tǒng)的基礎數(shù)據(jù)比較完善，并能跟e-HR平臺集成起來），高層決策者還能獲得各種輔助其進行決策的人力資源經(jīng)營指標。其次，利用e-HR平臺，當某個HR管理活動的流程到達高層決策者桌面時，決策者還可以在網(wǎng)上直接進行處理。

3．e-HR之于中層經(jīng)理

對一線中層經(jīng)理來講，e-HR是其參與HR管理活動的工作平臺，通過這個平臺，中層經(jīng)理們可在授權范圍內(nèi)在線查看所有下屬員工的人事信息，更新員工考勤信息，向人力資源部提交招聘、培訓計劃和申請，對員工的轉正、培訓、請假、休假、離職等流程進行在線審批，并能在線對員工進行績效評估和管理，并對各級管理人員和員工進行在線民主評議。4．e-HR之于員工

員工利用e-HR平臺，可在線查看企業(yè)規(guī)章制度、組織結構、重要人員信息、內(nèi)部招聘信息、個人當月薪資及薪資歷史情況、期權信息和執(zhí)行情況、個人福利累計情況、個人考勤休假情況，注冊內(nèi)部培訓課程、提交請假/休假申請，更新個人數(shù)據(jù)，進行個人績效和目標管理，與HR部門進行電子方式的在線溝通等等。

值得指出的是，由于e-HR是建立在標準業(yè)務流程基礎之上的，它要求個人的習慣服從于企業(yè)統(tǒng)一的管理規(guī)范，這對實現(xiàn)HR管理行為的一貫化是十分有意義的，而管理只有成為大家共同遵循的一種習慣，才能發(fā)揮最佳功效。

要想成功實施e-HR,最重要的是企業(yè)決策人員要對人力資源管理工作高度重視。對于人力資源的投入往往是一種長期效應，其短期效益的體現(xiàn)不是很明顯。如果得不到高層決策人員的支持是不可能得到有效的資源來e化企業(yè)的人力資源管理的。

企業(yè)的信息工程往往是一把手工程，而對于通常被視為“重要但不緊急”的人力資源系統(tǒng)的實施又尤為明顯。作為企業(yè)決策者，最關心的莫過于企業(yè)的利潤，但企業(yè)的利潤從何而來？靠的是企業(yè)的員工！一個企業(yè)只有將它的員工的個人績效進行提升并進行有效組織，才能體現(xiàn)為整個企業(yè)對外的競爭力，才能更好地提升客戶滿意度，從而獲取更多的利潤。而只有通過這種手段和方式獲得的企業(yè)競爭力才是最具可持續(xù)性的?，F(xiàn)代企業(yè)人才管理系統(tǒng)摘要本論文是從現(xiàn)代企業(yè)管理中的人才管理現(xiàn)狀出發(fā)，針對人才管理的復雜程序，經(jīng)過詳細的系統(tǒng)調(diào)查，開發(fā)出的操作簡單而且方便實用的一個人才管理系統(tǒng)。

本系統(tǒng)的前端開發(fā)工具是VisualBasic6.0，后臺數(shù)據(jù)庫引擎選用數(shù)據(jù)庫軟件Access2000。

本系統(tǒng)經(jīng)過測試，運行穩(wěn)定，已得到認可。關鍵詞：人才管理系統(tǒng)，VisualBasic6.0，Access2000

SummaryManagethecurrentsituationandsetoutfromtalentinmodernbusinessadministrationinthisthesis,totalentcomplicatedprocedureofmanagement,investigatethroughdetailedsystemoperationsimpleandconvenientpracticalonetalentadministrativesystemthatdevelop.ThefrontdevelopinginstrumentofthissystemisVisualBasic6.0,backstagesupporter'sdatabaseengineselectsthedatabasesoftwareAccess2000foruse.Thissystemrunssteadily,hasalreadybeenapprovedthroughtesting.Keyword:Talent'sadministrativesystem,VisualBasic6.0,Access2000前言

隨著計算機技術的不斷發(fā)展，計算機作為知識經(jīng)濟時代的產(chǎn)物，已被廣泛應用于社會各個行業(yè)和領域。隨著我國國企改革的深入和社會主義市場經(jīng)濟的日趨繁榮，導致各企業(yè)間的競爭日益激烈，迫使企業(yè)采取先進的計算機硬件設備以及高質量的輔助軟件來管理企業(yè)的各項運作，以提高本企業(yè)的勞動生產(chǎn)率以及人員效率。人才管理系統(tǒng)軟件作為一種理軟件正在各企事業(yè)單位中得到越來越廣泛的應用。

目錄摘要…………………………1前言…………………………2緒論…………………………4第一章人才管理系統(tǒng)概述第二章怎樣開發(fā)一個學生檔案管理系統(tǒng)？

2.1編程環(huán)境的選擇

2.2關系型數(shù)據(jù)庫的實現(xiàn)

2.3二者的結合（DBA）第三章使用Access2000實現(xiàn)關系型數(shù)據(jù)庫

3.1數(shù)據(jù)庫的概念

3.2新建一個數(shù)據(jù)庫

3.3修改已建的數(shù)據(jù)庫

3.4實現(xiàn)數(shù)據(jù)庫之間的聯(lián)系第四章:人才管理系統(tǒng)分析4.1可行性分析4.2系統(tǒng)數(shù)據(jù)流程圖4.3數(shù)據(jù)字典第五章:人才管理系統(tǒng)設計5.1系統(tǒng)功能模塊圖5.2數(shù)據(jù)庫設計5.3界面設計5.4程序設計第六章:系統(tǒng)測試第七章:系統(tǒng)使用說明第八章：結束語第九章：參考文獻第十章：程序源代碼緒論設計名稱:人才管理系統(tǒng)2、開發(fā)單位:葫蘆島廣播電視大學3、開發(fā)期限:3.8-4.284、設計目標:近期目標:在5.1之前能達到基本的人才管理信息的錄入,管理以及打印.長期目標:在3年之內(nèi)能夠完善軟件全部功能,實行軟件的長運經(jīng)濟戰(zhàn)略.人才管理系統(tǒng)概述人力資源管理系統(tǒng)的發(fā)展歷史可以追溯到20世紀60年代末期。由于當時計算機技術已經(jīng)進入實用階段，同時大型企業(yè)用手工來計算和發(fā)放薪資既費時費力又非常容易出差錯，為了解決這個矛盾，第一代的人力資源管理系統(tǒng)應運而生。當時由于技術條件和需求的限制，用戶非常少，而且那種系統(tǒng)充其量也只不過是一種自動計算薪資的工具，既不包含非財務的信息，也不包含薪資的歷史信息，幾乎沒有報表生成功能和薪資數(shù)據(jù)分析功能。但是，它的出現(xiàn)為人力資源的管理展示了美好的前景，即用計算機的高速度和自動化來代替手工的巨大工作量，用計算機的高準確性來避免手工的錯誤和誤差，使大規(guī)模集中處理大型企業(yè)的薪資成為可能……第二章怎樣開發(fā)一個人才管理系統(tǒng)編程環(huán)境的選擇微軟公司的VisualBasic6.0是Windows應用程序開發(fā)工具，使目前最為廣泛的、易學易用的面向對象的開發(fā)工具。VisualBasic提供了大量的控件，這些控件可用于設計界面和實現(xiàn)各種功能，減少了編程人員的工作量，也簡化了界面設計過程，從而有效的提高了應用程序的運行效率和可靠性。故而，實現(xiàn)本系統(tǒng)VB是一個相對較好的選擇。

關系型數(shù)據(jù)庫的實現(xiàn)Access2000就是關系數(shù)據(jù)庫開發(fā)工具，數(shù)據(jù)庫能匯集各種信息以供查詢、存儲和檢索。Access的優(yōu)點在于它能使用數(shù)據(jù)表示圖或自定義窗體收集信息。數(shù)據(jù)表示圖提供了一種類似于Excel的電子表格，可以使數(shù)據(jù)庫一目了然。另外，Access允許創(chuàng)建自定義報表用于打印或輸出數(shù)據(jù)庫中的信息。Access也提供了數(shù)據(jù)存儲庫，可以使用桌面數(shù)據(jù)庫文件把數(shù)據(jù)庫文件置于網(wǎng)絡文件服務器，與其他網(wǎng)絡用戶共享數(shù)據(jù)庫。Access是一種關系數(shù)據(jù)庫工具，關系數(shù)據(jù)庫是已開發(fā)的最通用的數(shù)據(jù)庫之一。如上所述，Access作為關系數(shù)據(jù)庫開發(fā)具備了許多優(yōu)點，可以在一個數(shù)據(jù)包中同時擁有桌面數(shù)據(jù)庫的便利和關系數(shù)據(jù)庫的強大功能。二者的結合（DBA）微軟的JET數(shù)據(jù)庫引擎提供了與數(shù)據(jù)庫打交道的途徑，我們是通過它以及VisualBasic來訪問數(shù)據(jù)庫并對其進行各種操作。VisualBasic、Access以及其他微軟的軟件產(chǎn)品都是通過共用JET數(shù)據(jù)庫引擎，從而給用戶提供了豐富的數(shù)據(jù)類型。

DATA控件在數(shù)據(jù)庫中的信息與將信息顯示給用戶看的VisualBasic程序之間架起了一座橋梁。我們可以設置DATA控件的各個屬性，告訴它要調(diào)用那個數(shù)據(jù)庫的哪個部分。缺省情況下，DATA控件根據(jù)數(shù)據(jù)庫中的一個或多個數(shù)據(jù)表建立一個dynaset-type（動態(tài)集合）類型的記錄集合。一個記錄集合是動態(tài)的也就意味著，當原來的數(shù)據(jù)表中的容改變了以后，該記錄集合中的記錄也會隨之改變。DATA控件還提供了用來瀏覽不同記錄的各種跳轉按鈕。將DATA控件放置在窗體中之后，我們還必須在該控件與要處理的數(shù)據(jù)庫之間建立聯(lián)系。第三章使用Access2000實現(xiàn)關系型數(shù)據(jù)庫一、數(shù)據(jù)庫的概念數(shù)據(jù)庫是一種存儲數(shù)據(jù)并對數(shù)據(jù)進行操作的工具。數(shù)據(jù)庫的作用在于組織和表達信息，簡而言之，數(shù)據(jù)庫就是信息的集合。計算機的數(shù)據(jù)庫可以分為兩類：非關系數(shù)據(jù)庫（flat-file）和關系數(shù)據(jù)庫（relational）。關系數(shù)據(jù)庫中包含了多個數(shù)據(jù)表的信息，數(shù)據(jù)庫含有各個不同部分的術語，象記錄、域等。二、新建一個數(shù)據(jù)庫

創(chuàng)建任何一個數(shù)據(jù)庫的第一步是仔細的規(guī)劃數(shù)據(jù)庫，設計必須是靈活的、有邏輯的。創(chuàng)建一個數(shù)據(jù)庫結構的過程被認為是數(shù)據(jù)模型設計。

1.標識需要的數(shù)據(jù)；

2.收集被標識的字段到表中；

3.標識主關鍵字字段；

4.繪制一個簡單的數(shù)據(jù)圖表；

5.規(guī)范數(shù)據(jù)；

6.標識指定字段的信息；

7.創(chuàng)建物理表。三、修改已建的數(shù)據(jù)庫

數(shù)據(jù)庫的修改分為：添加、編輯和刪除記錄.這三種操作均可由VisualBasic創(chuàng)建的程序來完成.四、實現(xiàn)數(shù)據(jù)庫之間的聯(lián)系

數(shù)據(jù)庫之間的關系指明兩個庫之間共享一個共同的關鍵字值。一個連接是指一種虛擬的表，這種表是在當用戶要求從相互關聯(lián)的各個不同的表中獲取信息時建立的，關鍵字段用于在相互連接的不同表中查找匹配的記錄。一個更高級的連接形式稱為自連接。這種連接是指一個表被連接到它自己的一個字段，或在不同的紀錄中由重復數(shù)據(jù)的組合字段。數(shù)據(jù)庫中有三種不同類型的關鍵字：主關鍵字、組合關鍵字和外關鍵字。在表中使用的關鍵字類型用于描述庫表示什么以及在數(shù)據(jù)庫中如何與其它的庫建立關系.第四章人才管理系統(tǒng)分析一、可行性分析：“需求分析”和“運營效率分析”是人才管理系統(tǒng)的重要依據(jù)，這兩份分析應說明“確實有要求”和“值得開發(fā)”。人才管理系統(tǒng)的成敗，人是決定因素，如果用帕拉圖ABC分類來看，人才是A類，數(shù)據(jù)是B類，軟件是C類，應值得注意技術上的開發(fā)與維護，經(jīng)濟上是否盈虧，法律上的版權保護。本版軟件具有技術，運營，經(jīng)濟，法律等多方面的可行性。

ACCESS中文版作為一個關系型數(shù)據(jù)庫系統(tǒng)，它提供了面向對象的編程技術，可簡化數(shù)據(jù)庫管理，使開發(fā)應用程序這項艱辛的工作就象堆積木那樣簡單方便。另外，用ACCESS中文版開發(fā)的應用程序可以獨立運行于windows平臺。

二、系統(tǒng)分析圖人才信息表提檔招聘單位管理員人才信息庫歸檔人才信息查詢信息登記人才信息表應聘人員人才信息表提檔招聘單位管理員人才信息庫歸檔人才信息查詢信息登記人才信息表應聘人員招聘信息表招聘信息表單位信息表招聘信息表提檔管理員應聘人員招聘信息庫歸檔單位信息表信息登記招聘單位招聘信息查詢單位信息表招聘信息表提檔管理員應聘人員招聘信息庫歸檔單位信息表信息登記招聘單位招聘信息查詢外部項外部項人工輸入人工操作文檔歸檔文檔三、數(shù)據(jù)字典（1）數(shù)據(jù)元素a．人才信息表所包含的元素基本信息包括：編號、姓名、性別、民族、戶口所在地、目前所在地、證件類型、證件號碼、出生日期、政治面貌、婚姻狀況、目前、身高、體重等。個人簡歷包括：教育經(jīng)歷（入學時間、畢業(yè)時間、所學專業(yè)、所在學校、獲得學歷），培訓情況（開始時間、結束時間、培訓單位、培訓課程、獲得證書），工作經(jīng)歷（起始時間、結束時間、公司名稱、公司性質、工作部門、工作職位）等。求職意向包括：期望單位性質、期望工作地點、期望職位、職位名稱、期望工資要求等。技能特長包括：外語（外語種類、外語水平），汽車駕駛（駕照、駕齡），計算機（計算機水平），其他特長等。自我評價包括：自我評價，職業(yè)目標等。b．單位信息表所包含的元素：單位編號、單位名稱、單位電話、經(jīng)營范圍、單位地址、傳真、電子信箱、登記時間、法人代表、單位性質、企業(yè)網(wǎng)址、電話、聯(lián)系人等。c.招聘信息表包括：單位名稱、編號、需求人數(shù)、性別、專業(yè)、學歷、開始時間、截止時間、基本要求等。第五章人才管理系統(tǒng)設計一、系統(tǒng)功能模塊圖主系統(tǒng)P0主系統(tǒng)P0P1數(shù)據(jù)庫P2信P1數(shù)據(jù)庫P2信息表P3編輯P4查詢P5報表P6系統(tǒng)P1數(shù)據(jù)庫P1數(shù)據(jù)庫P1.4更新P1.3回收站P1.4更新P1.3回收站P1.7關閉P1.6備份P1.5恢復P1.2打開P1.1新建P2信息表P2信息表P2.1人才求P2.1人才求職信息登記表P2.4關閉信息表P2.3招聘信息表P2.2單位基本信息表P3.一三保存記錄P3.12撤消操作P3.11尾記錄P3.10下一條記錄P3.9上一條記錄P3.一三保存記錄P3.12撤消操作P3.11尾記錄P3.10下一條記錄P3.9上一條記錄P3.7保存回收站數(shù)據(jù)P3.8首記錄P3.6偽刪除數(shù)據(jù)還原P3.5物理刪除P3.4清空回收站P3.3邏輯刪除P3.2修改P3編輯P3.1P3.1添加數(shù)據(jù)P4.3綜合查詢P4.2異P4.3綜合查詢P4.2異表查詢P4.1當前表查詢P4查詢P5.3打印P5.2打印預P5.3打印P5.2打印預覽P5.1頁面設置P5報表P6.5退出P6.4關于P6.3作者P6.2軟P6.5退出P6.4關于P6.3作者P6.2軟件說明書P6.1用戶設置P6系統(tǒng)數(shù)據(jù)庫設計人才信息人才信息求職意向個人簡歷基本信息技能特長求職意向個人簡歷基本信息技能特長基本信息基本信息姓名民族聯(lián)系方式地址身高職位目前狀況婚姻狀況政治面貌出生日期專業(yè)類別身份證號碼性別聯(lián)系人照片體重姓名民族聯(lián)系方式地址身高職位目前狀況婚姻狀況政治面貌出生日期專業(yè)類別身份證號碼性別聯(lián)系人照片體重個人簡歷個人簡歷工作經(jīng)歷培訓情況教育經(jīng)歷 工作經(jīng)歷培訓情況教育經(jīng)歷培訓結果培訓形式培訓內(nèi)容培訓單位結束時間開始時間培訓結果培訓形式培訓內(nèi)容培訓單位結束時間開始時間學歷學位學習形式院校、系別結束時間開始時間專業(yè)學歷學位學習形式院校、系別結束時間開始時間專業(yè)開始時間培訓結果培訓形式培訓內(nèi)容培訓單位結束時間開始時間培訓結果培訓形式培訓內(nèi)容培訓單位結束時間基本要求求職意向基本要求求職意向自薦培訓情況薪金要求自薦培訓情況薪金要求希望月薪希望年薪最低月薪其他要求專業(yè)代碼要求工作地區(qū)擬從事工作擬求職位意向單位流動條件流動方式希望月薪希望年薪最低月薪其他要求專業(yè)代碼要求工作地區(qū)擬從事工作擬求職位意向單位流動條件流動方式其他特長計算機汽車駕駛外語技能特長其他特長計算機汽車駕駛外語技能特長計算機水平駕照駕齡外語語種外語水平計算機水平駕照駕齡外語語種外語水平（E-R圖之人才信息）單位信息單位信息單位招聘信息招聘單位信息單位招聘信息招聘單位信息性別需求人數(shù)單位編號基本要求結束時間開始時間學歷專業(yè)聯(lián)系人電話單位地址單位性質單位名稱單位編號聯(lián)系人身份證號登記時間經(jīng)營范圍聯(lián)系人姓名單位電話法人姓名性別需求人數(shù)單位編號基本要求結束時間開始時間學歷專業(yè)聯(lián)系人電話單位地址單位性質單位名稱單位編號聯(lián)系人身份證號登記時間經(jīng)營范圍聯(lián)系人姓名單位電話法人姓名（E-R圖之單位信息）界面設計(3)程序設計系統(tǒng)測試在人才信息管理系統(tǒng)這個軟件制作好了以后并不是就沒事了！其實日后的測試、推廣與更新維護才是最重要的！第一節(jié)功能測試功能測試是測試階段要完成的最普通，也是最顯而易見的測試。必須對整個管理軟件進行檢查，以確保所有功能正確執(zhí)行，不會產(chǎn)生不期望出現(xiàn)的錯誤信息、異常和執(zhí)行動作。對于管理項目，功能測試中最重要的一點就是電腦兼容性測試，即，確保管理軟件在所有電腦上都能操作正常。同樣，還要檢查軟件在不同操作系統(tǒng)條件下輸入數(shù)據(jù)功能是否正常。對于一個人才信息管理軟件，甚至即使是一個很少的數(shù)據(jù)錄入，花在測試上的時間也是很多的。下面是在進行功能測試時需要注意的事項：鏈接：是否存在鏈接中斷，是否存在錯誤鏈接？錄入：錄入內(nèi)容是否正確信息表格：能否正確填寫并保存設計：有沒有不能看到或讀取的因素打?。核璧娜瞬判畔㈨撁婺芊裾_打印進行功能測試時，要從最特殊的情形開始，或者從可能產(chǎn)生問題最多的配置開始。然后再測試大多數(shù)招聘單位錄入是所用電腦時采用的配置。如果在上述情況下，次軟件能正常工作，那么，對于其他情況基本上也不會出現(xiàn)太多的問題。一旦完成所有更改后，那么反過來再進行一次性大多數(shù)人才信息錄入時采用配置的測試，以便檢查確認，經(jīng)過上述測試后沒有產(chǎn)生新的問題。進行功能測試時，應該盡量超越被認為是電腦正常運行使用的情況。比如說，對于人才信息輸入測試，應該試著隨意輸入一些或同時輸入諸如逗號、引號、省略號、換行符、尖括號、百分號等特殊字符，以檢查是否會產(chǎn)生錄入錯誤。第二節(jié)錯誤管理在進行測試時，需要建立一套機制，以記錄和處理暴露出來的錯誤和缺陷，這可以保證測試者發(fā)現(xiàn)一個錯誤時，可以系統(tǒng)地將之記錄下來。為了使測試工作安全地進行，測試者有時對一個錯誤處理后，還需要重新生成這個錯誤。尤其是對于遞歸測試，可能更要考慮更進一步的測試，并且能再試著生成這個錯誤。對于一個有多個測試者的項目，采用數(shù)據(jù)庫的方式記錄、跟蹤和管理錯誤信息更合適。這樣，多個測試者就可以同時使用數(shù)據(jù)庫，并且數(shù)據(jù)庫有訪問和驗證控制功能，以使錯誤紀錄的過程更加有效和可靠。數(shù)據(jù)庫的結構屬性依賴于錯誤紀錄處理過程。錯誤記錄和管理數(shù)據(jù)庫包含以下字段：（1）人才編號：如果給每個錯誤紀錄獨一無二的編號，那么就可以很容易地找到指定的錯誤紀錄。（2）日期記錄：錯誤記錄日期（3）記錄人：記錄錯誤的人員（4）優(yōu)先級：可以設定錯誤的重要級別，這個級別對應處理時間（5）類型：可以按錯誤類型將錯誤分類（6）描述：關于錯誤的詳細描述。它包括關于錯誤的所有信息及錯誤是如何產(chǎn)生的信息（7）錯誤發(fā)現(xiàn)日期：錯誤第一次發(fā)現(xiàn)的時間（8）負責人：錯誤處理責任人（9）意見：當責任人看到錯誤時提出的意見（10）狀態(tài)：錯誤當前的狀態(tài)（11）處理日期：錯誤解決的時間第三節(jié)運行測試對于一個人才信息管理系統(tǒng)的軟件運行測試尤為重要，盡管我們在進行功能測試時已檢查出用戶界面的錯誤，但離開軟件或進行數(shù)據(jù)輸出的結果，還需要進行運行測試。定義運行測試的界限依賴于人才管理信息的范圍。在很多情況下，解決運行測試時暴露的問題不是由軟件設計者負責，而是應該由人才管理的單位自己或有關的第三方負責。但由于系統(tǒng)的整體性問題，同時軟件設計者負責的部分也是次軟件站的核心，因此，運行問題還是需要軟件設計者和人才管理的單位及第三方共同去解決。一個好的信息管理軟件，不僅僅是一次性制作完美就可以的，由于人才信息的情況在不斷地變化，軟件的管理內(nèi)容也需要隨之調(diào)整。這就要求我們對軟件進行長期的不間斷的維護和更新。第四節(jié)軟件的維護軟件維護一般包含以下內(nèi)容：內(nèi)容的更新（如人才信息的更新，招聘單位的招聘信息的動態(tài)更新，招聘啟示更新等）。軟件風格的更新（如軟件改版）、軟件重要頁面設計制作（如啟示類重大事件頁面及招聘單位周年慶等頁面制作）、軟件系統(tǒng)維護服務（如：系統(tǒng)管理員帳號、軟件版本升級、人才信息管理的維護、招聘單位的招聘信息等）。第七章系統(tǒng)使用說明一、系統(tǒng)環(huán)境與安裝硬件配置建議配置：CPU：PII450或更高；內(nèi)存：32MB以上；顯卡：支持800X600或更高；打印機：至少能夠打印A4紙。軟件配置操作系統(tǒng)：中文版Microsoftwindow98或Microsoftwindow2000\應用軟件：中文版MicrosoftWord97/2000(軟件說明書)軟件安裝檢查當前系統(tǒng)時間的正確性將載有《人才管理系統(tǒng)》的光盤放入光驅（如果有多個光驅時，放入第一個光驅），系統(tǒng)自動檢測光盤的合法性。系統(tǒng)自動啟動《人才管理系統(tǒng)》的安裝系統(tǒng)，用戶在安裝系統(tǒng)的中文提示下，可以輕松完成軟件的安裝?！度瞬殴芾硐到y(tǒng)》安裝成功后，Window操作系統(tǒng)“開始”——“程序”組里將自動增加“人才應招信息管理系統(tǒng)”程序組。目錄說明：PIC——圖片；MODULE——模塊；PHOTO——人員照片；RPORT——報表與數(shù)據(jù)環(huán)境軟件卸載在“人才管理系統(tǒng)”程序組中選定“刪除人才管理系統(tǒng)”程序項，（或者打開Window操作系統(tǒng)中的“控制面板”，單擊“添加/刪除程序”，在列表中找到“人才管理系統(tǒng)”的程序組選項）單擊，按照屏幕提示操作即可以安全、快速地刪除《人才管理系統(tǒng)》。二、啟動系統(tǒng)系統(tǒng)啟動過程如下：1.進入Window操作系統(tǒng)后，單擊任務欄中的“開始”——“程序”組——“人才管理系統(tǒng)”程序組中的“人才管理系統(tǒng)”程序項，啟動程序。2.首先，將顯示系統(tǒng)登錄窗口，如圖2-1所示，用戶輸入正確的用戶名和密碼，按“ENTER”鍵，確認正確后即可進入系統(tǒng)。圖2.1試用版環(huán)境下，系統(tǒng)僅給定缺省用戶名——“ADMIN”和密碼——“0322”，并且不進行數(shù)據(jù)的加密。原文本判定。3然后將會出現(xiàn)圖2.2界面,按下“Enter”鍵。圖2.24．這時將出現(xiàn)圖2.3窗體。圖2.35.通過系統(tǒng)檢驗的用戶將順利進入本系統(tǒng)，看到系統(tǒng)主界面。圖2.4三、菜單項和工具欄如圖3-1所示的是《人才應招信息管理系統(tǒng)》中的菜單項。圖3-1菜單中包含本系統(tǒng)的全部功能，系統(tǒng)菜單項主要由六大部分組成，分別是：數(shù)據(jù)庫：實現(xiàn)數(shù)據(jù)庫的新建、打開、數(shù)據(jù)回收、自動更新、恢復、備份和關閉數(shù)據(jù)庫等功能項；信息表：實現(xiàn)主表數(shù)據(jù)和副表數(shù)據(jù)的選定與關閉；編輯：實現(xiàn)當前主表的添加、修改、邏輯刪除和當前副表（回收站）的清空、物理刪除、數(shù)據(jù)還原及保存副表數(shù)據(jù)等，同時設置記錄的移動和撤消、保存改變的數(shù)據(jù)記錄；查詢：實現(xiàn)當前表的查詢和異表查詢（綜合查詢暫不可用）；報表：實現(xiàn)數(shù)據(jù)報表的設置、預覽和打??；系統(tǒng)：系統(tǒng)輔助信息的顯示與系統(tǒng)退出。二、工具欄介紹如圖3-2所示的是《人才管理系統(tǒng)》中的工具欄。圖3-2由上至下，由左向右分別是：1、新建——打開——回收站——自動更新——還原——備份——關閉數(shù)據(jù)庫2、打開單位信息表——人才信息表——招聘信息表——關閉信息表3、打印設置——預覽——打印4、用戶設置——軟件說明書——作者信息——系統(tǒng)信息——退出系統(tǒng)5、添加——修改——邏輯刪除6、清空回收站——物理刪除——還原——保存回收站數(shù)據(jù)7、首記錄——上一條記錄——下一條記錄——尾記錄8、撤消數(shù)據(jù)操作——保存9、當前表查詢——異表查詢——綜合查詢四、數(shù)據(jù)庫操作實現(xiàn)數(shù)據(jù)庫的新建、打開、數(shù)據(jù)回收、自動更新、恢復、備份和關閉數(shù)據(jù)庫等項功能。如圖4-1。圖4-1全部在后臺操作：（數(shù)據(jù)庫不帶密碼，應用人員可打開數(shù)據(jù)庫更改不合理項）新建：清除當前目錄下應用程序數(shù)據(jù)庫的所有主表記錄；打開：將當前數(shù)據(jù)庫的主表作為操作對象；回收站：將當前數(shù)據(jù)庫的副表作為操作對象；自動更新：將當前數(shù)據(jù)庫中主表的過期數(shù)據(jù)邏輯刪除到數(shù)據(jù)回收站；恢復和備份：在試用版環(huán)境下，此選項不可用；關閉數(shù)據(jù)庫：關閉當前數(shù)據(jù)庫的主表或副表，以改變數(shù)據(jù)操作對象。五、信息表操作實現(xiàn)主表數(shù)據(jù)和副表數(shù)據(jù)的選定與關閉。如圖5-1。圖5-11.將主表或副表中的人才信息表作為當前日操作對象，并打開。如圖5-2。圖5-22.將主表或副表中的單位信息表作為當前的操作對象，并打開。如圖5-3。圖5-33、將主表或副表中的招聘信息表作為當前日操作對象，并打開。如圖5-4。圖5-44、關閉信息表，以改變數(shù)據(jù)操作對象。六、編輯實現(xiàn)當前主表數(shù)據(jù)的添加、修改、刪除和當前副表數(shù)據(jù)（回收站）的清空、物理刪除、數(shù)據(jù)還原及保存副表數(shù)據(jù)等，同時設置記錄的移動和撤消、保存改變的數(shù)據(jù)記錄。如圖6-1。圖6-1本菜單組實現(xiàn)對當前數(shù)據(jù)表的編輯操作，主表要求全部手工操作，實現(xiàn)數(shù)據(jù)庫的更新，副表可以實現(xiàn)對主表的數(shù)據(jù)的補充，并實現(xiàn)對過期記錄的處理。所有操作均要求作撤消和保存操作處理，以確認。當前數(shù)據(jù)表的添加與修改均有對當前記錄的當前字段合法性檢驗，以保證數(shù)據(jù)的準確性。數(shù)據(jù)表的“編號”為系統(tǒng)自動標號，采用的是12為編碼，分別是年2位，月2位，日2位，時2位，分2位，秒2位，數(shù)據(jù)超長分項取當前值的末2位，不足則左補“0”，以保證數(shù)據(jù)的唯一性。時間限制的日期值，將進行數(shù)據(jù)比較，合法才可以繼續(xù)，否則將要求對數(shù)據(jù)進行人工檢驗。字錄入文本框要求僅錄入數(shù)字，非數(shù)字將不予接受。日期錄入文本框要求僅錄入數(shù)字和“-”或“/”。七、查詢實現(xiàn)當前表和異表查詢。如圖7-1。圖7-1當前查詢因對本系統(tǒng)的調(diào)研不足，無法了解更為詳細的系統(tǒng)要求，故建立如圖7-2所示的數(shù)據(jù)查詢窗體，要求操作人員必須對人才管理有一定的了解，同時應具備一定的計算機操作技能和數(shù)據(jù)庫SQL語句的知識（此項需要改進，但目前可以保證本系統(tǒng)的強大的查詢功能）。圖7-2異表查詢可以實現(xiàn)對當前主表選定數(shù)據(jù)的的配套查詢。如：當前表為“人才信息表”，則可以選定一條記錄，進行異表查詢，找到適合本記錄要求的單位招聘信息。此項功能為后臺操作，系統(tǒng)自動完成。八、報表實現(xiàn)數(shù)據(jù)報表的設置、預覽和打印。如圖8-1。圖8-1系統(tǒng)自動形成報表數(shù)據(jù)包括信息表全部數(shù)據(jù)和對當前主表進行同表查詢和對當前記錄進行異表查詢的結果，可以實現(xiàn)數(shù)據(jù)的選擇輸出。如圖8-2。圖8-2九、系統(tǒng)系統(tǒng)輔助信息的顯示與系統(tǒng)退出。如圖9-1。圖9-11、顯示系統(tǒng)信息。如圖9-2。圖9-22、顯示作者信息。如圖9-3。圖9-33、退出如圖9-4，完成操作。圖9-4結束語經(jīng)過兩個多月的設計和開發(fā)，人才管理系統(tǒng)基本開發(fā)完畢。其功能基本符合用戶需求，能夠完成人才信息的查詢以及各類相關報表的打印。并提供部分系統(tǒng)維護功能,使用戶方便進行數(shù)據(jù)備份和恢復、數(shù)據(jù)刪除。對于數(shù)據(jù)的一致性的問題也通過程序進行了有效的解決，但是由于畢業(yè)設計時間較短，所以該系統(tǒng)還有許多不盡如人意的地方.致謝：在本次畢業(yè)設計中，我從指導老師王剛老師身上學到了很多東西。王老師認真負責的工作態(tài)度，嚴謹?shù)闹螌W精神和深厚的理論水平都使我收益匪淺。他無論在理論上還是在實踐中，都給與我很大的幫助，使我得到不少的提高這對于我以后的工作和學習都有一種巨大的幫助，感謝他耐心的輔導，使得系統(tǒng)能及時開發(fā)完成，還有同組的同學同樣給我不少幫助，這里一并感謝。

第十章程序源代碼password_window:OptionExplicitPublicLoginSucceededAsBooleanPrivateSubcmdCancel_Click()'設置全局變量為false'不提示失敗的登錄LoginSucceeded=FalseEndEndSubPrivateSubcmdOK_Click()'檢查正確的密碼IftxtPassword="0322"AndtxtUserName="admin"Then'將代碼放在這里傳遞'成功到calling函數(shù)'設置全局變量時最容易的LoginSucceeded=TrueMe.Hideface_window.ShowElseMsgBox"無效的密碼，請重試!",,"登錄"txtPassword.SetFocusSendKeys"{Home}+{End}"EndIfEndSub二、face_window:PrivateSubForm_Load()Move(Screen.Width-Me.Width)\2,(Screen.Height-Me.Height)\2EndSubPrivateSubPicture1_KeyPress(KeyasciiAsInteger)IfKeyascii=一三ThenUnloadMespeed_window.ShowEndIfEndSub3\speed_window:PrivateSubCommand1_Click()IfCommand1.Caption="取消"ThenEndElseUnloadMeEndIfEndSubPrivateSubCommand2_Click()Command2.Enabled=FalseLoadMain_WindowMain_Window.ShowMain_Window.WindowState=2ProgressBar1.Value=10ProgressBar1.RefreshLoadperson_windowperson_window.HideProgressBar1.Value=20ProgressBar1.RefreshLoadfactory_windowfactory_window.HideProgressBar1.Value=30ProgressBar1.RefreshLoadengage_windowengage_window.HideProgressBar1.Value=40ProgressBar1.RefreshLoadauthor_windowauthor_window.HideProgressBar1.Value=50ProgressBar1.RefreshLoadfactory_reportfactory_report.HideProgressBar1.Value=60ProgressBar1.RefreshLoadSearch_WindowSearch_Window.HideProgressBar1.Value=70ProgressBar1.RefreshLoadNeed_reportNeed_report.HideProgressBar1.Value=80ProgressBar1.RefreshLoadPerson_reportPerson_report.HideProgressBar1.Value=90ProgressBar1.RefreshLoadabout_system_windowabout_system_window.HideProgressBar1.Value=100ProgressBar1.RefreshCommand1.Caption="完成"EndSubPrivateSubForm_Load()Move(Screen.Width-Me.Width)\2,(Screen.Height-Me.Height)\2SetWindowPosMe.hwnd,-1,0,0,0,0,3EndSub4\main_window:OptionExplicitDimReco_CancelAsInteger'記錄操作標記DimBMarkAsVariant'記錄標簽DimSData(100)AsVariant'當前記錄的字段數(shù)組DimCycle_SetAsInteger'回收站操作標記ConstMSG2="（無）"PrivateSubMAbout_Author_Click()CallAbout_AuthorEndSubPrivateSubMAbout_System_Click()CallAbout_SystemEndSubPrivateSubMAll_Search_Click()CallAll_SearchEndSubPrivateSubMAppend_Recorder_Click()CallAppend_RecorderEndSubPrivateSubMBack_Data_Click()CallBack_DataEndSubPrivateSubMCancle_Recorder_Click()CallCancle_RecorderEndSubPrivateSubMClear_Reco_Click()CallClear_RecoEndSubPrivateSubMClose_Data_Click()CallClose_DataEndSubPrivateSubMClose_Table_Click()CallClose_TableEndSubPrivateSubMCycle_Data_Click()CallCycle_DataEndSubPrivateSubMDelete_Reco_Click()CallDelete_RecoEndSubPrivateSubMDelete_Recorder_Click()CallDelete_RecorderEndSubPrivateSubMDIForm_Load()DimiAsIntegerCoolBar1.Bands(3).Visible=FalseFori=10To20Toolbar(0).Buttons(i).Enabled=FalseNextiMInfo_Table.Enabled=FalseMEdit_Recorder.Enabled=FalseMQuery_Table.Enabled=FalseMReport_Form.Enabled=FalseReco_Cancel=0Cycle_Set=0EndSubPrivateSubMDIForm_QueryUnload(CancelAsInteger,UnloadModeAsInteger)DimKeyAsIntegerKey=MsgBox("你真的退出人才管理系統(tǒng)嗎？",33,"退出管理系統(tǒng)！")IfKey=1Thenend_window.ShowElseCancel=TrueEndIfEndSubPrivateSubMEngage_Table_Click()Callengage_TableEndSubPrivateSubMExit_System_Click()CallExit_SystemEndSubPrivateSubMFactory_Table_Click()CallFactory_TableEndSubPrivateSubMFirst_Recorder_Click()CallFirst_RecorderEndSubPrivateSubMHelp_Text_Click()CallHelp_TextEndSubPrivateSubMLast_Recorder_Click()CallLast_RecorderEndSubPrivateSubMModify_Recorder_Click()CallModify_RecorderEndSubPrivateSubMNew_Data_Click()CallNew_DataEndSubPrivateSubMNext_Recorder_Click()CallNext_RecorderEndSubPrivateSubMOpen_Data_Click()CallOpen_DataEndSubPrivateSubMOther_Search_Click()CallOther_SearchEndSubPrivateSubMPaper_Set_Click()CallPaper_SetEndSubPrivateSubMPerson_Table_Click()CallPerson_TableEndSubPrivateSubMPresent_Search_Click()CallPresent_SearchEndSubPrivateSubMPrevious_Recorder_Click()CallPrevious_RecorderEndSubPrivateSubMPrint_Form_Click()CallPrint_formEndSubPrivateSubMPrint_Previous_Click()CallPrint_PreviousEndSubPrivateSubMResume_Data_Click()CallResume_DataEndSubPrivateSubMRevert_Reco_Click()CallRevert_RecoEndSubPrivateSubMSave_Cycle_Click()CallSave_CycleEndSubPrivateSubMSave_Recorder_Click()CallSave_RecorderEndSubPrivateSubMUpdate_Data_Click()CallUpdate_DataEndSubPrivateSubMUser_Set_Click()CallUser_SetEndSubPrivateSubToolbar_ButtonClick(IndexAsInteger,ByValButtonAsMSComctlLib.Button)SelectCaseIndexCase0SelectCaseButton.IndexCase1'新建CallNew_DataCase2'打開CallOpen_DataCase4'回收站CallCycle_DataCase6'更新CallUpdate_DataCase7'恢復CallResume_DataCase8'備份CallBack_DataCase10'關閉數(shù)據(jù)庫CallClose_DataCase12'打開單位信息表CallFactory_TableCase一三'人才信息表CallPerson_TableCase14'招聘信息表Callengage_TableCase一五'關閉信息表CallClose_TableCase17'頁面設置CallPaper_SetCase一八'打印預覽CallPrint_PreviousCase19'打印CallPrint_formCase21'用戶設置CallUser_SetCase23'軟件說明書CallHelp_TextCase24'作者CallAbout_AuthorCase25'關于CallAbout_SystemCase27'退出CallExit_SystemEndSelectCase1SelectCaseButton.IndexCase1'添加CallAppend_RecorderCase2'修改CallModify_RecorderCase3'刪除CallDelete_RecorderCase5'清空CallClear_RecoCase6'刪除CallDelete_RecoCase7'還原CallRevert_RecoCase8'保存回收站數(shù)據(jù)CallSave_CycleCase10'首記錄CallFirst_RecorderCase11'上一條記錄CallPrevious_RecorderCase12'下一條記錄CallNext_RecorderCase一三'尾記錄CallLast_RecorderCase一五'撤消CallCancle_RecorderCase16'保存CallSave_RecorderCase一八'搜索當前表CallPresent_SearchCase19'搜索異表CallOther_SearchCase20'綜合查詢CallAll_SearchEndSelectEndSelectEndSubPrivateSubNew_Data()DimKeyAsIntegerSet_Data_EnableFalseSet_Table_EnableTrueSet_Back_ButtonFalseSet_Main_ButtonTrueMInfo_Table.Enabled=TrueStatusBar1.Panels(1).Text="新建數(shù)據(jù)表單，將清除所有原始數(shù)據(jù)"'數(shù)據(jù)庫初始化Key=MsgBox("初始化——將清空人才表、單位表、招聘表所有數(shù)據(jù)，繼續(xù)嗎？",33,"初始化提示信息！")IfKey=1ThenPerson_Connection.Provider="microsoft.jet.oledb.4.0"Person_Connection.OpenApp.Path&"\person.mdb","admin"Person_Connection.Execute"delete*from人才"Person_Connection.Execute"delete*from單位"Person_Connection.Execute"delete*from招聘"Person_Connection.Execute"delete*from人才備份"Person_Connection.Execute"delete*from單位備份"Person_Connection.Execute"delete*from招聘備份"TableSelect=TrueEndIfEndSubPrivateSubOpen_Data()Set_Data_EnableFalseSet_Table_EnableTrueSet_Back_ButtonFalseSet_Main_ButtonTrueMInfo_Table.Enabled=TrueStatusBar1.Panels(1).Text="打開原始數(shù)據(jù)表單，實現(xiàn)數(shù)據(jù)的增、刪、改"Person_Connection.Provider="microsoft.jet.oledb.4.0"Person_Connection.OpenApp.Path&"\person.mdb","admin"TableSelect=TrueEndSubPrivateSubCycle_Data()Set_Data_EnableFalseSet_Table_EnableTrueSet_Back_ButtonTrueSet_Main_ButtonFalseMInfo_Table.Enabled=TrueStatusBar1.Panels(1).Text="打開偽刪除數(shù)據(jù)表單，對回收站內(nèi)的數(shù)據(jù)進行再處理"TableSelect=FalseEndSubPrivateSubUpdate_Data()Set_Data_EnableFalseStatusBar1.Panels(1).Text="對原始數(shù)據(jù)表單內(nèi)的數(shù)據(jù)進行刷新處理"EndSubPrivateSubResume_Data()MsgBox"試用版環(huán)境下此選項不可用?。?,vbOKOnly,"提示"'Set_Data_EnableFalse'WithCommonDialog1'.Flags=2'.CancelError=True'OnErrorGoToErrend'.DefaultExt="MDB"'.DialogTitle="數(shù)據(jù)恢復"'.FileName=""'.Filter="數(shù)據(jù)庫文件(*.mdb)|*.mdb"'.FilterIndex=1'.InitDir=App.Path'.Action=1'EndWith'IfCommonDialog1.FileName=""Then'MsgBox"請選擇導入文件名稱",vbOKOnly+48,"導入錯誤！"'Else'IfCommonDialog1.FileName<>App.Path&"\person.mdb"Then'oFSO.DeleteFileApp.Path&"\perosn.mdb",True'oFSO.CopyFileCommonDialog1.FileName,App.Path&"\person.mdb",True'EndIf'EndIf'StatusBar1.Panels(1).Text="從備份庫中導出數(shù)據(jù)，對原始數(shù)據(jù)表單內(nèi)的數(shù)據(jù)進行恢復處理"EndSubPrivateSubBack_Data()MsgBox"試用版環(huán)境下此選項不可用??！",vbOKOnly,"提示"'Set_Data_EnableFalse'WithCommonDialog1'.Flags=2'.CancelError=True'OnErrorGoToErrend'.DefaultExt="MDB"'.DialogTitle="數(shù)據(jù)保存和備份"'.FileName=""'.Filter="數(shù)據(jù)庫文件(*.mdb)|*.mdb"'.FilterIndex=1'.InitDir=App.Path'.Action=2'EndWith'IfCommonDialog1.FileName=""Then'MsgBox"請輸入備份文件名稱",vbOKOnly+48,"導出錯誤！"'Else'IfCommonDialog1.FileName<>App.Path&"\person.mdb"Then'oFSO.CopyFileApp.Path&"\person.mdb",CommonDialog1.FileName,True'EndIf'EndIf''Set_Data_EnableFalseStatusBar1.Panels(1).Text="對原始數(shù)據(jù)表單內(nèi)的數(shù)據(jù)進行備份處理，導出原始數(shù)據(jù)"EndSubPrivateSubClose_Data()Set_Data_EnableTrueMInfo_Table.Enabled=FalseSet_Table_EnableFalseMClose_Table=FalseToolbar(0).Buttons(一五).Enabled=FalseCoolBar1.Bands(3).Visible=FalseStatusBar1.Panels(1).Text="關閉所有數(shù)據(jù)庫"Person_Connection.CloseEndSubPrivateSubPerson_Table()Select_Table=1SetJudge_Form=person_windowJudge_Form.SSTab.Tab=0Judge_Form.WindowState=2SetJudge_Table=Judge_Form.Adodc1.RecordsetSet_Con_EnableSet_StatusbarJudge_Form.ShowEndSubPrivateSubFactory_Table()SetJudge_Form=factory_windowSelect_Table=2Judge_Form.WindowState=2SetJudge_Table=Judge_Form.Adodc1.RecordsetSet_Con_EnableSet_StatusbarJudge_Form.ShowEndSubPrivateSubengage_Table()SetJudge_Form=engage_windowSelect_Table=3Judge_Form.WindowState=2SetJudge_Table=Judge_Form.Adodc1.RecordsetSet_Con_EnableSet_StatusbarJudge_Form.ShowEndSubPublicSubRefresh_Judge()Set_Con_EnableSet_StatusbarJudge_Form.ShowEndSubPrivateSubClose_Table()DimiAsIntegerSet_Table_EnableTrueSet_Query_ButtonFalseSet_Report_ButtonFalseSetJudge_Table=NothingSetJudge_Back=NothingJudge_Form.HideStatusBar1.Panels(2).Text="數(shù)據(jù)表已經(jīng)關閉"EndSubPrivateSubAppend_Recorder()DimYdate,Mdate,Ddate,Htime,Mtime,StimeAsStringReco_Cancel=1Set_EnableJudge_Form,TrueSet_Save_ButtonTrueSet_Main_ButtonFalseSet_Move_ButtonFalseSet_Query_ButtonFalseSet_Report_ButtonFalseMClose_Table.Enabled=FalseToolbar(0).Buttons(一五).Enabled=FalseOnErrorGoToAddErrJudge_Table.AddNew'Judge_Form.Text1=DateYdate=Right("00"+Trim(Str(Year(Date))),2)Mdate=Right("00"+Trim(Str(Month(Date))),2)Ddate=Right("00"+Trim(Str(Day(Date))),2)Htime=Right("00"+Trim(