vbaccess企業(yè)工資管理系統(tǒng)-課程設(shè)計(jì)(編輯修改稿)
2025-09-03 13:45 本頁面
【文章內(nèi)容簡介】 MsgBox 添加成功, vbOKOnly + vbExclamation, 添加結(jié)果 = = = 選擇“系統(tǒng)”—“修改密碼”菜單，在修改密碼的窗體里，輸入舊密碼和2次輸入新密碼后，單擊“確定”按鈕，系統(tǒng)將會(huì)更改當(dāng)前用戶的密碼。userpassword = newpwdsql = update userinfo set userpwd=39。 amp。 newpwd amp。 39。where userid=39。 amp。 strusername amp。 39。Call transactsql(sql, salary)MsgBox 密碼已經(jīng)修改, vbOKOnly + vbExclamation, 修改結(jié)果 選擇“工資信息設(shè)置”—“基本工資設(shè)置”菜單設(shè)置員工的基本工資，可以根據(jù)員工的編號(hào)，或者根據(jù)員工職務(wù)設(shè)置基本工資，設(shè)置的基本工資為每個(gè)小時(shí)的工資。Set rs = getrs(sql, salary)If = False Thensql = delete from salarysetting where stuffid=39。 amp。 amp。 39。Call transactsql(sql, salary)End Ifid = Call addrecordMsgBox 已經(jīng)設(shè)置基本工資, vbOKOnly + vbExclamation, 添加結(jié)果Call initsql = select * from salarysettingCall Call (sql) 0 0VB+access企業(yè)工資管理系統(tǒng)選擇“工資信息設(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 IfVB+access企業(yè)工資管理系統(tǒng)選擇“工資信息管理”—“出勤統(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 SubEnd Ifsql = select * from attendanceinfo where adate between sql = sql amp。 firstday amp。 and amp。 lastday amp。 Set rsrecord = getrs(sql, person)If = False Thensql = select sid,sname from stu
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1