數(shù)據(jù)庫課程設(shè)計(jì)實(shí)驗(yàn)報(bào)告—人事管理

1、計(jì)算機(jī)科學(xué)與技術(shù)專業(yè)數(shù)據(jù)庫技術(shù)與應(yīng)用課程設(shè)計(jì)報(bào)告 題 目 人事管理系統(tǒng)學(xué)生姓名 專 業(yè) 計(jì)算機(jī)科學(xué)與技術(shù)班 級 學(xué) 號 2011年 12 月18日目 錄一、 設(shè)計(jì)并開發(fā)人事管理系統(tǒng) 1二、 需求分析 2三、 概念設(shè)計(jì) 4四、 邏輯設(shè)計(jì) 6五、 具體設(shè)計(jì) 8六、 程序使用說明 15七、 小組分工及設(shè)計(jì)體會 20一、設(shè)計(jì)并開發(fā)人事管理系統(tǒng)一直以來人們使用傳統(tǒng)人工的方式管理員工檔案，這種管理方式存在著許多缺點(diǎn)，譬如：效率低、保密性差，另外時間一長，將產(chǎn)生大量的文件和數(shù)據(jù)，這對于查找、更新和維護(hù)都帶來了不少的困難。隨著科學(xué)技術(shù)的不斷提高，計(jì)算機(jī)科學(xué)日漸成熟，其強(qiáng)大的功能已為人們深刻認(rèn)識，它已進(jìn)入人類社

2、會的各個領(lǐng)域并發(fā)揮著越來越重要的作用。人事管理信息系統(tǒng)的出現(xiàn)輕而易舉的解決了傳統(tǒng)管理人員檔案的方法的缺點(diǎn)。伴隨著人事管理信息系統(tǒng)的廣泛應(yīng)用，它已經(jīng)成為了任何一家企業(yè)公司都不可缺少的組成部分，它的存在使得管理者更容易了解自己公司的員工,便于分配人員,易于進(jìn)行調(diào)整。所以人事管理信息系統(tǒng)能夠?yàn)楣芾砣藛T提供充足的信息和快捷的查詢手段。二、需求分析人事管理系統(tǒng)題目要求：1、 基本信息包括：（1） 人員基本信息：編號、姓名、性別、出生日期、參加工作日期住址、電話等；（2） 來本單位的日期及來自的單位； （3） 職稱及評定的時間和工資級別； （4） 職工的獎懲登錄； 2、 工資的確定：基本工資與職稱和級別有

3、關(guān)； 職務(wù)補(bǔ)助、房補(bǔ)由職稱決定； 工齡津貼由工齡決定； 洗理費(fèi)由性別決定； 另有每人獎金不同。3、查詢員工的各項(xiàng)基本信息；4、查詢每個職工的詳細(xì)工資清單。5、用戶管理：信息錄入、工資計(jì)算的工作人員及普通職工查詢自己的信息 人事管理系統(tǒng)需求分析：設(shè)計(jì)內(nèi)容：設(shè)計(jì)如下主要功能模塊人事檔案管理模塊。人員薪酬管理模塊。人員培訓(xùn)管理模塊。各類報(bào)表生成模塊。人員內(nèi)部調(diào)動、離崗管理模塊。人員獎懲情況管理模塊。分析：1. 登錄2. 工作人員 職工管理 ： 查詢、更新 編號、姓名、性別、出生日期、參加工作日期、住址、電話、來自本單位日期、來自的單位、職稱。 獎懲登錄。 工資管理 ： 查詢、更新 工資級別、基本工資

4、、職務(wù)補(bǔ)助、房補(bǔ)、工齡津貼、洗理費(fèi)、獎金。3. 職工 登錄后，可以查詢基本信息，查詢來自的單位的日期及來自的單位，職稱，評定的時間和工資級別。 獎懲登錄。 查看詳細(xì)工資的清單。系統(tǒng)流程圖:登錄驗(yàn)證 管理員 職工個人信息查詢查看個人獎懲查看工資清單管理職工信息人員培訓(xùn)管理管理報(bào)表管理工資獎懲三、概念設(shè)計(jì)通過對數(shù)據(jù)庫基本信息的分析，建立E-R圖如下：職稱工資級別職稱名管理員密碼登錄帳號職工編號姓名性別出生日期住址電話來自本單位的時間來自的單位參加工作日期基本工資評定時間職務(wù)補(bǔ)助房補(bǔ)工齡工齡津貼工齡年數(shù)評定計(jì)算獎懲編號1金額內(nèi)容登陸培訓(xùn)培訓(xùn)時間編號經(jīng)費(fèi)四、邏輯設(shè)計(jì)將E-R圖進(jìn)行總結(jié)、歸納，建立如下關(guān)

5、系圖:職工（編號 姓名 性別 出生日期 參加工作日期 住址 電話 來自單位 來自單位的時間 職稱名 評定時間 工齡年數(shù) 編號1 ）職稱（職稱名 工資級別 基本工資 職務(wù)補(bǔ)助 房補(bǔ) ）工齡（工齡年數(shù) 工齡津貼）獎懲（編號1 金額 內(nèi)容）管理員（登錄帳號 密碼）五、具體設(shè)計(jì)1、表結(jié)構(gòu)及數(shù)據(jù)詞典的設(shè)計(jì)（1） 總體結(jié)構(gòu)人事管理系統(tǒng)共包含6個表，其結(jié)構(gòu)如下：人事管理系統(tǒng) 職工表 職稱表 工齡表獎懲 管理員表（2） 表結(jié)構(gòu)及數(shù)據(jù)詞典（3）1) 職工表表結(jié)構(gòu)字段名稱數(shù)據(jù)類型字段大小必填字段允許空字符串編號 varchar50是否姓名 varchar50是是性別char10是是出生日期datetime8是是參

6、加工作日期datetime8是是住址varchar50是是電話varchar50是是來自本單位的時間datetime8是是職稱名varchar50是是評定時間datetime8是是編號1varvhar50是是數(shù)據(jù)詞典編號=各職工的編號，1-50個字符或數(shù)字姓名=各職工的姓名，1-50個字符性別=各職工的性別，1-10個字符出生日期=各職工的出生日期，1-8個數(shù)字參加工作日期=各職工的工資日期，1-8個數(shù)字住址=各職工的住址，1-50個字符電話=各職工的電話，1-50個字符來自本單位的時間=各職工來單位的時間，1-8個數(shù)字職稱名=各職工的職稱名，1-50個字符評定時間=各職工的評定時間，1-8個

7、數(shù)字 年、月、日編號1=獎懲登錄編號，1-50個字符或數(shù)字2）職稱表表結(jié)構(gòu)字段名稱數(shù)據(jù)類型字段大小必填字段允許空字符串職稱名varchar50是否工資級別 int4是是基本工資money8是是職務(wù)補(bǔ)助money8是是房補(bǔ)money8是是職稱名=各職工的職稱名，1-50個字符或數(shù)字工資級別=各職工的工資級別，1-4個字符基本工資=各職工的基本工資，1-8個數(shù)字職務(wù)補(bǔ)助=各職工的職務(wù)補(bǔ)助，1-8個數(shù)字房補(bǔ)=各職工的房補(bǔ)，1-8個數(shù)字3）工齡表表結(jié)構(gòu)字段名稱數(shù)據(jù)類型字段大小必填字段允許空字符串工齡年數(shù)varchar50是否工齡津貼 money8是是工齡年數(shù)=各職工的工齡年數(shù)，1-50個字符或數(shù)字工資

8、津貼=各職工的工資津貼，1-8個數(shù)字4）洗理費(fèi)表結(jié)構(gòu)字段名稱數(shù)據(jù)類型字段大小必填字段允許空字符串性別varchar50是否金額 money8是是性別=各職工的性別，1-50個字符或數(shù)字金額=各職工的金額，1-8個數(shù)字5）管理員表表結(jié)構(gòu)字段名稱數(shù)據(jù)類型字段大小必填字段允許空字符串登錄帳號varchar50是否密碼 varchar50是是登錄帳號=管理員的登錄帳號，1-50個字符或數(shù)字密碼=管理員的密碼，1-50個字符或數(shù)字6）獎懲表結(jié)構(gòu)字段名稱數(shù)據(jù)類型字段大小必填字段允許空字符串編號1varchar50是否內(nèi)容 varchar50是是2、應(yīng)用程序的模塊圖及模塊分析 （1）應(yīng)用程序的模塊圖人事管理

9、系統(tǒng)管理員登陸模塊職工登陸模塊職工獎懲登陸模塊更新模塊查詢模塊（2）模塊分析人事管理系統(tǒng)共包含職工登陸模塊、職工獎懲登錄模塊、管理員登錄模塊、查詢模塊和更新模塊五個模塊。1.職工登陸模塊： 模塊內(nèi)容：此模塊包括職工姓名、職工編號的輸入。 模塊功能：通過運(yùn)行此模塊，匹配輸入正確的職工姓名和職工編號，則允許進(jìn)入人事管理系統(tǒng)。2.職工獎懲登陸模塊： 模塊內(nèi)容：此模塊包括職工編號的輸入。 模塊功能：通過運(yùn)行此模塊，匹配輸入正確的職工編號，則允許進(jìn)入獎懲查看頁面。3.管理員登錄模塊模塊內(nèi)容：此模塊包括管理員登錄帳號、密碼的輸入。模塊功能：通過此模塊，匹配的輸入正確的管理員登錄帳號和密碼，則允許進(jìn)入管理員

10、操作頁面。 4.查詢模塊 模塊內(nèi)容：此模塊可以查看職工的詳細(xì)信息和工資信息。 模塊功能：通過此模塊，職工與管理員都可以完成相應(yīng)的查詢工作。職工可以查詢自己的基本信息而管理員可以查詢所有的職工信息。5.更新模塊 模塊內(nèi)容：此模塊可以實(shí)現(xiàn)修改信息的功能。 模塊功能：此模塊是對管理員應(yīng)用的，管理員可以修改職工的個人信息等等。 六、程序使用說明使用人事管理系統(tǒng)，必須先輸入員工號和密碼，經(jīng)確認(rèn)后方可進(jìn)入系統(tǒng)主界面進(jìn)行操作。您可以選擇使用菜單項(xiàng)進(jìn)行操作，也可以直接點(diǎn)擊相應(yīng)的標(biāo)簽進(jìn)入其他的功能使用。1、菜單項(xiàng)的使用（1）主頁面：（2）進(jìn)入系統(tǒng)之后，顯示人員管理的主模塊的功能，如下圖（3）可以進(jìn)入職工頁面具體

11、查看職工個人信息。（4）點(diǎn)擊人員檔案管理模塊，可以對人員進(jìn)行操作（5）進(jìn)入添加修改可以對員工進(jìn)行操作。（6）人員薪酬管理模塊（7）人員培訓(xùn)管理。（8）報(bào)表生成管理 （9）人員調(diào)動管理模塊（10）數(shù)據(jù)備份，恢復(fù)（10）人員獎懲情況主要代碼：1， 登錄模塊Private Sub Command1_Click()'登陸 '檢測帳號密碼是否為空 If Text1.Text = "" Then MsgBox "帳號不能為空！", vbCritical, "登陸錯誤" Exit Sub End If If Text2.Text =

12、 "" Then MsgBox "密碼不能為空！", vbCritical, "登陸錯誤" Exit Sub End If '連接數(shù)據(jù)庫 Set Ado_Conn = New ADODB.Connection Set Ado_RS = New ADODB.Recordset str_CS = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=人事管理系統(tǒng);Data Source=FREES

13、KYC-FD1640" str_RS = "select * from 管理員表 where 登錄賬號='" & Trim(Text1.Text) & "'" SqlConnect Ado_Conn, Ado_RS, str_CS, str_RS '檢測帳號是否存在 If Ado_RS.EOF = False Then '如果帳號存在 If Trim(Ado_RS.Fields("登錄賬號") = Trim(Text1.Text) And Trim(Ado_RS.Fields(

14、"密碼") = Trim(Text2.Text) Then 管理系統(tǒng)主界面.Show Else '帳號密碼錯誤 MsgBox "帳號、密碼錯誤，請重新輸入！", vbCritical, "登陸錯誤" End If Else '如果帳號不存在 MsgBox "帳號不存在，請重新輸入！", vbCritical, "登陸錯誤" End If '斷開數(shù)據(jù)庫連接 SqlDisConnect Ado_RS End SubPrivate Sub Command2_Click()Dim

15、 intResult As Integer'請求用戶確認(rèn)是否真的退出系統(tǒng)登錄intResult = MsgBox("你選擇了退出系統(tǒng)登錄，退出將不能啟動企業(yè)人事管理系統(tǒng)！" & vbcrlf_ & "是否真的退出？", vbYesNo, "登錄驗(yàn)證")If intResult = vbYes Then End'根據(jù)用戶選擇結(jié)束應(yīng)用程序End Sub2，員工添加，修改，刪除Private Sub Command1_Click()Adodc1.Recordset.AddNewMsgBox "請輸入

16、員工信息，不能為空！"End SubPrivate Sub Command2_Click()Adodc1.Recordset.Fields("編號") = Trim(Text1.Text)Adodc1.Recordset.Fields("姓名") = Trim(Text2.Text)Adodc1.Recordset.Fields("性別") = Trim(Text3.Text)Adodc1.Recordset.Fields("出生日期") = Trim(Text4.Text)Adodc1.Recordse

17、t.Fields("參加工作日期") = Trim(Text5.Text)Adodc1.Recordset.Fields("住址") = Trim(Text6.Text)Adodc1.Recordset.Fields("電話") = Trim(Text7.Text)Adodc1.Recordset.Fields("來自本單位的時間") = Trim(Text8.Text)Adodc1.Recordset.Fields("職稱名") = Trim(Text9.Text)Adodc1.Records

18、et.Fields("評定時間") = Trim(Text10.Text)Adodc1.Recordset.Fields("工齡年數(shù)") = Trim(Text11.Text)Adodc1.Recordset.Fields("編號1") = Trim(Text12.Text)Adodc1.Recordset.UpdateEnd SubPrivate Sub Command3_Click()Dim intResult As Integer'請求用戶確認(rèn)是否真的退出添加員工intResult = MsgBox("你選擇了

19、取消添加員工，取消將不能添加！" & vbcrlf_ & "是否真的取消？", vbYesNo, "提示")If intResult = vbYes Then'根據(jù)用戶選擇結(jié)束應(yīng)用程序Adodc1.Recordset.CancelUpdateEnd IfEnd SubPrivate Sub Command4_Click()Dim intResult As IntegerintResult = MsgBox("確認(rèn)刪除？", vbYesNo)If intResult = vbYes ThenAdodc1

20、.Recordset.DeleteAdodc1.Recordset.MoveNextIf Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLastEnd IfEnd SubPrivate Sub Command5_Click()Unload MeEnd Sub3，數(shù)據(jù)備份，恢復(fù)Private Sub Command2_Click() '連接數(shù)據(jù)庫 Set Ado_Conn = New ADODB.Connection Set Ado_RS = New ADODB.Recordset str_CS = "Provider=SQLOL

21、EDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=人事管理系統(tǒng);Data Source=FREESKYC-FD1640" 'str_RS = "select * from 管理員表 where 登錄賬號='" & Trim(Text1.Text) & "'" SqlConnect Ado_Conn, Ado_RS, str_CS, str_RS Ado_Conn.Execute "backup d

22、atabase 人事管理系統(tǒng) to disk='" & Text1.Text & "'" MsgBox "已保存到 " & Text1.Text & "。備份成功。", vbInformation, "備份成功" SqlDisConnect Ado_RSEnd SubPrivate Sub Command3_Click()On Error Resume Next CommonDialog2.CancelError = True CommonDialog2.S

23、howOpen If Err = cdlCancel Then Exit Sub Text2.Text = CommonDialog2.FileNameEnd SubPrivate Sub Command4_Click() '連接數(shù)據(jù)庫 Set Ado_Conn = New ADODB.Connection Set Ado_RS = New ADODB.Recordset str_CS = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=人事管理

24、系統(tǒng);Data Source=FREESKYC-FD1640" str_RS = "select * from 管理員表 where 登錄賬號='" & Trim(Text1.Text) & "'" SqlConnect Ado_Conn, Ado_RS, str_CS, str_RS Ado_Conn.Execute "use master" Ado_Conn.Execute "restore database 人事管理系統(tǒng) from disk='" &

25、Text2.Text & "'" MsgBox "已恢復(fù)數(shù)據(jù)庫。", vbInformation, "恢復(fù)成功" SqlDisConnect Ado_RSEnd SubPrivate Sub Command5_Click()Unload MeEnd SubPrivate Sub Command6_Click() SureExitEnd Sub4，查詢Private Sub Command1_Click()Dim txtsql As Stringtxtsql = "select * from 工資表 where "If Option1.Value Then Text1 = "" Text2 = "" t