【導(dǎo)讀】中得到越來越廣泛的應(yīng)用。因此,本文圍繞一個“人事檔案管理系統(tǒng)”程序的設(shè)計和應(yīng)用系。統(tǒng)的開發(fā)課題為背景，詳細(xì)介紹了以VB和SQLSERVER為語言編寫管理系統(tǒng)的過程。典型的數(shù)據(jù)庫應(yīng)用系統(tǒng)的特征,完成了系統(tǒng)結(jié)構(gòu)與現(xiàn)實生活的緊密結(jié)合。該程序在設(shè)計過程中嚴(yán)格遵循軟件工程學(xué)的方法,用分階段的生命周期計劃嚴(yán)格管理，逐一介紹開發(fā)本系統(tǒng)的步驟：系統(tǒng)分析、系統(tǒng)設(shè)計、系統(tǒng)實現(xiàn)、系統(tǒng)實施。體設(shè)計、詳細(xì)設(shè)計階段，對程序進(jìn)行不斷修正和改進(jìn)。系統(tǒng)的功能結(jié)構(gòu)圖分析了系統(tǒng)所需要的各種數(shù)據(jù)。系統(tǒng)的界面登錄、實現(xiàn)表單中相應(yīng)的功能控件的事件代碼等。系統(tǒng)的開發(fā)環(huán)境、系統(tǒng)的運(yùn)行與維護(hù)、系統(tǒng)的安全性與可靠性設(shè)計。筆進(jìn)行的費時費力的繁重工作，即利用成熟的計算機(jī)系統(tǒng)來實現(xiàn)檔案管理工作的自動化。錯誤時，提醒用戶重新輸入或者注冊，當(dāng)三次登錄失敗時，強(qiáng)制性退出操作界面。案存放位置、檔案存放日期等。目的地、轉(zhuǎn)出事由等。案修改模塊可修改存入檔案信息。

　　

【正文】 ad Me End Sub 檔案轉(zhuǎn)出 檔案轉(zhuǎn)出 的編輯 圖 如下： 沈陽理工大學(xué)課程設(shè)計專用紙 No 沈陽理工大學(xué) 23 圖 檔案轉(zhuǎn)出編輯 代碼實現(xiàn)如下： Private Sub CmdAdd_Click() = False = False = True = True End Sub Private Sub CmdDel_Click() x = MsgBox(確實要刪除當(dāng)前記錄嗎？ , vbYesNo + vbQuestion, 確認(rèn) ) If x = vbYes Then If Then End If Else End If End Sub 沈陽理工大學(xué)課程設(shè)計專用紙 No 沈陽理工大學(xué) 24 Private Sub CmdEsc_Click() = True = True = False = False End Sub Private Sub CmdFirst_Click() 39。 記錄指針移到首記錄（顯示首記錄） = False 39。 讓 [首記錄 ]按鈕無效 = False 39。 讓 [前移 ]按鈕無效 = True 39。 讓 [后移 ]按鈕有效 = True 39。 讓 [末記錄 ]按鈕有效 39。在 Label6 上顯示當(dāng)前記錄號 /記錄總數(shù)： = 記錄： amp。 amp。 / amp。 End Sub Private Sub CmdLast_Click() 39。 移到末記錄 = True = True = False = False = 記錄： amp。 amp。 / amp。 End Sub Private Sub CmdN_Click() Dim n As Integer n = n If Then 39。 如果記錄指針移到首記錄之前 , 39。則記錄指針移到首記錄上 = False = False End If If Then 39。 如果記錄指針移到了末記錄之后 39。則記錄指針移到末記錄上 = False = False End If 沈陽理工大學(xué)課程設(shè)計專用紙 No 沈陽理工大學(xué) 25 = 記錄： amp。 amp。 / amp。 End Sub Private Sub CmdNext_Click() 39。記錄指針移到下一條記錄 = True = True If Then 39。 如果記錄指針移到了末記錄之后 39。則記錄指針移到末記錄上 = False = False End If = 記錄： amp。 amp。 / amp。 End Sub Private Sub CmdOk_Click() 39。 單 擊 [確認(rèn) ]按鈕 = True = True = False = False End Sub Private Sub CmdPre_Click() 39。記錄指針移到前一條記錄 = True = True If Then 39。如果記錄指針移到首記錄之前 , 39。則記錄指針移到首記錄上 = False = False End If = 記錄： amp。 amp。 / amp。 End Sub Private Sub Command1_Click() 檔案存入與轉(zhuǎn)出 .Show Unload Me End Sub 沈陽理工大學(xué)課程設(shè)計專用紙 No 沈陽理工大學(xué) 26 Private Sub Form_Load() = False 39。[首記錄 ]按鈕無效 = False 39。[前移 ]按鈕無效 = True 39。[后移 ]按鈕有效 = True 39。[末記錄 ]按鈕有效 = True 39。[添加 ]按鈕有效 = True 39。[刪除 ]按鈕有效 = False 39。[確定 ]按鈕無效 = False 39。[取消 ]按鈕無效 = 記錄： amp。 amp。 / amp。 End Sub 查詢 檔案 信息查詢，在 檔案 信息中可以對數(shù)據(jù)庫中的數(shù)據(jù)進(jìn)行查詢，要實現(xiàn)此功能則必須用 Adodc （ Visible=False）控件 DateCombo（ Visible=True）與數(shù)據(jù)庫相連，在運(yùn)行中隱藏 Adodc 控件。 圖 查詢 代碼實現(xiàn)如下： 沈陽理工大學(xué)課程設(shè)計專用紙 No 沈陽理工大學(xué) 27 Private Sub Command1_Click() Dim str As String str = Select 存入 .檔案編號 , 存入 .* From 存入 Join 轉(zhuǎn)出 str = str amp。 On 存入 .檔案編號 = 轉(zhuǎn)出 .檔案編號 str = str amp。 Where 存入 .檔案編號 = 39。 amp。 Text1 amp。 39。 = str Dim SQLStr As String End Sub Private Sub Form_Load() 檔案編號 39。 為組合列表框添加各選項 職員編號 檔案類型 檔案存放位置 檔案存放日期 = 檔案編號 39。 讓組合框 初始選中 姓名 項 = 39。 清空文本框 End Sub 沈陽理工大學(xué)課程設(shè)計專用紙 No 沈陽理工大學(xué) 28 總 結(jié) 經(jīng)過本學(xué)期的不斷實踐與探索 ,人事 檔案 管理統(tǒng)的設(shè)計與實現(xiàn)己經(jīng)完成 ,基本上達(dá)到了預(yù)期的設(shè)計要求和目的。 一個完整的人事 檔案 管理系統(tǒng)就創(chuàng)建完畢了。在本系統(tǒng)的設(shè)計與實現(xiàn)的過程中主要講述了人事 檔案 管理系統(tǒng)的系統(tǒng)設(shè)計部分，包括功能模塊設(shè)計、數(shù)據(jù)庫結(jié)構(gòu)設(shè)計等。系統(tǒng)設(shè)計為整個程序構(gòu)建了骨架 ,各個功能模塊實現(xiàn)各個細(xì)節(jié)部分。系統(tǒng)的詳細(xì)設(shè)計根據(jù)系統(tǒng)分析階段的結(jié)論將系統(tǒng)具體化 ,并完成了各個模塊 的添加、修改、刪除與查詢的功能 ,直到最后形成一個 集員工注冊、登錄、查詢與管理員注冊、登錄、檔案信息顯示操作、查詢?yōu)橐惑w，維護(hù)比較方便的， 完整的可行性的管理系統(tǒng)。 其缺點為：結(jié)構(gòu)較為簡單，無法實現(xiàn)比較復(fù)雜的人事檔案管理 在整個畢業(yè)設(shè)計階段的工作和本論文的寫作過程的經(jīng)歷將會使我終生受益，并對我今后的工作和發(fā)展產(chǎn)生深遠(yuǎn)的影響。 由于畢業(yè)設(shè)計時間比較倉促，所以該系統(tǒng)還有許多不盡如意的地方，比如聯(lián)機(jī)文檔比較少，用戶界面不夠美觀，出錯處理不夠等多方面問題。這些都有待于進(jìn)一步的改善。 沈陽理工大學(xué)課程設(shè)計專用紙 No 沈陽理工大學(xué) 29 參 考文獻(xiàn) [1] 劉炳文 .《 Visual Basic 程序設(shè)計教程》 .清華大學(xué)出版社 .2021 [2] 曾強(qiáng)聰 .編 Visual basic 程序設(shè)計教程 .清華大學(xué)出版社 .2021 [3] 張立科 .VB 數(shù)據(jù)庫開發(fā)技術(shù)與工程實踐 .北京 .人民郵電出版社 .2021 [4] 錢雪忠 .數(shù)據(jù)庫原理及應(yīng)用 .北京 .北京郵電大學(xué)出版社 .2021 [5] 王珊 .數(shù)據(jù)庫技術(shù)與聯(lián)機(jī)分析處理 .北京 .北京科學(xué)出版社 .1998 [6] 鄭阿奇 .SQL Server 教程 .北京 .清華大學(xué)出版社 .2021 [7] 張立科 .Visual Basic 數(shù)據(jù)庫開發(fā)技術(shù)與工程實踐 .北京 .人民郵電出版社 . 2021