企業(yè)工資管理系統(tǒng)

1、員工出勤統(tǒng)計(jì)信息表：字段類型長度是否空說明id 自動編號長整型不能空記錄編號stuffid 文本50 不能空員工編號stuffname 文本50 不能空員工姓名recordmonth 日期/ 時間不能空統(tǒng)計(jì)時間attendance 數(shù)字長整型不能空出勤天數(shù)lateearly 數(shù)字長整型不能空遲到早退次數(shù)absent 數(shù)字長整型不能空曠工次數(shù)overtimecom 數(shù)字長整型不能空正常加班次數(shù)overtimespe 數(shù)字長整型不能空特殊加班次數(shù)errand 數(shù)字長整型不能空出差次數(shù)員工工資計(jì)算公式信息表：字段類型長度是否空說明overtimecom 數(shù)字長整型不能空正常加班工資百分比overti

2、mespe 數(shù)字長整型不能空特殊加班工資百分比errand 數(shù)字長整型不能空出差工資absent 數(shù)字長整型不能空曠工工資le 數(shù)字長整型不能空遲到早退員工其他項(xiàng)目設(shè)置：字段類型長度是否空說明id 自動編號長整型不能空記錄編號stuffid 文本50 不能空員工編號yearmonth 日期/時間不能空年月字段類型長度是否空說明id 自動編號長整型不能空記錄編號stuffid 文本50 不能空員工編號sposition 文本50 不能空員工職務(wù)salary 貨幣貨幣不能空基本工資type 數(shù)字長整型不能空類型name 文本50 能空類型money 貨幣貨幣不能空名稱remark 備注能空備注員工

3、工資統(tǒng)計(jì)信息表：字段類型長度是否空說明id 自動編號長整型不能空記錄編號stuffid 文本50 不能空員工編號stuffname 文本50 不能空員工姓名yearmonth 日期/時間不能空時間basicsalary 貨幣貨幣基本工資bonus 貨幣貨幣獎金welfare 貨幣貨幣福利allowance 貨幣貨幣津貼abatement 貨幣貨幣扣發(fā)lesub 貨幣貨幣遲到早退扣發(fā)absentsub 貨幣貨幣曠工扣發(fā)overtime 貨幣貨幣加班費(fèi)errand 貨幣貨幣出差費(fèi)others 貨幣貨幣其他金額total 貨幣貨幣總額員工信息表：字段類型長度是否空說明sid 文本50 能空員工編號s

4、name 文本50 能空員工姓名sgender 文本50 能空性別splace 文本50 能空籍貫sage 數(shù)字長整型不能空年齡sbirthday 日期/時間不能空生日sdegree 文本50 能空學(xué)歷sspecial 文本50 能空專業(yè)saddress 文本50 能空住址scode 文本50 能空郵編stel 文本50 能空電話semail 文本50 能空email sworktime 日期/時間不能空參加工作時間sintime 日期/時間不能空進(jìn)入公司時間sdept 文本50 能空部門spaytime 日期/時間不能空起薪時間sposition 文本50 能空職務(wù)sremark 文本50

5、能空備注用戶信息表：字段類型長度是否空說明userid 文本50 不能空用戶名稱userpwd 文本50 不能空用戶密碼第三章企業(yè)工資管理系統(tǒng)應(yīng)用程序設(shè)計(jì)31 “登錄模塊”詳細(xì)設(shè)計(jì)登錄模塊的詳細(xì)設(shè)計(jì)主要是用戶登錄的一個界面，判斷登錄的用戶是管理員還是普通用戶，進(jìn)入后將面對的是主界面，從而進(jìn)行相關(guān)的操作。登錄的界面主要由用戶名和密碼的信息，還有一些標(biāo)題設(shè)置，確定和取消的按鈕組成。通過標(biāo)題可以知道此系統(tǒng)的大概內(nèi)容，由此，登錄界面的設(shè)計(jì)完成。32 “主窗體”模塊詳細(xì)設(shè)計(jì)在這個項(xiàng)目中，選擇使用多文檔界面。使用這個窗體的好處是可以使程序更加有條理。對于一個多任務(wù)的應(yīng)用程序，使用多文檔窗體還可以減少占用的

6、系統(tǒng)資源。主窗體設(shè)計(jì)的界面是用菜單編輯器做的，主要由系統(tǒng)、工資信息設(shè)置、工資信息管理和關(guān)于這四個大模塊組成。主窗體是進(jìn)行相關(guān)操作的主界面。在這幾個里，管理員有所有的權(quán)利進(jìn)行各種操作。3.3 各項(xiàng)子模塊詳細(xì)設(shè)計(jì)選擇“系統(tǒng)”“添加用戶”菜單，在添加用戶的窗體里 ,輸入新的用戶名稱和密碼后，單擊“確定”按鈕，系統(tǒng)將會添加新的用戶。 sql = insert into userinfo (userid,userpwd) values( & username sql = sql & , & password & ) call transactsql(sql, salary

7、) msgbox 添加成功, vbokonly + vbexclamation, 添加結(jié)果 username.text = password.text = confirmpwd.text = username.setfocus 選擇“系統(tǒng)”“修改密碼”菜單，在修改密碼的窗體里，輸入舊密碼和 2次輸入新密碼后，單擊“確定”按鈕，系統(tǒng)將會更改當(dāng)前用戶的密碼。userpassword = newpwd sql = update userinfo set userpwd= & newpwd & where userid= & strusername & call tra

8、nsactsql(sql, salary) msgbox 密碼已經(jīng)修改, vbokonly + vbexclamation, 修改結(jié)果 選擇“工資信息設(shè)置”“基本工資設(shè)置”菜單設(shè)置員工的基本工資，可以根據(jù)員工的編號，或者根據(jù)員工職務(wù)設(shè)置基本工資， 設(shè)置的基本工資為每個小時的工資。set rs = getrs(sql, salary) if rs.eof = false then sql = delete from salarysetting where stuffid= & mstuffid.text & call transactsql(sql, salary) end if

9、 rs.close id = mstuffid.text call addrecord msgbox 已經(jīng)設(shè)置基本工資, vbokonly + vbexclamation, 添加結(jié)果 call init sql = select * from salarysetting call frmresult.basictopic call frmresult.showbasic(sql) frmresult.show frmresult.zorder 0 me.zorder 0 選擇“工資信息設(shè)置”“其他項(xiàng)目設(shè)置”菜單，在其他項(xiàng)目設(shè)置的窗體中，設(shè)置員工當(dāng)月的獎金、津貼、福利等項(xiàng)目。sql = sele

10、ct * from salaryother if ichangeflag = 1 then call add msgbox 已經(jīng)添加記錄, vbokonly + vbexclamation, 提示 call frmresult.othertopic call frmresult.showother(sql) frmresult.show unload me else if me.optionbonus.value = true then itype = 1 elseif me.optionallowance.value = true then itype = 2 elseif me.optio

11、nwelfare.value = true then itype = 3 elseif me.optionabatement.value = true then itype = 4 elseif me.optionothers.value = true then itype = 5 resumdate = recordtime sql = delete from salaryother where stuffid= & mid.text sql = sql & and yearmonth=# & recordtime & # and sql = sql &

12、; type= & itype call transactsql(sql, salary) call add call frmsumsalary.resumsalary(resumdate) sql = select * from salaryother call frmresult.othertopic call frmresult.showother(sql) frmresult.show unload me end if 選擇“工資信息設(shè)置”“工資計(jì)算公式設(shè)置”菜單，在這個計(jì)算公式窗體中設(shè)置員工實(shí)際發(fā)放工資的計(jì)算公式。if me.textovertimecom = and isn

13、umeric(me.textovertimecom) = true then msgbox 請輸入正常加班工資百分比 , vbokonly + vbexclamation, 提示 me.textovertimecom = me.textovertimecom.setfocus elseif me.textovertimespe = and isnumeric(me.textovertimespe) = false then msgbox 請輸入特殊加班工資百分比 , vbokonly + vbexclamation, 提示 me.textovertimespe = me.textovertim

14、espe.setfocus elseif me.texterrand = and isnumeric(me.texterrand) = false then msgbox 請輸入出差工資, vbokonly + vbexclamation, 提示 me.texterrand = me.texterrand.setfocus elseif me.textabsent = and isnumeric(me.textabsent) = false then msgbox 請輸入曠工扣發(fā)工資, vbokonly + vbexclamation, 提示 me.textabsent = me.textab

15、sent.setfocus elseif me.textle = and isnumeric(me.textle) = false then msgbox 請輸入遲到早退扣發(fā)工資 , vbokonly + vbexclamation, 提示 me.textle = me.textle.setfocus else call setvalue call init end if 選擇“工資信息管理”“出勤統(tǒng)計(jì)”菜單，在統(tǒng)計(jì)出勤記錄窗體中選擇需要統(tǒng)計(jì)記錄的月份。firstday = year(date) & - & mmonth.text & -1 days = datedif

16、f(d, year(date) & - & mmonth.text & -1, _ year(date) & - & mmonth.text + 1 & -1) lastday = year(date) & - & mmonth.text & - & days sql = select * from attendancestatistics where recordmonth between # sql = sql & firstday & # and # & lastday & #

17、 set rsrecord = getrs(sql, salary) if rsrecord.eof = false then msgbox 已經(jīng)統(tǒng)計(jì), vbokonly + vbexclamation, 提示 frmaresult.show frmaresult.zorder 0 rsrecord.close unload me exit sub end if sql = select * from attendanceinfo where adate between # sql = sql & firstday & # and # & lastday & #

18、 set rsrecord = getrs(sql, person) if rsrecord.eof = false then sql = select sid,sname from stuffinfo order by sid set rsperson = getrs(sql, person) 選擇月份后單擊“確定”按鈕，如果系統(tǒng)已經(jīng)統(tǒng)計(jì)過該月份的記錄，那么會出現(xiàn)如下圖所示的統(tǒng)計(jì)結(jié)果信息列表。 如果系統(tǒng)沒有統(tǒng)計(jì)過，那么系統(tǒng)就會開始統(tǒng)計(jì)記錄，然后顯示如圖所示的統(tǒng)計(jì)結(jié)果信息列表。if strusername admin then sql = select sid from stuffinfo w

19、here sname= & strusername & set rs = getrs(sql, salary) sd = rs(0) sql = select * from attendancestatistics where stuffid= & sd & me.adodc1.connectionstring =provider=microsoft.jet.oledb.4.0;datasource=& app.path & salary.mdb me.adodc1.recordsource = sql me.adodc1.refresh set

20、 me.datagrid1.datasource = me.adodc1.recordset me.datagrid1.refresh else sql = select * from attendancestatistics me.adodc1.connectionstring=provider=microsoft.jet.oledb.4.0;datasource=& app.path & salary.mdb me.adodc1.recordsource = sql me.adodc1.refresh set me.datagrid1.datasource = me.ado

21、dc1.recordset me.datagrid1.refresh end if 選擇“工資信息管理”“計(jì)算實(shí)發(fā)工資”菜單，在這個窗體中選擇需要統(tǒng)計(jì)的月份。選擇統(tǒng)計(jì)月份后，單擊“開始統(tǒng)計(jì)”按鈕，系統(tǒng)如果已經(jīng)統(tǒng)計(jì)了該月份的工資，系統(tǒng)會顯示工資信息列表窗體。如果系統(tǒng)還沒有統(tǒng)計(jì)工資，那么系統(tǒng)開始統(tǒng)計(jì)工資，然后在信息結(jié)果列表窗體中顯示統(tǒng)計(jì)結(jié)果。if mmonth.text = 4 then firstday = year(date) & - & mmonth.text & -1 days = datediff(d, year(date) & - & mmont

22、h.text & -1, _ year(date) & - & mmonth.text + 1 & -1) lastday = year(date) & - & mmonth.text & - & days call sumsalary(firstday, lastday) sql = select * from salarystatistics frmresult.sstab1.caption = 員工工資統(tǒng)計(jì)列表 call frmresult.listtopic call frmresult.showdata(sql) frm

23、result.caption = 統(tǒng)計(jì)結(jié)果列表 frmresult.zorder 0 unload me else msgbox 這個月的工資未統(tǒng)計(jì), vbokonly + vbexclamation, 提示 end if 選擇“工資信息管理”“查詢工資”菜單，系統(tǒng)顯示如圖的查詢信息窗體，系統(tǒng)默認(rèn)的是查詢出數(shù)據(jù)庫中所有的記錄（當(dāng)管理員進(jìn)入的時候） ，當(dāng)從“員工編號”下拉列表中選擇一個員工編號后，單擊“查詢單人”按鈕，就會查詢出符合這個員工編號的記錄；如果需要返回查詢所有信息，單擊 “查詢所有”按鈕，系統(tǒng)就會返回所有員工的信息。在“員工工資統(tǒng)計(jì)列表”中單擊鼠標(biāo)右鍵，會彈出下圖的菜單，在“員工其他

24、項(xiàng)目列表”中單擊鼠標(biāo)右鍵也會出現(xiàn)下圖的菜單。如果要選擇“刪除基本工資設(shè)置” ，出現(xiàn)如下的提示：具體的操作這里就不詳細(xì)介紹。選擇“工資信息管理”“導(dǎo)出工資表”菜單，會出現(xiàn)下圖的“導(dǎo)出記錄”窗體中選擇需要導(dǎo)出工資的月份。選擇月份和保存位置后，單擊“導(dǎo)出”按鈕，系統(tǒng)會開始導(dǎo)出數(shù)據(jù)。單擊“確定”按鈕打開導(dǎo)出的文件，單擊“取消”按鈕回到系統(tǒng)。導(dǎo)出的工資記錄34 各項(xiàng)子模塊編寫要點(diǎn)在登錄的這個窗體里， 我做的特點(diǎn)是：只要在數(shù)據(jù)庫里有用戶信息的， 都可以登錄，然后顯示相關(guān)自己的信息， 而管理員顯示所有的信息。 當(dāng)輸入的用戶名或密碼不正確的時候，會出現(xiàn)如下的對話框：或者在主窗體的設(shè)計(jì)中， 我在系統(tǒng)的下拉菜單里

25、包括有添加用戶、 修改密碼和退出系統(tǒng)。在這個模塊里普通用戶只有修改自己的密碼的權(quán)利。在添加用戶的窗體里：添加 3個標(biāo)簽、3 個文本框和2 個命令按鈕，然后設(shè)置它們相關(guān)的屬性。在修改密碼的窗體里：添加了3 個標(biāo)簽，用來顯示信息； 3 個文本框用來輸入用戶名稱和用戶密碼； 2 個按鈕用來確定和取消操作，然后設(shè)置它們的屬性。在工資信息設(shè)置的下拉菜單里包括有基本工資信息設(shè)置、 其他項(xiàng)目信息設(shè)置和計(jì)算公式設(shè)置。在這個模塊里，普通用戶沒有任何權(quán)利進(jìn)行相關(guān)的操作。在基本工資窗體里： 添加了2個選項(xiàng)按鈕、2個下拉列表、 2個標(biāo)簽、1個文本框和 2 個按鈕，然后設(shè)置它們的屬性。在其他項(xiàng)目設(shè)置的窗體里：使用了一個

26、dtpicker控件獲得添加記錄的時間， 要使用這個控件需要添加部件類庫， 選擇“工程部件”命令，選擇microsoft windows common controls-2 6.0(sp4)項(xiàng)，然后設(shè)置相關(guān)的屬性。在工資信息管理的下拉菜單里包括有統(tǒng)計(jì)出勤信息、 計(jì)算實(shí)發(fā)工資、 查詢工資和導(dǎo)出工資表。 在這個模塊里，普通用戶有統(tǒng)計(jì)出勤信息和查詢工資的權(quán)利，但是都顯示的是自己的信息。在出勤統(tǒng)計(jì)窗體里：添加一個下拉列表、一個標(biāo)簽和2個命令按鈕， 然后設(shè)置相關(guān)的屬性。 在出勤結(jié)果信息列表的窗體里：使用了adodc 控件和datagrid控件， 控件的visible 屬性一定要設(shè)置為false。在計(jì)算實(shí)

27、發(fā)工資窗體里添加的控件和統(tǒng)計(jì)出勤記錄窗體的控件相同。 在工資統(tǒng)計(jì)列表窗體里：使用了sstab 控件，在每一個標(biāo)簽上添加一個msflexgrid控件， 然后設(shè)置它們的屬性。 在導(dǎo)出工資表的窗體中使用了commonddialog 控件，要使用這個控件需要在“控件”窗體中，選擇microsoft common dialog control6.0(sp3) 項(xiàng)，同時因?yàn)閿?shù)據(jù)表格是導(dǎo)出到excel，所以需要添加引用。選擇 “工程引用” 菜單， 在 “引用” 窗體中選擇microsoft excel 9.0 object library 項(xiàng)，這樣才能夠成功導(dǎo)入到excel。在這個窗體里，我做的特點(diǎn)是：權(quán)利

28、分工明確。 當(dāng)管理員進(jìn)入的時候他有所有的權(quán)利，單擊哪個模塊就會彈出相對應(yīng)的窗體。而普通用戶則不能，我把它進(jìn)行了權(quán)限設(shè)置，會彈出權(quán)限的對話框。在添加用戶的窗體里， 如果輸入的用戶密碼和確認(rèn)密碼不一致， 將出現(xiàn)一個警告對話框：然后輸入與用戶密碼相同的密碼，我這里的密碼都是以*的形式表達(dá)，是不可見的。添加的用戶將保存在數(shù)據(jù)庫的userinfo 里。單擊“取消”按鈕就卸載此窗體，添加用戶的過程到此完成。在修改密碼的窗體里， 我要注重講解一下： 當(dāng)輸入的舊密碼與登錄時的密碼不一致將出現(xiàn)提示對話框（如圖一） ，當(dāng)輸入的“確認(rèn)新密碼”和“輸入新密碼”的密碼不一致時也將出現(xiàn)警告對話框（如圖二） 。我在做這個窗

29、體時遇到了一個問題：就是輸入的新密碼確認(rèn)后， 當(dāng)你再一次的進(jìn)入修改密碼窗體輸入舊密碼時，如果輸入的是剛剛修改過的密碼，就會出現(xiàn)錯誤。經(jīng)過一段時間的思考， 我發(fā)現(xiàn)原因是修改過的密碼沒有覆蓋登錄時的密碼， 所以會出現(xiàn)問題。我覺得這是一個很大的問題， 在別的書上可能沒注意到這一點(diǎn)，所以我要注重的講一下，這是我做這個窗體時的最大體會。圖一圖二在建立基本工資窗體時，這個窗體會在兩個地方使用到，一個就是添加，另一個就是修改，在窗體載入時系統(tǒng)應(yīng)自動判斷狀態(tài)。 選擇員工編號或選擇職務(wù)，然后填寫工資金額，單擊“確定”按鈕，系統(tǒng)就會按照選擇的方式，設(shè)置員工的基本工資。在做基本工資這個窗體時，我的想法是：當(dāng)你在修改

30、基本工資的信息，首先都要從數(shù)據(jù)庫中調(diào)出相關(guān)的信息， 然后把它刪除掉，再從數(shù)據(jù)庫中的員工信息表中調(diào)出所要的信息， 然后再一次的添加所要設(shè)置的信息。 當(dāng)你沒輸入員工編號的時候，會出現(xiàn)下圖的對話框；當(dāng)沒輸入員工的職務(wù)時會出現(xiàn)錯誤的信息。在建立其他項(xiàng)目設(shè)置的窗體時， 也在兩個地方使用，即添加和修改， 在載入時也需要判斷狀態(tài)。 選擇員工編號， 再選擇需要添加的項(xiàng)目和進(jìn)額， 單擊 “確定” 按鈕， 即可添加其他項(xiàng)目。 在其他項(xiàng)目設(shè)置這個窗體里， 我用了一個frame控件和幾個 optionbutton 控件，目的在于：在添加其他項(xiàng)目時，只能有一個設(shè)置是有效的， 而且還可以添加其他的項(xiàng)目， 還有備注等等，

31、這些都便于記錄。這里還有一個 dtpicker 控件是用來記錄添加其他項(xiàng)目的時間，我覺得這個控件非常好。還有就是每次添加成功后，系統(tǒng)需要初始化，更新一下。在設(shè)置完這個窗體后將會彈出查詢工資的窗體。在建立工資計(jì)算公式的窗體時，輸入內(nèi)容后，單擊“確定”按鈕，設(shè)置計(jì)算公式中使用的數(shù)字。在計(jì)算公式設(shè)置的窗體里，單擊“恢復(fù)默認(rèn)值”按鈕系統(tǒng)將會恢復(fù)公式中的默認(rèn)值。 這里的恢復(fù)默認(rèn)值功能采用的方法比較簡單， 就是在一個函數(shù)中設(shè)置了固定的默認(rèn)值。 如果需要使用可變的默認(rèn)值， 可以在數(shù)據(jù)庫中設(shè)置一項(xiàng)默認(rèn)值字段， 這樣可以方便的更改默認(rèn)值。 當(dāng)輸入的格式與設(shè)定的格式不一致的時候，會彈出相關(guān)的對話框。建立出勤統(tǒng)計(jì)窗

32、體， 選擇月份后， 單擊“確定”按鈕， 開始統(tǒng)計(jì)出勤記錄。在統(tǒng)計(jì)出勤信息的窗體里， 這要和出勤記錄的數(shù)據(jù)庫相連， 如果輸入的月份沒有統(tǒng)計(jì)將如下的對話框：如果輸入的月份有統(tǒng)計(jì)記錄則彈出如下的對話框：然后彈出出勤結(jié)果的窗體，顯示數(shù)據(jù)庫中統(tǒng)計(jì)信息相關(guān)的記錄。管理員能看到的界面這是用戶登錄所顯示的用戶信息建立計(jì)算實(shí)發(fā)工資的窗體， 這個窗體的建立和統(tǒng)計(jì)出勤記錄的窗體比較相似，選擇月份后，單擊“開始統(tǒng)計(jì)”按鈕，即可統(tǒng)計(jì)員工工資。在計(jì)算實(shí)發(fā)工資的窗體里，如果輸入的月份的工資沒統(tǒng)計(jì)會彈出如下的對話框：否則會出現(xiàn)如下的對話框：單擊“確定”后，就會出現(xiàn)工資信息列表，這時你將看見所有關(guān)于你想要的信息。建立工資查詢的

33、窗體，在選擇員工編號后，單擊“查詢單人”按鈕，返回選擇員工的相關(guān)信息。單擊“查詢?nèi)俊卑粹o，系統(tǒng)返回全部員工的信息。在建立工資查詢 （即工資統(tǒng)計(jì)結(jié)果列表） 的窗體時， 我覺得這是一個最難的窗體。不僅是因?yàn)樗脑O(shè)置，還有就是它的代碼和數(shù)據(jù)庫相連的操作。在這個窗體中使用了 sstab 控件，在每一個標(biāo)簽上添加一個msflexgrid控件。當(dāng)你是管理員登錄的時候，他的權(quán)限是所有，當(dāng)你是用戶登錄的時候，窗體只顯示登錄用戶本人的相關(guān)信息。他沒有任何權(quán)限， 只能看到自己的信息，這是我做這個窗體的特色。窗體的部分代碼為：if strusername = admin then 管理員的權(quán)限 sql = sel

34、ect stuffid from salarysetting set rs = getrs(sql, salary) if rs.eof = false then while not rs.eof mid.additem rs(0) rs.movenext wend rs.close end if mid.listindex = 0 select case me.sstab1.tab case 0 sql = select * from salarysetting call basictopic call showbasic(sql) case 1 sql = select * from sa

35、laryother call othertopic call showother(sql) case 2 sql = select * from salarystatistics order by id desc call listtopic call showdata(sql) end select else 用戶的權(quán)限 sql = select sid from stuffinfo where sname= & strusername & set rs = getrs(sql, salary) while not rs.eof mid.additem rs(0) rs.mo

36、venext wend rs.movefirst sd = rs(0) rs.close mid.listindex = 0 select case me.sstab1.tab case 0 sql = select * from salarysetting where stuffid= & sd & call basictopic call showbasic(sql) case 1 sql = select * from salaryother where stuffid= & sd & call othertopic call showother(sql)

37、 case 2 sql = select * from salarystatistics where stuffid= & sd & call listtopic call showdata(sql) end select end if end sub 這是用戶登錄所顯示的用戶信息建立導(dǎo)出工資表窗體的時候，這是工資管理的最重要的一步。 這個窗體中使用了 commonddialog控件，通過設(shè)置 flags 屬性，使 commonddialog控件的對話框中顯示一個幫助按鈕， 但是，程序員必須在這個位置提供相關(guān)的幫助主題。對于所有的公共對話框， 當(dāng) cancelerror 屬性為true ，而且用戶單擊了對話框的“取消”按鈕時將生成一個錯誤?？梢栽陲@示對話框的同時捕獲此錯誤以檢驗(yàn)是否按下了“取消”按鈕。這個控件可以顯示