1、.wd.wd.wd.課程設(shè)計(jì)報(bào)告 課程設(shè)計(jì)題目：人事管理系統(tǒng) 姓 名：學(xué) 號(hào)：班 級(jí)：指導(dǎo)教師： 2016 年1月15日題目分析：人事管理系統(tǒng)是企、事業(yè)單位常見的計(jì)算機(jī)信息管理系統(tǒng)。它的主要任務(wù)是對(duì)各種人事信息進(jìn)展日常的信息管理，如人員信息的輸入、查詢、修改、增加、刪除，迅速準(zhǔn)確地完成各種人員信息的統(tǒng)計(jì)計(jì)算和匯總，快速打印出報(bào)表。在建設(shè)與實(shí)現(xiàn)人事管理系統(tǒng)時(shí)，進(jìn)展了功能劃分，能夠由數(shù)據(jù)庫(kù)管理系統(tǒng)完成的功能應(yīng)盡可能由數(shù)據(jù)庫(kù)管理系統(tǒng)守成，充分發(fā)揮數(shù)據(jù)庫(kù)管理系統(tǒng)高效、完全、可靠、便捷的性能，減少編程人員的工作量。工資管理系統(tǒng)是數(shù)據(jù)庫(kù)管理系統(tǒng)的一個(gè)比較典型的應(yīng)用，前臺(tái)使用的是微軟的VB6.0，后臺(tái)數(shù)據(jù)庫(kù)

2、采用Microsoft SQL Sever數(shù)據(jù)庫(kù)。運(yùn)行結(jié)果證明，本人事管理系統(tǒng)極大提高了工作效率，節(jié)省了人力和物力，自重滿足企業(yè)員工管理的需要。人事管理系統(tǒng)的主要任務(wù)是用計(jì)算機(jī)對(duì)各種員工信息進(jìn)展日常的管理，如查詢、修改、添加、刪除以及存儲(chǔ)等，迅速準(zhǔn)確地完成各種員工信息的統(tǒng)計(jì)計(jì)算和匯總工作，針對(duì)系統(tǒng)服務(wù)對(duì)象的具體要求，設(shè)計(jì)了人事管理系統(tǒng)。人事管理系統(tǒng)主要有以下幾大功能： 對(duì)單位人員的變動(dòng)進(jìn)展處理。一個(gè)單位的職工不會(huì)是一成不變的，總是在不斷的變化：有調(diào)出、有調(diào)入、也有職工在本單位內(nèi)部調(diào)動(dòng)。因此，設(shè)計(jì)系統(tǒng)是應(yīng)考慮到這些情況。 對(duì)職工的工資進(jìn)展計(jì)算、修改?？梢詫?duì)職工的工資檔案進(jìn)展個(gè)別、局部和批量修改，

3、同時(shí)，能對(duì)各職工的工資進(jìn)展計(jì)算，即計(jì)算 基本工資、崗位工資、水電費(fèi)及實(shí)發(fā)金額等。 查詢統(tǒng)計(jì)功能。要求即可以單項(xiàng)查詢，比方查看某個(gè)職工的就職情況等；也可以多項(xiàng)查詢，比方某個(gè)部門所有的員工的工資信息。設(shè)計(jì)分析：1，數(shù)據(jù)表的設(shè)計(jì)：1 基本信息表：鍵名稱數(shù)據(jù)類型大小空默認(rèn)值主鍵員工編號(hào)char8Not null姓名char8Not null性別char2null“男出生年月datetime8null外鍵所屬部門char4null文化程度char4null職稱char12null身份證號(hào)Varchar50null婚姻狀況Char20null備注Varchar100null年齡IntNull 基本部門表鍵

4、名稱數(shù)據(jù)類型大小空默認(rèn)值主鍵部門編號(hào)char4Not null部門名稱char20null部門負(fù)責(zé)人char8null部門人數(shù)int4null職工工資表鍵名稱數(shù)據(jù)類型大小空默認(rèn)值主鍵、外鍵員工編號(hào)char8不可以外鍵部門編號(hào)char4可以 基本工資numeric5(8,2)可以獎(jiǎng)金numeric5(8,2)可以ER圖設(shè)計(jì)：3.ER圖轉(zhuǎn)換成關(guān)系模式：主鍵添加下劃線 基本信息編號(hào)，姓名，性別，籍貫，年齡，學(xué)歷，婚姻狀況，部門，職稱，參加工作時(shí)間，崗位，工資，身份證號(hào)， 號(hào)碼，備注職工部門：(部門編號(hào)，部門名稱，職工總數(shù)，部門負(fù)責(zé)人，所有職工編號(hào))職工工資表：編號(hào)，姓名，工資，獎(jiǎng)金人事管理編號(hào)，部門

5、編號(hào)，姓名創(chuàng)立人事管理系統(tǒng)數(shù)據(jù)庫(kù)局部1創(chuàng)立數(shù)據(jù)庫(kù)：創(chuàng)立數(shù)據(jù)庫(kù)的實(shí)現(xiàn)：createdatabase人事管理系統(tǒng)onprimary(name=人事管理系統(tǒng),filename=G:數(shù)據(jù)庫(kù)人事管理系統(tǒng).mdf,size=5,maxsize=100,filegrowth=10%)logon(name=人事信息管理系統(tǒng),filename=G:數(shù)據(jù)庫(kù)人事管理系統(tǒng).ldf,size=3,maxsize=100,filegrowth=5)創(chuàng)立數(shù)據(jù)庫(kù)：創(chuàng)立 基本數(shù)據(jù)表：1創(chuàng)立數(shù)據(jù)標(biāo)的實(shí)現(xiàn);use人事管理系統(tǒng)createtable 基本職工信息表(姓名varchar(20),編號(hào)char(8),性別char(8),

6、籍貫char(10),年齡int,學(xué)歷varchar(20),婚姻狀況varchar(20),部門varchar(20),職稱varchar(20),參加工作時(shí)間char(10),崗位varchar(30),工資char(20),省份證號(hào)varchar(30), 號(hào)碼varchar(30),備注varchar (50)use人事管理系統(tǒng)createtable職工部門表(部門編號(hào)int,部門名稱varchar(30),部門負(fù)責(zé)人varchar(30),職工總數(shù)int,所有職員編號(hào)varchar(100)use人事管理系統(tǒng)createtable職工工資表(編號(hào)char(8),姓名varchar(5

7、0),工資char(20),獎(jiǎng)金char(8)數(shù)據(jù)表的創(chuàng)立： 基本信息表：職工部門表職工工資表創(chuàng)立存儲(chǔ)過(guò)程： create proc p2(sname varchar(20) as if exists( select * from 職工 基本信息表where sname=sname) select * from 職工 基本信息表where sname=sname else print 查無(wú)此人 p2 劉 創(chuàng)立觸發(fā)器： create trigger tr1 on 基本職工信息表 for insert as print 任何人不得添加數(shù)據(jù) rollbackselect * from s四，創(chuàng)立人事

8、管理系統(tǒng)訪問鍵面：VB局部1，創(chuàng)立鍵面的實(shí)現(xiàn)代碼：(1) 基本職工信息查詢：Private Sub Command1_Click()Unload MeEnd SubPrivate Sub DataGrid1_Click()With Adodc1.RecordsetText1(0) = .Fields(姓名)Text1(1) = .Fields(編號(hào))Text1(2) = .Fields(性別)Text1(3) = .Fields(籍貫)End WithEnd SubPrivate Sub Form_Load()Text1.Text = Text2.Text = Text3.Text = Tex

9、t4.Text = strsql1 = select *from 基本職工信息表Adodc1.ConnectionString = connAdodc1.RecordSource = strsql1Adodc1.RefreshSet DataGrid1.DataSource = Adodc1With Adodc1.RecordsetText1.Text = .Fields(姓名)Text2.Text = .Fields(編號(hào))Text3.Text = .Fields(性別)Text4.Text = .Fields(籍貫)End WithEnd Sub 基本的職工工資：Private Sub C

10、ommand1_Click()Unload MeEnd SubPrivate Sub DataGrid1_Click()With Adodc1.RecordsetText1(0) = .Fields(姓名)Text1(1) = .Fields(編號(hào))Text1(2) = .Fields(性別)Text1(3) = .Fields(籍貫)End WithEnd SubPrivate Sub Form_Load()Text1.Text = Text2.Text = Text3.Text = Text4.Text = strsql1 = select *from 基本職工信息表Adodc1.Conn

11、ectionString = connAdodc1.RecordSource = strsql1Adodc1.RefreshSet DataGrid1.DataSource = Adodc1With Adodc1.RecordsetText1.Text = .Fields(姓名)Text2.Text = .Fields(編號(hào))Text3.Text = .Fields(性別)Text4.Text = .Fields(籍貫)End WithEnd Sub職工部門：Private Sub cmdAdd_Click() Data1.Recordset.AddNewEnd SubPrivate Sub

12、cmdDelete_Click() 如果刪除記錄集的最后一條記錄 記錄或記錄集中唯一的記錄 Data1.Recordset.Delete Data1.Recordset.MoveNextEnd SubPrivate Sub cmdRefresh_Click() 這僅對(duì)多用戶應(yīng)用程序才是需要的 Data1.RefreshEnd SubPrivate Sub cmdUpdate_Click() Data1.UpdateRecord Data1.Recordset.Bookmark = Data1.Recordset.LastModifiedEnd SubPrivate Sub cmdClose_C

13、lick() Unload MeEnd SubPrivate Sub Data1_Error(DataErr As Integer, Response As Integer) 這就是放置錯(cuò)誤處理代碼的地方 如果想忽略錯(cuò)誤，注釋掉下一行代碼 如果想捕捉錯(cuò)誤，在這里添加錯(cuò)誤處理代碼 MsgBox 數(shù)據(jù)錯(cuò)誤事件命中錯(cuò)誤： & Error$(DataErr) Response = 0 忽略錯(cuò)誤End SubPrivate Sub Data1_Reposition() Screen.MousePointer = vbDefault On Error Resume Next 這將顯示當(dāng)前記錄位置 為動(dòng)態(tài)集

14、和快照 Data1.Caption = 記錄： & (Data1.Recordset.AbsolutePosition + 1) 對(duì)于 Table 對(duì)象，當(dāng)記錄集創(chuàng)立后并使用下面的行時(shí)， 必須設(shè)置 Index 屬性 Data1.Caption = 記錄： & (Data1.Recordset.RecordCount * (Data1.Recordset.PercentPosition * 0.01) + 1End SubPrivate Sub Data1_Validate(Action As Integer, Save As Integer) Select Case Action Case v

15、bDataActionMoveFirst Case vbDataActionMovePrevious Case vbDataActionMoveNext Case vbDataActionMoveLast Case vbDataActionAddNew Case vbDataActionUpdate Case vbDataActionDelete Case vbDataActionFind Case vbDataActionBookmark Case vbDataActionClose End Select Screen.MousePointer = vbHourglassEnd Sub4 基

16、本職工信息：Private Sub cmdAdd_Click() Data1.Recordset.AddNewEnd SubPrivate Sub cmdDelete_Click() 如果刪除記錄集的最后一條記錄 記錄或記錄集中唯一的記錄 Data1.Recordset.Delete Data1.Recordset.MoveNextEnd SubPrivate Sub cmdRefresh_Click() 這僅對(duì)多用戶應(yīng)用程序才是需要的 Data1.RefreshEnd SubPrivate Sub cmdUpdate_Click() Data1.UpdateRecord Data1.Reco

17、rdset.Bookmark = Data1.Recordset.LastModifiedEnd SubPrivate Sub cmdClose_Click() Unload MeEnd SubPrivate Sub Data1_Error(DataErr As Integer, Response As Integer) 這就是放置錯(cuò)誤處理代碼的地方 如果想忽略錯(cuò)誤，注釋掉下一行代碼 如果想捕捉錯(cuò)誤，在這里添加錯(cuò)誤處理代碼 MsgBox 數(shù)據(jù)錯(cuò)誤事件命中錯(cuò)誤： & Error$(DataErr) Response = 0 忽略錯(cuò)誤End SubPrivate Sub Data1_Reposit

18、ion() Screen.MousePointer = vbDefault On Error Resume Next 這將顯示當(dāng)前記錄位置 為動(dòng)態(tài)集和快照 Data1.Caption = 記錄： & (Data1.Recordset.AbsolutePosition + 1) 對(duì)于 Table 對(duì)象，當(dāng)記錄集創(chuàng)立后并使用下面的行時(shí)， 必須設(shè)置 Index 屬性 Data1.Caption = 記錄： & (Data1.Recordset.RecordCount * (Data1.Recordset.PercentPosition * 0.01) + 1End SubPrivate Sub Data1_Validate(Action As Integer, Save As Integer) 這是放置驗(yàn)證代碼的地方 當(dāng)下面的動(dòng)作發(fā)生時(shí)，調(diào)用這個(gè)事件 Select Case Action Case vbDataActionMoveFirst Case vbDataActionMovePrevious Case vbDataActionMoveNext Case vbDataActionMoveLast Case vbDataActionAddNew Case vbDataActionUpdate Case vbDataActionDelete Cas