工資管理系統(tǒng)

1、目錄1、系統(tǒng)分析及功能設計11.1 系統(tǒng)分析11.2 系統(tǒng)功能設計12、數據庫與數據表的設計22.1 數據庫的建立22.2 工資數據表的設計23、應用系統(tǒng)的建立43.1 工程的建立43.2 登錄界面的設計53.3 主窗體的設計53.4 基本信息管理的設計63.41 基本信息管理窗體的設計63.42 添加員工基本信息窗體的設計83.5 工資管理的設計93.51 工資管理窗體的設計93.52 添加員工工資的窗體103.6 獎懲管理的設計113.61 獎懲管理窗體的設計113.62 添加員工獎懲的窗體124、程序代碼的編寫134.1 登錄界面的代碼134.2 主窗體的代碼144.3 基本信息管理的代

2、碼144.31 菜單目錄的代碼144.32 基本信息窗體的代碼154.33 添加基本信息窗體的代碼164.4工資管理的代碼184.41菜單目錄的代碼184.42工資管理窗體的代碼194.43添加工資窗體的代碼204.5獎懲管理的代碼214.51菜單目錄的代碼214.52獎懲管理窗體的代碼214.53添加獎懲窗體的代碼235、程序的運行結果24關于工資管理系統(tǒng)的開發(fā)設計1、系統(tǒng)分析及功能設計1.1 系統(tǒng)分析對于一個企業(yè)來說，正確、及時而且規(guī)范地進行員工工資的管理和發(fā)放無疑就是十分重要的。由于工資計算往往涉及多方面的數據，對于每位員工往往需要單獨計算，在員工數量較多時，工資管理的工作量就會變得很大

3、，而且在重復的數據輸入和計算中容易出錯。利用數據庫對企業(yè)職工工資進行管理是數據庫技術在當代企業(yè)管理中的一個重要應用。利用數據庫技術，可以保證工資數據的安全完整。本系統(tǒng)通過對企業(yè)基本信息管理、工資管理、獎懲管理3個環(huán)節(jié)的數據收集，建立現代企業(yè)工資管理系統(tǒng)，實現有用數據的快速查詢，減少操作中可能出現的錯誤以及減少數據管理的工作量。1.2 系統(tǒng)功能設計在本系統(tǒng)中，主要功能包括：(1) 保存職工的基本信息資料(2) 根據工資管理數據和員工的獎懲情況對職工每月的工資進行計算。(3) 將職工工資的數據進行保存，便于查找和核實。(4) 對保存的數據，可以根據特殊字段進行查找。圖1.1是本系統(tǒng)的功能模塊圖。圖

4、1.1系統(tǒng)功能模塊圖2、數據庫與數據表的設計2.1 數據庫的建立使用SQL創(chuàng)建一個名為“工資”的數據庫。2.2 工資數據表的設計在本數據庫中，將建立3個數據表，其功能如下：員工基本信息：用于存放員工的基本信息情況，包括員工的民族、出生年月、部門等。員工工資表：用于存放員工的基本工資、交通補助等。員工獎懲記錄：用于記錄員工的獎懲類別和獎懲原因等。這3個數據表的結構如表2.21至表2.23所示。rjrttSOLServerEnterpriselaitacer-設計表*氣工基本貴料»卷:置是*工責.中端文件口函口口幫助第口國通X擔包但堀由胃轉呻睜畫強I數據類型I長度I允許空姓名性別聘用蘢式

5、話職歷業(yè)電入學?；竟べY 婚姻狀況 民族 籍貫出生日期 轉正日斯 政治面貌 在職狀態(tài) 聯(lián)系地址10chir15VcharSVv archerSOVch4r15V15Vchir2SSVchir2D*varchar15Vchar5Vvarchar30Vvtrchar90Vchir5Vchar5Vvar char15V"盯ch”15Vvarchar15VcharIDVchir10*varchar3020圖2.21員工基本信息表設計設計表-員工工贊表,位置是"工黃"中.(1081),上1圖2.22員工工資表的設計圖2.23員工獎懲記錄表的設計(j;varcher157?編

6、號cLar1CI姓名char157部門varchar5clV提成char13V交通補助吐型13P基本工資varch<r50Z獎焦ehsr57匣發(fā)工費char19V畫E-R圖。編號提成職位職稱聘用交通電話，入職日期獎懲工資備注：因空間有限，上述中畫的E-R圖的屬性只是表中的一部分。3張表的聯(lián)系圖。Mf VQrij Mfulf!u*ir l.i rtf K4flim工基半悔制*丁 兮 二班名 nn一XffdW KVUJ “71 曜Tl?i|X*wn帆.MWWR:itKF«sffi麗Wmu3、應用系統(tǒng)的建立3.1 工程的建立在“開始”菜單中啟動VB,將彈出“新建工程”窗體如圖3.1所

7、示。在該窗體的“新建”選項卡中選才i“標準EXE，單擊“打開”按鈕，系統(tǒng)將生成一個新工程，默認名稱為“工程1"，如圖3.1所示。新建工程圖3.1新建工程的界面3.2 登錄界面的設計在登入界面中，創(chuàng)建2個label,2個textbox,2個按鈕，其中密碼的textbox2的passwordchar設置為*,防止別人看到輸入密碼而進入此系統(tǒng)。最后完成登錄功能。表3.21各個控件的屬性名稱CaptionFontLabell用戶名四號Label2密碼四號Textbox1空宋體Textbox2空宋體Command1登入四號Command2取消四號控件設置完畢后，調整其大小和位置，使整個窗體布局

8、合理。完成后的窗體界面如圖3.22所示。圖3.22登陸界面3.3 主窗體的設計在主窗體的界面中，將創(chuàng)建4個按鈕，從而完成對整個系統(tǒng)各個功能模塊的調用。表3.31按鈕控件的屬性名稱CaptionFontCommand1基本信息管理小四Command2工資管理小四Command3獎懲管理小四Command4退出小四控件設置完畢后，調整其大小和位置，使整個窗體布局合理。完成后的窗體界面如圖3.32所示。基本信總m卜IS5JS典需旨理退出3.4基本信息管理的設計基本信息管理窗體是本系統(tǒng)的重要窗體之一，其基本功能為顯示員工基本信息中保存的數據，并且允許對數據進行添加、刪除和修改等操作。3.41基本信息管

9、理窗體的設計首先對窗體的菜單編輯器進行設置，便于其跳轉到各個界面。在窗體上添加一個Adodc的數據控件和一個dataGrid的控件，便于數據庫的連接。其屬性如表3.41所示:名稱RecordSourceDataSourseFontAdodcl員工基本資料$宋體dataGridlAdodc1宋體在窗體上添加19個Label和19個Textbox,作為數據的顯示控件。這些控件的屬性如表3.42所不?？丶QDataFieldDataSourseFontText2(0)編RAdodc1宋體Text2(1)姓名Adodc1宋體Text2(2)性別Adodc1宋體Text2(3)出生日期Adodc1宋體

10、Text2(4)婚姻狀況Adodc1宋體Text2(5)民族Adodc1宋體Text2(6)血Adodc1宋體Text2(7)電話Adodc1宋體Text2(8)政治面貌Adodc1宋體Text2(9)聯(lián)系地址Adodc1宋體Text2(10)部門Adodc1宋體Text2(11)職位Adodc1宋體Text2(12)職稱Adodc1宋體Text2(13)基本工資Adodc1宋體Text2(14)聘用形式Adodc1宋體Text2(15)學歷Adodc1宋體Text2(16)專業(yè)Adodc1宋體Text2(17)入職日期Adodc1宋體Text2(18)在職狀態(tài)Adodc1宋體Text2(19

11、)轉正日期Adodc1宋體完成對數據的一系列操作，添加4個按鈕。屬性如表3.43下:名稱CaptionFontCommand1添加宋體Command5刪除宋體Command3修改宋體Command8退出宋體此窗體還將完成查詢功能，通過輸入員工的編號進行查詢。在窗體上添加一個label,textbox和一個command.。其屬性如表3.44下：名稱CaptionFontLabel1輸入員工編號進行查詢小四Text1空小四Command4查詢小四控件設置完畢后，調整其大小和位置，使整個窗體布局合理。完成后的窗體界面如圖4.45所示。3.42添加員工基本信息窗體的設計在窗體上添加一個Adodc的數

12、據控件和一個dataGrid的控件，便于數據的添加顯示和數據更新。添加19個label和19個textbox,并且添加3個按鈕：確定，取消和返回。完成的窗體界面如下圖所示。3.5工資管理的設計工資管理窗體是本系統(tǒng)的重要窗體之一，其基本功能為顯示員工工資中保存的數據，并且允許對數據進行添加、刪除和修改等操作。3.51工資管理窗體的設計在窗體上添加一個Adodc的數據控件和一個dataGrid的控件，便于數據庫的連接。其屬性如表3.41所示:名稱RecordSourceDataSourseFontAdodcl員工工資表$宋體dataGridlAdodc1宋體在窗體上添加9個Label和9個Text

13、box,作為數據的顯示控件。這些控件的屬性如表3.42所示。控件名稱DataFieldDataSourseFontText1日期Adodc1宋體Text2編RAdodc1宋體Text3姓名Adodc1宋體Text4部門Adodc1宋體Text5提成Adodc1宋體Text6獎懲Adodc1宋體Text7交通補助Adodc1宋體Text8基本工資Adodc1宋體Text9應發(fā)工資Adodc1宋體完成對數據的一系列操作，添加4個按鈕。屬性如表3.43下:名稱CaptionFontCommand1添加宋體Command5刪除宋體Command3修改宋體Command8退出宋體此窗體還將完成查詢功能，

14、通過輸入員工的編號進行查詢。在窗體上添加一個label,textbox和一個command.。其屬性如表3.44下：名稱CaptionFontLabel1輸入員工編號進行查詢小四Text1空小四Command4查詢小四控件設置完畢后，調整其大小和位置，使整個窗體布局合理。完成后的窗體界面如圖4.45所示。圖4.453.52添加員工工資的窗體在窗體上添加一個Adodc的數據控件和一個dataGrid的控件，便于數據的添加顯示和數據更新。添加9個label和9個textbox,并且添加3個按鈕：確定，取消和返回。完成的窗體界面如下圖所示。3.6獎懲管理的設計獎懲管理窗體是本系統(tǒng)的重要窗體之一，其基

15、本功能為顯示員工獎懲中保存的數據，并且允許對數據進行添加、刪除和修改等操作。3.61獎懲管理窗體的設計在窗體上添加一個Adodc的數據控件和一個dataGrid的控件，便于數據庫的連接。其中獎懲與員工的工資掛鉤，其獎懲分數與工資關系為50元/分！其屬性如表3.41所示：名稱RecordSourceDataSourseFontAdodc1工獎懲記錄$宋體dataGrid1Adodc1宋體在窗體上添加10個Label和10個Textbox,作為數據的顯示控件。這些控件的屬性如表3.42所示?？丶QDataFieldDataSourseFontText1編RAdodc1宋體Text2姓名Adodc

16、1宋體Text3性別Adodc1宋體Text4職位Adodc1宋體Text5部門Adodc1宋體Text6獎懲日期Adodc1宋體Text7獎懲類別Adodc1宋體Text8獎懲原因Adodc1宋體Text9獎懲分數Adodc1宋體Text10備注Adodc1宋體完成對數據的一系列操作，添加4個按鈕。屬性如表3.43下:名稱CaptionFontCommand1添加宋體Command5刪除宋體Command3修改宋體Command8退出宋體此窗體還將完成查詢功能，通過輸入員工的編號進行查詢。在窗體上添加一個label,textbox和一個command.。其屬性如表3.44下：名稱Captio

17、nFontLabel1輸入員工編號進行查詢小四Text1空小四Command4查詢小四控件設置完畢后，調整其大小和位置，使整個窗體布局合理。完成后的窗體界面如圖4.45所示。圖4.453.62添加員工獎懲的窗體在窗體上添加一個Adodc的數據控件和一個dataGrid的控件，便于數據的添加顯示和數據更新。添加10個label和10個textbox,并且添加3個按鈕：確定，取消和返回。完成的窗體界面如下圖所示。4、程序代碼的編寫4.1登錄界面的代碼登陸窗體主要是出于安全考慮，其代碼如下：PrivateSubCommand1_Click（）'登入按鈕IfTextl.Text="a

18、dmin"AndText2.Text="admin"ThenMsgBox（"登陸成功"）用戶名和密碼都是admin時登入成功Form1.HideForm2.Show'調用主窗體ElseMsgBox（"登陸失敗"）EndIfEndSub取消按鈕'用戶名和密碼清空PrivateSubCommand2_Click()Text1.Text=""Text2.Text=""EndSub4.2主窗體的代碼通過這4個按鈕，可以調用各個模塊。PrivateSubCommand1_Clic

19、k()Form8.ShowForm2.HideEndSubPrivateSubCommand2_Click()Form3.ShowForm2.HideEndSubPrivateSubCommand3_Click()Form4.ShowForm2.HideEndSubPrivateSubCommand4_Click()MsgBox("確定退出本系統(tǒng)！")EndEndSub4.3基本信息管理的代碼4.31菜單目錄的代碼PrivateSub工資管理_Click()Form8.HideForm3.Show'調用基本信息管理'調用工資管理'調用獎懲管理退出本系

20、統(tǒng)EndSubPrivateSub基本信息管理_Click()Form8.ShowEndSubPrivateSub獎懲管理_Click()Form8.HideForm4.ShowEndSub4.32 基本信息窗體的代碼PrivateSubCommand1_Click()'調用添加信息的窗體'修改基本信息Form5.ShowEndSubPrivateSubCommand3_Click()MsgBox("修改成功！")Adodc1.Recordset("編號")=Text2(0).TextAdodc1.Recordset("姓名&q

21、uot;)=Text2(1).TextAdodc1.Recordset("性別")=Text2(2).TextAdodc1.Recordset("出生日期")=Text2(3).TextAdodc1.Recordset("婚姻狀況")=Text2(4).TextAdodc1.Recordset("民族")=Text2(5).TextAdodc1.Recordset("政治面貌")=Text2(8).TextAdodc1.Recordset("轉正日期")=Text2(19).

22、TextAdodc1.Recordset("籍貫")=Text2(6).TextAdodc1.Recordset("電話")=Text2(7).TextAdodc1.Recordset("聯(lián)系地址")=Text2(9).TextAdodc1.Recordset("部門")=Text2(10).TextAdodc1.Recordset("職位")=Text2(11).TextAdodc1.Recordset("職稱")=Text2(12).TextAdodc1.Recordse

23、t("專業(yè)")=Text2(16).TextAdodc1.Recordset("聘用形式")=Text2(14).TextAdodc1.Recordset("學歷")=Text2(15).TextAdodc1.Recordset("基本工資")=Text2(13).TextAdodc1.Recordset("在職狀態(tài)")=Text2(18).TextAdodc1.Recordset("入職日期")=Text2(17).TextEndSub'查詢PrivateSubCo

24、mmand4_Click()DimcnAsNewadodb.ConnectionDimrsAsNewadodb.Recordsetcn.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=工資"用ADODC控件連接到數據源，獲得連接字符串cn.Openrs.Open"select*from員工基本資料$where編號='"&Trim(Text1.Text)&"'

25、",cn,1,1,-1'查詢編號SetDataGrid1.DataSource=rsDataGrid1.RefreshEndSubPrivateSubCommand5_Click()IfMsgBox("確定刪除當前記錄？",vbQuestion+vbYesNo,"刪除？")=vbYesThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNextIfAdodc1.Recordset.EOFThenIfAdodc1.Recordset.RecordCount<>0Then'刪除

26、基本信息Adodc1.Recordset.MoveLastEndIfEndIfEndIfEndSubPrivateSubCommand8_Click()MsgBox("確定退出本系統(tǒng)！")EndEndSub退出系統(tǒng)4.33 添加基本信息窗體的代碼PrivateSubCommand1_Click()MsgBox("添加成功！")Adodc1.Recordset.AddNewAdodc1.Recordset("編號")=Text2(0).TextAdodc1.Recordset("姓名")=Text2(1).TextA

27、dodc1.Recordset("性別")=Text2(2).TextAdodc1.Recordset("出生日期")=Text2(3).TextAdodc1.Recordset("婚姻狀況")=Text2(4).TextAdodc1.Recordset("民族")=Text2(5).TextAdodc1.Recordset("政治面貌")=Text2(8).TextAdodc1.Recordset("轉正日期")=Text2(19).TextAdodc1.Recordset

28、("籍貫")=Text2(6).TextAdodc1.Recordset("電話")=Text2(7).TextAdodc1.Recordset("聯(lián)系地址")=Text2(9).TextAdodc1.Recordset("部門")=Text2(10).TextAdodc1.Recordset("職位")=Text2(11).TextAdodc1.Recordset("職稱")=Text2(12).TextAdodc1.Recordset("專業(yè)")=Te

29、xt2(16).TextAdodc1.Recordset("聘用形式")=Text2(14).TextAdodc1.Recordset("學歷")=Text2(15).TextAdodc1.Recordset("基本工資")=Text2(13).TextAdodc1.Recordset("在職狀態(tài)")=Text2(18).TextAdodc1.Recordset("入職日期")=Text2(17).TextAdodc1.Recordset.UpdateEndSub'清空所有的textbo

30、xPrivateSubCommand2_Click()Text2(0).Text=""Text2(1).Text=""Text2(3).Text=""Text2(4).Text=""Text2(5).Text=""Text2(8).Text=""Text2(19).Text=""Text2(6).Text=""Text2(7).Text=""Text2(9).Text=""Text2(10).Te

31、xt=""Text2(11).Text=""Text2(12).Text=""Text2(16).Text=""Text2(14).Text=""Text2(15).Text=""Text2(13).Text=""Text2(18).Text=""Text2(17).Text=""Text2(2).Text=""EndSubPrivateSubCommand3_Click()調用基本信息管理窗體U

32、nloadMeForm8.ShowEndSub4.4工資管理的代碼4.41菜單目錄的代碼PrivateSub工資管理_Click()Form3.ShowEndSubPrivateSub基本信息管理_Click()Form3.HideForm8.ShowEndSubPrivateSub獎懲管理_Click()Form3.HideForm4.ShowEndSub4.42 工資管理窗體的代碼PrivateSubCommand1_Click（）調用添加工資窗體Form6.ShowEndSubPrivateSubCommand3_Click（）修改工資信息MsgBox（"修改成功！"

33、）Adodc1.Recordset（"日期"）=Text1.TextAdodc1.Recordset（"編號"）=Text2.TextAdodc1.Recordset（"姓名"）=Text3.TextAdodc1.Recordset（"部門"）=Text4.TextAdodc1.Recordset（"提成"）=Text5.TextAdodc1.Recordset（"獎懲"）=Text6.TextAdodc1.Recordset（"交通補助"）=Text7.

34、TextAdodc1.Recordset（"基本工資"）=Text8.TextAdodc1.Recordset（"應發(fā)工資"）=Text9.TextEndSubPrivateSubCommand4_Click（）DimcnAsNewadodb.ConnectionDimrsAsNewadodb.Recordsetcn.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=工資"'

35、;用ADODC控件連接到數據源，獲得連接字符串cn.Openrs.Open"select*from員工工資表$where編號='"&Trim（Text10.Text）&"'",cn,1,1,-1SetDataGrid1.DataSource=rsDataGrid1.RefreshEndSubPrivateSubCommand5_Click（）IfMsgBox（"確定刪除當前記錄？",vbQuestion+vbYesNo,"刪除？"）=vbYesThenAdodc1.Recordset

36、.Delete21Adodc1.Recordset.MoveNextIfAdodc1.Recordset.EOFThenIfAdodc1.Recordset.RecordCount<>0ThenAdodc1.Recordset.MoveLastEndIfEndIfEndIfEndSubPrivateSubCommand8_Click（）MsgBox（"確定退出本系統(tǒng)！"）EndEndSub4.43添加工資窗體的代碼PrivateSubCommand1_Click（）MsgBox（"添加成功！"）Adodc1.Recordset.AddNewA

37、dodc1.Recordset（"日期"）=Text1.TextAdodc1.Recordset（"編號"）=Text2.TextAdodc1.Recordset（"姓名"）=Text3.TextAdodc1.Recordset（"部門"）=Text4.TextAdodc1.Recordset（"提成"）=Text5.TextAdodc1.Recordset（"獎懲"）=Text6.TextAdodc1.Recordset（"交通補助"）=Text7.Te

38、xtAdodc1.Recordset（"基本工資"）=Text8.TextAdodc1.Recordset（"應發(fā)工資"）=Text9.TextAdodc1.Recordset.Update添加工資的信息，并更新數據EndSubPrivateSubCommand2_Click（）Text1.Text=""Text2.Text = " "22Text3.Text=Text4.Text=Text5.Text=Text6.Text=Text7.Text=Text8.Text=textboxText9.Text=EndSu

39、bPrivateSubCommand3_Click()UnloadMeForm3.Show調用工資管理窗體EndSub4.5獎懲管理的代碼4.51菜單目錄的代碼PrivateSub工資管理_Click()Form4.HideForm3.ShowEndSubPrivateSub基本信息管理_Click()Form4.HideForm8.ShowEndSubPrivateSub獎懲管理_Click()Form4.ShowEndSub4.52獎懲管理窗體的代碼PrivateSubCommand1_Click()Form7.ShowEndSubPrivateSubCommand3_Click（）Msg

40、Box（"修改成功！"）Adodc1.Recordset（"編號"）=Text1.TextAdodc1.Recordset（"姓名"）=Text2.TextAdodc1.Recordset（"性別"）=Text3.TextAdodc1.Recordset（"職位"）=Text4.TextAdodc1.Recordset（"部門"）=Text5.TextAdodc1.Recordset（"獎懲日期"）=Text6.TextAdodc1.Recordset（&

41、quot;獎懲類別"）=Text7.TextAdodc1.Recordset（"獎懲原因"）=Text8.TextAdodc1.Recordset（"獎懲分數"）=Text9.TextAdodc1.Recordset（"備注"）=Text10.TextAdodc1.Recordset.UpdateEndSubPrivateSubCommand4_Click（）DimcnAsNewadodb.ConnectionDimrsAsNewadodb.Recordsetcn.ConnectionString="Provide

42、r=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=工資"'用ADODC控件連接到數據源，獲得連接字符串cn.Openrs.Open"select*from員工獎懲記錄$where編號='"&Trim（Text11.Text）&"'",cn,1,1,-1SetDataGrid1.DataSource=rsDataGrid1.RefreshEndSubPrivateSubCommand5_Click（）I

43、fMsgBox（"確定刪除當前記錄？",vbQuestion+vbYesNo,"刪除？"）=vbYesThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNextIfAdodc1.Recordset.EOFThenIfAdodc1.Recordset.RecordCount<>0Then24Adodc1.Recordset.MoveLastEndIfEndIfEndIfEndSubPrivateSubCommand8_Click（）MsgBox（"確定退出本系統(tǒng)！"）EndEnd

44、Sub4.53添加獎懲窗體的代碼PrivateSubCommand1_Click（）MsgBox（"添加成功！"）Adodc1.Recordset.AddNewAdodc1.Recordset（"編號"）=Text1.TextAdodc1.Recordset（"姓名"）=Text2.TextAdodc1.Recordset（"性別"）=Text3.TextAdodc1.Recordset（"職位"）=Text4.TextAdodc1.Recordset（"部門"）=Text5

45、.TextAdodc1.Recordset（"獎懲日期"）=Text6.TextAdodc1.Recordset（"獎懲類別"）=Text7.TextAdodc1.Recordset（"獎懲原因"）=Text8.TextAdodc1.Recordset（"獎懲分數"）=Text9.TextAdodc1.Recordset（"備注"）=Text10.TextAdodc1.Recordset.UpdateEndSubPrivateSubCommand2_Click（）Text1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""Text5.Text = " "25Text6.Text=Text7.Text=Text8.Text=Text9.Text="TextIO.Text=EndSubPrivateSubCommand3_Click()UnloadMeForm4.ShowEndSub5、程序的運行結果設計好窗體后，按下“F5”或