人才管理_現代企業(yè)人才管理系統

現代企業(yè)人才管理系統摘要 本論文是從現代企業(yè)管理中的人才管理現狀出發(fā)，針對人才管理的復雜程序，經過詳細的系統調查，開發(fā)出的操作簡單而且方便實用的一個人才管理系統。 本系統的前端開發(fā)工具是Visual Basic 6.0，后臺數據庫引擎選用數據庫軟件Access 2000。 本系統經過測試，運行穩(wěn)定，已得到認可。 關鍵詞：人才管理系統，Visual Basic 6.0，Access 2000Summary Manage the current situation and set out from talent in modern business administration in this thesis, to talent complicated procedure of management , investigate through detailed system operation simple and convenient practical one talent administrative system that develop. The front developing instrument of this system is Visual Basic 6.0, backstage supporters database engine selects the database software Access 2000 for use. This system runs steadily, has already been approved through testing.Keyword: Talents administrative system, Visual Basic 6.0, Access 2000前言 隨著計算機技術的不斷發(fā)展，計算機作為知識經濟時代的產物，已被廣泛應用于社會各個行業(yè)和領域。隨著我國國企改革的深入和社會主義市場經濟的日趨繁榮，導致各企業(yè)間的競爭日益激烈，迫使企業(yè)采取先進的計算機硬件設備以及高質量的輔助軟件來管理企業(yè)的各項運作，以提高本企業(yè)的勞動生產率以及人員效率。人才管理系統軟件作為一種理軟件正在各企事業(yè)單位中得到越來越廣泛的應用。目錄 摘要1 前言2 緒論4 第一章 人才管理系統概述 第二章 怎樣開發(fā)一個學生檔案管理系統？ 2.1編程環(huán)境的選擇 2.2 關系型數據庫的實現 2.3二者的結合（DBA） 第三章 使用Access2000 實現關系型數據庫 3.1 數據庫的概念 3.2新建一個數據庫 3.3 修改已建的數據庫 3.4 實現數據庫之間的聯系 第四章:人才管理系統分析 4.1可行性分析 4.2系統數據流程圖 4.3數據字典 第五章:人才管理系統設計 5.1系統功能模塊圖 5.2數據庫設計 5.3界面設計 5.4程序設計 第六章:系統測試 第七章:系統使用說明 第八章：結束語第九章：參考文獻第十章：程序源代碼緒論1、 設計名稱: 人才管理系統2、開發(fā)單位: 葫蘆島廣播電視大學3、開發(fā)期限: 3.8-4.284、設計目標:（1） 近期目標:在5.1之前能達到基本的人才管理信息的錄入,管理以及打印.（2） 長期目標:在3年之內能夠完善軟件全部功能,實行軟件的長運經濟戰(zhàn)略.第一章 人才管理系統概述 人力資源管理系統的發(fā)展歷史可以追溯到20世紀60年代末期。由于當時計算機技術已經進入實用階段，同時大型企業(yè)用手工來計算和發(fā)放薪資既費時費力又非常容易出差錯，為了解決這個矛盾，第一代的人力資源管理系統應運而生。當時由于技術條件和需求的限制，用戶非常少，而且那種系統充其量也只不過是一種自動計算薪資的工具，既不包含非財務的信息，也不包含薪資的歷史信息，幾乎沒有報表生成功能和薪資數據分析功能。但是，它的出現為人力資源的管理展示了美好的前景，即用計算機的高速度和自動化來代替手工的巨大工作量，用計算機的高準確性來避免手工的錯誤和誤差，使大規(guī)模集中處理大型企業(yè)的薪資成為可能第二章 怎樣開發(fā)一個人才管理系統一、 編程環(huán)境的選擇微軟公司的Visual Basic 6.0是Windows應用程序開發(fā)工具，使目前最為廣泛的、易學易用的面向對象的開發(fā)工具。Visual Basic提供了大量的控件，這些控件可用于設計界面和實現各種功能，減少了編程人員的工作量，也簡化了界面設計過程，從而有效的提高了應用程序的運行效率和可靠性。故而，實現本系統VB是一個相對較好的選擇。關系型數據庫的實現Access2000 就是關系數據庫開發(fā)工具，數據庫能匯集各種信息以供查詢、存儲和檢索。Access 的優(yōu)點在于它能使用數據表示圖或自定義窗體收集信息。數據表示圖提供了一種類似于 Excel 的電子表格，可以使數據庫一目了然。另外，Access 允許創(chuàng)建自定義報表用于打印或輸出數據庫中的信息。Access也提供了數據存儲庫，可以使用桌面數據庫文件把數據庫文件置于網絡文件服務器，與其他網絡用戶共享數據庫。Access 是一種關系數據庫工具，關系數據庫是已開發(fā)的最通用的數據庫之一。如上所述，Access 作為關系數據庫開發(fā)具備了許多優(yōu)點，可以在一個數據包中同時擁有桌面數據庫的便利和關系數據庫的強大功能。二者的結合（DBA）微軟的JET數據庫引擎提供了與數據庫打交道的途徑，我們是通過它以及Visual Basic 來訪問數據庫并對其進行各種操作。Visual Basic、Access以及其他微軟的軟件產品都是通過共用JET數據庫引擎，從而給用戶提供了豐富的數據類型。DATA 控件在數據庫中的信息與將信息顯示給用戶看的Visual Basic程序之間架起了一座橋梁。我們可以設置DATA控件的各個屬性，告訴它要調用那個數據庫的哪個部分。缺省情況下，DATA控件根據數據庫中的一個或多個數據表建立一個dynaset-type（動態(tài)集合）類型的記錄集合。一個記錄集合是動態(tài)的也就意味著，當原來的數據表中的容改變了以后，該記錄集合中的記錄也會隨之改變。DATA控件還提供了用來瀏覽不同記錄的各種跳轉按鈕。將DATA控件放置在窗體中之后，我們還必須在該控件與要處理的數據庫之間建立聯系。第三章 使用Access2000 實現關系型數據庫一、數據庫的概念數據庫是一種存儲數據并對數據進行操作的工具。數據庫的作用在于組織和表達信息，簡而言之，數據庫就是信息的集合。計算機的數據庫可以分為兩類：非關系數據庫（flat-file）和關系數據庫（relational）。關系數據庫中包含了多個數據表的信息，數據庫含有各個不同部分的術語，象記錄、域等。二、新建一個數據庫創(chuàng)建任何一個數據庫的第一步是仔細的規(guī)劃數據庫，設計必須是靈活的、有邏輯的。創(chuàng)建一個數據庫結構的過程被認為是數據模型設計。1.標識需要的數據；2.收集被標識的字段到表中；3.標識主關鍵字字段；4.繪制一個簡單的數據圖表；5.規(guī)范數據；6.標識指定字段的信息；7.創(chuàng)建物理表。三、修改已建的數據庫數據庫的修改分為：添加、編輯和刪除記錄.這三種操作均可由Visual Basic 創(chuàng)建的程序來完成.四、實現數據庫之間的聯系數據庫之間的關系指明兩個庫之間共享一個共同的關鍵字值。一個連接是指一種虛擬的表，這種表是在當用戶要求從相互關聯的各個不同的表中獲取信息時建立的，關鍵字段用于在相互連接的不同表中查找匹配的記錄。一個更高級的連接形式稱為自連接。這種連接是指一個表被連接到它自己的一個字段，或在不同的紀錄中由重復數據的組合字段。數據庫中有三種不同類型的關鍵字：主關鍵字、組合關鍵字和外關鍵字。在表中使用的關鍵字類型用于描述庫表示什么以及在數據庫中如何與其它的庫建立關系.第四章 人才管理系統分析一、可行性分析：“需求分析”和“運營效率分析”是人才管理系統的重要依據，這兩份分析應說明“確實有要求”和“值得開發(fā)”。人才管理系統的成敗，人是決定因素，如果用帕拉圖ABC分類來看，人才是A類，數據是B類，軟件是C類，應值得注意技術上的開發(fā)與維護，經濟上是否盈虧，法律上的版權保護。本版軟件具有技術，運營，經濟，法律等多方面的可行性。 ACCESS中文版作為一個關系型數據庫系統，它提供了面向對象的編程技術，可簡化數據庫管理，使開發(fā)應用程序這項艱辛的工作就象堆積木那樣簡單方便。另外，用ACCESS中文版開發(fā)的應用程序可以獨立運行于windows平臺 。二、系統分析圖人才信息表提檔招聘單位管理員人才信息庫歸檔人才信息查詢信息登記人才信息表應聘人員招聘信息表單位信息表招聘信息表提檔管理員應聘人員招聘信息庫歸檔單位信息表信息登記招聘單位招聘信息查詢外部項 人工輸入 人工操作 文檔 歸檔文檔 三、數據字典（1）數據元素 a人才信息表所包含的元素 基本信息包括：編號、姓名、性別、民族、戶口所在地、目前所在地、證件類型、證件號 碼、出生日期、政治面貌、婚姻狀況、目前、身高、體重等。個 人簡歷包括：教育經歷（入學時間、畢業(yè)時間、所學專業(yè)、所在學校、獲得學歷），培訓情況（開始時間、結束時間、培訓單位、培訓課程、獲得證書），工作經歷（起始時間、結束時間、公司名稱、公司性質、工作部門、工作職位）等。求職意向包括：期望單位性質、期望工作地點、期望職位、職位名稱、期望工資要求等。技能特長包括：外語（外語種類、外語水平），汽車駕駛（駕照、駕齡），計算機（計算機水平），其他特長等。自我評價包括：自我評價，職業(yè)目標等。 b單位信息表所包含的元素：單位編號、單位名稱、單位電話、經營范圍、單位地址、傳真、電子信箱、登記時間、法人代表、單位性質、企業(yè)網址、電話、聯系人等。 c. 招聘信息表包括：單位名稱、編號、需求人數、性別、專業(yè)、學歷、開始時間、截止時間、基本要求等。 第五章 人才管理系統設計一、系統功能模塊圖主系統P0P1數據庫P2信息表P3編輯P4查詢P5報表P6系統P1數據庫P1.4更新P1.3回收站P1.7關閉P1.6備份P1.5恢復P1.2打開P1.1新建P2信息表P2.1人才求職信息登記表P2.4關閉信息表P2.3招聘信息表P2.2單位基本信息表P3.13保存記錄P3.12撤消操作P3.11尾記錄P3.10下一條記錄P3.9上一條記錄P3.7保存回收站數據P3.8首記錄P3.6偽刪除數據還原P3.5物理刪除P3.4清空回收站P3.3邏輯刪除P3.2修改P3編輯P3.1添加數據P4.3綜合查詢P4.2異表查詢P4.1當前表查詢P4查詢P5.3打印P5.2打印預覽P5.1頁面設置P5報表P6.5退出P6.4關于P6.3作者P6.2軟件說明書P6.1用戶設置P6系統(1) 數據庫設計人才信息求職意向個人簡歷基本信息技能特長基本信息姓名民族聯系方式地址身高職位目前狀況婚姻狀況政治面貌出生日期專業(yè)類別身份證號碼性別聯系人照片體重個人簡歷工作經歷培訓情況教育經歷培訓結果培訓形式培訓內容培訓單位結束時間開始時間學歷學位學習形式院校、系別結束時間開始時間專業(yè)開始時間培訓結果培訓形式培訓內容培訓單位結束時間基本要求求職意向自薦培訓情況薪金要求希望月薪希望年薪最低月薪其他要求專業(yè)代碼要求工作地區(qū)擬從事工作擬求職位意向單位流動條件流動方式其他特長計算機汽車駕駛外語技能特長計算機水平駕照駕齡外語語種外語水平 （E-R圖之人才信息）單位信息單位招聘信息招聘單位信息性別需求人數單位編號基本要求結束時間開始時間學歷專業(yè)聯系人電話單位地址單位性質單位名稱單位編號聯系人身份證號登記時間經營范圍聯系人姓名單位電話法人姓名 （E-R圖之單位信息）(2) 界面設計(3)程序設計系統測試在人才信息管理系統這個軟件制作好了以后并不是就沒事了！其實日后的測試、推廣與更新維護才是最重要的！第一節(jié) 功能測試功能測試是測試階段要完成的最普通，也是最顯而易見的測試。必須對整個管理軟件進行檢查，以確保所有功能正確執(zhí)行，不會產生不期望出現的錯誤信息、異常和執(zhí)行動作。對于管理項目，功能測試中最重要的一點就是電腦兼容性測試，即，確保管理軟件在所有電腦上都能操作正常。同樣，還要檢查軟件在不同操作系統條件下輸入數據功能是否正常。 對于一個人才信息管理軟件，甚至即使是一個很少的數據錄入，花在測試上的時間也是很多的。下面是在進行功能測試時需要注意的事項：（1） 鏈接：是否存在鏈接中斷，是否存在錯誤鏈接？（2） 錄入：錄入內容是否正確（3） 信息表格：能否正確填寫并保存（4） 設計：有沒有不能看到或讀取的因素（5） 打?。核璧娜瞬判畔㈨撁婺芊裾_打印進行功能測試時，要從最特殊的情形開始，或者從可能產生問題最多的配置開始。然后再測試大多數招聘單位錄入是所用電腦時采用的配置。如果在上述情況下，次軟件能正常工作，那么，對于其他情況基本上也不會出現太多的問題。一旦完成所有更改后，那么反過來再進行一次性大多數人才信息錄入時采用配置的測試，以便檢查確認，經過上述測試后沒有產生新的問題。進行功能測試時，應該盡量超越被認為是電腦正常運行使用的情況。比如說，對于人才信息輸入測試，應該試著隨意輸入一些或同時輸入諸如逗號、引號、省略號、換行符、尖括號、百分號等特殊字符，以檢查是否會產生錄入錯誤。第二節(jié) 錯誤管理在進行測試時，需要建立一套機制，以記錄和處理暴露出來的錯誤和缺陷，這可以保證測試者發(fā)現一個錯誤時，可以系統地將之記錄下來。為了使測試工作安全地進行，測試者有時對一個錯誤處理后，還需要重新生成這個錯誤。尤其是對于遞歸測試，可能更要考慮更進一步的測試，并且能再試著生成這個錯誤。對于一個有多個測試者的項目，采用數據庫的方式記錄、跟蹤和管理錯誤信息更合適。這樣，多個測試者就可以同時使用數據庫，并且數據庫有訪問和驗證控制功能，以使錯誤紀錄的過程更加有效和可靠。數據庫的結構屬性依賴于錯誤紀錄處理過程。錯誤記錄和管理數據庫包含以下字段：（1）人才編號：如果給每個錯誤紀錄獨一無二的編號，那么就可以很容易地找到指定的錯誤紀錄。（2）日期記錄：錯誤記錄日期（3）記錄人：記錄錯誤的人員（4）優(yōu)先級：可以設定錯誤的重要級別，這個級別對應處理時間（5）類型：可以按錯誤類型將錯誤分類（6）描述：關于錯誤的詳細描述。它包括關于錯誤的所有信息及錯誤是如何產生的信息（7）錯誤發(fā)現日期：錯誤第一次發(fā)現的時間（8）負責人：錯誤處理責任人（9）意見：當責任人看到錯誤時提出的意見（10）狀態(tài)：錯誤當前的狀態(tài)（11）處理日期：錯誤解決的時間第三節(jié) 運行測試對于一個人才信息管理系統的軟件運行測試尤為重要，盡管我們在進行功能測試時已檢查出用戶界面的錯誤，但離開軟件或進行數據輸出的結果，還需要進行運行測試。定義運行測試的界限依賴于人才管理信息的范圍。在很多情況下，解決運行測試時暴露的問題不是由軟件設計者負責，而是應該由人才管理的單位自己或有關的第三方負責。但由于系統的整體性問題，同時軟件設計者負責的部分也是次軟件站的核心，因此，運行問題還是需要軟件設計者和人才管理的單位及第三方共同去解決。 一個好的信息管理軟件，不僅僅是一次性制作完美就可以的，由于人才信息的情況在不斷地變化，軟件的管理內容也需要隨之調整。這就要求我們對軟件進行長期的不間斷的維護和更新。第四節(jié) 軟件的維護 軟件維護一般包含以下內容：內容的更新（如人才信息的更新，招聘單位的招聘信息的動態(tài)更新，招聘啟示更新等）。軟件風格的更新（如軟件改版）、軟件重要頁面設計制作（如啟示類重大事件頁面及招聘單位周年慶等頁面制作）、軟件系統維護服務（如：系統管理員帳號、軟件版本升級、人才信息管理的維護、招聘單位的招聘信息等）。第七章 系統使用說明一、系統環(huán)境與安裝硬件配置建議配置：CPU：PII 450 或更高；內存：32MB以上；顯卡：支持800X600或更高；打印機：至少能夠打印A4紙。軟件配置操作系統：中文版Microsoft window 98 或Microsoft window 2000應用軟件：中文版 Microsoft Word 97/2000(軟件說明書)軟件安裝檢查當前系統時間的正確性將載有人才管理系統的光盤放入光驅（如果有多個光驅時，放入第一個光驅），系統自動檢測光盤的合法性。系統自動啟動人才管理系統的安裝系統，用戶在安裝系統的中文提示下，可以輕松完成軟件的安裝。人才管理系統安裝成功后，Window 操作系統“開始”“程序”組里將自動增加“人才應招信息管理系統”程序組。目錄說明：PIC圖片；MODULE模塊；PHOTO人員照片；RPORT報表與數據環(huán)境軟件卸載在“人才管理系統”程序組中選定“刪除人才管理系統”程序項，（或者打開Window 操作系統中的“控制面板”，單擊“添加/刪除程序”，在列表中找到“人才管理系統”的程序組選項）單擊，按照屏幕提示操作即可以安全、快速地刪除人才管理系統。二、啟動系統系統啟動過程如下：1.進入Window 操作系統后，單擊任務欄中的“開始”“程序”組“人才管理系統”程序組中的“人才管理系統”程序項，啟動程序。2.首先，將顯示系統登錄窗口，如圖2-1所示，用戶輸入正確的用戶名和密碼，按“ENTER”鍵，確認正確后即可進入系統。圖2.1 試用版環(huán)境下，系統僅給定缺省用戶名“ADMIN”和密碼“0322”，并且不進行數據的加密。原文本判定。3然后將會出現圖2.2界面,按下“Enter”鍵。 圖2.24這時將出現圖2.3窗體。 圖2.35.通過系統檢驗的用戶將順利進入本系統，看到系統主界面。圖2.4三、菜單項和工具欄如圖3-1所示的是人才應招信息管理系統中的菜單項。圖3-1菜單中包含本系統的全部功能，系統菜單項主要由六大部分組成，分別是：數據庫：實現數據庫的新建、打開、數據回收、自動更新、恢復、備份和關閉數據庫等功 能項；信息表：實現主表數據和副表數據的選定與關閉；編輯：實現當前主表的添加、修改、邏輯刪除和當前副表（回收站）的清空、物理刪除、數據還原及保存副表數據等，同時設置記錄的移動和撤消、保存改變的數據記錄；查詢：實現當前表的查詢和異表查詢（綜合查詢暫不可用）；報表：實現數據報表的設置、預覽和打印；系統：系統輔助信息的顯示與系統退出。 二、工具欄介紹如圖3-2所示的是人才管理系統中的工具欄。圖3-2由上至下，由左向右分別是：1、新建打開回收站自動更新還原備份關閉數據庫2、打開單位信息表人才信息表招聘信息表關閉信息表3、打印設置預覽打印4、用戶設置軟件說明書作者信息系統信息退出系統5、添加修改邏輯刪除6、清空回收站物理刪除還原保存回收站數據7、首記錄上一條記錄下一條記錄尾記錄8、撤消數據操作保存9、當前表查詢異表查詢綜合查詢四、數據庫操作實現數據庫的新建、打開、數據回收、自動更新、恢復、備份和關閉數據庫等項功能。如圖4-1。 圖4-1全部在后臺操作：（數據庫不帶密碼，應用人員可打開數據庫更改不合理項）新建：清除當前目錄下應用程序數據庫的所有主表記錄；打開：將當前數據庫的主表作為操作對象；回收站：將當前數據庫的副表作為操作對象；自動更新：將當前數據庫中主表的過期數據邏輯刪除到數據回收站；恢復和備份：在試用版環(huán)境下，此選項不可用；關閉數據庫：關閉當前數據庫的主表或副表，以改變數據操作對象。五、信息表操作實現主表數據和副表數據的選定與關閉。如圖5-1。圖5-11.將主表或副表中的人才信息表作為當前日操作對象，并打開。如圖5-2。圖5-22.將主表或副表中的單位信息表作為當前的操作對象，并打開。如圖5-3。圖5-33、將主表或副表中的招聘信息表作為當前日操作對象，并打開。如圖5-4。圖5-44、關閉信息表，以改變數據操作對象。六、編輯 實現當前主表數據的添加、修改、刪除和當前副表數據（回收站）的清空、物理刪除、數據還原及保存副表數據等，同時設置記錄的移動和撤消、保存改變的數據記錄。如圖6-1。圖6-1 本菜單組實現對當前數據表的編輯操作，主表要求全部手工操作，實現數據庫的更新，副表可以實現對主表的數據的補充，并實現對過期記錄的處理。所有操作均要求作撤消和保存操作處理，以確認。當前數據表的添加與修改均有對當前記錄的當前字段合法性檢驗，以保證數據的準確性。1、 數據表的“編號”為系統自動標號，采用的是12為編碼，分別是年2位，月2位，日2位，時2位，分2位，秒2位，數據超長分項取當前值的末2位，不足則左補“0”，以保證數據的唯一性。2、 時間限制的日期值，將進行數據比較，合法才可以繼續(xù)，否則將要求對數據進行人工檢驗。3、 字錄入文本框要求僅錄入數字，非數字將不予接受。4、 日期錄入文本框要求僅錄入數字和“-”或“/”。七、查詢實現當前表和異表查詢。如圖7-1。 圖7-1 1、 當前查詢 因對本系統的調研不足，無法了解更為詳細的系統要求，故建立如圖7-2所示的數據查詢窗體，要求操作人員必須對人才管理有一定的了解，同時應具備一定的計算機操作技能和數據庫SQL語句的知識（此項需要改進，但目前可以保證本系統的強大的查詢功能）。 圖7-22、 異表查詢 可以實現對當前主表選定數據的的配套查詢。如：當前表為“人才信息表”，則可以選定一條記錄，進行異表查詢，找到適合本記錄要求的單位招聘信息。此項功能為后臺操作，系統自動完成。八、報表實現數據報表的設置、預覽和打印。如圖8-1。圖8-1系統自動形成報表數據包括信息表全部數據和對當前主表進行同表查詢和對當前記錄進行異表查詢的結果，可以實現數據的選擇輸出。如圖8-2。圖8-2九、系統系統輔助信息的顯示與系統退出。如圖9-1。圖9-11、顯示系統信息。如圖9-2。圖9-22、顯示作者信息。如圖9-3。圖9-33、退出如圖9-4，完成操作。圖9-4 結束語經過兩個多月的設計和開發(fā)，人才管理系統基本開發(fā)完畢。其功能基本符合用戶需求，能夠完成人才信息的查詢以及各類相關報表的打印。并提供部分系統維護功能,使用戶方便進行數據備份和恢復、數據刪除。對于數據的一致性的問題也通過程序進行了有效的解決，但是由于畢業(yè)設計時間較短，所以該系統還有許多不盡如人意的地方.致謝：在本次畢業(yè)設計中，我從指導老師王剛老師身上學到了很多東西。王老師認真負責的工作態(tài)度，嚴謹的治學精神和深厚的理論水平都使我收益匪淺。他無論在理論上還是在實踐中，都給與我很大的幫助，使我得到不少的提高這對于我以后的工作和學習都有一種巨大的幫助，感謝他耐心的輔導，使得系統能及時開發(fā)完成，還有同組的同學同樣給我不少幫助，這里一并感謝。第十章 程序源代碼 一、 password_window:Option ExplicitPublic LoginSucceeded As BooleanPrivate Sub cmdCancel_Click() 設置全局變量為 false 不提示失敗的登錄 LoginSucceeded = False End End SubPrivate Sub cmdOK_Click() 檢查正確的密碼 If txtPassword = 0322 And txtUserName = admin Then 將代碼放在這里傳遞 成功到 calling 函數 設置全局變量時最容易的 LoginSucceeded = True Me.Hide face_window.Show Else MsgBox 無效的密碼，請重試!, , 登錄 txtPassword.SetFocus SendKeys Home+End End If End Sub二、face_window: Private Sub Form_Load()Move (Screen.Width - Me.Width) 2, (Screen.Height - Me.Height) 2End SubPrivate Sub Picture1_KeyPress(Keyascii As Integer)If Keyascii = 13 Then Unload Me speed_window.ShowEnd IfEnd Sub3speed_window:Private Sub Command1_Click()If Command1.Caption = 取消 ThenEndElseUnload MeEnd IfEnd SubPrivate Sub Command2_Click() Command2.Enabled = False Load Main_Window Main_Window.Show Main_Window.WindowState = 2 ProgressBar1.Value = 10 ProgressBar1.Refresh Load person_window person_window.Hide ProgressBar1.Value = 20 ProgressBar1.Refresh Load factory_window factory_window.Hide ProgressBar1.Value = 30 ProgressBar1.Refresh Load engage_window engage_window.Hide ProgressBar1.Value = 40 ProgressBar1.Refresh Load author_window author_window.Hide ProgressBar1.Value = 50 ProgressBar1.Refresh Load factory_report factory_report.Hide ProgressBar1.Value = 60 ProgressBar1.Refresh Load Search_Window Search_Window.Hide ProgressBar1.Value = 70 ProgressBar1.Refresh Load Need_report Need_report.Hide ProgressBar1.Value = 80 ProgressBar1.Refresh Load Person_report Person_report.Hide ProgressBar1.Value = 90 ProgressBar1.Refresh Load about_system_window about_system_window.Hide ProgressBar1.Value = 100 ProgressBar1.Refresh Command1.Caption = 完成End SubPrivate Sub Form_Load() Move (Screen.Width - Me.Width) 2, (Screen.Height - Me.Height) 2 SetWindowPos Me.hwnd, -1, 0, 0, 0, 0, 3 End Sub4main_window:Option ExplicitDim Reco_Cancel As Integer 記錄操作標記Dim BMark As Variant 記錄標簽Dim SData(100) As Variant 當前記錄的字段數組Dim Cycle_Set As Integer 回收站操作標記Const MSG2 = （無）Private Sub MAbout_Author_Click()Call About_AuthorEnd SubPrivate Sub MAbout_System_Click()Call About_SystemEnd SubPrivate Sub MAll_Search_Click()Call All_SearchEnd SubPrivate Sub MAppend_Recorder_Click()Call Append_RecorderEnd SubPrivate Sub MBack_Data_Click()Call Back_DataEnd SubPrivate Sub MCancle_Recorder_Click()Call Cancle_RecorderEnd SubPrivate Sub MClear_Reco_Click()Call Clear_RecoEnd SubPrivate Sub MClose_Data_Click()Call Close_DataEnd SubPrivate Sub MClose_Table_Click()Call Close_TableEnd SubPrivate Sub MCycle_Data_Click()Call Cycle_DataEnd SubPrivate Sub MDelete_Reco_Click()Call Delete_RecoEnd SubPrivate Sub MDelete_Recorder_Click()Call Delete_RecorderEnd SubPrivate Sub MDIForm_Load()Dim i As IntegerCoolBar1.Bands(3).Visible = FalseFor i = 10 To 20Toolbar(0).Buttons(i).Enabled = FalseNext iMInfo_Table.Enabled = FalseMEdit_Recorder.Enabled = FalseMQuery_Table.Enabled = FalseMReport_Form.Enabled = FalseReco_Cancel = 0Cycle_Set = 0End SubPrivate Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)Dim Key As IntegerKey = MsgBox(你真的退出人才管理系統嗎？, 33, 退出管理系統！)If Key = 1 Then end_window.ShowElse Cancel = TrueEnd IfEnd SubPrivate Sub MEngage_Table_Click()Call engage_TableEnd SubPrivate Sub MExit_System_Click()Call Exit_SystemEnd SubPrivate Sub MFactory_Table_Click()Call Factory_TableEnd SubPrivate Sub MFirst_Recorder_Click()Call First_RecorderEnd SubPrivate Sub MHelp_Text_Click()Call Help_TextEnd SubPrivate Sub MLast_Recorder_Click()Call Last_RecorderEnd SubPrivate Sub MModify_Recorder_Click()Call Modify_RecorderEnd SubPrivate Sub MNew_Data_Click()Call New_DataEnd SubPrivate Sub MNext_Recorder_Click()Call Next_RecorderEnd SubPrivate Sub MOpen_Data_Click()Call Open_DataEnd SubPrivate Sub MOther_Search_Click()Call Other_SearchEnd SubPrivate Sub MPaper_Set_Click()Call Paper_SetEnd SubPrivate Sub MPerson_Table_Click()Call Person_TableEnd SubPrivate Sub MPresent_Search_Click()Call Present_SearchEnd SubPrivate Sub MPrevious_Recorder_Click()Call Previous_RecorderEnd SubPrivate Sub MPrint_Form_Click()Call Print_formEnd SubPrivate Sub MPrint_Previous_Click()Call Print_PreviousEnd SubPrivate Sub MResume_Data_Click()Call Resume_DataEnd SubPrivate Sub MRevert_Reco_Click()Call Revert_RecoEnd SubPrivate Sub MSave_Cycle_Click()Call Save_CycleEnd SubPrivate Sub MSave_Recorder_Click()Call Save_RecorderEnd SubPrivate Sub MUpdate_Data_Click()Call Update_DataEnd SubPrivate Sub MUser_Set_Click()Call User_SetEnd SubPrivate