基于vb企業(yè)工資管理系統(tǒng)畢業(yè)設(shè)計(jì)(編輯修改稿)
2025-07-24 19:21 本頁面
【文章內(nèi)容簡(jiǎn)介】 Call (sql) 0 0選擇“工資信息設(shè)置”—“其他項(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 Call (sql) Unload Me Else If = True Then itype = 1 ElseIf = True Then itype = 2 ElseIf = True Then itype = 3 ElseIf = True Then itype = 4 ElseIf = True Then itype = 5 resumdate = recordtime sql = delete from salaryother where stuffid=39。 amp。 sql = sql amp。 39。 and YearMonth= amp。 recordtime amp。 and sql = sql amp。 Type= amp。 itype Call transactsql(sql, Salary) Call add Call (resumdate) sql = select * from salaryother Call Call (sql) Unload Me End If 選擇“工資信息設(shè)置”—“工資計(jì)算公式設(shè)置”菜單，在這個(gè)計(jì)算公式窗體中設(shè)置員工實(shí)際發(fā)放工資的計(jì)算公式。If = And IsNumeric() = True Then MsgBox 請(qǐng)輸入正常加班工資百分比, vbOKOnly + vbExclamation, 提示 = ElseIf = And IsNumeric() = False Then MsgBox 請(qǐng)輸入特殊加班工資百分比, vbOKOnly + vbExclamation, 提示 = ElseIf = And IsNumeric() = False Then MsgBox 請(qǐng)輸入出差工資, vbOKOnly + vbExclamation, 提示 = ElseIf = And IsNumeric() = False Then MsgBox 請(qǐng)輸入曠工扣發(fā)工資, vbOKOnly + vbExclamation, 提示 = ElseIf = And IsNumeric() = False Then MsgBox 請(qǐng)輸入遲到早退扣發(fā)工資, vbOKOnly + vbExclamation, 提示 = Else Call setvalue Call init End If選擇“工資信息管理”—“出勤統(tǒng)計(jì)”菜單，在統(tǒng)計(jì)出勤記錄窗體中選擇需要統(tǒng)計(jì)記錄的月份。firstday = Year(Date) amp。 amp。 amp。 1days = DateDiff(d, Year(Date) amp。 amp。 amp。 1, _ Year(Date) amp。 amp。 + 1 amp。 1)lastday = Year(Date) amp。 amp。 amp。 amp。 dayssql = select * from attendancestatistics where recordmonth between sql = sql amp。 firstday amp。 and amp。 lastday amp。 Set rsrecord = getrs(sql, salary)If = False Then MsgBox 已經(jīng)統(tǒng)計(jì), vbOKOnly + vbExclamation, 提示 0 Unload Me Exit Sub End If sql = select * from attendanceinfo where adate between sql = sql amp。 firstday amp。 and amp。 lastday amp。 Set rsrecord = getrs(sql, person) If = False Then sql = select sid,sname from stuffinfo order by sid Set rsperson = getrs(sql, person)選擇月份后單擊“確定”按鈕，如果系統(tǒng)已經(jīng)統(tǒng)計(jì)過該月份的記錄，那么會(huì)出現(xiàn)如下圖所示的統(tǒng)計(jì)結(jié)果信息列表。如果系統(tǒng)沒有統(tǒng)計(jì)過，那么系統(tǒng)就會(huì)開始統(tǒng)計(jì)記錄，然后顯示如圖所示的統(tǒng)計(jì)結(jié)果信息列表。If strusername admin Thensql = select sid from stuffinfo where sname=39。 amp。 strusername amp。 39。Set rs = getrs(sql, salary)sd = rs(0)sql = select * from attendancestatistics where stuffid=39。 amp。 sd amp。 39。 =provider=。Datasource=amp。 amp。 = sqlSet = Elsesql = select * from attendancestatistics=provider=。Datasource=amp。 amp。 = sqlSet = End If選擇“工資信息管理”—“計(jì)算實(shí)發(fā)工資”菜單，在這個(gè)窗體中選擇需要統(tǒng)計(jì)的月份。選擇統(tǒng)計(jì)月份后，單擊“開始統(tǒng)計(jì)”按鈕，系統(tǒng)如果已經(jīng)統(tǒng)計(jì)了該月份的工資，系統(tǒng)會(huì)顯示工資信息列表窗體。如果系統(tǒng)還沒有統(tǒng)計(jì)工資，那么系統(tǒng)開始統(tǒng)計(jì)工資，然后在信息結(jié)果列表窗體中顯示統(tǒng)計(jì)結(jié)果。If = 4 Then firstday = Year(Date) amp。 amp。 amp。 1 days = DateDiff(d, Year(Date) amp。 amp。 amp。 1, _ Year(Date) amp。 amp。 + 1 amp。 1) lastday = Year(Date) amp。 amp。 amp。 amp。 days Call sumsalary(firstday, lastday) sql = select * from salarystatistics = 員工工資統(tǒng)計(jì)列表 Call Call (sql)
物理相關(guān)推薦
鄂ICP備17016276號(hào)-1