數據庫課程設計匯本報告（人事管理系統(tǒng)）

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

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

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

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

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

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

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

8、管理系統(tǒng)訪問鍵面：VB局部1，創(chuàng)立鍵面的實現代碼：(1) 基本職工信息查詢：Private Sub Command1_Click()Unload MeEnd SubPrivate Sub DataGrid1_Click()With Adodc1.RecordsetText1(0) = .Fields(姓名)Text1(1) = .Fields(編號)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(編號)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(編號)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(編號)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() 這僅對多用戶應用程序才是需要的 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) 這就是放置錯誤處理代碼的地方 如果想忽略錯誤，注釋掉下一行代碼 如果想捕捉錯誤，在這里添加錯誤處理代碼 MsgBox 數據錯誤事件命中錯誤： & Error$(DataErr) Response = 0 忽略錯誤End SubPrivate Sub Data1_Reposition() Screen.MousePointer = vbDefault On Error Resume Next 這將顯示當前記錄位置 為動態(tài)集

14、和快照 Data1.Caption = 記錄： & (Data1.Recordset.AbsolutePosition + 1) 對于 Table 對象，當記錄集創(chuàng)立后并使用下面的行時， 必須設置 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() 這僅對多用戶應用程序才是需要的 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) 這就是放置錯誤處理代碼的地方 如果想忽略錯誤，注釋掉下一行代碼 如果想捕捉錯誤，在這里添加錯誤處理代碼 MsgBox 數據錯誤事件命中錯誤： & Error$(DataErr) Response = 0 忽略錯誤End SubPrivate Sub Data1_Reposit

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