[計算機(jī)軟件及應(yīng)用]SQL人事檔案管理系統(tǒng)

i 沈陽理工大學(xué)課程設(shè)計專用紙 No摘 要由于計算機(jī)技術(shù)的飛速發(fā)展,數(shù)據(jù)庫技術(shù)作為數(shù)據(jù)管理的一個有效的手段,在各行各業(yè)中得到越來越廣泛的應(yīng)用。因此,本文圍繞一個“人事檔案管理系統(tǒng)”程序的設(shè)計和應(yīng)用系統(tǒng)的開發(fā)課題為背景，詳細(xì)介紹了以VB和SQL SERVER為語言編寫管理系統(tǒng)的過程。該程序通過VB的ADO數(shù)據(jù)對象來實現(xiàn)VB前臺與后臺SQL SERVER數(shù)據(jù)庫的連接,并具有典型的數(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)實施。首先對現(xiàn)行人事檔案管理系統(tǒng)進(jìn)行分析，并找出其存在的問題，并提出解決方案，主要講述了程序的總體設(shè)計、詳細(xì)設(shè)計階段，對程序進(jìn)行不斷修正和改進(jìn)。在系統(tǒng)結(jié)構(gòu)設(shè)計中先后用數(shù)據(jù)流圖、系統(tǒng)的功能結(jié)構(gòu)圖分析了系統(tǒng)所需要的各種數(shù)據(jù)。在系統(tǒng)的設(shè)計中，詳細(xì)的展現(xiàn)了系統(tǒng)的各個功能模塊、所需的數(shù)據(jù)庫表及表字段、系統(tǒng)菜單的設(shè)計等。在系統(tǒng)的實現(xiàn)中，給出了系統(tǒng)的界面登錄、實現(xiàn)表單中相應(yīng)的功能控件的事件代碼等。在系統(tǒng)的實施概況中給出了系統(tǒng)的開發(fā)環(huán)境、系統(tǒng)的運(yùn)行與維護(hù)、系統(tǒng)的安全性與可靠性設(shè)計。同時利用SQL SERVER的強(qiáng)大數(shù)據(jù)庫功能,直到形成一個完善的可行性系統(tǒng).優(yōu)美、秀麗的界面,方便實用的查詢與維護(hù)功能共同構(gòu)成了“人事檔案管理系統(tǒng)”。關(guān)鍵詞：VB；SQL SERVER；數(shù)據(jù)庫；人事管理系統(tǒng)目 錄第1章 系統(tǒng)功能概述11.1 設(shè)計目的及意義11.2 功能模塊劃分11.3 系統(tǒng)結(jié)構(gòu)總圖2第2章 數(shù)據(jù)庫設(shè)計22.1 需求分析22.2 E-R模型32.3 關(guān)系模型52.4 表結(jié)構(gòu)設(shè)計52.4.1 表的建立52.4.2 信息表62.4.3 基本數(shù)據(jù)6第3章 系統(tǒng)各功能模塊的詳細(xì)設(shè)計73.1 進(jìn)入系統(tǒng)頁面73.2 登錄頁面93.2.1 員工登錄93.2.2管理員登錄143.3 檔案存入與轉(zhuǎn)出頁面163.4 編輯頁面173.4.1 檔案存入173.4.2 檔案轉(zhuǎn)出223.5 查詢26總 結(jié)28參考文獻(xiàn)29沈陽理工大學(xué) 29 沈陽理工大學(xué)課程設(shè)計專用紙 No第1章 系統(tǒng)功能概述1.1 設(shè)計目的及意義 掌握數(shù)據(jù)庫的創(chuàng)建方法。掌握用一種語言（如VB）開發(fā)數(shù)據(jù)庫應(yīng)用程序的方法。本系統(tǒng)開發(fā)的目的一方面從提高人事檔案管理工作的效率出發(fā)，擺脫過去由人用紙和筆進(jìn)行的費(fèi)時費(fèi)力的繁重工作，即利用成熟的計算機(jī)系統(tǒng)來實現(xiàn)檔案管理工作的自動化。本系統(tǒng)根據(jù)企業(yè)管理的一些實際情況而編制的一套自動化、界面設(shè)計良好、體現(xiàn)人本主義原則、系統(tǒng)效率較高、靈活方便、快捷迅速，適用于大量數(shù)據(jù)、采用動態(tài)鏈接的人事檔案管理系統(tǒng)。本系統(tǒng)采用SQL server 2000作為后臺數(shù)據(jù)庫，這樣是數(shù)據(jù)能夠得到統(tǒng)一，并增強(qiáng)了管理的安全性。1.2 功能模塊劃分在主控窗體中（MID窗體）點擊各菜單實現(xiàn)登錄人事檔案管理系統(tǒng)。具體功能包括：員工和管理員的登錄和注冊功能：實現(xiàn)用戶成功登錄系統(tǒng)，當(dāng)用戶明不正確或者密碼錯誤時，提醒用戶重新輸入或者注冊，當(dāng)三次登錄失敗時，強(qiáng)制性退出操作界面。存入檔案管理：用于輸入員工的檔案信息，包括檔案編號、職員編號、檔案類型、檔案存放位置、檔案存放日期等。該模塊不能修改已輸入的檔案信息可刪除已存入檔案信息。鏈接檔案修改模塊可修改存入檔案信息。 轉(zhuǎn)出檔案管理：用于將員工的檔安轉(zhuǎn)出，填寫的內(nèi)容包括檔案編號、轉(zhuǎn)出日期、轉(zhuǎn)出目的地、轉(zhuǎn)出事由等。該模塊不能修改已輸入的檔案信息可刪除已存入檔案信息。鏈接檔案修改模塊可修改存入檔案信息。檔案查詢：根據(jù)檔案編號、職員編號、檔案類型、檔案存放位置、檔案存放日期來查詢檔案信息。歡迎使用檔案管理系統(tǒng)1.3 系統(tǒng)結(jié)構(gòu)總圖員工登錄管理員登錄檔案查詢檔案存入檔案查詢檔案轉(zhuǎn)出檔案添加信息移動檔案修改檔案刪除檔案添加信息移動檔案刪除圖1.1系統(tǒng)結(jié)構(gòu)總第2章 數(shù)據(jù)庫設(shè)計2.1 需求分析 本系統(tǒng)是用于添加，查找，刪除人事檔案。本系統(tǒng)主要有兩部分組成，一部分是數(shù)據(jù)庫設(shè)計部分，另一部分為窗體設(shè)計部分。數(shù)據(jù)庫中包含四個表，檔案存入信息（檔案編號、職員編號、檔案類型、檔案存放位置、檔案存放日期），檔案轉(zhuǎn)出信息(檔案編號、轉(zhuǎn)出日期、轉(zhuǎn)出目的地、轉(zhuǎn)出事由)。啟動封面窗體（主窗體）的時候要求：圖片背景、歡迎類文字，主控窗體設(shè)計為MDI窗體，含有主菜單：文件、幫助。文件菜單包含以下子菜單及其功能：員工登錄：顯示員工登錄窗體管理員登錄：顯示管理員登錄窗體退出：結(jié)束程序。幫助菜單包含以下子菜單及其功能：關(guān)于：顯示版權(quán)對話框。以上各窗體設(shè)為MDI主窗體的子窗體 分別設(shè)計各個登錄窗體功能：用戶通過界面登錄系統(tǒng)，登錄后提醒合法用戶；用戶名錯誤或者密碼錯誤時提醒錯誤或者注冊，并提醒用戶共有三次操作機(jī)會；當(dāng)選擇注冊時，通過隨機(jī)文件追加用戶信息，并提醒注冊成功。員工登陸成功進(jìn)入查詢窗體進(jìn)行條件查詢。管理員登錄成功則進(jìn)入檔案存入與轉(zhuǎn)出主窗體，子窗體分別為：檔案存入、檔案轉(zhuǎn)出、查詢、退出。檔案存入窗體可以瀏覽和錄入各檔案信息。該窗體以文本框顯示當(dāng)前檔案記錄，用按鈕首記錄、末記錄、前一個、后一個，控制記錄指針的移動，用一個標(biāo)簽Label顯示：當(dāng)前記錄號/記錄總數(shù)。單擊返回按鈕，可以關(guān)閉本窗體，返回檔案存入與轉(zhuǎn)出窗體?？梢詫τ涗涍M(jìn)行添加、刪除、確認(rèn)、修改、取消操作；檔案轉(zhuǎn)出窗體則沒有修改操作；查詢窗體可以按各種條件查找，這些條件放在組合列表框Combo中，供用戶選擇。在文本框中輸入要查詢的內(nèi)容，單擊查詢按鈕，查詢結(jié)果用網(wǎng)格控件顯示。2.2 E-R模型實體E-R圖：檔案類型檔案存放位置職員編號檔案存入檔案編號檔案存放時間圖2.1檔案存入信息圖轉(zhuǎn)出目的地轉(zhuǎn)出日期檔案編號檔案轉(zhuǎn)出轉(zhuǎn)出事由圖2.2檔案轉(zhuǎn)出信息圖關(guān)系E-R圖：員工 1 屬于 1 1檔案轉(zhuǎn)出檔案存入 圖2.3員工關(guān)系E-R圖管理員 1管理 n n檔案轉(zhuǎn)出檔案存入 圖2.4管理員關(guān)系E-R圖2.3 關(guān)系模型員工帳號：（職員編號、密碼）。管理員帳號：（管理員帳號、密碼）。檔案存入信息：（檔案編號、職員編號、檔案類型、檔案存放位置、檔案存放日期）其中，“檔案編號”是主碼，“職員編號”是外碼，參照員工信息表主碼“職員編號”。檔案轉(zhuǎn)出信息：（檔案編號、轉(zhuǎn)出日期、轉(zhuǎn)出目的地、轉(zhuǎn)出事由）其中，“檔案編號”是外碼，參照檔案存入信息表主碼“檔案編號”。2.4 表結(jié)構(gòu)設(shè)計2.4.1 表的建立CREATE TABLE 員工注冊(職員編號 CHAR(40) PRIMARY KEY, 密碼 CHAR(40),);CREATE TABLE 管理員注冊(管理員帳號 CHAR(40) PRIMARY KEY, 密碼 CHAR(40),);CREATE TABLE 存入(檔案編號 CHAR(40) PRIMARY KEY, 職員編號 CHAR(40), 檔案類型 CHAR(40), 檔案存放位置 CHAR(40), 檔案存放日期 DATETIME, FOREIGN KEY(職員編號)REFERENCES 員工注冊 (職員編號);CREATE TABLE 轉(zhuǎn)出(檔案編號 CHAR(40), 轉(zhuǎn)出日期 DATETIME, 轉(zhuǎn)出目的地 CHAR(60), 轉(zhuǎn)出事由 CHAR(100), FOREIGN KEY(檔案編號)REFERENCES 存入 (檔案編號);2.4.2 信息表表2.1員工帳號表表2.2管理員帳號表表2.3檔案存入信息表表2.4檔案轉(zhuǎn)出信息表2.4.3 基本數(shù)據(jù)員工帳號表里輸入的結(jié)果如下：表2.5員工帳號數(shù)據(jù)管理員信息表里輸入的結(jié)果如下：表2.6管理員帳號數(shù)據(jù)檔案存入信息表里輸入的結(jié)果如下：表2.7檔案存入數(shù)據(jù)檔案轉(zhuǎn)出信息表里輸入的結(jié)果如下：表2.8檔案轉(zhuǎn)出數(shù)據(jù)按如下步驟，根據(jù)向?qū)渲孟到y(tǒng)數(shù)據(jù)源： 開始設(shè)置 控制面板 管理工具 數(shù)據(jù)源（ODBC） 系統(tǒng)DSN添加驅(qū)動程序選為SQL Server成功 給出該數(shù)據(jù)源的名稱、描述、服務(wù)器 更改默認(rèn)數(shù)據(jù)庫為（自己所建的數(shù)據(jù)庫） 測試 成功 確定 確定。第3章 系統(tǒng)各功能模塊的詳細(xì)設(shè)計3.1 進(jìn)入系統(tǒng)頁面窗體設(shè)計為MDI窗體，含有主菜單：文件、幫助。文件菜單包含以下子菜單及其功能：員工登錄：顯示員工登錄窗體管理員登錄：顯示管理員登錄窗體退出：結(jié)束程序。幫助菜單包含以下子菜單及其功能：關(guān)于：顯示版權(quán)對話框。圖3.1系統(tǒng)頁面代碼實現(xiàn)如下：Private Sub mDgy_Click() Load frmSplash frmSplash.ShowEnd SubPrivate Sub mFglydl_Click()管理員登錄.Show MDIForm1.HideEnd SubPrivate Sub mFtc_Click()EndEnd SubPrivate Sub mFygdl_Click() 員工登錄.Show MDIForm1.Hide 隱藏Form1End Sub3.2 登錄頁面3.2.1 員工登錄員工登陸界面：“職員編號”、“密碼”均由Label控件輸入，背景設(shè)為透明，之后介紹的界面中的字符均由此方法輸入，故將不做說明。給出可以輸入字符的空白由TextBox控件做成，可進(jìn)行字體大小與顏色的修改。按鈕由CommandButton設(shè)置，選擇由OptionButton添加Adodc （Visible=False），用來與數(shù)據(jù)庫相連。圖3.2員工登錄代碼實現(xiàn)如下： Private Type UserInfo zh As String * 10 mima As String * 10 End Type Dim U As UserInfo Dim counter As Integer Dim G As BooleanPrivate Sub Command1_Click() Dim z As String * 10, m As String * 10 z = Trim(Text1.Text) m = Trim(Text2.Text) If Option1.Value = True Then F = False Open App.Path + "user.dat" For Random As #1 i = 0 Do While Not EOF(1) i = i + 1 Get #1, i, U If z = U.zh And m = U.mima Then MsgBox "你是合法用戶" Unload Me 查詢.Show F = True Exit Do End If 登錄成功 Loop Close #1 If F = False Then 非法用戶時運(yùn)行 counter = counter + 1 If counter < 3 Then jia ru msg$ = "用戶不存在或密碼錯誤！是否注冊？注冊 單擊<是>" + vbCrLf + "否則 單擊<否>" Title$ = "操作進(jìn)程確認(rèn) " x = MsgBox(msg$, vbYesNo + 32, Title$) If x = 6 Then Option2.Value = True ElseIf x = 7 Then MsgBox "請重新輸入！" MsgBox "您總共有三次操作機(jī)會！" Text1.Text = "" Text2.Text = "" 員工登錄.Show End If End If If counter = 3 Then MsgBox "重試次數(shù)已到，即將退出本系統(tǒng)!" End Exit Sub End If End If 添加 End If If Option2.Value = True Then 注冊 Open App.Path + "user.dat" For Random As #2 i = 0 G = False While Not EOF(2) i = i + 1 Get #2, i, U If z = U.zh Then MsgBox "該用戶名已存在！ 請重新選擇！" G = True End If Wend Close #2 Open App.Path + "user.dat" For Random As #2 If G = False Then U.zh = z U.mima = m Put #2, , U MsgBox "注冊成功" End If Close #2 End IfEnd SubPrivate Sub Command2_Click()Unload Me歡迎使用.ShowEnd SubPrivate Sub Command3_Click() Text1.Text = "" Text2.Text = "" Text1.SetFocusEnd Sub用戶合法時，運(yùn)行結(jié)果見圖3.3所示：登錄后，直接進(jìn)入查詢窗體。圖3.3合法用戶登錄 用戶不合法時，運(yùn)行結(jié)果見圖3.4示。圖3.4不合法用戶登錄單擊“是”按鈕時，運(yùn)行結(jié)果如圖3.5示：圖3.5注冊操作如果已注冊則出現(xiàn)提示如圖3.6示：圖3.6已注冊提示重新輸入多次提示如圖3.7示： 圖3.7錯誤提示3.2.2管理員登錄管理員登錄窗體如圖3.8示：圖3.8管理員登錄代碼實現(xiàn)如下： Private Type UserInfo zh As String * 10 mima As String * 10 End Type Dim U As UserInfo Dim counter As Integer Dim G As BooleanPrivate Sub Command1_Click() Dim z As String * 10, m As String * 10 z = Trim(Text1.Text) m = Trim(Text2.Text) If Option1.Value = True Then F = False Open App.Path + "user.dat" For Random As #1 i = 0 Do While Not EOF(1) i = i + 1 Get #1, i, U If z = U.zh And m = U.mima Then MsgBox "你是合法用戶" Unload Me 檔案存入與轉(zhuǎn)出.Show F = True Exit Do End If 登錄成功 Loop Close #1 If F = False Then 非法用戶時運(yùn)行 counter = counter + 1 If counter < 3 Then jia ru msg$ = "用戶不存在或密碼錯誤！是否注冊？注冊 單擊<是>" + vbCrLf + "否則 單擊<否>" Title$ = "操作進(jìn)程確認(rèn) " x = MsgBox(msg$, vbYesNo + 32, Title$) If x = 6 Then Option2.Value = True ElseIf x = 7 Then MsgBox "請重新輸入！" MsgBox "您總共有三次操作機(jī)會！" Text1.Text = "" Text2.Text = "" 管理員登錄.Show End If End If If counter = 3 Then MsgBox "重試次數(shù)已到，即將退出本系統(tǒng)!" End Exit Sub End If End If 添加 End If If Option2.Value = True Then 注冊 Open App.Path + "user.dat" For Random As #2 i = 0 G = False While Not EOF(2) i = i + 1 Get #2, i, U If z = U.zh Then MsgBox "該用戶名已存在！ 請重新選擇！" G = True End If Wend Close #2 Open App.Path + "user.dat" For Random As #2 If G = False Then U.zh = z U.mima = m Put #2, , U MsgBox "注冊成功" End If Close #2 End If End SubPrivate Sub Command2_Click() Text1.Text = "" Text2.Text = "" Text1.SetFocusEnd SubPrivate Sub Command3_Click()Unload Me歡迎使用.ShowEnd Sub運(yùn)行結(jié)果：用戶合法是，登錄后進(jìn)入檔案存入與轉(zhuǎn)出窗體。3.3 檔案存入與轉(zhuǎn)出頁面圖3.9檔案存入與轉(zhuǎn)出代碼實現(xiàn)如下：Private Sub Command1_Click()Unload Me檔案存入.ShowEnd SubPrivate Sub Command2_Click()Unload Me檔案轉(zhuǎn)出.ShowEnd SubPrivate Sub Command3_Click()Unload Me查詢.ShowEnd SubPrivate Sub Command4_Click()Unload Me歡迎使用.ShowEnd Sub3.4 編輯頁面這個頁面上可以顯示所有的記錄數(shù)，同時還可以進(jìn)行添加，刪除，修改，前后移動記錄數(shù)的功能，要實現(xiàn)此功能則必須用Adodc （Visible=False）控件與數(shù)據(jù)庫相連，在運(yùn)行中隱藏此控件。3.4.1 檔案存入檔案存入的編輯圖3.10如下：圖3.10檔案存入編輯代碼實現(xiàn)如下：Private Sub CmdAdd_Click()Adodc1.Recordset.AddNewCmdAdd.Enabled = FalseCmdDel.Enabled = FalseCmdOk.Enabled = TrueCmdEsc.Enabled = TrueEnd SubPrivate Sub CmdDel_Click()x = MsgBox("確實要刪除當(dāng)前記錄嗎？", vbYesNo + vbQuestion, "確認(rèn)")If x = vbYes Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF ThenAdodc1.Recordset.MoveLast End IfElse Adodc1.RefreshEnd IfEnd SubPrivate Sub CmdEsc_Click()Adodc1.RefreshCmdAdd.Enabled = TrueCmdDel.Enabled = TrueCmdOk.Enabled = FalseCmdEsc.Enabled = FalseEnd SubPrivate Sub CmdFirst_Click()Adodc1.Recordset.MoveFirst 記錄指針移到首記錄（顯示首記錄）CmdFirst.Enabled = False 讓首記錄按鈕無效CmdPre.Enabled = False 讓前移按鈕無效CmdNext.Enabled = True 讓后移按鈕有效CmdLast.Enabled = True 讓末記錄按鈕有效在Label6上顯示當(dāng)前記錄號/記錄總數(shù)：Label6.Caption = "記錄：" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCountEnd SubPrivate Sub CmdLast_Click()Adodc1.Recordset.MoveLast 移到末記錄 CmdFirst.Enabled = True CmdPre.Enabled = True CmdNext.Enabled = False CmdLast.Enabled = FalseLabel6.Caption = "記錄：" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCountEnd SubPrivate Sub CmdN_Click()Dim n As Integern = Text6.TextAdodc1.Recordset.Move nIf Adodc1.Recordset.BOF Then 如果記錄指針移到首記錄之前,Adodc1.Recordset.MoveFirst 則記錄指針移到首記錄上CmdFirst.Enabled = FalseCmdPre.Enabled = FalseEnd IfIf Adodc1.Recordset.EOF Then 如果記錄指針移到了末記錄之后 Adodc1.Recordset.MoveLast 則記錄指針移到末記錄上 CmdNext.Enabled = False CmdLast.Enabled = FalseEnd IfLabel6.Caption = "記錄：" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCountEnd SubPrivate Sub CmdNext_Click()Adodc1.Recordset.MoveNext 記錄指針移到下一條記錄CmdFirst.Enabled = TrueCmdPre.Enabled = TrueIf Adodc1.Recordset.EOF Then 如果記錄指針移到了末記錄之后 Adodc1.Recordset.MoveLast 則記錄指針移到末記錄上 CmdNext.Enabled = False CmdLast.Enabled = FalseEnd IfLabel6.Caption = "記錄：" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCountEnd SubPrivate Sub CmdOk_Click()Adodc1.Recordset.UpdateCmdAdd.Enabled = TrueCmdDel.Enabled = TrueCmdOk.Enabled = FalseCmdEsc.Enabled = FalseEnd SubPrivate Sub CmdPre_Click()Adodc1.Recordset.MovePrevious 記錄指針移到前一條記錄CmdNext.Enabled = TrueCmdLast.Enabled = TrueIf Adodc1.Recordset.BOF Then 如果記錄指針移到首記錄之前, Adodc1.Recordset.MoveFirst 則記錄指針移到首記錄上 CmdFirst.Enabled = False CmdPre.Enabled = FalseEnd IfLabel6.Caption = "記錄：" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCountEnd SubPrivate Sub Command1_Click() Form1.Show Unload MeEnd SubPrivate Sub Command2_Click()檔案存入與轉(zhuǎn)出.Show Unload MeEnd SubPrivate Sub Form_Load()CmdFirst.Enabled = False 首記錄按鈕無效CmdPre.Enabled = False 前移按鈕無效CmdNext.Enabled = True 后移按鈕有效CmdLast.Enabled = True 末記錄按鈕有效CmdAdd.Enabled = True 添加按鈕有效CmdDel.Enabled = True 刪除按鈕有效CmdOk.Enabled = False 確定按鈕無效CmdEsc.Enabled = False 取消按鈕無效Label6.Caption = "記錄：" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCountEnd Sub選擇刪除時，運(yùn)行結(jié)果如圖3.11示：圖3.11存入檔案刪除選擇修改時，運(yùn)行結(jié)果如圖3.12示：圖3.12存入檔案修改代碼實現(xiàn)如下：Private Sub Command1_Click()If Adodc1.Recordset.EOF Or Adodc1.Recordset.BOF Then MsgBox "請選擇要修改的行" Exit SubEnd IfForm2.Show 顯示Form2Form1.Hide 隱藏Form1End SubPrivate Sub Command2_Click() 檔案存入.Show Unload MeEnd Sub3.4.2 檔案轉(zhuǎn)出檔案轉(zhuǎn)出的編輯圖3.13如下：圖3.13檔案轉(zhuǎn)出編輯代碼實現(xiàn)如下：Private Sub CmdAdd_Click()Adodc1.Recordset.AddNewCmdAdd.Enabled = FalseCmdDel.Enabled = FalseCmdOk.Enabled = TrueCmdEsc.Enabled = TrueEnd SubPrivate Sub CmdDel_Click()x = MsgBox("確實要刪除當(dāng)前記錄嗎？", vbYesNo + vbQuestion, "確認(rèn)")If x = vbYes Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End IfElse Adodc1.RefreshEnd IfEnd SubPrivate Sub CmdEsc_Click()Adodc1.RefreshCmdAdd.Enabled = TrueCmdDel.Enabled = TrueCmdOk.Enabled = FalseCmdEsc.Enabled = FalseEnd SubPrivate Sub CmdFirst_Click()Adodc1.Recordset.MoveFirst 記錄指針移到首記錄（顯示首記錄）CmdFirst.Enabled = False 讓首記錄按鈕無效CmdPre.Enabled = False 讓前移按鈕無效CmdNext.Enabled = True 讓后移按鈕有效CmdLast.Enabled = True 讓末記錄按鈕有效在Label6上顯示當(dāng)前記錄號/記錄總數(shù)：Label9.Caption = "記錄：" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCountEnd SubPrivate Sub CmdLast_Click()Adodc1.Recordset.MoveLast 移到末記錄 CmdFirst.Enabled = True CmdPre.Enabled = True CmdNext.Enabled = False CmdLast.Enabled = FalseLabel9.Caption = "記錄：" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCountEnd SubPrivate Sub CmdN_Click()Dim n As Integern = Text5.TextAdodc1.Recordset.Move nIf Adodc1.Recordset.BOF Then 如果記錄指針移到首記錄之前,Adodc1.Recordset.MoveFirst 則記錄指針移到首記錄上CmdFirst.Enabled = FalseCmdPre.Enabled = FalseEnd IfIf Adodc1.Recordset.EOF Then 如果記錄指針移到了末記錄之后 Adodc1.Recordset.MoveLast 則記錄指針移到末記錄上 CmdNext.Enabled = False CmdLast.Enabled = FalseEnd IfLabel5.Caption = "記錄：" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCountEnd SubPrivate Sub CmdNext_Click()Adodc1.Recordset.MoveNext 記錄指針移到下一條記錄CmdFirst.Enabled = TrueCmdPre.Enabled = TrueIf Adodc1.Recordset.EOF Then 如果記錄指針移到了末記錄之后 Adodc1.Recordset.MoveLast 則記錄指針移到末記錄上 CmdNext.Enabled = False CmdLast.Enabled = FalseEnd IfLabel5.Caption = "記錄：" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCountEnd SubPrivate Sub CmdOk_Click() 單擊確認(rèn)按鈕Adodc1.Recordset.UpdateCmdAdd.Enabled = TrueCmdDel.Enabled = TrueCmdOk.Enabled = FalseCmdEsc.Enabled = FalseEnd SubPrivate Sub CmdPre_Click()Adodc1.Recordset.MovePrevious 記錄指針移到前一條記錄CmdNext.Enabled = TrueCmdLast.Enabled = TrueIf Adodc1.Recordset.BOF Then 如果記錄指針移到首記錄之前, Adodc1.Recordset.MoveFirst 則記錄指針移到首記錄上 CmdFirst.Enabled = False CmdPre.Enabled = FalseEnd IfLabel5.Caption = "記錄：" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCountEnd SubPrivate Sub Command1_Click()檔案存入與轉(zhuǎn)出.Show Unload MeEnd SubPrivate Sub Form_Load()CmdFirst.Enabled = False 首記錄按鈕無效CmdPre.Enabled = False 前移按鈕無效CmdNext.Enabled = True 后移按鈕有效CmdLast.Enabled = True 末記錄按鈕有效CmdAdd.Enabled = True 添加按鈕有效CmdDel.Enabled = True 刪除按鈕有效CmdOk.Enabled = False 確定按鈕無效CmdEsc.Enabled = False 取消按鈕無效Label5.Caption = "記錄：" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCountEnd Sub3.5 查詢檔案信息查詢，在檔案信息中可以對數(shù)據(jù)庫中的數(shù)據(jù)進(jìn)行查詢，要實現(xiàn)此功能則必須用Adodc （Visible=False）控件DateCombo（Visible=True）與數(shù)據(jù)庫相連，在運(yùn)行中隱藏Adodc控件。圖3.14查詢代碼實現(xiàn)如下：Private Sub Command1_Click()Dim str As Stringstr = " Select 存入.檔案編號, 存入.* From 存入 Join 轉(zhuǎn)出 "str = str & " On 存入.檔案編號 = 轉(zhuǎn)出.檔案編號 "str = str & " Where 存入.檔案編號 = " & Text1 & " "Adodc1.RecordSource = strAdodc1.RefreshDim SQLStr As StringEnd SubPrivate Sub Form_Load()Combo1.AddItem "檔案編號" 為組合列表框添加各選項Combo1.AddItem "職員編號"Combo1.AddItem "檔案類型"Combo1.AddItem "檔案存放位置"Combo1.AddItem "檔案存放日期"Combo1.Text = "檔案編號" 讓組合框初始選中"姓名"項Text2.Text = "" 清空文本框End Sub總 結(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)一步的改善。參考文獻(xiàn)1 劉炳文 .Visual Basic程序設(shè)計教程.清華大學(xué)出版社.20032 曾強(qiáng)聰 .編 Visual basic 程序設(shè)計教程.清華大學(xué)出版社.20043 張立科 .VB數(shù)據(jù)庫開發(fā)技術(shù)與工程實踐.北京.人民郵電出版社 .20044 錢雪忠 .數(shù)據(jù)庫原理及應(yīng)用.北京.北京郵電大學(xué)出版社.20075 王珊 .數(shù)據(jù)庫技術(shù)與聯(lián)機(jī)分析處理.北京.北京科學(xué)出版社.19986 鄭阿奇 .SQL Server 教程 .北京.清華大學(xué)出版社.20057 張立科 .Visual Basic 6.0 數(shù)據(jù)庫開發(fā)技術(shù)與工程實踐.北京.人民郵電出版社. 2003