數(shù)據(jù)庫課程設(shè)計報告(人事管理系統(tǒng))

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

2、是微軟的VB6.0,后臺數(shù)據(jù)庫采用MicrosoftSQLSever數(shù)據(jù)庫。運行結(jié)果證明，本人事管理系統(tǒng)極大提高了工作效率，節(jié)省了人力和物力，自重滿足企業(yè)員工管理的需要。人事管理系統(tǒng)的主要任務是用計算機對各種員工信息進行日常的管理，如查詢、修改、添加、刪除以及存儲等，迅速準確地完成各種員工信息的統(tǒng)計計算和匯總工作，針對系統(tǒng)服務對象的具體要求，設(shè)計了人事管理系統(tǒng)。人事管理系統(tǒng)主要有以下幾大功能：(1)對單位人員的變動進行處理。一個單位的職工不會是一成不變的，總是在不斷的變化：有調(diào)出、有調(diào)入、也有職工在本單位內(nèi)部調(diào)動。因此，設(shè)計系統(tǒng)是應考慮到這些情況。(2)對職工的工資進行計算、修改。可以對職工的

3、工資檔案進行個別、部分和批量修改，同時，能對各職工的工資進行計算，即計算基本工資、崗位工資、水電費及實發(fā)金額等。(3)查詢統(tǒng)計功能。要求即可以單項查詢，比如查看某個職工的就職情況等；也可以多項查詢，比如某個部門所有的員工的工資信息。二.設(shè)計分析：1,數(shù)據(jù)表的設(shè)計：(1)基本信息表：鍵名稱數(shù)據(jù)類型大小空默認值豐鍵吊丁編號charRNotmill姓名char8Notnull#別char2null“用”山牛年月datetime8null外轆所屬部門char_4-nil11文化程度char4null聯(lián)稱rhar1?null身價證號Varchar50nullChar90-null備注Varchar100

4、null年齡IntNull(2)基本部門表鍵名稱數(shù)據(jù)類型大小空默認值.主鍵部門編號char4Notnull部門名稱char20null部門負責char8nuU部門人數(shù)int4nuU(3)職工工資表名稱數(shù)據(jù)類型大小空默認值主鍵、外員工編號char8不可以外鍵部門編號char4可以基本工資numeric5(8.2)可以基金numeric52、可以2 .ER圖設(shè)計:尸)一7職工職稱、)/加G歷。屋Q"X1部門名稱)部Wmf-<£>v一部門員工數(shù))職工工資/lE)1<>一職工<>一,一:"jH、r/X;()00部門編號部門負責人3 .E

5、R圖轉(zhuǎn)換成關(guān)系模式：（主鍵添加下劃線）（1）基本信息（編號，姓名,性別，籍貫，年齡，學歷，婚姻狀況，部門，職稱，參加工作時間，崗位，工資，身份證號，電話號碼，備注）（2）職工部門：（部門編號,部門名稱，職工總數(shù)，部門負責人，所有職工編號）（3）職工工資表：（編號，姓名，工資,獎金）（4）人事管理（編號，部門編號，姓名）三.創(chuàng)建人事管理系統(tǒng)（數(shù)據(jù)庫部分）1創(chuàng)建數(shù)據(jù)庫：（1）創(chuàng)建數(shù)據(jù)庫的實現(xiàn)：createdatabase人事管理系統(tǒng)onprimary（name=人事管理系統(tǒng)，filename=數(shù)據(jù)庫人事管理系統(tǒng).mdfsize=5,maxsize=100,filegrowth=10%）logon（

6、name二人事信息管理系統(tǒng),filename=數(shù)據(jù)庫人事管理系統(tǒng).Idfsize=3,maxsize=100,filegrowth=5）（2）創(chuàng)建數(shù)據(jù)庫：F0(local)(SQLServer1(1,50,1600-binbinbi日數(shù)據(jù)庫國匚3系虢數(shù)據(jù)住國a皿雌囹UReportServer£jReportServerTempD8l±一J數(shù)晝零關(guān)素圖田口表田一I現(xiàn)圖ra2a同義詞田U可編程住|±!二|ServiceBroker田ca存佛安至性田口安全性因口瞄陰對翻er->a2.創(chuàng)建基本數(shù)據(jù)表:(1)創(chuàng)建數(shù)據(jù)標的實現(xiàn)；use人事管理系統(tǒng)createtable基

7、本職工信息表(姓名varchar(20),編號 char ( 8 ), 性別 char ( 8 ), 籍貫 char (10), 年齡int , 學歷 varchar 婚姻狀況varchar部門 varchar 職稱 varchar 參加工作時間 崗位 varchar(20), (20 ),(20),(20),char ( 10 ),(30),(30),(30),(50)工資char(20),省份證號varchar電話號碼varchar備注varchar)use人事管理系統(tǒng)ereatetable職工部門表(部門編號int,部門名稱varchar(30),部門負責人varchar(30),職工總

8、數(shù)int,所有職員編號varchar(100)use人事管理系統(tǒng)createtable職工工資表(編號char(8),姓名varchar(50),工資char(20),獎金char(8)數(shù)據(jù)表的創(chuàng)建：基本信息表:Bin入竽管限的1I信尼古人事理cboAUJ_L至工程扁編巖隹我希青斗超*MT 二聿四W32招式W：二吉麗0KM起受總WESdMCE死NJL*AWi女rmtXQ已好發(fā)你FWAC2ZU4iWUU«i奧書雷天水K交天里蛙方 »te豐職工部門表一JPB【l”人事管理斯1db屋缸部門衰SQLQueryl.sql-(lo.r(binbinbin(51)jjn一-J1.，一aV

9、v.&Wlw-lfil1-1.部。編號B部門名稱部門負責人職工總數(shù)所有職員編號ALU消售部張三200。lrM02調(diào)研部越武10003秘書部趙佳慧1000 5開發(fā)部肖明10004MALAMINULL/VUZ職工工資表BIN.人事裝理蓑境1dbo職匚爆表BIN.人事首理毛統(tǒng)1-db。.職工等門表端號姓名工賁獎金張二580012000002李四690015000003趙武730010000004肖麗1000015000M5趙毓85002000AUZNULLNULL3 .創(chuàng)建存儲過程：createprocp2(snamevarchar(20)asifexists(select*from職工基本

10、信息表wheresname=sname)select*from職工基本信息表wheresname=snameelseprint*查無此人p2,劉，4 .創(chuàng)建觸發(fā)器：createtriggertrion基本職工信息表forinsertprint，任何人不得添加數(shù)據(jù),rollback(VB部分)select*froms四，創(chuàng)建人事管理系統(tǒng)訪問鍵面:1,創(chuàng)建鍵面的實現(xiàn)代碼：(1)基本職工信息查詢：PrivateSubCommandl_Click()UnloadMeEndSubPrivateSubDataGridl_Click()WithAdodcl.RecordsetTextl(0)=.Fields

11、("姓名0)T©*"(1)=用0如(“編號”)10*口(2)=于1©出§(“性別”)Textl(3)=.Fields("籍貫0)EndWithEndSubPrivateSubForm_Load()Textl.Text=nnText2.Text=,n,Text3.Text=nnText4.Text=,nstrsqll="select*lrom基本職工信息表”Adodc1.Connectionstring=connAdodc1.Recordsource=strsqllAdodc1.RefreshSetDataGridl.Data

12、Source=Adodc1WithAdodc1.RecordsetTextl.Text二.FieIds(“姓名”)Text2.Text=.Fields(“編號”)Text3.Text=.FieIds(“性別”)Text4.Text=.Fields("籍貫”)EndW汕EndSub(2)基本的職工工資：PrivateSubCommandl_Click()UnloadMeEndSubPrivateSubDataGridl_Click()WithAdodc1.RecordsetTextl(O)=.FieklsCg”)丁©*(1(1)=下0如(“編號”)Textl(2)=.Fiel

13、ds。性別”)Textl(3)=.Fields("籍貫")EndWithEndSubPrivateSubForm_Load()Textl.Text=,n,Text2.Text=,n,Text3.Text=,n,Text4.Text=,n,strsqll="select*from基本職工信息表”Adodc1.Connectionstring=connAdodc1.Recordsource=strsqllAdodc1.RefreshSetDataGrid1.DataSource=Adodc1WithAdodc1.RecordsetTextl.Text=.FieldsC

14、g”)Text2.Text=.Fields(“編號”)Text3.Text二.FieIds(“性別”)Text4.Text=.Fields("籍貫”)EndWithEndSub(3)職工部門：PrivateSubcmdAdd_Click()Data1.Recordset.AddNewEndSubPrivateSubcmdDelete_Click()，如果刪除記錄集的最后一條記錄，記錄或記錄集中唯一的記錄Data1.Recordset.DeleteData1.Recordset.MoveNextEndSubPrivateSubcmdRelresh_Click()'這僅對多用戶應

15、用程序才是需要的Data1.RefreshEndSubPrivateSubcmdUpdate_Click()Datal.UpdateRecordData1.Recordset.Bookmark=Data1.Recordset.LastModifiedEndSubPrivateSubcmdClose_Click()UnloadMeEndSubPrivateSubDatal_Error(DataEiTAsInteger,ResponseAsInteger)'這就是放置錯誤處理代碼的地方'如果想忽略錯誤，注釋掉下一行代碼，如果想捕捉錯誤，在這里添加錯誤處理代碼MsgBox數(shù)據(jù)錯誤事件

16、命中錯誤：n&Error$(DataErr)Response=0，忽略錯誤EndSubPrivateSubDatal_Reposition()Sereen.MousePointer=vbDefaultOnErrorResumeNext，這將顯示當前記錄位置，為動態(tài)集和快照Data1.Caption二"記錄：*&(Data1.Recordset.AbsolutePosition+1)'對于Table對象，當記錄集創(chuàng)建后并使用下面的行時，必須設(shè)置Index屬性fDatai.Caption="記錄："&(Data1.Recordset.R

17、ecordCount*(Data1.Recordset.PercentPosition*0.01)+1EndSubPrivateSubDatal_Validate(ActionAsInteger,SaveAsInteger)SelectCaseActionCasevbDataActionMoveFirstCasevbDataActionMovePreviousCasevbDataActionMoveNextCasevbDataActionMoveLastCasevbDataActionAddNewCasevbDataActionUpdateCasevbDataActionDeleteCasev

18、bDataActionFindCasevbDataActionBookmarkCasevbDataActionCloseEndSelectSereen.MousePointer=vbHourglassEndSub(4)基本職工信息：PrivateSubcmdAdd_Click()Data1.Recordset.AddNewEndSubPrivateSubcmdDelete_Click()1如果刪除記錄集的最后一條記錄，記錄或記錄集中唯一的記錄Datal.Recordset.DeleteData1.Recordset.MoveNextEndSubPrivateSubcmdRelresh_Clic

19、k()'這僅對多用戶應用程序才是需要的Data1.RefreshEndSubPrivateSubcmdUpdate_Click()DataLUpdateRecordData1.Recordset.Bookmark=Data1.Recordset.LastModifiedEndSubPrivateSubcmdClose_Click()UnloadMeEndSubPrivateSubDatal_Error(DataErrAsInteger,ResponseAsInteger)'這就是放置錯誤處理代碼的地方'如果想忽略錯誤，注釋掉下一行代碼，如果想捕捉錯誤，在這里添加錯誤處理

20、代碼MsgBox”數(shù)據(jù)錯誤事件命中錯誤：H&Error$(DataErr)Response=0，忽略錯誤EndSubPrivateSubDatal_Reposition()Sereen.MousePointer=vbDefaultOnErrorResumeNext，這將顯示當前記錄位置'為動態(tài)集和快照Data1.Caption="記錄:u&(Data1.Recordset.AbsolutePosition+1)'對于Table對象，當記錄集創(chuàng)建后并使用下面的行時，必須設(shè)置Index屬性fDatai.Caption="記錄：''

21、&(Data1.Recordset.RecordCount*(Data1.Recordset.PercentPosition*0.01)+1EndSubPrivateSubDatal_Validate(ActionAsInteger,SaveAsInteger)，這是放置驗證代碼的地方'當下面的動作發(fā)生時，調(diào)用這個事件SelectCaseActionCasevbDataActionMoveFirstCasevbDataActionMovePreviousCasevbDataActionMoveNextCasevbDataActionMoveLastCasevbDataActio