數(shù)據(jù)庫課程設(shè)計(jì)報(bào)告

1、數(shù) 據(jù) 庫 課 程 設(shè) 計(jì)設(shè)計(jì)題目：人事檔案管理系統(tǒng)的設(shè)計(jì) 計(jì)算機(jī)科學(xué)與技術(shù)系系 別：_班 級：_學(xué) 號：_老師姓 名：_指 導(dǎo) 教 師：_ 2012年12月27日目 錄需求概述2數(shù)據(jù)庫設(shè)計(jì)21、需求概述概要 人才是企、事業(yè)單位的寶貴財(cái)富，而人事管理系統(tǒng)又是人力資源管理的核心，一個(gè)正常運(yùn)作的公司必定有一個(gè)健全的人事管理系統(tǒng)，來管理員工的信息。因此，快捷、準(zhǔn)確、方便、高效的人事檔案管理系統(tǒng)就成為企、事業(yè)單位的基本需求之一。此系統(tǒng)提供員工信息更改或刪除等的功能，使公司的人事管理方便快捷而又清晰。面對各種不同種類的信息，需要合理的數(shù)據(jù)庫結(jié)構(gòu)來保存數(shù)據(jù)信息以及有效地程序結(jié)構(gòu)支持各種數(shù)據(jù)操作的執(zhí)行。2、

2、 系統(tǒng)功能概要人事檔案管理系統(tǒng)必須具備以下基本功能：1） 人事檔案管理數(shù)據(jù)庫及表的操縱。實(shí)現(xiàn)對人事檔案管理數(shù)據(jù)庫及其表的創(chuàng)建，表中數(shù)據(jù)維護(hù)。2） 人事檔案信息的管理。實(shí)現(xiàn)人事信息的添加、保存、修改和刪除等。3） 人事檔案信息的應(yīng)用。實(shí)現(xiàn)人事信息的查詢、統(tǒng)計(jì)、人事資源的利用等。3、 系統(tǒng)結(jié)構(gòu)總圖1）系統(tǒng)結(jié)構(gòu)總圖如下：人事檔案管理系統(tǒng)主界面 按離職按在職查詢查詢退出刪除添加新增離職變動增加更新加班出差考勤刪除修改刪除查詢添加人事檔案管理統(tǒng)計(jì)決策查詢教育培訓(xùn)人事變動 日?？己?部門管理2）實(shí)體E-R圖根據(jù)人事管理系統(tǒng)的系統(tǒng)分析與功能設(shè)計(jì)，人事管理系統(tǒng)中主要包括部門信息實(shí)體，出差信息實(shí)體，加班信息實(shí)體

3、，教育培訓(xùn)信息實(shí)體，考勤信息實(shí)體等，下面為它們的E-R圖：部門名稱姓名培訓(xùn)名稱工號培訓(xùn)時(shí)間ID教育培訓(xùn)信息性別ID出生日期姓名工號姓名工號人事檔案信息考勤信息考勤休假檔案編號離職工作部門部門名稱部門主管出差部門編號加班離職信息部門電話部門信息部門名稱姓名加班信息出差信息備注工號部門級別信息變動上報(bào)日期IDID工號人事變動信息ID變動日期工號姓名3）由實(shí)體E-R圖得到的關(guān)系模型如下：部門信息表（部門編號 部門名稱 部門級別 部門主管 部門電話 備注）出差信息表（ID 工號 姓名 部門名稱 職務(wù) 代理人 出差目的 出差地點(diǎn) 出差起始日期 出差截止日期 備注）加班信息表（ID 上報(bào)日期 工號 姓名

4、部門名稱 工作內(nèi)容 工作地點(diǎn) 加班起始時(shí)間 加班結(jié)束時(shí)間 加班時(shí)數(shù) 加班費(fèi) 其他費(fèi)用 費(fèi)用合計(jì)）教育培訓(xùn)信息表（ID 工號 姓名 部門名稱 培訓(xùn)名稱 培訓(xùn)時(shí)間 培訓(xùn)成績 培訓(xùn)費(fèi)用 備注）考勤信息表（ID 工號 姓名 部門名稱 出勤 休假 事假 病假 公假 婚假 喪假 遲到 早退 曠職 公差 月份 年）離職信息表（工號 姓名 部門名稱 性別 是否離職 離職日期 備注）人事變動信息表（ID 工號 姓名 原部門名稱 原職務(wù) 現(xiàn)部門名稱 現(xiàn)職務(wù) 變動說明）人事檔案信息表（檔案編號 工號 姓名 曾用名 性別 出生日期 身份證號 相片 籍貫 工齡 聘用日期 家庭住址 聯(lián)系電話 部門名稱 婚姻狀況 政治面貌

5、 民族 技術(shù)職稱 文化程度 行政職務(wù) 用工性質(zhì) 健康狀況 工資級別 用工狀態(tài)）2、 運(yùn)行環(huán)境 4.1 這次人事檔案管理數(shù)據(jù)庫的后臺數(shù)據(jù)庫環(huán)境是Microsoft SQL Server 2005,因?yàn)檫@款軟件比較常用且方便。 4.2 前臺界面設(shè)計(jì)的環(huán)境是運(yùn)用Microsoft Visual Basic 6.0，其中需要掌握的知識有： 1）VB可視化編程基礎(chǔ)：VB對象的概念，窗體和基本控件 2）VB語言基礎(chǔ)：數(shù)據(jù)類型，常量與變量，運(yùn)算符表達(dá)和式，VB程序結(jié)構(gòu)和編碼規(guī)則 3）VB控制結(jié)構(gòu)：順序結(jié)構(gòu)，選擇結(jié)構(gòu)，循環(huán)結(jié)構(gòu) ，輔助控制語句，程序調(diào)試 4）數(shù)組和自定義類型：數(shù)組的基本操作，列表框和組合框 5

6、）過程：函數(shù)過程的定義和調(diào)用，子過程的定義和調(diào)用，參數(shù)傳遞，過程的嵌套和遞歸調(diào)用，變量的作用域 6）用戶界面設(shè)計(jì)：各種控件的應(yīng)用，以及對話框的應(yīng)用，菜單設(shè)計(jì) 7) 數(shù)據(jù)庫應(yīng)用基礎(chǔ)：VB數(shù)據(jù)庫的訪問，記錄集對象4、前臺界面設(shè)計(jì) 1）本系統(tǒng)的前臺開發(fā)工具為Microsoft visual basic 6.0 ,除了一些常用的控件Commandbutton,Combobox,Textbox和Label外，這里還使用了控件ADO和DataGrid。ADO用來鏈接數(shù)據(jù)庫與前臺開發(fā)程序，指定鏈接的數(shù)據(jù)源和要訪問的數(shù)據(jù)，并通過綁定要使用的數(shù)據(jù)來顯示所獲得的數(shù)據(jù)。DataGrid控件的作用是以表格的形式顯示結(jié)

7、果中的全部數(shù)據(jù)，但允許在表格中增加，刪除和修改紀(jì)錄。具體的鏈接過程如下：ADO（步驟）（1）選擇“工程”菜單中的部件命令，打開部件對話框，在控件選項(xiàng)中選擇Microsoft ADO Data Control 6.0(OLEDB)復(fù)選框，單擊確定，工具欄中會出現(xiàn)ADO數(shù)據(jù)控件的圖標(biāo)，其微幫助名稱為：Adodc。（2）在當(dāng)前窗體上添加一個(gè)ADO控件。（3）打開ADO的屬性頁，設(shè)置使用的ODBC數(shù)據(jù)資源的名稱，（如果沒有則新建一個(gè)）即我所使用的數(shù)據(jù)庫wangjiaDSN；設(shè)置身份驗(yàn)證，包括用戶名稱和密碼；設(shè)置紀(jì)錄源，命令類型選擇adCmdTable.(因?yàn)槲宜玫降挠涗浽炊际潜?，所以設(shè)置為該屬性。a

8、dCmdTable.表示的是數(shù)據(jù)源的屬性是一個(gè)表名，表示其結(jié)果級是對該表執(zhí)行無條件查詢后得到的結(jié)果)，表名或存儲過程名則選擇自己所要用到的表。到此，便鏈接成功。DataGrid（步驟）（1）同ADO控件一樣，選擇選擇“工程”菜單中的部件命令，打開部件對話框，在控件選項(xiàng)中選擇Microsoft DataGrid Control 6.0(OLEDB)復(fù)選框，單擊確定，工具欄中會出現(xiàn)DataGrid數(shù)據(jù)控件的圖標(biāo) 。（2）在當(dāng)前窗體上添加一個(gè)DataGrid控件。（3）打開DataGrid的屬性頁，設(shè)置標(biāo)題名，列，列標(biāo)題與其對應(yīng)的數(shù)據(jù)段。顏色，字體等可根據(jù)需要設(shè)定。將DataGrid的Records

9、ource設(shè)置為該窗體對應(yīng)的Adodc;另外可檢索字段和刪除字段，這樣可以顯示自己想要的字段，而不是將adodc所對應(yīng)的內(nèi)容全部顯示出來。到此，鏈接成功。2）窗體及其所對應(yīng)的源代碼2.1人事檔案管理系統(tǒng)主界面源代碼Private Sub Form_Resize() On Error Resume Next Me.Width = 7170 Me.Height = 6200End SubPrivate Sub Command1_Click() Load main_rsxx main_rsxx.ShowEnd SubPrivate Sub Command2_Click() Load main_bmg

10、l main_bmgl.ShowEnd SubPrivate Sub Command3_Click() Load main_rckh main_rckh.ShowEnd SubPrivate Sub Command4_Click() Load main_rsbd main_rsbd.ShowEnd SubPrivate Sub Command5_Click() Load main_jypx main_jypx.ShowEnd SubPrivate Sub Command6_Click() Load main_jccx main_jccx.ShowEnd SubPrivate Sub Comma

11、nd7_Click() Load main_tj main_tj.ShowEnd SubPrivate Sub Command8_Click()If MsgBox(確定要退出本系統(tǒng), vbInformation + vbYesNo, 信息提示) = vbYes Then Unload Me End Else End IfEnd Sub2.2 人事檔案信息查詢、增加、修改與刪除：源代碼Private Sub Form_Load() Combo1.AddItem (檔案編號) Combo1.AddItem (工號) Combo1.AddItem (姓名) Combo1.AddItem (性別) C

12、ombo1.AddItem (身份證號) Combo1.AddItem (部門名稱) Combo1.AddItem (用工性質(zhì)) Combo1.AddItem (員工狀態(tài)) Combo1.ListIndex = 0End SubPrivate Sub Text1_GotFocus() Text1.SelStart = 0 設(shè)置選定的起始位置 Text1.SelLength = Len(Text1.Text) 設(shè)置選定的長度。End SubPrivate Sub CmdAdd_Click() 生成檔案編號 Dim dabh As Long Dim rs1 As New ADODB.Records

13、et rs1.Open select * from 人事檔案信息表 order by 檔案編號, Cnn, adOpenKeyset, adLockOptimistic If rs1.RecordCount 0 Then If rs1.EOF = False Then rs1.MoveLast dabh = Val(Right(rs1.Fields(檔案編號), 5) + 1 main_rsxx_lr.Txt1(0).Text = C- & Format(dabh, 00000) Else main_rsxx_lr.Txt1(0).Text = C-00001 End If 生成工號 main

14、_rsxx_lr.Txt1(1).Text = Right(main_rsxx_lr.Txt1(0), 5) rs1.Close 調(diào)用main_rsxx_lr窗體 Load main_rsxx_lr main_rsxx_lr.Show main_rsxx_lr.Caption = 人事檔案信息錄入窗口 main_rsxx_lr.Label10.Caption = 人事檔案信息錄入End SubPrivate Sub CmdFind_Click() Adodc1.RecordSource = select * from 人事檔案信息表 where (人事檔案信息表. & Combo1.Text

15、& like + + Text1.Text + +%) Adodc1.RefreshEnd SubPrivate Sub CmdModify_Click() On Error GoTo picview Dim i As Integer For i = 0 To 3 對應(yīng)列 DataGrid1.Col = i main_rsxx_lr.Txt1(i) = DataGrid1.Text Next i DataGrid1.Col = 4 main_rsxx_lr.Cbo1 = DataGrid1.Text DataGrid1.Col = 5 main_rsxx_lr.DTP1.Value = Dat

16、aGrid1.Text DataGrid1.Col = 6 main_rsxx_lr.Txt1(4) = DataGrid1.Text DataGrid1.Col = 7 main_rsxx_lr.Lblxplj.Caption = DataGrid1.Text On Error Resume Next main_rsxx_lr.PicPhoto.Picture = LoadPicture(DataGrid1.Text) main_rsxx_lr.Image1.Picture = LoadPicture(DataGrid1.Text) DataGrid1.Col = 8 main_rsxx_l

17、r.Txt1(5) = DataGrid1.Text DataGrid1.Col = 9 main_rsxx_lr.Txt1(6) = DataGrid1.Text DataGrid1.Col = 10 main_rsxx_lr.DTP2.Value = DataGrid1.Text DataGrid1.Col = 11 main_rsxx_lr.Txt1(7) = DataGrid1.Text DataGrid1.Col = 12 main_rsxx_lr.Txt1(8) = DataGrid1.Text DataGrid1.Col = 13 main_rsxx_lr.DataCombo1

18、= DataGrid1.Text DataGrid1.Col = 14 main_rsxx_lr.Cbo2 = DataGrid1.Text DataGrid1.Col = 15 main_rsxx_lr.Cbo3 = DataGrid1.Text DataGrid1.Col = 16 main_rsxx_lr.Txt1(9) = DataGrid1.Text DataGrid1.Col = 17 main_rsxx_lr.Txt1(10) = DataGrid1.Text DataGrid1.Col = 18 main_rsxx_lr.Cbo4 = DataGrid1.Text DataGr

19、id1.Col = 19 main_rsxx_lr.Txt1(11) = DataGrid1.Text DataGrid1.Col = 20 main_rsxx_lr.Cbo5 = DataGrid1.Text DataGrid1.Col = 21 main_rsxx_lr.Txt1(12) = DataGrid1.Text DataGrid1.Col = 22 main_rsxx_lr.Cbo6 = DataGrid1.Text DataGrid1.Col = 23 main_rsxx_lr.Cbo7 = DataGrid1.Text Load main_rsxx_lr main_rsxx_

20、lr.Show main_rsxx_lr.Caption = 人事檔案信息修改窗口 main_rsxx_lr.Label10.Caption = 人事檔案信息修改 Exit Subpicview: MsgBox Err.Description, , 提示窗口End SubPrivate Sub CmdDelete_Click() Dim a As String If Adodc1.Recordset.RecordCount 0 Then a = MsgBox(您確實(shí)要?jiǎng)h除這條數(shù)據(jù)嗎?, vbYesNo) If a = vbYes Then Adodc1.Recordset.Delete Ado

21、dc1.Refresh End If Else MsgBox (沒有要?jiǎng)h除的數(shù)據(jù)!) End IfEnd SubPrivate Sub CmdExit_Click() Call CmdEnd(Me)End Sub2.3部門管理添加、修改與刪除：源代碼Private Sub Form_Unload(Cancel As Integer) frm_main.Enabled = TrueEnd SubPrivate Sub CmdAdd_Click() Load main_bmgl_add main_bmgl_add.Show main_bmgl.Enabled = FalseEnd SubPriva

22、te Sub CmdModify_Click() Load main_bmgl_update main_bmgl_update.Show main_bmgl.Enabled = FalseEnd SubPrivate Sub CmdDelete_Click() Dim a As String If Adodc1.Recordset.RecordCount 0 Then a = MsgBox(您確實(shí)要?jiǎng)h除這條數(shù)據(jù)嗎?, vbYesNo) If a = vbYes Then Adodc1.Recordset.Delete Adodc1.Refresh End If Else MsgBox (沒有要

23、刪除的數(shù)據(jù)!) End IfEnd SubPrivate Sub CmdExit_Click() Call CmdEnd(Me)End Sub2.4日常考核添加、修改與刪除：源代碼Option ExplicitPrivate Sub cmdModity_Click() Select Case SSTab1.Tab Case 0 blnAdd0 = False If Adodc1.Recordset.RecordCount 0 Then If DataCombo1.Text = Then MsgBox 請選擇工號！ Else Load main_rckh_kq main_rckh_kq.Show

24、 End If Else MsgBox 沒有您要修改的數(shù)據(jù)，請先添加數(shù)據(jù)！ End If Case 1 blnAdd1 = False If Adodc2.Recordset.RecordCount 0 Then Load main_rckh_jb main_rckh_jb.Show Else MsgBox 沒有您要修改的數(shù)據(jù)，請先添加數(shù)據(jù)！ End If Case 2 blnAdd2 = False If Adodc3.Recordset.RecordCount 0 Then Load main_rckh_cc main_rckh_cc.Show Else MsgBox 沒有您要修改的數(shù)據(jù)，

25、請先添加數(shù)據(jù)！ End If End SelectEnd SubPrivate Sub Form_Load() Set DataGrid1.DataSource = Adodc1 Dim i As Integer For i = 0 To DataGrid1.Columns.Count - 1 DataGrid1.Columns(i).Width = 840 Next iEnd SubPrivate Sub DataCombo1_Change() Adodc1.RecordSource = select * from 考勤信息表 where 工號 like + + DataCombo1.Tex

26、t + +% Adodc1.RefreshEnd SubPrivate Sub CmdAdd_Click() Select Case SSTab1.Tab Case 0 blnAdd0 = True If DataCombo1.Text = Then MsgBox 請選擇工號！ Else If Adodc1.Recordset.RecordCount = 0 Then Load main_rckh_kq main_rckh_kq.Show Else MsgBox 此員工考勤記錄已存在，只能進(jìn)行修改！ End If End If Case 1 blnAdd1 = True Load main_r

27、ckh_jb main_rckh_jb.Show Case 2 blnAdd2 = True Load main_rckh_cc main_rckh_cc.Show End SelectEnd SubPrivate Sub CmdDelete_Click() Select Case SSTab1.Tab Case 0 If Adodc1.Recordset.RecordCount 0 Then Adodc1.Recordset.Delete Adodc1.Refresh End If Case 1 If Adodc2.Recordset.RecordCount 0 Then Adodc2.Re

28、cordset.Delete Adodc2.Refresh End If Case 2 If Adodc3.Recordset.RecordCount 0 Then Adodc3.Recordset.Delete Adodc3.Refresh End If End SelectEnd SubPrivate Sub CmdEnd_Click() Unload MeEnd Sub2.5人事變動添加與刪除：源代碼Option ExplicitPrivate Sub CmdAdd_Click() Select Case SSTab1.Tab Case 0 Dim dabh As Long Dim gh

29、 As Long Dim rs1 As New ADODB.Recordset rs1.Open select * from 人事檔案信息表 order by 檔案編號, Cnn, adOpenKeyset, adLockOptimistic If rs1.RecordCount 0 Then If rs1.EOF = False Then rs1.MoveLast dabh = Val(Right(rs1.Fields(檔案編號), 5) + 1 main_rsxx_lr.Txt1(0).Text = C- & Format(dabh, 00000) Else main_rsxx_lr.Tx

30、t1(0).Text = C-00001 End If main_rsxx_lr.Txt1(1).Text = Right(main_rsxx_lr.Txt1(0).Text, 5) rs1.Close Load main_rsxx_lr main_rsxx_lr.Show main_rsxx_lr.Caption = 人事檔案信息錄入窗口 main_rsxx_lr.Label10.Caption = 人事檔案信息錄入 Case 1 Load main_rsbd_yglz main_rsbd_yglz.Show Case 2 Load main_rsbd_rsbd main_rsbd_rsbd

31、.Show End SelectEnd SubPrivate Sub CmdDelete_Click() Select Case SSTab1.Tab Case 0 If Adodc1.Recordset.RecordCount 0 Then Adodc1.Recordset.Delete Adodc1.Refresh End If Case 1 If Adodc2.Recordset.RecordCount 0 Then Adodc2.Recordset.Delete Adodc2.Refresh End If Case 2 If Adodc3.Recordset.RecordCount 0

32、 Then Adodc3.Recordset.Delete Adodc3.Refresh End If End SelectEnd SubPrivate Sub CmdEnd_Click() Unload MeEnd Sub2.6教育培訓(xùn)添加與刪除：源代碼Private Sub Form_Load() 向combo1控件中添加查詢所需的字段 Combo1.AddItem (工號) Combo1.AddItem (姓名) Combo1.AddItem (部門名稱) Combo1.AddItem (培訓(xùn)名稱) Combo1.ListIndex = 0End SubPrivate Sub Combo

33、1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then Text1.SetFocus 按【Enter】鍵，使Text1控件獲得焦點(diǎn)End SubPrivate Sub Text1_GotFocus() Text1.SelStart = 0 設(shè)置選定的起始位置 Text1.SelLength = Len(Text1.Text) 設(shè)置選定的長度。End SubPrivate Sub CmdAdd_Click() 加載窗體 Load main_jypx_lr main_jypx_lr.ShowEnd

34、SubPrivate Sub CmdFind_Click() 按選擇的字段和輸入的內(nèi)容查詢教育培訓(xùn)信息 Adodc1.RecordSource = select * from 教育培訓(xùn)信息表 where (教育培訓(xùn)信息表. & Combo1.Text & like + + Text1.Text + +%) Adodc1.RefreshEnd SubPrivate Sub CmdDelete_Click() 刪除教育培訓(xùn)信息 Dim a As String If Adodc1.Recordset.RecordCount 0 Then a = MsgBox(您確實(shí)要?jiǎng)h除這條數(shù)據(jù)嗎?, vbYesNo) If a = vbYes Then Adodc1.Recordset.Delete Adodc1.Refresh End If Else MsgBox (沒有要?jiǎng)h除的數(shù)據(jù)!) End IfEnd SubPrivate Sub CmdExit_Click() Call CmdEnd(Me)Unload MeEnd Sub2.7決策統(tǒng)計(jì)：源代碼Option ExplicitPrivate Sub Command1_Click() If Option1.Value = True Then Adodc1.RecordSource = select & Combo1.Text &