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

《[計(jì)算機(jī)軟件及應(yīng)用]SQL人事檔案管理系統(tǒng)》由會(huì)員分享，可在線閱讀，更多相關(guān)《[計(jì)算機(jī)軟件及應(yīng)用]SQL人事檔案管理系統(tǒng)（32頁(yè)珍藏版）》請(qǐng)?jiān)谘b配圖網(wǎng)上搜索。

1、 i 沈陽(yáng)理工大學(xué)課程設(shè)計(jì)專用紙 No摘 要由于計(jì)算機(jī)技術(shù)的飛速發(fā)展,數(shù)據(jù)庫(kù)技術(shù)作為數(shù)據(jù)管理的一個(gè)有效的手段,在各行各業(yè)中得到越來(lái)越廣泛的應(yīng)用。因此,本文圍繞一個(gè)“人事檔案管理系統(tǒng)”程序的設(shè)計(jì)和應(yīng)用系統(tǒng)的開發(fā)課題為背景，詳細(xì)介紹了以VB和SQL SERVER為語(yǔ)言編寫管理系統(tǒng)的過程。該程序通過VB的ADO數(shù)據(jù)對(duì)象來(lái)實(shí)現(xiàn)VB前臺(tái)與后臺(tái)SQL SERVER數(shù)據(jù)庫(kù)的連接,并具有典型的數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)的特征,完成了系統(tǒng)結(jié)構(gòu)與現(xiàn)實(shí)生活的緊密結(jié)合。該程序在設(shè)計(jì)過程中嚴(yán)格遵循軟件工程學(xué)的方法,用分階段的生命周期計(jì)劃嚴(yán)格管理，逐一介紹開發(fā)本系統(tǒng)的步驟：系統(tǒng)分析、系統(tǒng)設(shè)計(jì)、系統(tǒng)實(shí)現(xiàn)、系統(tǒng)實(shí)施。首先對(duì)現(xiàn)行人事檔案管

2、理系統(tǒng)進(jìn)行分析，并找出其存在的問題，并提出解決方案，主要講述了程序的總體設(shè)計(jì)、詳細(xì)設(shè)計(jì)階段，對(duì)程序進(jìn)行不斷修正和改進(jìn)。在系統(tǒng)結(jié)構(gòu)設(shè)計(jì)中先后用數(shù)據(jù)流圖、系統(tǒng)的功能結(jié)構(gòu)圖分析了系統(tǒng)所需要的各種數(shù)據(jù)。在系統(tǒng)的設(shè)計(jì)中，詳細(xì)的展現(xiàn)了系統(tǒng)的各個(gè)功能模塊、所需的數(shù)據(jù)庫(kù)表及表字段、系統(tǒng)菜單的設(shè)計(jì)等。在系統(tǒng)的實(shí)現(xiàn)中，給出了系統(tǒng)的界面登錄、實(shí)現(xiàn)表單中相應(yīng)的功能控件的事件代碼等。在系統(tǒng)的實(shí)施概況中給出了系統(tǒng)的開發(fā)環(huán)境、系統(tǒng)的運(yùn)行與維護(hù)、系統(tǒng)的安全性與可靠性設(shè)計(jì)。同時(shí)利用SQL SERVER的強(qiáng)大數(shù)據(jù)庫(kù)功能,直到形成一個(gè)完善的可行性系統(tǒng).優(yōu)美、秀麗的界面,方便實(shí)用的查詢與維護(hù)功能共同構(gòu)成了“人事檔案管理系統(tǒng)”。關(guān)鍵詞

3、：VB；SQL SERVER；數(shù)據(jù)庫(kù)；人事管理系統(tǒng)目 錄第1章 系統(tǒng)功能概述11.1 設(shè)計(jì)目的及意義11.2 功能模塊劃分11.3 系統(tǒng)結(jié)構(gòu)總圖2第2章 數(shù)據(jù)庫(kù)設(shè)計(jì)22.1 需求分析22.2 E-R模型32.3 關(guān)系模型52.4 表結(jié)構(gòu)設(shè)計(jì)52.4.1 表的建立52.4.2 信息表62.4.3 基本數(shù)據(jù)6第3章 系統(tǒng)各功能模塊的詳細(xì)設(shè)計(jì)73.1 進(jìn)入系統(tǒng)頁(yè)面73.2 登錄頁(yè)面93.2.1 員工登錄93.2.2管理員登錄143.3 檔案存入與轉(zhuǎn)出頁(yè)面163.4 編輯頁(yè)面173.4.1 檔案存入173.4.2 檔案轉(zhuǎn)出223.5 查詢26總 結(jié)28參考文獻(xiàn)29沈陽(yáng)理工大學(xué) 29 沈陽(yáng)理工大學(xué)課程設(shè)

4、計(jì)專用紙 No第1章 系統(tǒng)功能概述1.1 設(shè)計(jì)目的及意義 掌握數(shù)據(jù)庫(kù)的創(chuàng)建方法。掌握用一種語(yǔ)言（如VB）開發(fā)數(shù)據(jù)庫(kù)應(yīng)用程序的方法。本系統(tǒng)開發(fā)的目的一方面從提高人事檔案管理工作的效率出發(fā)，擺脫過去由人用紙和筆進(jìn)行的費(fèi)時(shí)費(fèi)力的繁重工作，即利用成熟的計(jì)算機(jī)系統(tǒng)來(lái)實(shí)現(xiàn)檔案管理工作的自動(dòng)化。本系統(tǒng)根據(jù)企業(yè)管理的一些實(shí)際情況而編制的一套自動(dòng)化、界面設(shè)計(jì)良好、體現(xiàn)人本主義原則、系統(tǒng)效率較高、靈活方便、快捷迅速，適用于大量數(shù)據(jù)、采用動(dòng)態(tài)鏈接的人事檔案管理系統(tǒng)。本系統(tǒng)采用SQL server 2000作為后臺(tái)數(shù)據(jù)庫(kù)，這樣是數(shù)據(jù)能夠得到統(tǒng)一，并增強(qiáng)了管理的安全性。1.2 功能模塊劃分在主控窗體中（MID窗體）點(diǎn)擊

5、各菜單實(shí)現(xiàn)登錄人事檔案管理系統(tǒng)。具體功能包括：?jiǎn)T工和管理員的登錄和注冊(cè)功能：實(shí)現(xiàn)用戶成功登錄系統(tǒng)，當(dāng)用戶明不正確或者密碼錯(cuò)誤時(shí)，提醒用戶重新輸入或者注冊(cè)，當(dāng)三次登錄失敗時(shí)，強(qiáng)制性退出操作界面。存入檔案管理：用于輸入員工的檔案信息，包括檔案編號(hào)、職員編號(hào)、檔案類型、檔案存放位置、檔案存放日期等。該模塊不能修改已輸入的檔案信息可刪除已存入檔案信息。鏈接檔案修改模塊可修改存入檔案信息。 轉(zhuǎn)出檔案管理：用于將員工的檔安轉(zhuǎn)出，填寫的內(nèi)容包括檔案編號(hào)、轉(zhuǎn)出日期、轉(zhuǎn)出目的地、轉(zhuǎn)出事由等。該模塊不能修改已輸入的檔案信息可刪除已存入檔案信息。鏈接檔案修改模塊可修改存入檔案信息。檔案查詢：根據(jù)檔案編號(hào)、職員編號(hào)、

6、檔案類型、檔案存放位置、檔案存放日期來(lái)查詢檔案信息。歡迎使用檔案管理系統(tǒng)1.3 系統(tǒng)結(jié)構(gòu)總圖員工登錄管理員登錄檔案查詢檔案存入檔案查詢檔案轉(zhuǎn)出檔案添加信息移動(dòng)檔案修改檔案刪除檔案添加信息移動(dòng)檔案刪除圖1.1系統(tǒng)結(jié)構(gòu)總第2章 數(shù)據(jù)庫(kù)設(shè)計(jì)2.1 需求分析 本系統(tǒng)是用于添加，查找，刪除人事檔案。本系統(tǒng)主要有兩部分組成，一部分是數(shù)據(jù)庫(kù)設(shè)計(jì)部分，另一部分為窗體設(shè)計(jì)部分。數(shù)據(jù)庫(kù)中包含四個(gè)表，檔案存入信息（檔案編號(hào)、職員編號(hào)、檔案類型、檔案存放位置、檔案存放日期），檔案轉(zhuǎn)出信息(檔案編號(hào)、轉(zhuǎn)出日期、轉(zhuǎn)出目的地、轉(zhuǎn)出事由)。啟動(dòng)封面窗體（主窗體）的時(shí)候要求：圖片背景、歡迎類文字，主控窗體設(shè)計(jì)為MDI窗體，含有

7、主菜單：文件、幫助。文件菜單包含以下子菜單及其功能：?jiǎn)T工登錄：顯示員工登錄窗體管理員登錄：顯示管理員登錄窗體退出：結(jié)束程序。幫助菜單包含以下子菜單及其功能：關(guān)于：顯示版權(quán)對(duì)話框。以上各窗體設(shè)為MDI主窗體的子窗體 分別設(shè)計(jì)各個(gè)登錄窗體功能：用戶通過界面登錄系統(tǒng)，登錄后提醒合法用戶；用戶名錯(cuò)誤或者密碼錯(cuò)誤時(shí)提醒錯(cuò)誤或者注冊(cè)，并提醒用戶共有三次操作機(jī)會(huì)；當(dāng)選擇注冊(cè)時(shí)，通過隨機(jī)文件追加用戶信息，并提醒注冊(cè)成功。員工登陸成功進(jìn)入查詢窗體進(jìn)行條件查詢。管理員登錄成功則進(jìn)入檔案存入與轉(zhuǎn)出主窗體，子窗體分別為：檔案存入、檔案轉(zhuǎn)出、查詢、退出。檔案存入窗體可以瀏覽和錄入各檔案信息。該窗體以文本框顯示當(dāng)前檔案記

8、錄，用按鈕首記錄、末記錄、前一個(gè)、后一個(gè)，控制記錄指針的移動(dòng)，用一個(gè)標(biāo)簽Label顯示：當(dāng)前記錄號(hào)/記錄總數(shù)。單擊返回按鈕，可以關(guān)閉本窗體，返回檔案存入與轉(zhuǎn)出窗體。可以對(duì)記錄進(jìn)行添加、刪除、確認(rèn)、修改、取消操作；檔案轉(zhuǎn)出窗體則沒有修改操作；查詢窗體可以按各種條件查找，這些條件放在組合列表框Combo中，供用戶選擇。在文本框中輸入要查詢的內(nèi)容，單擊查詢按鈕，查詢結(jié)果用網(wǎng)格控件顯示。2.2 E-R模型實(shí)體E-R圖：檔案類型檔案存放位置職員編號(hào)檔案存入檔案編號(hào)檔案存放時(shí)間圖2.1檔案存入信息圖轉(zhuǎn)出目的地轉(zhuǎn)出日期檔案編號(hào)檔案轉(zhuǎn)出轉(zhuǎn)出事由圖2.2檔案轉(zhuǎn)出信息圖關(guān)系E-R圖：?jiǎn)T工 1 屬于 1 1檔案轉(zhuǎn)出

9、檔案存入 圖2.3員工關(guān)系E-R圖管理員 1管理 n n檔案轉(zhuǎn)出檔案存入 圖2.4管理員關(guān)系E-R圖2.3 關(guān)系模型員工帳號(hào)：（職員編號(hào)、密碼）。管理員帳號(hào)：（管理員帳號(hào)、密碼）。檔案存入信息：（檔案編號(hào)、職員編號(hào)、檔案類型、檔案存放位置、檔案存放日期）其中，“檔案編號(hào)”是主碼，“職員編號(hào)”是外碼，參照員工信息表主碼“職員編號(hào)”。檔案轉(zhuǎn)出信息：（檔案編號(hào)、轉(zhuǎn)出日期、轉(zhuǎn)出目的地、轉(zhuǎn)出事由）其中，“檔案編號(hào)”是外碼，參照檔案存入信息表主碼“檔案編號(hào)”。2.4 表結(jié)構(gòu)設(shè)計(jì)2.4.1 表的建立CREATE TABLE 員工注冊(cè)(職員編號(hào) CHAR(40) PRIMARY KEY, 密碼 CHAR(40

10、),);CREATE TABLE 管理員注冊(cè)(管理員帳號(hào) CHAR(40) PRIMARY KEY, 密碼 CHAR(40),);CREATE TABLE 存入(檔案編號(hào) CHAR(40) PRIMARY KEY, 職員編號(hào) CHAR(40), 檔案類型 CHAR(40), 檔案存放位置 CHAR(40), 檔案存放日期 DATETIME, FOREIGN KEY(職員編號(hào))REFERENCES 員工注冊(cè) (職員編號(hào));CREATE TABLE 轉(zhuǎn)出(檔案編號(hào) CHAR(40), 轉(zhuǎn)出日期 DATETIME, 轉(zhuǎn)出目的地 CHAR(60), 轉(zhuǎn)出事由 CHAR(100), FOREIGN KE

11、Y(檔案編號(hào))REFERENCES 存入 (檔案編號(hào));2.4.2 信息表表2.1員工帳號(hào)表表2.2管理員帳號(hào)表表2.3檔案存入信息表表2.4檔案轉(zhuǎn)出信息表2.4.3 基本數(shù)據(jù)員工帳號(hào)表里輸入的結(jié)果如下：表2.5員工帳號(hào)數(shù)據(jù)管理員信息表里輸入的結(jié)果如下：表2.6管理員帳號(hào)數(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ū)動(dòng)程序選為SQL Server成功 給出該數(shù)據(jù)源的名稱、描述、服務(wù)器 更改默認(rèn)數(shù)據(jù)庫(kù)為（自己所建的數(shù)據(jù)庫(kù)） 測(cè)試 成

12、功 確定 確定。第3章 系統(tǒng)各功能模塊的詳細(xì)設(shè)計(jì)3.1 進(jìn)入系統(tǒng)頁(yè)面窗體設(shè)計(jì)為MDI窗體，含有主菜單：文件、幫助。文件菜單包含以下子菜單及其功能：?jiǎn)T工登錄：顯示員工登錄窗體管理員登錄：顯示管理員登錄窗體退出：結(jié)束程序。幫助菜單包含以下子菜單及其功能：關(guān)于：顯示版權(quán)對(duì)話框。圖3.1系統(tǒng)頁(yè)面代碼實(shí)現(xiàn)如下：Private Sub mDgy_Click() Load frmSplash frmSplash.ShowEnd SubPrivate Sub mFglydl_Click()管理員登錄.Show MDIForm1.HideEnd SubPrivate Sub mFtc_Click()EndEnd

13、 SubPrivate Sub mFygdl_Click() 員工登錄.Show MDIForm1.Hide 隱藏Form1End Sub3.2 登錄頁(yè)面3.2.1 員工登錄員工登陸界面：“職員編號(hào)”、“密碼”均由Label控件輸入，背景設(shè)為透明，之后介紹的界面中的字符均由此方法輸入，故將不做說(shuō)明。給出可以輸入字符的空白由TextBox控件做成，可進(jìn)行字體大小與顏色的修改。按鈕由CommandButton設(shè)置，選擇由OptionButton添加Adodc （Visible=False），用來(lái)與數(shù)據(jù)庫(kù)相連。圖3.2員工登錄代碼實(shí)現(xiàn)如下： Private Type UserInfo zh As S

14、tring * 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 Whi

15、le 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 非法用戶時(shí)運(yùn)行 counter = counter + 1 If counter 3 Then jia ru msg$ = 用戶不存在或密碼錯(cuò)誤！是否注冊(cè)？注冊(cè) 單擊 + vbCrLf + 否則 單擊 Title$ = 操作進(jìn)程確認(rèn) x = MsgBox(msg$, vbYe

16、sNo + 32, Title$) If x = 6 Then Option2.Value = True ElseIf x = 7 Then MsgBox 請(qǐng)重新輸入！ MsgBox 您總共有三次操作機(jī)會(huì)！ 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 注冊(cè) Open App.Path + user.dat For Rando

17、m As #2 i = 0 G = False While Not EOF(2) i = i + 1 Get #2, i, U If z = U.zh Then MsgBox 該用戶名已存在！ 請(qǐng)重新選擇！ 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 注冊(cè)成功 End If Close #2 End IfEnd SubPrivate Sub Command2_Click()Unloa

18、d Me歡迎使用.ShowEnd SubPrivate Sub Command3_Click() Text1.Text = Text2.Text = Text1.SetFocusEnd Sub用戶合法時(shí)，運(yùn)行結(jié)果見圖3.3所示：登錄后，直接進(jìn)入查詢窗體。圖3.3合法用戶登錄 用戶不合法時(shí)，運(yùn)行結(jié)果見圖3.4示。圖3.4不合法用戶登錄單擊“是”按鈕時(shí)，運(yùn)行結(jié)果如圖3.5示：圖3.5注冊(cè)操作如果已注冊(cè)則出現(xiàn)提示如圖3.6示：圖3.6已注冊(cè)提示重新輸入多次提示如圖3.7示： 圖3.7錯(cuò)誤提示3.2.2管理員登錄管理員登錄窗體如圖3.8示：圖3.8管理員登錄代碼實(shí)現(xiàn)如下： Private Type U

19、serInfo 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

20、#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 非法用戶時(shí)運(yùn)行 counter = counter + 1 If counter 3 Then jia ru msg$ = 用戶不存在或密碼錯(cuò)誤！是否注冊(cè)？注冊(cè) 單擊 + vbCrLf + 否則 單擊 Title$ = 操作進(jìn)程確認(rèn) x

21、 = MsgBox(msg$, vbYesNo + 32, Title$) If x = 6 Then Option2.Value = True ElseIf x = 7 Then MsgBox 請(qǐng)重新輸入！ MsgBox 您總共有三次操作機(jī)會(huì)！ 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 注冊(cè) Open App.Path

22、 + 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 該用戶名已存在！ 請(qǐng)重新選擇！ 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 注冊(cè)成功 End If Close #2 End If End SubPrivate Sub

23、 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)出頁(yè)面圖3.9檔案存入與轉(zhuǎn)出代碼實(shí)現(xiàn)如下：Private Sub Command1_Click()Unload Me檔案存入.ShowEnd SubPrivate Sub Command2_Click()Unload Me檔案轉(zhuǎn)出.ShowEnd SubPrivate Sub Command

24、3_Click()Unload Me查詢.ShowEnd SubPrivate Sub Command4_Click()Unload Me歡迎使用.ShowEnd Sub3.4 編輯頁(yè)面這個(gè)頁(yè)面上可以顯示所有的記錄數(shù)，同時(shí)還可以進(jìn)行添加，刪除，修改，前后移動(dòng)記錄數(shù)的功能，要實(shí)現(xiàn)此功能則必須用Adodc （Visible=False）控件與數(shù)據(jù)庫(kù)相連，在運(yùn)行中隱藏此控件。3.4.1 檔案存入檔案存入的編輯圖3.10如下：圖3.10檔案存入編輯代碼實(shí)現(xiàn)如下：Private Sub CmdAdd_Click()Adodc1.Recordset.AddNewCmdAdd.Enabled = False

25、CmdDel.Enabled = FalseCmdOk.Enabled = TrueCmdEsc.Enabled = TrueEnd SubPrivate Sub CmdDel_Click()x = MsgBox(確實(shí)要?jiǎng)h除當(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 IfEn

26、d SubPrivate Sub CmdEsc_Click()Adodc1.RefreshCmdAdd.Enabled = TrueCmdDel.Enabled = TrueCmdOk.Enabled = FalseCmdEsc.Enabled = FalseEnd SubPrivate Sub CmdFirst_Click()Adodc1.Recordset.MoveFirst 記錄指針移到首記錄（顯示首記錄）CmdFirst.Enabled = False 讓首記錄按鈕無(wú)效CmdPre.Enabled = False 讓前移按鈕無(wú)效CmdNext.Enabled = True 讓后移按鈕有

27、效CmdLast.Enabled = True 讓末記錄按鈕有效在Label6上顯示當(dāng)前記錄號(hào)/記錄總數(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 = Fa

28、lseLabel6.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 =

29、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 記錄指

30、針移到下一條記錄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 Cmd

31、Ok_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.Mov

32、eFirst 則記錄指針移到首記錄上 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_

33、Load()CmdFirst.Enabled = False 首記錄按鈕無(wú)效CmdPre.Enabled = False 前移按鈕無(wú)效CmdNext.Enabled = True 后移按鈕有效CmdLast.Enabled = True 末記錄按鈕有效CmdAdd.Enabled = True 添加按鈕有效CmdDel.Enabled = True 刪除按鈕有效CmdOk.Enabled = False 確定按鈕無(wú)效CmdEsc.Enabled = False 取消按鈕無(wú)效Label6.Caption = 記錄： & Adodc1.Recordset.AbsolutePosition & /

34、& Adodc1.Recordset.RecordCountEnd Sub選擇刪除時(shí)，運(yùn)行結(jié)果如圖3.11示：圖3.11存入檔案刪除選擇修改時(shí)，運(yùn)行結(jié)果如圖3.12示：圖3.12存入檔案修改代碼實(shí)現(xiàn)如下：Private Sub Command1_Click()If Adodc1.Recordset.EOF Or Adodc1.Recordset.BOF Then MsgBox 請(qǐng)選擇要修改的行 Exit SubEnd IfForm2.Show 顯示Form2Form1.Hide 隱藏Form1End SubPrivate Sub Command2_Click() 檔案存入.Show Unloa

35、d MeEnd Sub3.4.2 檔案轉(zhuǎn)出檔案轉(zhuǎn)出的編輯圖3.13如下：圖3.13檔案轉(zhuǎn)出編輯代碼實(shí)現(xiàn)如下：Private Sub CmdAdd_Click()Adodc1.Recordset.AddNewCmdAdd.Enabled = FalseCmdDel.Enabled = FalseCmdOk.Enabled = TrueCmdEsc.Enabled = TrueEnd SubPrivate Sub CmdDel_Click()x = MsgBox(確實(shí)要?jiǎng)h除當(dāng)前記錄嗎？, vbYesNo + vbQuestion, 確認(rèn))If x = vbYes Then Adodc1.Recor

36、dset.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.Re

37、cordset.MoveFirst 記錄指針移到首記錄（顯示首記錄）CmdFirst.Enabled = False 讓首記錄按鈕無(wú)效CmdPre.Enabled = False 讓前移按鈕無(wú)效CmdNext.Enabled = True 讓后移按鈕有效CmdLast.Enabled = True 讓末記錄按鈕有效在Label6上顯示當(dāng)前記錄號(hào)/記錄總數(shù)：Label9.Caption = 記錄： & Adodc1.Recordset.AbsolutePosition & / & Adodc1.Recordset.RecordCountEnd SubPrivate Sub CmdLast_Cli

38、ck()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.Mo

39、ve 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 = 記錄： & Adodc

40、1.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

41、= 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

42、.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

43、SubPrivate Sub Command1_Click()檔案存入與轉(zhuǎn)出.Show Unload MeEnd SubPrivate Sub Form_Load()CmdFirst.Enabled = False 首記錄按鈕無(wú)效CmdPre.Enabled = False 前移按鈕無(wú)效CmdNext.Enabled = True 后移按鈕有效CmdLast.Enabled = True 末記錄按鈕有效CmdAdd.Enabled = True 添加按鈕有效CmdDel.Enabled = True 刪除按鈕有效CmdOk.Enabled = False 確定按鈕無(wú)效CmdEsc.Enable

44、d = False 取消按鈕無(wú)效Label5.Caption = 記錄： & Adodc1.Recordset.AbsolutePosition & / & Adodc1.Recordset.RecordCountEnd Sub3.5 查詢檔案信息查詢，在檔案信息中可以對(duì)數(shù)據(jù)庫(kù)中的數(shù)據(jù)進(jìn)行查詢，要實(shí)現(xiàn)此功能則必須用Adodc （Visible=False）控件DateCombo（Visible=True）與數(shù)據(jù)庫(kù)相連，在運(yùn)行中隱藏Adodc控件。圖3.14查詢代碼實(shí)現(xiàn)如下：Private Sub Command1_Click()Dim str As Stringstr = Select 存入.

45、檔案編號(hào), 存入.* From 存入 Join 轉(zhuǎn)出 str = str & On 存入.檔案編號(hào) = 轉(zhuǎn)出.檔案編號(hào) str = str & Where 存入.檔案編號(hào) = & Text1 & Adodc1.RecordSource = strAdodc1.RefreshDim SQLStr As StringEnd SubPrivate Sub Form_Load()Combo1.AddItem 檔案編號(hào) 為組合列表框添加各選項(xiàng)Combo1.AddItem 職員編號(hào)Combo1.AddItem 檔案類型Combo1.AddItem 檔案存放位置Combo1.AddItem 檔案存放日期Co

46、mbo1.Text = 檔案編號(hào) 讓組合框初始選中姓名項(xiàng)Text2.Text = 清空文本框End Sub總 結(jié)經(jīng)過本學(xué)期的不斷實(shí)踐與探索,人事檔案管理統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)己經(jīng)完成,基本上達(dá)到了預(yù)期的設(shè)計(jì)要求和目的。一個(gè)完整的人事檔案管理系統(tǒng)就創(chuàng)建完畢了。在本系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)的過程中主要講述了人事檔案管理系統(tǒng)的系統(tǒng)設(shè)計(jì)部分，包括功能模塊設(shè)計(jì)、數(shù)據(jù)庫(kù)結(jié)構(gòu)設(shè)計(jì)等。系統(tǒng)設(shè)計(jì)為整個(gè)程序構(gòu)建了骨架,各個(gè)功能模塊實(shí)現(xiàn)各個(gè)細(xì)節(jié)部分。系統(tǒng)的詳細(xì)設(shè)計(jì)根據(jù)系統(tǒng)分析階段的結(jié)論將系統(tǒng)具體化,并完成了各個(gè)模塊的添加、修改、刪除與查詢的功能,直到最后形成一個(gè)集員工注冊(cè)、登錄、查詢與管理員注冊(cè)、登錄、檔案信息顯示操作、查詢?yōu)橐惑w

47、，維護(hù)比較方便的，完整的可行性的管理系統(tǒng)。其缺點(diǎn)為：結(jié)構(gòu)較為簡(jiǎn)單，無(wú)法實(shí)現(xiàn)比較復(fù)雜的人事檔案管理 在整個(gè)畢業(yè)設(shè)計(jì)階段的工作和本論文的寫作過程的經(jīng)歷將會(huì)使我終生受益，并對(duì)我今后的工作和發(fā)展產(chǎn)生深遠(yuǎn)的影響。由于畢業(yè)設(shè)計(jì)時(shí)間比較倉(cāng)促，所以該系統(tǒng)還有許多不盡如意的地方，比如聯(lián)機(jī)文檔比較少，用戶界面不夠美觀，出錯(cuò)處理不夠等多方面問題。這些都有待于進(jìn)一步的改善。參考文獻(xiàn)1 劉炳文 .Visual Basic程序設(shè)計(jì)教程.清華大學(xué)出版社.20032 曾強(qiáng)聰 .編 Visual basic 程序設(shè)計(jì)教程.清華大學(xué)出版社.20043 張立科 .VB數(shù)據(jù)庫(kù)開發(fā)技術(shù)與工程實(shí)踐.北京.人民郵電出版社 .20044 錢雪忠 .數(shù)據(jù)庫(kù)原理及應(yīng)用.北京.北京郵電大學(xué)出版社.20075 王珊 .數(shù)據(jù)庫(kù)技術(shù)與聯(lián)機(jī)分析處理.北京.北京科學(xué)出版社.19986 鄭阿奇 .SQL Server 教程 .北京.清華大學(xué)出版社.20057 張立科 .Visual Basic 6.0 數(shù)據(jù)庫(kù)開發(fā)技術(shù)與工程實(shí)踐.北京.人民郵電出版社. 2003