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

　　

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