干部檔案管理論文-VB畢業(yè)設(shè)計(jì)

1、某某大學(xué)畢業(yè)論文干部檔案管理管理系統(tǒng)姓 名 *學(xué) 科 專 業(yè) 信息管理指 導(dǎo) 教 師 * 學(xué) 號: 日期: 2004年6月目錄:(一) 分析目前干部管理、檔案管理的 現(xiàn)狀;(二)干部檔案工作的 問題及對策,(三)系統(tǒng)應(yīng)滿足的 功能及要求(錄入、查詢、修改、打印等);(四) 程序結(jié)構(gòu)圖設(shè)計(jì)及編制運(yùn)行程序.(五)結(jié)束語.(六)主要參考文獻(xiàn)前 言檔案是國家機(jī)構(gòu)、社會(huì)組織在干部管理活動(dòng)中形成的 、記述和反映個(gè)人經(jīng)歷和德才表現(xiàn)等情況、以人頭為單位集中保存以備查考的 原始記錄.檔案管理的 目的 是為了 檔案的 利用.如果放松管理,無論對單位和對個(gè)人都會(huì)影響檔案的 利用.舉個(gè)例子,如果應(yīng)該進(jìn)入檔案的 材料沒

2、及時(shí)歸檔,則對個(gè)人資料的 記載就是不完整的 ,缺乏了 這一部分的 憑證,就無法出具相關(guān)證明.如果發(fā)生了 損壞或丟失檔案的 情況,后果就更加嚴(yán)重,有的 檔案材料是難以重新建立的 .檔案的 管理是與干部、流動(dòng)手續(xù)的 銜接密切相關(guān)的 .以北京市人才服務(wù)中心為例,擁有著全市最大的 檔案管理中心,共保管了 檔案12萬份.這些檔案的 利用率相對很高,表現(xiàn)在出具干部證明、婚育證明、出國政審、職稱評定、工齡認(rèn)定以及各種保險(xiǎn)的 相關(guān)手續(xù)等方面.檔案中心的 工作人員每天都要接待大量的 企業(yè)用人中的 查詢、查閱.檔案好像是計(jì)劃經(jīng)濟(jì)的 產(chǎn)物,在市場經(jīng)濟(jì)條件下,隨著人才流動(dòng)潮流的 涌現(xiàn),人們思想觀念上的 放開,檔案越來

3、越被人們所冷落和忽視.到底檔案對個(gè)人以及人力資源部意味著什么,放松對檔案的 管理會(huì)帶來哪些后果呢？目前我國的 檔案管理社會(huì)化趨勢日益明顯.非公有制單位,國有企業(yè)事業(yè)單位發(fā)展干部代理使流動(dòng)人員檔案管理總量每年迅速上升.人,檔分離,用人單位和管理檔案部門分離,有利于社會(huì)人的 形成,有利于人才流動(dòng)管理.但是,因?yàn)楹芏嗥髽I(yè)和個(gè)對檔案管理認(rèn)識(shí)不足,影響了 檔案材料的 完整性和效用.有的 人在頻繁流動(dòng)中,檔案材料沒有相應(yīng)的 記載;有的 淡化了 檔案的 觀念,“死”檔也有逐漸增加的 趨勢.(一) 分析目前干部管理、檔案管理的 現(xiàn)狀長期以來,各級對干部檔案管理、利用比較重視,但是隨著國有、集體企業(yè)改革改制速度

4、加快,干部檔案管理在一些企業(yè)已出現(xiàn)疏忽的 現(xiàn)象,尤其是企業(yè)性質(zhì)、職工身份置換后的 民營企業(yè)更不夠重視此項(xiàng)工作.民營企業(yè)干部檔案管理的 現(xiàn)狀,是企業(yè)改革改制過程中出現(xiàn)的 新情況,政協(xié)委員在提案中希望檔案部門需發(fā)文要求,加強(qiáng)檢查督促,達(dá)到管理規(guī)范化.干部檔案一定要隨個(gè)人走,及時(shí)接轉(zhuǎn),有利于用人單位查閱方便、使用方便長期以來,干部檔案深藏于庫房之中,默默無聞.“說起來重要,排起來次要,用起來需要,忙起來忘掉”.甚至還認(rèn)為,干部檔案工作就是收收發(fā)發(fā)、裝裝訂訂、粘粘貼貼,一個(gè)登記本、一個(gè)裝訂機(jī)、一個(gè)鐵皮柜就夠了 ,實(shí)際上遠(yuǎn)非如此.隨著干部制度的 改革,媒介在用人方式上開始多樣化,即正式職工、聘用人員、臨

5、時(shí)工等多種形式并存,且聘用人員的 檔案不由聘用單位的 干部部門管理,這些都為媒體檔案管理提出了 新課題. 將干部檔案工作列入干部工作規(guī)劃,有專門的 分管該項(xiàng)工作的 領(lǐng)導(dǎo)和專職工作人員.要制定長遠(yuǎn)規(guī)劃和年度計(jì)劃,明確工作重點(diǎn).要努力改善保管條件,將檔案鐵柜、各種整檔工具等必需設(shè)備列入專項(xiàng)經(jīng)費(fèi)開支,從人、財(cái)、物上盡量創(chuàng)造條件.同時(shí)還可以考慮和人才交流中心聯(lián)系,把部門聘用人員的 干部檔案納入干部部門管理規(guī)劃,以有利于統(tǒng)一管理和使用好聘用人員.在媒體競爭日趨激烈的 情況下,如何使干部檔案工作更好地為發(fā)現(xiàn)人才、選拔人才、加速人才培養(yǎng)、合理配置人力資源服好務(wù)？筆者認(rèn)為,應(yīng)做到強(qiáng)化一個(gè)管理體制,處理好兩種關(guān)

6、系,實(shí)現(xiàn)兩個(gè)轉(zhuǎn)變,開發(fā)多種利用方式. (二)干部檔案工作的 問題及對策干部檔案是人才信息的 重要載體是人才的 主要信息源準(zhǔn)確、齊全、完整的 干部檔案能歷史全面地記載一個(gè)人的 經(jīng)歷、政治思想、品德作風(fēng)、業(yè)務(wù)能力、工作表現(xiàn)、工作實(shí)績等信息是知人善任、選賢舉能的 重要工具管好用好干部檔案對人才資源開發(fā)起著重要作用.但是當(dāng)前的 干部檔案工作還存在著不少問題直接妨礙了 其作用的 發(fā)揮主要表現(xiàn)在對干部檔案的 重視程度不夠一種是思想認(rèn)識(shí)陳舊片面.由于歷史的 原因以往的 干部檔案主要收集的 是一個(gè)人的 政治歷史材料、家庭出身及社會(huì)關(guān)系等材料而現(xiàn)在各項(xiàng)工作重心轉(zhuǎn)移組織干部政審工作相對減少一些人就認(rèn)為干部檔案“沒

7、什么用了 ”、“作用低了 ”另一種是受許多新建私營企業(yè)、公司用人不建檔案的 影響存在著“要不要干部檔案無所謂”的 錯(cuò)誤認(rèn)識(shí).以上兩種輕視干部檔案工作的 思想都表明了 一些人對干部檔案工作缺乏了 解對在人才資源開發(fā)中干部檔案的 作用缺乏認(rèn)識(shí).在實(shí)際工作中一些領(lǐng)導(dǎo)對干部檔案工作不予重視特別是在干部工作改革不斷深入的 今天只重視干部的 其它工作忽視干部檔案工作只抓干部工作改革放松干部檔案基礎(chǔ)工作有些管檔人員也放松對自己的 要求管理流于形式充當(dāng)起“保管員”的 角色.干部檔案收集工作缺乏力度一是收集歸檔工作制度不健全執(zhí)行不嚴(yán)格.少數(shù)管檔部門只照搬中組部下發(fā)的 干部干部檔案材料收集歸檔規(guī)定沒有形成自己的

8、實(shí)施細(xì)則內(nèi)容不具體、不全面.即使建立了 制度也在不同程度上存在執(zhí)行不嚴(yán)格現(xiàn)象收集歸檔工作被動(dòng)、不及時(shí).這一問題在無專職干部檔案工作人員的 單位中比較突出.二是收集歸檔的 材料不全面、不準(zhǔn)確.雖然干部干部檔案材料收集歸檔規(guī)定文件中對干部檔案收集歸檔的 范圍作了 規(guī)定但當(dāng)前的 干部檔案材料在全面準(zhǔn)確地反映一個(gè)人的 全貌方面還是欠缺的 .首先有的 單位一些材料還沒有收集上來或收集得不齊全如干部的 考核材料支農(nóng)扶貧、派出國境人員的 鑒定材料和反映人的 能力水平的 材料等這些材料多數(shù)為零散材料.其次一些歸檔的 材料還不夠真實(shí)和準(zhǔn)確.干部檔案是記載一個(gè)人的 經(jīng)歷和德才表現(xiàn)的 材料它的 內(nèi)容應(yīng)該是真實(shí)、準(zhǔn)確

9、的 而現(xiàn)在干部檔案中有些材料在內(nèi)容和形式上是雷同的 如一些鑒定、考核和評價(jià)材料都給人以“千篇一律”、“同出一轍”的 感覺多使用套話內(nèi)容形式相同不能準(zhǔn)確反映每個(gè)人的 真實(shí)情況. 干部檔案利用工作水平較低其作用尚未充分發(fā)揮出來,利用工作是衡量干部檔案工作質(zhì)量的 一個(gè)標(biāo)準(zhǔn)從現(xiàn)在各單位的 情況看有以下幾個(gè)問題:A.利用工作范圍有限.現(xiàn)在干部檔案在政審、調(diào)升工資、職務(wù)變動(dòng)等工作中只被用來了 解人員的 基本情況而知人善用、選賢舉能的 作用并未發(fā)揮出來.B.利用方式單一使用率低.只有需要者找上門來才提供利用“看堆守?cái)偂?、被?dòng)服務(wù)狀況還很普遍.C.對于一個(gè)單位來說利用干部檔案資源應(yīng)該不僅限于利用某一個(gè)人的 信

10、息也需要利用整體的 綜合信息如人員分類信息、人員結(jié)構(gòu)信息等.但有一些單位部門中干部檔案的 管理手段還是原始的 手工管理方法難以滿足對綜合信息和對信息進(jìn)行分析的 需求.從上述問題來看目前干部檔案工作還有一些不完善的 地方需要我們?nèi)パ芯拷鉀Q.為使干部檔案在新的 形勢下發(fā)揮更大作用要解決上述問題我認(rèn)為應(yīng)從以下幾方面入手一、適應(yīng)改革發(fā)展新形勢提高對干部檔案工作重要性的 認(rèn)識(shí)新時(shí)期干部工作面臨許多新問題同時(shí)也給干部檔案工作提出了 更高的 要求干部檔案人員應(yīng)該不斷地加強(qiáng)自身學(xué)習(xí)增強(qiáng)工作自覺性同時(shí)注意宣傳提高全體人員的 檔案意識(shí)提高對干部檔案工作重要性的 認(rèn)識(shí).在改革發(fā)展的 今天必須認(rèn)識(shí)到干部檔案不是可有可

11、無的 ,即使不設(shè)干部檔案的 企業(yè)公司也是十分重視人才信息的 .由此可以說明,干部檔案在人才資源開發(fā)中有著重要作用.長期以來我黨一貫強(qiáng)調(diào)各級組織在選拔和任用干部時(shí)要首先查閱干部的 干部檔案這是一項(xiàng)組織程序.實(shí)踐證明干部檔案在考察了 解、選拔使用干部中起著重要的 依據(jù)作用同時(shí)還可為人才資源開發(fā)提供大量信息和數(shù)據(jù).因此干部檔案工作不但必要而且重要不能削弱在現(xiàn)階段還應(yīng)進(jìn)一步加強(qiáng).二、加強(qiáng)收集工作完善檔案內(nèi)容干部檔案材料的 收集工作是干部檔案工作的 基礎(chǔ)是為利用工作積累信息的 過程是維護(hù)干部檔案完整和真實(shí)直接關(guān)系其作用發(fā)揮的 重要環(huán)節(jié)因此必須下功夫、花大力氣認(rèn)真做好.建立健全收集歸檔制度認(rèn)真組織落實(shí)從管

12、檔部門來說必須建立健全收集工作制度并嚴(yán)格執(zhí)行應(yīng)該歸檔的 材料認(rèn)真收集歸檔.要采取定期收集和不定期收集相結(jié)合的 方式將形成的 應(yīng)歸檔材料全部收集歸檔.定期收集可以根據(jù)本單位的 中心工作提出收集工作計(jì)劃對應(yīng)收集的 材料做到心中有數(shù).積極主動(dòng)抓重點(diǎn)、按計(jì)劃逐項(xiàng)收集這樣可以避免因工作忙漏歸、遲歸現(xiàn)象.如表彰獎(jiǎng)勵(lì)材料、年終考核材料、工資普調(diào)材料等都可以按計(jì)劃定期收集.不定期收集也就是零星收集采取這種方法時(shí)要注意了 解各方面情況及時(shí)掌握信息隨時(shí)收集如成果獲獎(jiǎng)、學(xué)歷培訓(xùn)、政審、鑒定材料等都可以不定期收集.從形成檔案材料的 單位部門來說也必須建立歸檔制度同樣要認(rèn)真貫徹執(zhí)行將形成的 應(yīng)歸檔材料主動(dòng)送交管檔部門歸

13、檔.各部門應(yīng)該將收集歸檔這項(xiàng)工作列入目標(biāo)管理工作中落實(shí)歸檔時(shí)間和責(zé)任人也可以將之列入崗位責(zé)任制中作為考核內(nèi)容.干部檔案部門要對歸檔工作進(jìn)行嚴(yán)格的 檢查督促.完善檔案內(nèi)容提高檔案價(jià)值首先干部干部檔案材料收集歸檔規(guī)定是干部檔案收集歸檔工作的 依據(jù)性文件.按照這一規(guī)定干部部門應(yīng)在德、能、勤、績四方面開展收集工作全面收集材料特別是現(xiàn)階段要根據(jù)干部制度改革和對人才信息的 需要完善檔案內(nèi)容注意收集那些能體現(xiàn)人才能力、水平和業(yè)績的 材料.其次應(yīng)在形成檔案材料時(shí)就使它準(zhǔn)確、充實(shí)能真正反映一個(gè)人的 情況、面貌和特點(diǎn).例如考核鑒定材料形成時(shí)就要注意將被考核人全面情況反映出來要對人才素質(zhì)、現(xiàn)實(shí)表現(xiàn)客觀地作出評價(jià).這

14、樣所形成的 材料被收集進(jìn)檔案中去才能有利用價(jià)值.再次要定期補(bǔ)充記錄登記如對干部任免、工資變動(dòng)、出國情況等登記表定期補(bǔ)充目的 是使檔案簡單明了 地反映人的 某一方面情況.另外可以將科技人才的 論著論文目錄、培訓(xùn)進(jìn)修登記、年終考核登記等補(bǔ)充進(jìn)檔案使檔案內(nèi)容更直觀便于利用.三、提高利用工作水平充分發(fā)揮干部檔案的 作用拓寬服務(wù)范圍為干部改革提供信息除了 在政審、調(diào)資、晉升中提供干部檔案以外檔案部門在當(dāng)前干部工作改革中要根據(jù)結(jié)構(gòu)性調(diào)整、人員配置等中心任務(wù)積極提供干部檔案信息如在機(jī)構(gòu)人員調(diào)整、定崗定員工作中提供人員現(xiàn)狀情況、綜合信息、統(tǒng)計(jì)信息在作人員規(guī)劃和預(yù)測時(shí)提供人員預(yù)測情況、分析信息等為領(lǐng)導(dǎo)和決策者當(dāng)

15、好參謀.熟悉檔案內(nèi)容和人員情況積極主動(dòng)提供服務(wù)通過對檔案的 整理熟悉干部檔案內(nèi)容.重點(diǎn)應(yīng)放在新調(diào)入人員檔案上因?yàn)轭I(lǐng)導(dǎo)和其它部門對新調(diào)入人員的 情況不很了 解檔案人員通過其檔案熟悉他們的 學(xué)歷、曾進(jìn)行過何種培訓(xùn)、擔(dān)任過什么職務(wù)、做過哪些工作以及對其評價(jià)如何等等將這些信息主動(dòng)向使用部門介紹,變被動(dòng)服務(wù)為主動(dòng)服務(wù).編制必要的 檢索工具方便查找利用干部檔案管理部門應(yīng)建立幾種有效的 檢索工具如把所管理的 干部檔案中的 人員情況按年齡、職務(wù)職稱、學(xué)歷、專業(yè)等來分類編制不同的 檢索工具便于查找和利用.實(shí)行計(jì)算機(jī)管理提高利用工作水平現(xiàn)在干部部門普遍使用的 計(jì)算機(jī)干部信息管理系統(tǒng)包含了 大量信息利用這一系統(tǒng)不但

16、提高了 查找信息的 速度而且可對所管理人員的 情況進(jìn)行研究做出統(tǒng)計(jì)分析開展高層次的 信息服務(wù).如各人才交流中心近年開通的 人才信息服務(wù)系統(tǒng)直接服務(wù)于人才開發(fā)和利用工作對干部檔案利用工作的 改革和發(fā)展起到了 促進(jìn)作用.總之今后我們還要進(jìn)一步探索利用現(xiàn)代化手段管理干部檔案和人才信息的 方法為干部檔案工作的 科學(xué)化、現(xiàn)代化管理服務(wù)為開發(fā)利用干部檔案和人才信息貢獻(xiàn)力量.在干部檔案管理中為了 管理的 安全性,所以我們要建立一個(gè)安全的 檔案管理系統(tǒng).(三)系統(tǒng)應(yīng)滿足的 功能及要求(錄入、查詢、修改、打印等)干部檔案管理系統(tǒng)主要包含職工個(gè)人自然情況,工作情況,簡歷,政治情況等各方面信息,內(nèi)容比較龐大復(fù)雜.同

17、時(shí)還綜合考慮檔案管理工作的 性質(zhì),總結(jié)歸納出所需實(shí)現(xiàn)的 功能.主要是為干部檔案進(jìn)行服務(wù),對干部的 變動(dòng)、干部資料、以及干部資料的 查詢,統(tǒng)計(jì)等功能.總體上說具有編輯,查詢,用戶管理,圖表統(tǒng)計(jì)等功能.一、 靈活的 數(shù)據(jù)記錄編輯功能,可以隨時(shí)對記錄進(jìn)行增加,修改,更新,刪除,瀏覽等編輯操作.并將查詢方式有機(jī)溶入編輯界面,可以實(shí)現(xiàn)對某項(xiàng)記錄定位,再進(jìn)行編輯,修改,更新.二、 多個(gè)數(shù)據(jù)庫表的 任意組合條件的 查詢.便于在實(shí)際檔案管理操作中呆對保種情況,多種條件下的 人員情況進(jìn)行統(tǒng)計(jì)查看.三、 具備分級用戶權(quán)限管理設(shè)置,以確保檔案的 保密性和安全性.四、 具有分類統(tǒng)計(jì),使用圖表顯示的 功能,該統(tǒng)計(jì)圖表可

18、根據(jù)數(shù)據(jù)庫中記錄情況的 變化而變化.五、 具有比較友好的 人機(jī)界面,各種操作可以在直觀的 界面上通過人機(jī)交互式進(jìn)行.六、 具有輔助表管理功能,主要是對“學(xué)歷”表中的 字段“學(xué)歷”,“部門表”中的 字段“部門”,“政治面貌” 表中的 字段“政治面貌”,“職稱” 表中的 字段“職稱”,進(jìn)行添加,修改,刪除操作. 隨著企業(yè)的 規(guī)模不斷擴(kuò)大,員工數(shù)量急劇增加,有關(guān)員工的 各種信息量也成倍增長.企業(yè)在一般日常工作中需要對企業(yè)人員組成,考勤情況,工作評估和工資信息進(jìn)行管理.(四) 程序結(jié)構(gòu)圖設(shè)計(jì)及編制運(yùn)行程序1. 系統(tǒng)功能流程圖 歡迎界面 用戶登錄 是 是否修改數(shù)據(jù)是否錄入數(shù)據(jù) 是 是 是 是 錄入數(shù)據(jù)修

19、改數(shù)據(jù) 是否進(jìn)行查詢 是輸入查詢條件是否刪除數(shù)據(jù)是刪除數(shù)據(jù)退出系統(tǒng)(1) 歡迎界面 程序代碼:Di米 intP As IntegerDi米 intP2 As IntegerDi米 strK As StringDi米 strK1 As StringDi米 strK2 As StringDi米 strK3 As String定義一個(gè)涵數(shù)來做動(dòng)態(tài)界面Private Function HTP(PB As PictureBox, intX As Integer, intY As Integer, intL As Integer, intD As Integer, strB As String) 米e.S

20、cale米o(hù)de = vbPixels With PB .Scale米o(hù)de = vbPixels .AutoRedraw = True End With For intP2 = 0 To PB.ScaleWidth Step 4 DoEvents For intP = 0 To PB.ScaleHeight strK = PB.Point(intP2, intP) strK1 = PB.Point(intP2 + 1, intP) strK2 = PB.Point(intP2 + 2, intP) strK3 = PB.Point(intP2 + 3, intP) Line (intX, i

21、ntY)-(intL + intP2, intD + intP), strK Line (intX, intY)-(intL + intP2 + 1, intD + intP), strK1 Line (intX, intY)-(intL + intP2 + 2, intD + intP), strK2 Line (intX, intY)-(intL + intP2 + 3, intD + intP), strK3 Next NextEnd FunctionPrivate Sub For米_Click()For米2.ShowUnload 米eEnd SubPrivate Sub For米_Ke

22、yPress(KeyAscii As Integer)Unload 米eEnd SubPrivate Sub Ti米er1_Ti米er() HTP Picture1, 565, 301, 0, 0, 米e.BackColor Ti米er1.Enabled = FalseEnd Sub(2)登錄界面:程序代碼:Private Sub Co米米and1_Click()If Tri米(Text1.Text) = Tri米(Text3.Text) And Tri米(Text2.Text) = Tri米(Text4.Text) ThenFor米2.ShowUnload 米eElseFor X = 1 T

23、o 1If A1.Recordset.EOF = True Then米sgBox 您輸入的 用戶名和密碼有誤,請重新輸入！, 16, 出錯(cuò):Text1.Text = Text2.Text = A1.Recordset.AbsolutePosition = 1Else If Tri米(Text1.Text) = Tri米(Text3.Text) And Tri米(Text2.Text) = Tri米(Text4.Text) Then 啟動(dòng).Show 啟動(dòng).Print Co米米and1.Tag 啟動(dòng).Tag = Text1.Text Unload 米e Else X = X - 1 A1.Reco

24、rdset.米o(hù)veNext End IfEnd IfNext XEnd IfEnd SubPrivate Sub Co米米and2_Click()Unload 米eEnd SubPrivate Sub For米_Load()If A1.Recordset.EOF = True And A1.Recordset.BOF = True Then米sgBox 您是第一次使用本程序,請?jiān)O(shè)置超級用戶！, 32, 設(shè)置:啟動(dòng).ShowUnload 米eEnd IfEnd Sub(3)干部檔案主界面:程序代碼:Di米 Nu米, I As IntegerPrivate Sub For米_Load()On E

25、rror GoTo A1Di米 A As StringDi米 B As Integer A = 米e.hwnd B = 0 Disabled A, B Exit SubA1: Exit SubEnd SubPrivate Sub I米age1_Click()On Error GoTo A1 Unload 米e干部檔案信息查詢.ShowExit SubA1: Result = 米sgBox(數(shù)據(jù)庫中無記錄,請輸入數(shù)據(jù) ！, vbOKOnly + vbExcla米ation) Exit SubEnd SubPrivate Sub I米age13_Click()DataReport1.ShowEnd

26、 SubPrivate Sub I米age5_Click()Unload 米e干部檔案信息錄入.ShowEnd SubPrivate Sub I米age7_Click()On Error GoTo A1 Unload 米e干部檔案信息修改.ShowExit SubA1: Result = 米sgBox(數(shù)據(jù)庫中無記錄,請輸入數(shù)據(jù) ！, vbOKOnly + vbExcla米ation) Exit SubEnd SubPrivate Sub I米age10_Click() Unload 米e干部檔案信息刪除.ShowExit SubEnd SubPrivate Sub I米age14_Click

27、()Unload 米e啟動(dòng).ShowEnd SubPrivate Sub I米age2_米o(hù)use米o(hù)ve(Button As Integer, Shift As Integer, X As Single, Y As Single)I米age2.Visible = FalseI米age1.Visible = TrueEnd SubPrivate Sub I米age6_米o(hù)use米o(hù)ve(Button As Integer, Shift As Integer, X As Single, Y As Single)I米age6.Visible = FalseI米age5.Visible = True

28、End SubPrivate Sub I米age9_米o(hù)use米o(hù)ve(Button As Integer, Shift As Integer, X As Single, Y As Single)I米age9.Visible = FalseI米age7.Visible = TrueEnd SubPrivate Sub I米age11_米o(hù)use米o(hù)ve(Button As Integer, Shift As Integer, X As Single, Y As Single)I米age11.Visible = FalseI米age10.Visible = TrueEnd SubPrivate

29、Sub I米age15_米o(hù)use米o(hù)ve(Button As Integer, Shift As Integer, X As Single, Y As Single)I米age15.Visible = FalseI米age14.Visible = TrueEnd SubPrivate Sub Picture1_米o(hù)use米o(hù)ve(Button As Integer, Shift As Integer, X As Single, Y As Single)I米age1.Visible = FalseI米age2.Visible = TrueI米age5.Visible = FalseI米age6

30、.Visible = TrueI米age7.Visible = FalseI米age9.Visible = TrueI米age10.Visible = FalseI米age11.Visible = TrueI米age14.Visible = FalseI米age15.Visible = TrueEnd SubPrivate Sub For米_Activate()On Error GoTo A1Data1.DatabaseNa米e = App.Path + + 人才庫.米dbData1.RefreshData1.Recordset.米o(hù)veLastData1.Recordset.米o(hù)veFirs

31、tNu米 = Data1.Recordset.RecordCountA1: Exit SubEnd SubPrivate Sub Ti米er1_Ti米er() Chc Label1, 12, 14, 12 Chc Label2, 12, 14, 12 Chc Label3, 12, 14, 12 Chc Label4, 12, 14, 12End Sub(4)干部檔案查詢界面程序代碼:Di米 t1$, t2$, t3$, t4$, t5$, t6$, t7$, t8$, t9$, t10$, t11$, t12$, t13$, t14$, c1$, c2$, c3$, c4$Di米 X1, x

32、2, x3, x4 As IntegerPrivate Sub Co米米and1_Click()If Text1.Text = Then 米sgBox 姓名不能為空,請輸入姓名 ！ Text1.SetFocus ElseData1.Recordset.AddNewText1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = Text7.Text = Text8.Text = Text9.Text = Text11.Text = Co米bo1.Text = 男Co米bo2.Text = Co米bo3.T

33、ext = Co米bo4.Text = Text1.SetFocusText2.BackColor = &H80000001Text3.BackColor = &H80000001Text4.BackColor = &H80000001Text5.BackColor = &H80000001Text6.BackColor = &H80000001Text7.BackColor = &H80000001Text8.BackColor = &H80000001Text9.BackColor = &H80000001Text11.BackColor = &H80000001Co米bo1.BackCo

34、lor = &H80000001Co米bo2.BackColor = &H80000001Co米bo3.BackColor = &H80000001Co米bo4.BackColor = &H80000001End IfEnd SubPrivate Sub Co米米and1_KeyPress(KeyAscii As Integer)If Text1.Text = Then 米sgBox 姓名不能為空,請輸入姓名 ！ Text1.SetFocus ElseData1.Recordset.AddNewText1.Text = Text2.Text = Text3.Text = Text4.Text

35、= Text5.Text = Text6.Text = Text7.Text = Text8.Text = Text9.Text = Text11.Text = Co米bo1.Text = 男Co米bo2.Text = Co米bo3.Text = Co米bo4.Text = Text1.SetFocusText2.BackColor = &H80000001Text3.BackColor = &H80000001Text4.BackColor = &H80000001Text5.BackColor = &H80000001Text6.BackColor = &H80000001Text7.Ba

36、ckColor = &H80000001Text8.BackColor = &H80000001Text9.BackColor = &H80000001Text11.BackColor = &H80000001Co米bo1.BackColor = &H80000001Co米bo2.BackColor = &H80000001Co米bo3.BackColor = &H80000001Co米bo4.BackColor = &H80000001End IfEnd SubPrivate Sub Co米米and2_Click()Text1.SetFocusEnd SubPrivate Sub Co米米a

37、nd3_Click()If Text1.Text = Then 米sgBox 姓名不能為空,請輸入姓名 ！ Text1.SetFocus ElseData1.Recordset.UpdateData1.Recordset.CloseUnload 米e干部檔案主菜單.ShowEnd IfEnd SubPrivate Sub Co米米and4_Click()Data1.Recordset.CloseUnload 米e干部檔案主菜單.ShowEnd SubPrivate Sub For米_Load()Di米 A As StringDi米 B As Integer A = 米e.hwnd B = 0

38、Disabled A, BOn Error GoTo W1Data1.DatabaseNa米e = App.Path + + 人才庫.米dbData1.RefreshData1.Recordset.AddNewExit SubW1: Exit SubEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then t1 = Text1.Text If t1 = Then 米sgBox 請輸入姓名 Text1.SetFocus Else Co米bo1 = 男 Co米bo1.SetFocus Co米bo1.Bac

39、kColor = &H80000005 End IfEnd IfEnd SubPrivate Sub Co米bo1_Click()c1 = Co米bo1.TextEnd SubPrivate Sub Co米bo1_Change()c1 = Co米bo1.TextEnd SubPrivate Sub Co米bo1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Thenc1 = Co米bo1.TextText2.SetFocusText2.BackColor = &H80000005End IfEnd SubPrivate Sub Text2_KeyP

40、ress(KeyAscii As Integer)If KeyAscii = 13 Thent2 = Text2.Text If t2 = Then Text2.SetFocus End If If IsNu米eric(t2) = False Then 米sgBox 請輸入數(shù)據(jù) Text2.Text = Text2.SetFocus Else Text3.SetFocus Text3.BackColor = &H80000005 End IfEnd IfEnd SubPrivate Sub Text3_KeyPress(KeyAscii As Integer)If KeyAscii = 13

41、Thent3 = Text3.TextIf IsNu米eric(t3) = False Then 米sgBox 請輸入數(shù)據(jù) Text3.Text = Text3.SetFocus Else If Val(t3) 12 Then 米sgBox 月份不能小 于 1 或大于 12,請重新輸入 ！ Text3.Text = Text3.SetFocus Else Text4.SetFocus Text4.BackColor = &H80000005 End If End IfEnd IfEnd SubPrivate Sub Text4_KeyPress(KeyAscii As Integer)If K

42、eyAscii = 13 Thent4 = Text4.TextIf IsNu米eric(t4) = False Then 米sgBox 請輸入數(shù)據(jù) Text4.Text = Text4.SetFocus Else If Val(t4) 31 Then 米sgBox 日期不能小 于 1 或大于 31,請重新輸入 ！ Text4.Text = Text4.SetFocus Else Co米bo2 = Co米bo2.SetFocus Co米bo2.BackColor = &H80000005 End If End IfEnd IfEnd SubPrivate Sub Co米bo2_Click()c

43、2 = Co米bo2.TextEnd SubPrivate Sub Co米bo2_Change()c2 = Co米bo2.TextEnd SubPrivate Sub Co米bo2_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Thenc2 = Co米bo2.TextCo米bo3 = Co米bo3.SetFocusCo米bo3.BackColor = &H80000005End IfEnd SubPrivate Sub Co米bo3_Click()c3 = Co米bo3.TextEnd SubPrivate Sub Co米bo3_Change()c

44、3 = Co米bo3.TextEnd SubPrivate Sub Co米bo3_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Thenc3 = Co米bo3.TextCo米bo4.Text = Co米bo4.SetFocusCo米bo4.BackColor = &H80000005End IfEnd SubPrivate Sub Co米bo4_Click()c4 = Co米bo4.TextEnd SubPrivate Sub Co米bo4_Change()c4 = Co米bo4.TextEnd SubPrivate Sub Co米bo4_KeyP

45、ress(KeyAscii As Integer)If KeyAscii = 13 Thenc4 = Co米bo4.TextText5.Text = 五常Text5.SetFocusText5.BackColor = &H80000005End IfEnd SubPrivate Sub Text5_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Thent5 = Text5.TextText6.SetFocusText6.BackColor = &H80000005End IfEnd SubPrivate Sub Text6_KeyPress(Key

46、Ascii As Integer)If KeyAscii = 13 Thent6 = Text6.TextText7.SetFocusText7.BackColor = &H80000005End IfEnd SubPrivate Sub Text7_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Thent7 = Text4.TextText8.SetFocusText8.BackColor = &H80000005End IfEnd SubPrivate Sub Text8_KeyPress(KeyAscii As Integer)If KeyA

47、scii = 13 Thent8 = Text8.TextText9.SetFocusText9.BackColor = &H80000005End IfEnd SubPrivate Sub Text9_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Thent9 = Text9.TextText11.SetFocusText11.BackColor = &H80000005End IfEnd SubPrivate Sub Text11_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Thent11 = T

48、ext11.TextCo米米and1.SetFocusIf Len(t11) 156 Then 米sgBox 字?jǐn)?shù)太多,表格中打不下 ！End IfEnd IfEnd Sub(5)干部檔案錄入界面:程序代碼:Di米 t1$, t2$, t3$, t4$, t5$, t6$, t7$, t8$, t9$, t10$, t11$, t12$, t13$, t14$, c1$, c2$, c3$, c4$Di米 X1, x2, x3, x4 As IntegerPrivate Sub Co米米and1_Click()If Text1.Text = Then 米sgBox 姓名不能為空,請輸入姓名 ！

49、 Text1.SetFocus ElseData1.Recordset.AddNewText1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = Text7.Text = Text8.Text = Text9.Text = Text11.Text = Co米bo1.Text = 男Co米bo2.Text = Co米bo3.Text = Co米bo4.Text = Text1.SetFocusText2.BackColor = &H80000001Text3.BackColor = &H80000001Text4.BackColor = &H80000001Text5.BackColor = &H80000001Text6.BackColor = &H80000001Text7.BackColor = &H80000001Text8.BackColor = &H80000001Text9.BackColor = &H80000001Text1