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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

19、改數(shù)據(jù) 是否進行查詢 是輸入查詢條件是否刪除數(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定義一個涵數(shù)來做動態(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米ode = vbPixels With PB .Scale米ode = 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, 出錯:Text1.Text = Text2.Text = A1.Recordset.AbsolutePosition = 1Else If Tri米(Text1.Text) = Tri米(Text3.Text) And Tri米(Text2.Text) = Tri米(Text4.Text) Then 啟動.Show 啟動.Print Co米米and1.Tag 啟動.Tag = Text1.Text Unload 米e Else X = X - 1 A1.Reco

24、rdset.米oveNext 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 您是第一次使用本程序,請設置超級用戶！, 32, 設置:啟動.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啟動.ShowEnd SubPrivate Sub I米age2_米ouse米ove(Button As Integer, Shift As Integer, X As Single, Y As Single)I米age2.Visible = FalseI米age1.Visible = TrueEnd SubPrivate Sub I米age6_米ouse米ove(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_米ouse米ove(Button As Integer, Shift As Integer, X As Single, Y As Single)I米age9.Visible = FalseI米age7.Visible = TrueEnd SubPrivate Sub I米age11_米ouse米ove(Button As Integer, Shift As Integer, X As Single, Y As Single)I米age11.Visible = FalseI米age10.Visible = TrueEnd SubPrivate

29、Sub I米age15_米ouse米ove(Button As Integer, Shift As Integer, X As Single, Y As Single)I米age15.Visible = FalseI米age14.Visible = TrueEnd SubPrivate Sub Picture1_米ouse米ove(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.米oveLastData1.Recordset.米oveFirs

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 字數(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