當(dāng)代公司人才管理系統(tǒng)摘要本論文是從當(dāng)代公司管理中人才管理現(xiàn)狀出發(fā)，針對(duì)人才管理復(fù)雜程序，通過(guò)詳細(xì)系統(tǒng)調(diào)查，開(kāi)發(fā)出操作簡(jiǎn)樸并且以便實(shí)用一種人才管理系統(tǒng)。

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

本系統(tǒng)通過(guò)測(cè)試，運(yùn)營(yíng)穩(wěn)定，已得到承認(rèn)。核心詞：人才管理系統(tǒng)，VisualBasic6.0，Access

SummaryManagethecurrentsituationandsetoutfromtalentinmodernbusinessadministrationinthisthesis，totalentcomplicatedprocedureofmanagement，investigatethroughdetailedsystemoperationsimpleandconvenientpracticalonetalentadministrativesystemthatdevelop.ThefrontdevelopinginstrumentofthissystemisVisualBasic6.0，backstagesupporter'sdatabaseengineselectsthedatabasesoftwareAccessforuse.Thissystemrunssteadily，hasalreadybeenapprovedthroughtesting.Keyword：Talent'sadministrativesystem，VisualBasic6.0，Access前言

隨著計(jì)算機(jī)技術(shù)不斷發(fā)展，計(jì)算機(jī)作為知識(shí)經(jīng)濟(jì)時(shí)代產(chǎn)物，已被廣泛應(yīng)用于社會(huì)各個(gè)行業(yè)和領(lǐng)域。隨著國(guó)內(nèi)國(guó)企改革進(jìn)一步和社會(huì)主義市場(chǎng)經(jīng)濟(jì)日趨繁華，導(dǎo)致各公司間競(jìng)爭(zhēng)日益激烈，迫使公司采用先進(jìn)計(jì)算機(jī)硬件設(shè)備以及高質(zhì)量輔助軟件來(lái)管理公司各項(xiàng)運(yùn)作，以提高本公司勞動(dòng)生產(chǎn)率以及人員效率。人才管理系統(tǒng)軟件作為一種理軟件正在各企事業(yè)單位中得到越來(lái)越廣泛應(yīng)用。

目錄摘要…………………………1前言…………………………2緒論…………………………4第一章人才管理系統(tǒng)概述第二章如何開(kāi)發(fā)一種學(xué)生檔案管理系統(tǒng)？

2.1編程環(huán)境選取

2.2關(guān)系型數(shù)據(jù)庫(kù)實(shí)現(xiàn)

2.3兩者結(jié)合（DBA）第三章使用Access實(shí)現(xiàn)關(guān)系型數(shù)據(jù)庫(kù)

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

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

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

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

關(guān)系型數(shù)據(jù)庫(kù)實(shí)現(xiàn)Access就是關(guān)系數(shù)據(jù)庫(kù)開(kāi)發(fā)工具，數(shù)據(jù)庫(kù)能匯集各種信息以供查詢、存儲(chǔ)和檢索。Access長(zhǎng)處在于它能使用數(shù)據(jù)表達(dá)圖或自定義窗體收集信息。數(shù)據(jù)表達(dá)圖提供了一種類似于Excel電子表格，可以使數(shù)據(jù)庫(kù)一目了然。此外，Access容許創(chuàng)立自定義報(bào)表用于打印或輸出數(shù)據(jù)庫(kù)中信息。Access也提供了數(shù)據(jù)存儲(chǔ)庫(kù)，可以使用桌面數(shù)據(jù)庫(kù)文獻(xiàn)把數(shù)據(jù)庫(kù)文獻(xiàn)置于網(wǎng)絡(luò)文獻(xiàn)服務(wù)器，與其她網(wǎng)絡(luò)顧客共享數(shù)據(jù)庫(kù)。Access是一種關(guān)系數(shù)據(jù)庫(kù)工具，關(guān)系數(shù)據(jù)庫(kù)是已開(kāi)發(fā)最通用數(shù)據(jù)庫(kù)之一。如上所述，Access作為關(guān)系數(shù)據(jù)庫(kù)開(kāi)發(fā)具備了許多長(zhǎng)處，可以在一種數(shù)據(jù)包中同步擁有桌面數(shù)據(jù)庫(kù)便利和關(guān)系數(shù)據(jù)庫(kù)強(qiáng)大功能。兩者結(jié)合（DBA）微軟JET數(shù)據(jù)庫(kù)引擎提供了與數(shù)據(jù)庫(kù)打交道途徑，咱們是通過(guò)它以及VisualBasic來(lái)訪問(wèn)數(shù)據(jù)庫(kù)并對(duì)其進(jìn)行各種操作。VisualBasic、Access以及其她微軟軟件產(chǎn)品都是通過(guò)共用JET數(shù)據(jù)庫(kù)引擎，從而給顧客提供了豐富數(shù)據(jù)類型。

DATA控件在數(shù)據(jù)庫(kù)中信息與將信息顯示給顧客看VisualBasic程序之間架起了一座橋梁。咱們可以設(shè)立DATA控件各個(gè)屬性，告訴它要調(diào)用那個(gè)數(shù)據(jù)庫(kù)哪個(gè)某些。缺省狀況下，DATA控件依照數(shù)據(jù)庫(kù)中一種或各種數(shù)據(jù)表建立一種dynaset-type（動(dòng)態(tài)集合）類型記錄集合。一種記錄集合是動(dòng)態(tài)也就意味著，當(dāng)本來(lái)數(shù)據(jù)表中容變化了后來(lái)，該記錄集合中記錄也會(huì)隨之變化。DATA控件還提供了用來(lái)瀏覽不同記錄各種跳轉(zhuǎn)按鈕。將DATA控件放置在窗體中之后，咱們還必要在該控件與要解決數(shù)據(jù)庫(kù)之間建立聯(lián)系。第三章使用Access實(shí)現(xiàn)關(guān)系型數(shù)據(jù)庫(kù)一、數(shù)據(jù)庫(kù)概念數(shù)據(jù)庫(kù)是一種存儲(chǔ)數(shù)據(jù)并對(duì)數(shù)據(jù)進(jìn)行操作工具。數(shù)據(jù)庫(kù)作用在于組織和表達(dá)信息，簡(jiǎn)而言之，數(shù)據(jù)庫(kù)就是信息集合。計(jì)算機(jī)數(shù)據(jù)庫(kù)可以分為兩類：非關(guān)系數(shù)據(jù)庫(kù)（flat-file）和關(guān)系數(shù)據(jù)庫(kù)（relational）。關(guān)系數(shù)據(jù)庫(kù)中包括了各種數(shù)據(jù)表信息，數(shù)據(jù)庫(kù)具有各個(gè)不同某些術(shù)語(yǔ)，象記錄、域等。二、新建一種數(shù)據(jù)庫(kù)

創(chuàng)立任何一種數(shù)據(jù)庫(kù)第一步是仔細(xì)規(guī)劃數(shù)據(jù)庫(kù)，設(shè)計(jì)必要是靈活、有邏輯。創(chuàng)立一種數(shù)據(jù)庫(kù)構(gòu)造過(guò)程被以為是數(shù)據(jù)模型設(shè)計(jì)。

1.標(biāo)記需要數(shù)據(jù)；

2.收集被標(biāo)記字段到表中；

3.標(biāo)記主核心字字段；

4.繪制一種簡(jiǎn)樸數(shù)據(jù)圖表；

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

6.標(biāo)記指定字段信息；

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

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

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

ACCESS中文版作為一種關(guān)系型數(shù)據(jù)庫(kù)系統(tǒng)，它提供了面向?qū)ο缶幊碳夹g(shù)，可簡(jiǎn)化數(shù)據(jù)庫(kù)管理，使開(kāi)發(fā)應(yīng)用程序這項(xiàng)艱辛工作就象堆積木那樣簡(jiǎn)樸以便。此外，用ACCESS中文版開(kāi)發(fā)應(yīng)用程序可以獨(dú)立運(yùn)營(yíng)于windows平臺(tái)。

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

第十章程序源代碼password_window:OptionExplicitPublicLoginSucceededAsBooleanPrivateSubcmdCancel_Click()'設(shè)立全局變量為false'不提示失敗登錄LoginSucceeded=FalseEndEndSubPrivateSubcmdOK_Click()'檢核對(duì)的密碼IftxtPassword="0322"AndtxtUserName="admin"Then'將代碼放在這里傳遞'成功到calling函數(shù)'設(shè)立全局變量時(shí)最容易LoginSucceeded=TrueMe.Hideface_window.ShowElseMsgBox"無(wú)效密碼，請(qǐng)重試!"，，"登錄"txtPassword.SetFocusSendKeys"{Home}+{End}"EndIfEndSub二、face_window:PrivateSubForm_Load()Move(Screen.Width-Me.Width)\2，(Screen.Height-Me.Height)\2EndSubPrivateSubPicture1_KeyPress(KeyasciiAsInteger)IfKeyascii=13ThenUnloadMespeed_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'記錄操作標(biāo)記DimBMarkAsVariant'記錄標(biāo)簽DimSData(100)AsVariant'當(dāng)前記錄字段數(shù)組DimCycle_SetAsInteger'回收站操作標(biāo)記ConstMSG2="（無(wú)）"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'打開(kāi)CallOpen_DataCase4'回收站CallCycle_DataCase6'更新CallUpdate_DataCase7'恢復(fù)CallResume_DataCase8'備份CallBack_DataCase10'關(guān)閉數(shù)據(jù)庫(kù)CallClose_DataCase12'打開(kāi)單位信息表CallFactory_TableCase13'人才信息表CallPerson_TableCase14'招聘信息表Callengage_TableCase15'關(guān)閉信息表CallClose_TableCase17'頁(yè)面設(shè)立CallPaper_SetCase18'打印預(yù)覽CallPrint_PreviousCase19'打印CallPrint_formCase21'顧客設(shè)立CallUser_SetCase23'軟件闡明書CallHelp_TextCase24'作者CallAbout_AuthorCase25'關(guān)于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_RecorderCase13'尾記錄CallLast_RecorderCase15'撤除CallCancle_RecorderCase16'保存CallSave_RecorderCase18'搜索當(dāng)前表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ù)庫(kù)初始化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招聘?jìng)浞?TableSelect=TrueEndIfEndSubPrivateSubOpen_Data()Set_Data_EnableFalseSet_Table_EnableTrueSet_Back_ButtonFalseSet_Main_ButtonTrueMInfo_Table.Enabled=TrueStatusBar1.Panels(1).Text="打開(kāi)原始數(shù)據(jù)表單，實(shí)現(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="打開(kāi)偽刪除數(shù)據(jù)表單，對(duì)回收站內(nèi)數(shù)據(jù)進(jìn)行再解決"TableSelect=FalseEndSubPrivateSubUpdate_Data()Set_Data_EnableFalseStatusBar1.Panels(1).Text="對(duì)原始數(shù)據(jù)表單內(nèi)數(shù)據(jù)進(jìn)行刷新解決"EndSubPrivateSubResume_Data()MsgBox"試用版環(huán)境下此選項(xiàng)不可用?。?，vbOKOnly，"提示"'Set_Data_EnableFalse'WithCommonDialog1'.Flags=2'.CancelError=True'OnErrorGoToErrend'.DefaultExt="MDB"'.DialogTitle="數(shù)據(jù)恢復(fù)"'.FileName=""'.Filter="數(shù)據(jù)庫(kù)文獻(xiàn)(*.mdb)|*.mdb"'.FilterIndex=1'.InitDir=App.Path'.Action=1'EndWith'IfCommonDialog1.FileName=""Then'MsgBox"請(qǐng)選取導(dǎo)入文獻(xiàn)名稱"，vbOKOnly+48，"導(dǎo)入錯(cuò)誤！"'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="從備份庫(kù)中導(dǎo)出數(shù)據(jù)，對(duì)原始數(shù)據(jù)表單內(nèi)數(shù)據(jù)進(jìn)行恢復(fù)解決"EndSubPrivateSubBack_Data()MsgBox"試用版環(huán)境下此選項(xiàng)不可用！！"，vbOKOnly，"提示"'Set_Data_EnableFalse'WithCommonDialog1'.Flags=2'.CancelError=True'OnErrorGoToErrend'.DefaultExt="MDB"'.DialogTitle="數(shù)據(jù)保存和備份"'.FileName=""'.Filter="數(shù)據(jù)庫(kù)文獻(xiàn)(*.mdb)|*.mdb"'.FilterIndex=1'.InitDir=App.Path'.Action=2'EndWith'IfCommonDialog1.FileName=""Then'MsgBox"請(qǐng)輸入備份文獻(xiàn)名稱"，vbOKOnly+48，"導(dǎo)出錯(cuò)誤！"'Else'IfCommonDialog1.FileName<>App.Path&"\person.mdb"Then'oFSO.CopyFileApp.Path&"\person.mdb",CommonDialog1.FileName，True'EndIf'EndIf''Set_Data_EnableFalseStatusBar1.Panels(1).Text="對(duì)原始數(shù)據(jù)表單內(nèi)數(shù)據(jù)進(jìn)行備份解決，導(dǎo)出原始數(shù)據(jù)"EndSubPrivateSubClose_Data()Set_Data_EnableTrueMInfo_Table.Enabled=FalseSet_Table_EnableFalseMClose_Table=FalseToolbar(0).Buttons(15).Enabled=FalseCoolBar1.Bands(3).Visible=FalseStatusBar1.Panels(1).Text="關(guān)閉所有數(shù)據(jù)庫(kù)"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)關(guān)閉"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(15).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(Str(Hour(Time)))，2)Mtime=Right("00"+Trim(Str(Minute(Time)))，2)Stime=Right("00"+Trim(Str(Second(Time)))，2)Judge_Form.Text(0).Text=Ydate+Mdate+Ddate+Htime+Mtime+StimeExitSubAddErr:MsgBoxErr.DescriptionEndSubPrivateSubModify_Recorder()DimiAsIntegerReco_Cancel=2Set_EnableJudge_Form，TrueSet_Save_ButtonTrueSet_Main_ButtonFalseSet_Move_ButtonFalseSet_Query_ButtonFalseSet_Report_ButtonFalseMClose_Table.Enabled=FalseToolbar(0).Buttons(15).Enabled=FalseFori=0ToJudge_Table.Fields.Count-1SData(i)=Judge_Table.Fields(i).ValueNextiBMark=Judge_Table.BookmarkEndSubPrivateSubDelete_Recorder()DimKey，iAsIntegerKey=MsgBox("請(qǐng)慎重，誤操作將導(dǎo)致聯(lián)機(jī)數(shù)據(jù)不可恢復(fù)??！"，vbOKCancel，"警告！")IfKey=1ThenReco_Cancel=3Set_Save_ButtonTrueSet_Main_ButtonFalseSet_Move_ButtonFalseSet_Query_ButtonFalseSet_Report_ButtonFalseMClose_Table.Enabled=FalseToolbar(0).Buttons(15).Enabled=FalseFori=0ToJudge_Table.Fields.Count-1SData(i)=Judge_Table.Fields(i).ValueNextiOnErrorResumeNextWithJudge_Table.Delete.MoveNextIf.EOFThen.MoveLastEndIfEndWithEndIfEndSubPrivateSubClear_Reco()IfToolbar(1).Buttons(5).Value=tbrPressedThenCycle_Set=1Toolbar(1).Buttons(6).Value=tbrUnpressedToolbar(1).Buttons(7).Value=tbrUnpressedElseCycle_Set=0EndIfEndSubPrivateSubDelete_Reco()IfToolbar(1).Buttons(6).Value=tbrPressedThenCycle_Set=2Toolbar(1).Buttons(7).Value=tbrUnpressedToolbar(1).Buttons(5).Value=tbrUnpressedElseCycle_Set=0EndIfEndSubPrivateSubRevert_Reco()IfToolbar(1).Buttons(7).Value=tbrPressedThenCycle_Set=3Toolbar(1).Buttons(5).Value=tbrUnpressedToolbar(1).Buttons(6).Value=tbrUnpressedElseCycle_Set=0EndIfEndSubPrivateSubSave_Cycle()DimiAsIntegerSelectCaseCycle_SetCase0MsgBox"請(qǐng)先選定回收站操作方式（清空/刪除/還原）！！"+Space(5)，vbOKOnly+48，"回收站操作信息！"Case1Toolbar(1).Buttons(5).Value=tbrUnpressedOnErrorResumeNextWithJudge_Table.MoveFirstWhileNot.EOF.Delete.MoveNextWendEndWithMsgBox"數(shù)據(jù)回收站已經(jīng)被清空?。?+Space(5)，vbOKOnly+48，"回收站操作信息！"Judge_Table.UpdateBatchadAffectAllSet_Move_ButtonFalseSet_Back_ButtonFalseCase2Toolbar(1).Buttons(6).Value=tbrUnpressedOnErrorResumeNextWithJudge_Table.Delete.MoveNextIf.EOFThen.MoveLastEndIfEndWithMsgBox"數(shù)據(jù)回收站當(dāng)前記錄已經(jīng)被刪除??！"+Space(5)，vbOKOnly+48，"回收站操作信息！"Judge_Table.UpdateBatchadAffectCurrentIfJudge_Table.RecordCount=0ThenSet_Move_ButtonFalseSet_Back_ButtonFalseEndIfCase3Toolbar(1).Buttons(7).Value=tbrUnpressedOnErrorResumeNextFori=0ToJudge_Table.Fields.Count-1SData(i)=Judge_Table.Fields(i).ValueNextiWithJudge_Table.Delete.MoveNextIf.EOFThen.MoveLastEndIfEndWithJudge_Table.UpdateBatchadAffectAllJudge_Back.AddNewFori=0ToJudge_Back.Fields.Count-1Judge_Back.Fields(i).Value=SData(i)NextiJudge_Back.UpdateBatchadAffectAllMsgBox"數(shù)據(jù)回收站當(dāng)前記錄已經(jīng)被還原?。?+Space(5)，vbOKOnly+48，"回收站操作信息！"IfJudge_Table.RecordCount=0ThenSet_Move_ButtonFalseSet_Back_ButtonFalseEndIfEndSelectCycle_Set=0Set_StatusbarEndSubPrivateSubFirst_Recorder()Judge_Table.MoveFirstSet_StatusbarEndSubPrivateSubPrevious_Recorder()WithJudge_Table.MovePreviousIf.BOFThen.MoveFirstEndIfEndWithSet_StatusbarEndSubPrivateSubNext_Recorder()WithJudge_Table.MoveNextIf.EOFThen.MoveLastEndIfEndWithSet_StatusbarEndSubPrivateSubLast_Recorder()WithJudge_Table.MoveLastEndWithSet_StatusbarEndSubPrivateSubCancle_Recorder()DimiAsIntegerSet_EnableJudge_Form，F(xiàn)alseSet_Save_ButtonFalseSet_Query_ButtonTrueSet_Report_ButtonTrueMClose_Table.Enabled=TrueToolbar(0).Buttons(15).Enabled=TrueSelectCaseReco_CancelCase1OnErrorResumeNextWithJudge_Table.Delete.MoveNextIfNot.BOFAnd.EOFThen.MoveLastSet_Move_ButtonTrueSet_Main_ButtonTrueIf.BOFThenSet_Main_ButtonFalseSet_Move_ButtonFalseToolbar(1).Buttons(1).Enabled=TrueEndIfEndIfEndWithCase2Fori=0ToJudge_Table.Fields.Count-1Judge_Table.Fields(i).Value=SData(i)NextiOnErrorResumeNextJudge_Table.UpdateBatchadAffectAllJudge_Table.Bookmark=BMarkSet_Move_ButtonTrueSet_Main_ButtonTrueCase3OnErrorResumeNextJudge_Table.AddNewFori=0ToJudge_Table.Fields.Count-1Judge_Table.Fields(i).Value=SData(i)NextiJudge_Table.UpdateBatchadAffectAllSet_Move_ButtonTrueSet_Main_ButtonTrueEndSelectJudge_Form.DataGrid.RefreshEndSubPrivateSubSave_Recorder()DimiAsIntegerIfReco_Cancel=3ThenOnErrorResumeNextJudge_Back.AddNewFori=0ToJudge_Back.Fields.Count-1Judge_Back.Fields(i).Value=SData(i)NextiJudge_Back.UpdateBatchadAffectAllEndIfOnErrorResumeNextJudge_Table.MovePreviousIfJudge_Table.BOFThenJudge_Table.MoveFirstEndIfJudge_Table.MoveNextIfJudge_Table.EOFThenJudge_Table.MoveLastEndIfSet_EnableJudge_Form，F(xiàn)alseSet_Save_ButtonFalseMClose_Table.Enabled=TrueToolbar(0).Buttons(15).Enabled=TrueIfJudge_Table.RecordCount=0ThenToolbar(1).Buttons(1).Enabled=TrueSet_Query_ButtonFalseSet_Report_ButtonFalseElseSet_Query_ButtonTrueSet_Report_ButtonTrueSet_Move_ButtonTrueSet_Main_ButtonTrueEndIfSet_StatusbarEndSubPrivateSubPresent_Search()Search_TableSearch_Window.ShowJudge_Form.HideEndSubPrivateSubOther_Search()DimsSQLString，sSQLString1，sSQLString2AsStringDimsDELStringAsStringJudge_Form.HideSetJudge_Back=Judge_TablesSQLString=vbNullStringSelectCaseSelect_TableCase1IfTableSelect=TrueThensDELString="delete*from招聘打印表"sSQLString1="insertinto招聘打印表select*from招聘where(性別='不限'"EndIfsSQLString2="select*from招聘where(性別='不限'"IfLen(Trim(Judge_Back.Fields("性別").Value))>0ThensSQLString=sSQLString+"or性別='"+Trim(Judge_Back.Fields("性別").Value)+"')"EndIfIfLen(Trim(Judge_Back.Fields("擬從事工作（1）").Value))>0ThensSQLString=sSQLStrin