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

1、企業(yè)工資管理系統(tǒng)（下）選擇“工資信息設(shè)置”>“基本工資設(shè)置”菜單設(shè)置員工的基本工資，可以根據(jù)員工的編號(hào)，或者根據(jù)員工職務(wù)設(shè)置基本工資，設(shè)置的基本工資為每個(gè)小時(shí)的工資。 Set rs = getrs(sql, "salary") If rs.EOF = False Then sql = "delete from salarysetting where stuffid='" & Mstuffid.Text & "'" Call transactsql(sql, "sa

2、lary") End If 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è)

3、置”>“其他項(xiàng)目設(shè)置”菜單，在其他項(xiàng)目設(shè)置的窗體中，設(shè)置員工當(dāng)月的獎(jiǎng)金、津貼、福利等項(xiàng)目。sql = "select * 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

4、.Value = True Then itype = 1 ElseIf Me.optionallowance.Value = True Then itype = 2 ElseIf Me.optionwelfare.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 w

5、here stuffid='" & Mid.Text sql = sql & "' and YearMonth=#" & recordtime & "# and " sql = sql & "Type=" & itype Call transactsql(sql, "Salary") Call add Call frmsumsalary.resumsalary(resumdate) sql =

6、"select * from salaryother" Call frmresult.othertopic Call frmresult.showother(sql) frmresult.Show Unload Me End If選擇“工資信息設(shè)置”>“工資計(jì)算公式設(shè)置”菜單，在這個(gè)計(jì)算公式窗體中設(shè)置員工實(shí)際發(fā)放工資的計(jì)算公式。If Me.textovertimecom = "" And IsNumeric(Me.textovertimecom) = True Then MsgBox "請(qǐng)輸入正常加班工資百分比", vb

7、OKOnly + vbExclamation, "提示" Me.textovertimecom = "" Me.textovertimecom.SetFocus ElseIf Me.textovertimespe = "" And IsNumeric(Me.textovertimespe) = False Then MsgBox "請(qǐng)輸入特殊加班工資百分比", vbOKOnly + vbExclamation, "提示" Me.textovertimespe = "" Me.

8、textovertimespe.SetFocus ElseIf Me.texterrand = "" And IsNumeric(Me.texterrand) = False Then MsgBox "請(qǐng)輸入出差工資", vbOKOnly + vbExclamation, "提示" Me.texterrand = "" Me.texterrand.SetFocus ElseIf Me.textabsent = "" And IsNumeric(Me.textabsent) = False The

9、n MsgBox "請(qǐng)輸入曠工扣發(fā)工資", vbOKOnly + vbExclamation, "提示" Me.textabsent = "" Me.textabsent.SetFocus ElseIf Me.textle = "" And IsNumeric(Me.textle) = False Then MsgBox "請(qǐng)輸入遲到早退扣發(fā)工資", vbOKOnly + vbExclamation, "提示" Me.textle = "" Me.text

10、le.SetFocus Else Call setvalue Call init End If選擇“工資信息管理”>“出勤統(tǒng)計(jì)”菜單，在統(tǒng)計(jì)出勤記錄窗體中選擇需要統(tǒng)計(jì)記錄的月份。firstday = Year(Date) & "-" & Mmonth.Text & "-1"days = DateDiff("d", Year(Date) & "-" & Mmonth.Text & "-1"

11、, _ Year(Date) & "-" & Mmonth.Text + 1 & "-1")lastday = Year(Date) & "-" & Mmonth.Text & "-" & dayssql = "select * from attendancestatistics where recordmonth between #"sql = sql & first

12、day & "# and #" & lastday & "#"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 SubEnd Ifsql = &quo

13、t;select * from attendanceinfo where adate between #"sql = sql & firstday & "# and #" & lastday & "#"Set rsrecord = getrs(sql, "person")If rsrecord.EOF = False Thensql = "select sid,sname from stuffinfo order by sid"Set rsp

14、erson = getrs(sql, "person")選擇月份后單擊“確定”按鈕，如果系統(tǒng)已經(jīng)統(tǒng)計(jì)過(guò)該月份的記錄，那么會(huì)出現(xiàn)如下圖所示的統(tǒng)計(jì)結(jié)果信息列表。如果系統(tǒng)沒(méi)有統(tǒng)計(jì)過(guò)，那么系統(tǒng)就會(huì)開(kāi)始統(tǒng)計(jì)記錄，然后顯示如圖所示的統(tǒng)計(jì)結(jié)果信息列表。If strusername <> "admin" Thensql = "select sid from stuffinfo where sname='" & strusername & "'"Set rs

15、 = 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

16、.RecordSource = sqlMe.Adodc1.RefreshSet Me.DataGrid1.DataSource = Me.Adodc1.RecordsetMe.DataGrid1.RefreshElsesql = "select * from attendancestatistics"Me.Adodc1.ConnectionString="provider=microsoft.jet.oledb.4.0;Datasource="& App.Path & "salary.mdb"Me.Ad

17、odc1.RecordSource = sqlMe.Adodc1.RefreshSet Me.DataGrid1.DataSource = Me.Adodc1.RecordsetMe.DataGrid1.Refresh End If選擇“工資信息管理”>“計(jì)算實(shí)發(fā)工資”菜單，在這個(gè)窗體中選擇需要統(tǒng)計(jì)的月份。選擇統(tǒng)計(jì)月份后，單擊“開(kāi)始統(tǒng)計(jì)”按鈕，系統(tǒng)如果已經(jīng)統(tǒng)計(jì)了該月份的工資，系統(tǒng)會(huì)顯示工資信息列表窗體。如果系統(tǒng)還沒(méi)有統(tǒng)計(jì)工資，那么系統(tǒng)開(kāi)始統(tǒng)計(jì)工資，然后在信息結(jié)果列表窗體中顯示統(tǒng)計(jì)結(jié)果。If Mmonth.Text = 4 Thenfirstday = Year(Date) &am

18、p;amp; "-" & Mmonth.Text & "-1"days = DateDiff("d", Year(Date) & "-" & Mmonth.Text & "-1", _ Year(Date) & "-" & Mmonth.Text + 1 & "-1")lastday = Year(Date) &

19、"-" & Mmonth.Text & "-" & daysCall sumsalary(firstday, lastday)sql = "select * from salarystatistics"frmresult.SSTab1.Caption = "員工工資統(tǒng)計(jì)列表"Call frmresult.listtopicCall frmresult.showdata(sql)frmresult.Caption = "統(tǒng)計(jì)結(jié)果列表"frmresul

20、t.ZOrder 0Unload MeElseMsgBox "這個(gè)月的工資未統(tǒng)計(jì)", vbOKOnly + vbExclamation, "提示"End If選擇“工資信息管理”>“查詢工資”菜單，系統(tǒng)顯示如圖的查詢信息窗體，系統(tǒng)默認(rèn)的是查詢出數(shù)據(jù)庫(kù)中所有的記錄（當(dāng)管理員進(jìn)入的時(shí)候），當(dāng)從“員工編號(hào)”下拉列表中選擇一個(gè)員工編號(hào)后，單擊“查詢單人”按鈕，就會(huì)查詢出符合這個(gè)員工編號(hào)的記錄；如果需要返回查詢所有信息，單擊“查詢所有”按鈕，系統(tǒng)就會(huì)返回所有員工的信息。在“員工工資統(tǒng)計(jì)列表”中單擊鼠標(biāo)右鍵，會(huì)彈出下圖的菜單，在“員工其他項(xiàng)目列表”中單

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

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

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

24、的控件相同。在工資統(tǒng)計(jì)列表窗體里：使用了SSTab控件，在每一個(gè)標(biāo)簽上添加一個(gè)MSFlexGrid控件，然后設(shè)置它們的屬性。在導(dǎo)出工資表的窗體中使用了CommondDialog控件，要使用這個(gè)控件需要在“控件”窗體中，選擇Microsoft Common Dialog Control6.0(sp3)項(xiàng)，同時(shí)因?yàn)閿?shù)據(jù)表格是導(dǎo)出到Excel，所以需要添加引用。選擇“工程>引用”菜單，在“引用”窗體中選擇Microsoft Excel 9.0 Object Library項(xiàng)，這樣才能夠成功導(dǎo)入到Excel。在這個(gè)窗體里，我做的特點(diǎn)是：權(quán)利分工明確。當(dāng)管理員進(jìn)入的時(shí)候他有所有的權(quán)利，單擊

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

26、密碼窗體輸入舊密碼時(shí)，如果輸入的是剛剛修改過(guò)的密碼，就會(huì)出現(xiàn)錯(cuò)誤。經(jīng)過(guò)一段時(shí)間的思考，我發(fā)現(xiàn)原因是修改過(guò)的密碼沒(méi)有覆蓋登錄時(shí)的密碼，所以會(huì)出現(xiàn)問(wèn)題。我覺(jué)得這是一個(gè)很大的問(wèn)題，在別的書(shū)上可能沒(méi)注意到這一點(diǎn)，所以我要注重的講一下，這是我做這個(gè)窗體時(shí)的最大體會(huì)。在建立基本工資窗體時(shí)，這個(gè)窗體會(huì)在兩個(gè)地方使用到，一個(gè)就是添加，另一個(gè)就是修改，在窗體載入時(shí)系統(tǒng)應(yīng)自動(dòng)判斷狀態(tài)。選擇員工編號(hào)或選擇職務(wù)，然后填寫(xiě)工資金額，單擊“確定”按鈕，系統(tǒng)就會(huì)按照選擇的方式，設(shè)置員工的基本工資。在做基本工資這個(gè)窗體時(shí)，我的想法是：當(dāng)你在修改基本工資的信息，首先都要從數(shù)據(jù)庫(kù)中調(diào)出相關(guān)的信息，然后把它刪除掉，再?gòu)臄?shù)據(jù)庫(kù)中的員

27、工信息表中調(diào)出所要的信息，然后再一次的添加所要設(shè)置的信息。當(dāng)你沒(méi)輸入員工編號(hào)的時(shí)候，會(huì)出現(xiàn)下圖的對(duì)話框；當(dāng)沒(méi)輸入員工的職務(wù)時(shí)會(huì)出現(xiàn)錯(cuò)誤的信息。在建立其他項(xiàng)目設(shè)置的窗體時(shí)，也在兩個(gè)地方使用，即添加和修改，在載入時(shí)也需要判斷狀態(tài)。選擇員工編號(hào)，再選擇需要添加的項(xiàng)目和進(jìn)額，單擊“確定”按鈕，即可添加其他項(xiàng)目。在其他項(xiàng)目設(shè)置這個(gè)窗體里，我用了一個(gè)Frame控件和幾個(gè)optionButton控件，目的在于：在添加其他項(xiàng)目時(shí)，只能有一個(gè)設(shè)置是有效的，而且還可以添加其他的項(xiàng)目，還有備注等等，這些都便于記錄。這里還有一個(gè)DTPicker控件是用來(lái)記錄添加其他項(xiàng)目的時(shí)間，我覺(jué)得這個(gè)控件非常好。還有就是每次添加成

28、功后，系統(tǒng)需要初始化，更新一下。在設(shè)置完這個(gè)窗體后將會(huì)彈出查詢工資的窗體。在建立工資計(jì)算公式的窗體時(shí)，輸入內(nèi)容后，單擊“確定”按鈕，設(shè)置計(jì)算公式中使用的數(shù)字。在計(jì)算公式設(shè)置的窗體里，單擊“恢復(fù)默認(rèn)值”按鈕系統(tǒng)將會(huì)恢復(fù)公式中的默認(rèn)值。這里的恢復(fù)默認(rèn)值功能采用的方法比較簡(jiǎn)單，就是在一個(gè)函數(shù)中設(shè)置了固定的默認(rèn)值。如果需要使用可變的默認(rèn)值，可以在數(shù)據(jù)庫(kù)中設(shè)置一項(xiàng)默認(rèn)值字段，這樣可以方便的更改默認(rèn)值。當(dāng)輸入的格式與設(shè)定的格式不一致的時(shí)候，會(huì)彈出相關(guān)的對(duì)話框。建立出勤統(tǒng)計(jì)窗體，選擇月份后，單擊“確定”按鈕，開(kāi)始統(tǒng)計(jì)出勤記錄。在統(tǒng)計(jì)出勤信息的窗體里，這要和出勤記錄的數(shù)據(jù)庫(kù)相連，如果輸入的月份沒(méi)有統(tǒng)計(jì)將如下的

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

30、計(jì)結(jié)果列表）的窗體時(shí)，我覺(jué)得這是一個(gè)最難的窗體。不僅是因?yàn)樗脑O(shè)置，還有就是它的代碼和數(shù)據(jù)庫(kù)相連的操作。在這個(gè)窗體中使用了SSTab控件，在每一個(gè)標(biāo)簽上添加一個(gè)MSFlexGrid控件。當(dāng)你是管理員登錄的時(shí)候，他的權(quán)限是所有，當(dāng)你是用戶登錄的時(shí)候，窗體只顯示登錄用戶本人的相關(guān)信息。他沒(méi)有任何權(quán)限，只能看到自己的信息，這是我做這個(gè)窗體的特色。 窗體的部分代碼為：If strusername = "admin" Then 管理員的權(quán)限 sql = "select stuffid from salarysetting" Set rs = getrs(sql,

31、"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 salaryother" Call

32、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, "sa

33、lary") While Not rs.EOF Mid.AddItem rs(0) rs.MoveNext 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 sq

34、l = "select * from salaryother where stuffid='" & sd & "'" Call othertopic Call showother(sql) Case 2 sql = "select * from salarystatistics where stuffid='" & sd & "'" Call listtopic Call showdata(sql) End Select

35、 End IfEnd Sub 這是用戶登錄所顯示的用戶信息建立導(dǎo)出工資表窗體的時(shí)候，這是工資管理的最重要的一步。這個(gè)窗體中使用了CommondDialog控件，通過(guò)設(shè)置Flags屬性，使CommondDialog控件的對(duì)話框中顯示一個(gè)幫助按鈕，但是，程序員必須在這個(gè)位置提供相關(guān)的幫助主題。對(duì)于所有的公共對(duì)話框，當(dāng)CancelError屬性為true，而且用戶單擊了對(duì)話框的“取消”按鈕時(shí)將生成一個(gè)錯(cuò)誤?？梢栽陲@示對(duì)話框的同時(shí)捕獲此錯(cuò)誤以檢驗(yàn)是否按下了“取消”按鈕。這個(gè)控件可以顯示“打開(kāi)”和“另存為”對(duì)話框，可以在打開(kāi)對(duì)話框之前用Filter屬性指定在“文件類(lèi)型”列表框中顯示的文件過(guò)濾器列表。這個(gè)窗體還引用了Microsoft Excel