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

1、 i 沈陽理工大學(xué)課程設(shè)計(jì)專用紙 No 摘 要 由于計(jì)算機(jī)技術(shù)的飛速發(fā)展,數(shù)據(jù)庫技術(shù)作為數(shù)據(jù)管理的一個(gè)有效的手段,在各行各業(yè)中得到越來越廣泛的應(yīng)用。因此,本文圍繞一個(gè)“人事檔案管理系統(tǒng)”程序的設(shè)計(jì)和應(yīng)用系統(tǒng)的開發(fā)課題為背景，詳細(xì)介紹了以VB和SQL SERVER為語言編寫管理系統(tǒng)的過程。該程序通過VB的ADO數(shù)據(jù)對象來實(shí)現(xiàn)VB前臺與后臺SQL SERVER數(shù)據(jù)庫的連接,并具有典型的數(shù)據(jù)庫應(yīng)用

2、系統(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í)施。首先對現(xiàn)行人事檔案管理系統(tǒng)進(jìn)行分析，并找出其存在的問題，并提出解決方案，主要講述了程序的總體設(shè)計(jì)、詳細(xì)設(shè)計(jì)階段，對程序進(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ù)庫表及表字段、系統(tǒng)菜單的設(shè)計(jì)等。在系統(tǒng)的實(shí)現(xiàn)中，給出了系統(tǒng)的界面登錄、實(shí)現(xiàn)表單中相應(yīng)的功能控件的事件代碼等。在系統(tǒng)的實(shí)施概況中給出了系

3、統(tǒng)的開發(fā)環(huán)境、系統(tǒng)的運(yùn)行與維護(hù)、系統(tǒng)的安全性與可靠性設(shè)計(jì)。同時(shí)利用SQL SERVER的強(qiáng)大數(shù)據(jù)庫功能,直到形成一個(gè)完善的可行性系統(tǒng).優(yōu)美、秀麗的界面,方便實(shí)用的查詢與維護(hù)功能共同構(gòu)成了“人事檔案管理系統(tǒng)”。 關(guān)鍵詞：VB；SQL SERVER；數(shù)據(jù)庫；人事管理系統(tǒng) 目 錄 第1章 系統(tǒng)功能概述 1 1.1 設(shè)計(jì)目的及意義 1 1.2 功能模塊劃分 1 1.3 系統(tǒng)結(jié)構(gòu)總圖 2 第2章 數(shù)據(jù)庫設(shè)計(jì) 2 2.1 需求分析 2 2.2 E-R模型 3 2.3 關(guān)系模型 5 2.4 表結(jié)構(gòu)設(shè)計(jì) 5 2.4.1 表的建立

4、5 2.4.2 信息表 6 2.4.3 基本數(shù)據(jù) 6 第3章 系統(tǒng)各功能模塊的詳細(xì)設(shè)計(jì) 7 3.1 進(jìn)入系統(tǒng)頁面 7 3.2 登錄頁面 9 3.2.1 員工登錄 9 3.2.2管理員登錄 14 3.3 檔案存入與轉(zhuǎn)出頁面 16 3.4 編輯頁面 17 3.4.1 檔案存入 17 3.4.2 檔案轉(zhuǎn)出 22 3.5 查詢 26 總 結(jié) 28 參考文獻(xiàn) 29 沈陽理工大學(xué)

5、 29 沈陽理工大學(xué)課程設(shè)計(jì)專用紙 No 第1章 系統(tǒng)功能概述 1.1 設(shè)計(jì)目的及意義 掌握數(shù)據(jù)庫的創(chuàng)建方法。 掌握用一種語言（如VB）開發(fā)數(shù)據(jù)庫應(yīng)用程序的方法。 本系統(tǒng)開發(fā)的目的一方面從提高人事檔案管理工作的效率出發(fā)，擺脫過去由人用紙和筆進(jìn)行的費(fèi)時(shí)費(fèi)力的繁重工作，即利用成熟的計(jì)算機(jī)系統(tǒng)來實(shí)現(xiàn)檔案管理工作的自動化。本系統(tǒng)根據(jù)企業(yè)管理的一些實(shí)際情況而編制的一套自動化、界面設(shè)計(jì)良好、體現(xiàn)人本主義原則、系統(tǒng)效率較高、靈活方便、快捷迅速，適用于大量數(shù)據(jù)、采用動態(tài)鏈接的人事檔案管理系統(tǒng)。 本系統(tǒng)采用SQL server 2000作為后臺數(shù)據(jù)庫，這樣是數(shù)據(jù)能夠

6、得到統(tǒng)一，并增強(qiáng)了管理的安全性。 1.2 功能模塊劃分 在主控窗體中（MID窗體）點(diǎn)擊各菜單實(shí)現(xiàn)登錄人事檔案管理系統(tǒng)。 具體功能包括： 員工和管理員的登錄和注冊功能：實(shí)現(xiàn)用戶成功登錄系統(tǒng)，當(dāng)用戶明不正確或者密碼錯(cuò)誤時(shí)，提醒用戶重新輸入或者注冊，當(dāng)三次登錄失敗時(shí)，強(qiáng)制性退出操作界面。 存入檔案管理：用于輸入員工的檔案信息，包括檔案編號、職員編號、檔案類型、檔案存放位置、檔案存放日期等。該模塊不能修改已輸入的檔案信息可刪除已存入檔案信息。鏈接檔案修改模塊可修改存入檔案信息。 轉(zhuǎn)出檔案管理：用于將員工的檔安轉(zhuǎn)出，填寫的內(nèi)容包括檔案編號、轉(zhuǎn)出日期、轉(zhuǎn)出目的地、轉(zhuǎn)出事由等。該模塊不能

7、修改已輸入的檔案信息可刪除已存入檔案信息。鏈接檔案修改模塊可修改存入檔案信息。 檔案查詢：根據(jù)檔案編號、職員編號、檔案類型、檔案存放位置、檔案存放日期來查詢檔案信息。 歡迎使用檔案管理系統(tǒng) 1.3 系統(tǒng)結(jié)構(gòu)總圖 員工登錄 管理員登錄 檔案查詢 檔案存入 檔案查詢 檔案轉(zhuǎn)出 檔案添加 信息移動 檔案修改 檔案刪除 檔案添加 信息移動 檔案刪除 圖1.1系統(tǒng)結(jié)構(gòu)總 第2章 數(shù)據(jù)庫設(shè)計(jì) 2.1 需求分析 本系統(tǒng)是用于添加，查找，刪除人事檔案。本系統(tǒng)主要有兩部分組成，一部分是數(shù)據(jù)庫設(shè)計(jì)部分

8、，另一部分為窗體設(shè)計(jì)部分。 數(shù)據(jù)庫中包含四個(gè)表，檔案存入信息（檔案編號、職員編號、檔案類型、檔案存放位置、檔案存放日期），檔案轉(zhuǎn)出信息(檔案編號、轉(zhuǎn)出日期、轉(zhuǎn)出目的地、轉(zhuǎn)出事由)。啟動封面窗體（主窗體）的時(shí)候要求：圖片背景、歡迎類文字， 主控窗體設(shè)計(jì)為MDI窗體，含有主菜單：[文件]、[幫助]。 [文件]菜單包含以下子菜單及其功能： [員工登錄]：顯示員工登錄窗體 [管理員登錄]：顯示管理員登錄窗體 [退出]：結(jié)束程序。 [幫助]菜單包含以下子菜單及其功能： [關(guān)于]：顯示版權(quán)對話框。 以上各窗體設(shè)為MDI主窗體的子窗體 分別設(shè)計(jì)各個(gè)登錄窗體功能：用戶通過界面登錄系

9、統(tǒng)，登錄后提醒合法用戶；用戶名錯(cuò)誤或者密碼錯(cuò)誤時(shí)提醒錯(cuò)誤或者注冊，并提醒用戶共有三次操作機(jī)會；當(dāng)選擇注冊時(shí)，通過隨機(jī)文件追加用戶信息，并提醒注冊成功。 員工登陸成功進(jìn)入[查詢]窗體進(jìn)行條件查詢。 管理員登錄成功則進(jìn)入[檔案存入與轉(zhuǎn)出]主窗體，子窗體分別為：[檔案存入]、[檔案轉(zhuǎn)出]、[查詢]、[退出]。[檔案存入]窗體可以瀏覽和錄入各檔案信息。該窗體以文本框顯示當(dāng)前檔案記錄，用按鈕[首記錄]、[末記錄]、[前一個(gè)]、[后一個(gè)]，控制記錄指針的移動，用一個(gè)標(biāo)簽Label顯示：當(dāng)前記錄號/記錄總數(shù)。單擊[返回]按鈕，可以關(guān)閉本窗體，返回[檔案存入與轉(zhuǎn)出]窗體?？梢詫τ涗涍M(jìn)行添加、刪除、確認(rèn)、修

10、改、取消操作；[檔案轉(zhuǎn)出]窗體則沒有修改操作；[查詢]窗體可以按各種條件查找，這些條件放在組合列表框Combo中，供用戶選擇。在文本框中輸入要查詢的內(nèi)容，單擊[查詢]按鈕，查詢結(jié)果用網(wǎng)格控件顯示。 2.2 E-R模型 實(shí)體E-R圖： 檔案類型 檔案存放 位置 職員編號 檔案存入 檔案編號 檔案存放時(shí)間 圖2.1檔案存入信息圖 轉(zhuǎn)出目的地 轉(zhuǎn)出日期 檔案編號 檔案轉(zhuǎn)出 轉(zhuǎn)出事由 圖2.2檔案轉(zhuǎn)出信息圖 關(guān)系E-R圖： 員工

11、1 屬于 1 1 檔案轉(zhuǎn)出 檔案存入 圖2.3員工關(guān)系E-R圖 管理員 1 管理 n n 檔案轉(zhuǎn)出 檔案存入 圖2.4管理員關(guān)系E-

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

13、 (管理員帳號 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)

14、, 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è)置→ 控制面板→ 管理工具

15、→ 數(shù)據(jù)源（ODBC）→ 系統(tǒng)DSN→添加→驅(qū)動程序選為SQL Server→成功→ 給出該數(shù)據(jù)源的名稱、描述、服務(wù)器→ 更改默認(rèn)數(shù)據(jù)庫為（自己所建的數(shù)據(jù)庫）→ 測試→ 成功→ 確定→ 確定。 第3章 系統(tǒng)各功能模塊的詳細(xì)設(shè)計(jì) 3.1 進(jìn)入系統(tǒng)頁面 窗體設(shè)計(jì)為MDI窗體，含有主菜單：[文件]、[幫助]。 [文件]菜單包含以下子菜單及其功能： [員工登錄]：顯示員工登錄窗體 [管理員登錄]：顯示管理員登錄窗體 [退出]：結(jié)束程序。 [幫助]菜單包含以下子菜單及其功能： [關(guān)于]：顯示版權(quán)對話框。 圖3.1系統(tǒng)頁面 代碼實(shí)現(xiàn)如下： Private Sub mDgy

16、_Click() Load frmSplash frmSplash.Show End Sub Private Sub mFglydl_Click() 管理員登錄.Show MDIForm1.Hide End Sub Private Sub mFtc_Click() End End Sub Private Sub mFygdl_Click() 員工登錄.Show MDIForm1.Hide 隱藏Form1 End Sub 3.2 登錄頁面 3.2.1 員工登錄 員工登陸界面：“職員編號”、“

17、密碼”均由Label控件輸入，背景設(shè)為透明，之后介紹的界面中的字符均由此方法輸入，故將不做說明。給出可以輸入字符的空白由TextBox控件做成，可進(jìn)行字體大小與顏色的修改。按鈕由CommandButton設(shè)置，選擇由OptionButton添加Adodc （Visible=False），用來與數(shù)據(jù)庫相連。 圖3.2員工登錄 代碼實(shí)現(xiàn)如下： Private Type UserInfo zh As String * 10 mima As String * 10 End Type Dim U As UserInfo

18、 Dim counter As Integer Dim G As Boolean Private 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

19、#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 D

20、o End If ’’ 登錄成功 Loop Close #1 If F = False Then ’非法用戶時(shí)運(yùn)行 counter = counter + 1 If counter < 3 Then jia ru msg$ = "用戶不存在或密碼錯(cuò)誤！是否注冊？注冊 單擊<是>" + vbCrLf + "否則 單擊<否>" Tit

21、le$ = "操作進(jìn)程確認(rèn) " x = MsgBox(msg$, vbYesNo + 32, Title$) If x = 6 Then Option2.Value = True ElseIf x = 7 Then MsgBox "請重新輸入！" MsgBox "您總共有三次操作機(jī)會！"

22、 Text1.Text = "" Text2.Text = "" 員工登錄.Show End If End If If counter = 3 Then MsgBox "重試次數(shù)已到，即將退出本系統(tǒng)!" End Exit

23、 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

24、#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

25、 U.mima = m Put #2, , U MsgBox "注冊成功" End If Close #2 End If End Sub Private Sub Command2_Click() Unload Me 歡迎使用.Show End Sub Private Sub Command3_Click() Text1.Text = "" Text2.Text = "" Text1

26、.SetFocus End 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注冊操作 如果已注冊則出現(xiàn)提示如圖3.6示： 圖3.6已注冊提示 重新輸入多次提示如圖3.7示： 圖3.7錯(cuò)誤提示 3.2.2管理員登錄 管理員登錄窗體如圖3.8示： 圖3.8管理員登錄 代碼實(shí)現(xiàn)如下： Private Type UserInfo zh As

27、 String * 10 mima As String * 10 End Type Dim U As UserInfo Dim counter As Integer Dim G As Boolean Private Sub Command1_Click() Dim z As String * 10, m As String * 10 z = Trim(Text1.Text) m = Trim(Text2.Text) If Option1.Value

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

29、 檔案存入與轉(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$

30、 = "用戶不存在或密碼錯(cuò)誤！是否注冊？注冊 單擊<是>" + vbCrLf + "否則 單擊<否>" Title$ = "操作進(jìn)程確認(rèn) " x = MsgBox(msg$, vbYesNo + 32, Title$) If x = 6 Then Option2.Value = True ElseIf x = 7 Then

31、 MsgBox "請重新輸入！" MsgBox "您總共有三次操作機(jī)會！" Text1.Text = "" Text2.Text = "" 管理員登錄.Show End If End If If counter = 3 Then MsgBox

32、"重試次數(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

33、 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 Ran

34、dom As #2 If G = False Then U.zh = z U.mima = m Put #2, , U MsgBox "注冊成功" End If Close #2 End If End Sub Private Sub Command2_Click() Text1.Text = "" Text2.Text =

35、"" Text1.SetFocus End Sub Private Sub Command3_Click() Unload Me 歡迎使用.Show End Sub 運(yùn)行結(jié)果：用戶合法是，登錄后進(jìn)入檔案存入與轉(zhuǎn)出窗體。 3.3 檔案存入與轉(zhuǎn)出頁面 圖3.9檔案存入與轉(zhuǎn)出 代碼實(shí)現(xiàn)如下： Private Sub Command1_Click() Unload Me 檔案存入.Show End Sub Private Sub Command2_Click() Unload Me 檔案轉(zhuǎn)出.Show End Sub Private Sub

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

37、dodc1.Recordset.AddNew CmdAdd.Enabled = False CmdDel.Enabled = False CmdOk.Enabled = True CmdEsc.Enabled = True End Sub Private Sub CmdDel_Click() x = MsgBox("確實(shí)要刪除當(dāng)前記錄嗎？", vbYesNo + vbQuestion, "確認(rèn)") If x = vbYes Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext If Adodc1.Recor

38、dset.EOF Then Adodc1.Recordset.MoveLast End If Else Adodc1.Refresh End If End Sub Private Sub CmdEsc_Click() Adodc1.Refresh CmdAdd.Enabled = True CmdDel.Enabled = True CmdOk.Enabled = False CmdEsc.Enabled = False End Sub Private Sub CmdFirst_Click() Adodc1.Recordset.MoveFirst

39、 記錄指針移到首記錄（顯示首記錄） CmdFirst.Enabled = False 讓[首記錄]按鈕無效 CmdPre.Enabled = False 讓[前移]按鈕無效 CmdNext.Enabled = True 讓[后移]按鈕有效 CmdLast.Enabled = True 讓[末記錄]按鈕有效 在Label6上顯示當(dāng)前記錄號/記錄總數(shù)： Label6.Caption = "記錄：" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCount

40、 End Sub Private Sub CmdLast_Click() Adodc1.Recordset.MoveLast 移到末記錄 CmdFirst.Enabled = True CmdPre.Enabled = True CmdNext.Enabled = False CmdLast.Enabled = False Label6.Caption = "記錄：" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCount End Sub Private Sub Cmd

41、N_Click() Dim n As Integer n = Text6.Text Adodc1.Recordset.Move n If Adodc1.Recordset.BOF Then 如果記錄指針移到首記錄之前, Adodc1.Recordset.MoveFirst 則記錄指針移到首記錄上 CmdFirst.Enabled = False CmdPre.Enabled = False End If If Adodc1.Recordset.EOF Then 如果記錄指針移到了末記錄之后 Adodc1.Recordset.MoveLast 則記錄指針移

42、到末記錄上 CmdNext.Enabled = False CmdLast.Enabled = False End If Label6.Caption = "記錄：" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCount End Sub Private Sub CmdNext_Click() Adodc1.Recordset.MoveNext 記錄指針移到下一條記錄 CmdFirst.Enabled = True CmdPre.Enabled = True If Adod

43、c1.Recordset.EOF Then 如果記錄指針移到了末記錄之后 Adodc1.Recordset.MoveLast 則記錄指針移到末記錄上 CmdNext.Enabled = False CmdLast.Enabled = False End If Label6.Caption = "記錄：" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCount End Sub Private Sub CmdOk_Click() Adodc1.Recordset.Updat

44、e CmdAdd.Enabled = True CmdDel.Enabled = True CmdOk.Enabled = False CmdEsc.Enabled = False End Sub Private Sub CmdPre_Click() Adodc1.Recordset.MovePrevious 記錄指針移到前一條記錄 CmdNext.Enabled = True CmdLast.Enabled = True If Adodc1.Recordset.BOF Then 如果記錄指針移到首記錄之前, Adodc1.Recordset.MoveFir

45、st 則記錄指針移到首記錄上 CmdFirst.Enabled = False CmdPre.Enabled = False End If Label6.Caption = "記錄：" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCount End Sub Private Sub Command1_Click() Form1.Show Unload Me End Sub Private Sub Command2_Click() 檔案存入與轉(zhuǎn)出.Show Un

46、load Me End Sub Private 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

47、 = False [取消]按鈕無效 Label6.Caption = "記錄：" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCount End 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

48、 MsgBox "請選擇要修改的行" Exit Sub End If Form2.Show 顯示Form2 Form1.Hide 隱藏Form1 End Sub Private Sub Command2_Click() 檔案存入.Show Unload Me End Sub 3.4.2 檔案轉(zhuǎn)出 檔案轉(zhuǎn)出的編輯圖3.13如下： 圖3.13檔案轉(zhuǎn)出編輯 代碼實(shí)現(xiàn)如下： Private Sub CmdAdd_Click() Adodc1.Recordset.AddNew CmdAdd.Enabled = False CmdDel.E

49、nabled = False CmdOk.Enabled = True CmdEsc.Enabled = True End Sub Private Sub CmdDel_Click() x = MsgBox("確實(shí)要刪除當(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 If Els

50、e Adodc1.Refresh End If End Sub Private Sub CmdEsc_Click() Adodc1.Refresh CmdAdd.Enabled = True CmdDel.Enabled = True CmdOk.Enabled = False CmdEsc.Enabled = False End Sub Private Sub CmdFirst_Click() Adodc1.Recordset.MoveFirst 記錄指針移到首記錄（顯示首記錄） CmdFirst.Enabled = False 讓[首記錄

51、]按鈕無效 CmdPre.Enabled = False 讓[前移]按鈕無效 CmdNext.Enabled = True 讓[后移]按鈕有效 CmdLast.Enabled = True 讓[末記錄]按鈕有效 在Label6上顯示當(dāng)前記錄號/記錄總數(shù)： Label9.Caption = "記錄：" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCount End Sub Private Sub CmdLast_Click() Adodc1.Record

52、set.MoveLast 移到末記錄 CmdFirst.Enabled = True CmdPre.Enabled = True CmdNext.Enabled = False CmdLast.Enabled = False Label9.Caption = "記錄：" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCount End Sub Private Sub CmdN_Click() Dim n As Integer n = Text5.Text Adodc1.Re

53、cordset.Move n If Adodc1.Recordset.BOF Then 如果記錄指針移到首記錄之前, Adodc1.Recordset.MoveFirst 則記錄指針移到首記錄上 CmdFirst.Enabled = False CmdPre.Enabled = False End If If Adodc1.Recordset.EOF Then 如果記錄指針移到了末記錄之后 Adodc1.Recordset.MoveLast 則記錄指針移到末記錄上 CmdNext.Enabled = False CmdLast.Enabled =

54、False End If Label5.Caption = "記錄：" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCount End Sub Private Sub CmdNext_Click() Adodc1.Recordset.MoveNext 記錄指針移到下一條記錄 CmdFirst.Enabled = True CmdPre.Enabled = True If Adodc1.Recordset.EOF Then 如果記錄指針移到了末記錄之后 Adodc1.Record

55、set.MoveLast 則記錄指針移到末記錄上 CmdNext.Enabled = False CmdLast.Enabled = False End If Label5.Caption = "記錄：" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCount End Sub Private Sub CmdOk_Click() 單擊[確認(rèn)]按鈕 Adodc1.Recordset.Update CmdAdd.Enabled = True CmdDel.Enabled =

56、 True CmdOk.Enabled = False CmdEsc.Enabled = False End Sub Private Sub CmdPre_Click() Adodc1.Recordset.MovePrevious 記錄指針移到前一條記錄 CmdNext.Enabled = True CmdLast.Enabled = True If Adodc1.Recordset.BOF Then 如果記錄指針移到首記錄之前, Adodc1.Recordset.MoveFirst 則記錄指針移到首記錄上 CmdFirst.Enabled = Fal

57、se CmdPre.Enabled = False End If Label5.Caption = "記錄：" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCount End Sub Private Sub Command1_Click() 檔案存入與轉(zhuǎn)出.Show Unload Me End Sub Private Sub Form_Load() CmdFirst.Enabled = False [首記錄]按鈕無效 CmdPre.Enabled = False [前移]

58、按鈕無效 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.Rec

59、ordCount End Sub 3.5 查詢 檔案信息查詢，在檔案信息中可以對數(shù)據(jù)庫中的數(shù)據(jù)進(jìn)行查詢，要實(shí)現(xiàn)此功能則必須用Adodc （Visible=False）控件DateCombo（Visible=True）與數(shù)據(jù)庫相連，在運(yùn)行中隱藏Adodc控件。 圖3.14查詢 代碼實(shí)現(xiàn)如下： Private Sub Command1_Click() Dim str As String str = " Select 存入.檔案編號, 存入.* From 存入 Join 轉(zhuǎn)出 " str = str & " On 存入.檔案編號 = 轉(zhuǎn)出.檔案編號 " str = str &

60、 " Where 存入.檔案編號 = " & Text1 & " " Adodc1.RecordSource = str Adodc1.Refresh Dim SQLStr As String End Sub Private Sub Form_Load() Combo1.AddItem "檔案編號" 為組合列表框添加各選項(xiàng) Combo1.AddItem "職員編號" Combo1.AddItem "檔案類型" Combo1.AddItem "檔案存放位置" Combo1.AddItem "檔案存放日期" Combo1.Text = "檔案編號" 讓

61、組合框初始選中"姓名"項(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ù)庫結(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è)集員

62、工注冊、登錄、查詢與管理員注冊、登錄、檔案信息顯示操作、查詢?yōu)橐惑w，維護(hù)比較方便的，完整的可行性的管理系統(tǒng)。其缺點(diǎn)為：結(jié)構(gòu)較為簡單，無法實(shí)現(xiàn)比較復(fù)雜的人事檔案管理 在整個(gè)畢業(yè)設(shè)計(jì)階段的工作和本論文的寫作過程的經(jīng)歷將會使我終生受益，并對我今后的工作和發(fā)展產(chǎn)生深遠(yuǎn)的影響。由于畢業(yè)設(shè)計(jì)時(shí)間比較倉促，所以該系統(tǒng)還有許多不盡如意的地方，比如聯(lián)機(jī)文檔比較少，用戶界面不夠美觀，出錯(cuò)處理不夠等多方面問題。這些都有待于進(jìn)一步的改善。 參考文獻(xiàn) [1] 劉炳文 .《Visual Basic程序設(shè)計(jì)教程》.清華大學(xué)出版社.2003

63、[2] 曾強(qiáng)聰 .編 Visual basic 程序設(shè)計(jì)教程.清華大學(xué)出版社.2004 [3] 張立科 .VB數(shù)據(jù)庫開發(fā)技術(shù)與工程實(shí)踐.北京.人民郵電出版社 .2004 [4] 錢雪忠 .數(shù)據(jù)庫原理及應(yīng)用.北京.北京郵電大學(xué)出版社.2007 [5] 王珊 .數(shù)據(jù)庫技術(shù)與聯(lián)機(jī)分析處理.北京.北京科學(xué)出版社.1998 [6] 鄭阿奇 .SQL Server 教程 .北京.清華大學(xué)出版社.2005 [7] 張立科 .Visual Basic 6.0 數(shù)據(jù)庫開發(fā)技術(shù)與工程實(shí)踐.北京.人民郵電出版社. 2003