基于vb的工資管理系統(tǒng)-文庫吧資料
2024-08-24 12:24本頁面
【正文】 資、查詢工資和導(dǎo)出工資表。在基本工資窗體里：添加了2個(gè)選項(xiàng)按鈕、2個(gè)下拉列表、2個(gè)標(biāo)簽、1個(gè)文本框和2個(gè)按鈕，然后設(shè)置它們的屬性。工資信息設(shè)置：在工資信息設(shè)置的下拉菜單里包括有基本工資信息設(shè)置、其他項(xiàng)目信息設(shè)置和計(jì)算公式設(shè)置。在添加用戶的窗體里：添加3個(gè)標(biāo)簽、3個(gè)文本框和2個(gè)命令按鈕，然后設(shè)置它們相關(guān)的屬性。當(dāng)輸入的用戶名或密碼不正確的時(shí)候，會(huì)出現(xiàn)如下的對(duì)話框： 輸入用戶名不正確或密碼錯(cuò)誤界面或者， 密碼不正確界面主窗體：在主窗體的設(shè)計(jì)中，我在系統(tǒng)的下拉菜單里包括有添加用戶、修改密碼和退出系統(tǒng)。 導(dǎo)出記錄界面單擊“確定”按鈕打開導(dǎo)出的文件，單擊“取消”按鈕回到系統(tǒng)。如果要選擇“刪除基本工資設(shè)置”，出現(xiàn)如下的提示： 刪除基本工資設(shè)置界面 “導(dǎo)出工資表”窗體設(shè)計(jì)選擇“工資信息管理”—“導(dǎo)出工資表”菜單，會(huì)出現(xiàn)下圖的“導(dǎo)出記錄”窗體中選擇需要導(dǎo)出工資的月份。 days Call sumsalary(firstday, lastday) sql = select * from salarystatistics = 員工工資統(tǒng)計(jì)列表 Call Call (sql) = 統(tǒng)計(jì)結(jié)果列表 0 Unload MeElse MsgBox 這個(gè)月的工資未統(tǒng)計(jì), vbOKOnly + vbExclamation, 提示End If “查詢工資“窗體設(shè)計(jì)選擇“工資信息管理”—“查詢工資”菜單，系統(tǒng)顯示如圖的查詢信息窗體，系統(tǒng)默認(rèn)的是查詢出數(shù)據(jù)庫中所有的記錄（當(dāng)管理員進(jìn)入的時(shí)候），當(dāng)從“員工編號(hào)”下拉列表中選擇一個(gè)員工編號(hào)后，單擊“查詢單人”按鈕，就會(huì)查詢出符合這個(gè)員工編號(hào)的記錄；如果需要返回查詢所有信息，單擊“查詢所有”按鈕，系統(tǒng)就會(huì)返回所有員工的信息。 amp。 1) lastday = Year(Date) amp。 amp。 amp。 1 days = DateDiff(d, Year(Date) amp。 amp。如果系統(tǒng)還沒有統(tǒng)計(jì)工資，那么系統(tǒng)開始統(tǒng)計(jì)工資，然后在信息結(jié)果列表窗體中顯示統(tǒng)計(jì)結(jié)果。界面及主要控件列表 計(jì)算公式界面 主要控件列表對(duì) 象屬 性設(shè) 置lablecaption界面所示mandcaption界面所示texttext空程序說明： = 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 “計(jì)算實(shí)發(fā)工資”窗體設(shè)計(jì)實(shí)現(xiàn)目標(biāo)：選擇“工資信息管理”—“計(jì)算實(shí)發(fā)工資”菜單，在這個(gè)窗體中選擇需要統(tǒng)計(jì)的月份。 Type= amp。 recordtime amp。 39。 amp。Call transactsql(sql, salary)End Ifid = Call addrecordMsgBox 已經(jīng)設(shè)置基本工資, vbOKOnly + vbExclamation, 添加結(jié)果Call initsql = select * from salarysettingCall Call (sql) 0 0 “其他項(xiàng)目設(shè)置”窗體設(shè)計(jì)實(shí)現(xiàn)目標(biāo)：選擇“工資信息設(shè)置”—“其他項(xiàng)目設(shè)置”菜單，在其他項(xiàng)目設(shè)置的窗體中，設(shè)置員工當(dāng)月的獎(jiǎng)金、津貼、福利等項(xiàng)目。 amp。界面及控件列表 設(shè)置基本工資界面 設(shè)置基本工資主要控件列表對(duì) 象屬 性設(shè) 置optionbuttonCaption員工編號(hào)optionbuttonCaption員工職務(wù)Command1caption確認(rèn)Command2caption取消程序說明：Set rs = getrs(sql, salary)If = False Thensql = delete from salarysetting where stuffid=39。在這幾個(gè)里，管理員有所有的權(quán)利進(jìn)行各種操作。界面及目標(biāo)實(shí)現(xiàn)過程：主窗體設(shè)計(jì)的界面是用菜單編輯器做的，主要由系統(tǒng)、工資信息設(shè)置、工資信息管理和關(guān)于這四個(gè)大模塊組成。使用這個(gè)窗體的好處是可以使程序更加有條理。 39。 amp。通過標(biāo)題可以知道此系統(tǒng)的大概內(nèi)容，由此，登錄界面的設(shè)計(jì)完成。 員工出勤統(tǒng)計(jì)信息表：字 段類 型長(zhǎng) 度是否空說 明id自動(dòng)編號(hào)長(zhǎng)整型否記錄編號(hào)stuffid文本50否員工編號(hào)stuffname文本50否員工姓名recordmonth日期/時(shí)間否統(tǒng)計(jì)時(shí)間attendance數(shù)字長(zhǎng)整型否出勤天數(shù)lateearly數(shù)字長(zhǎng)整型否遲到早退次數(shù)absent數(shù)字長(zhǎng)整型否曠工次數(shù)overtime數(shù)字長(zhǎng)整型否正常加班次數(shù)overtimespe數(shù)字長(zhǎng)整型否特殊加班次數(shù)errand數(shù)字長(zhǎng)整型否出差次數(shù) 員工工資計(jì)算公式信息表：字 段類 型長(zhǎng) 度是否空說 明overtime數(shù)字長(zhǎng)整型否正常加班工資百分比overtimespe數(shù)字長(zhǎng)整型否特殊加班工資百分比errand數(shù)字長(zhǎng)整型否出差工資absent數(shù)字長(zhǎng)整型否曠工工資le數(shù)字長(zhǎng)整型否遲到早退 員工其他項(xiàng)目設(shè)置：字 段類 型長(zhǎng) 度是否空說 明id自動(dòng)編號(hào)長(zhǎng)整型否記錄編號(hào)stuffid文本50否員工編號(hào)yearmonth日期/時(shí)間否年月type數(shù)字長(zhǎng)整型否類型name文本50是類型money貨幣貨幣否名稱remark備注是備注 員工工資統(tǒng)計(jì)信息表：字 段類 型長(zhǎng) 度是否空說 明id自動(dòng)編號(hào)長(zhǎng)整型否記錄編號(hào)stuffid文本50否員工編號(hào)stuffname文本50否員工姓名yearmonth日期/時(shí)間否時(shí)間basicsalary貨幣貨幣基本工資bonus貨幣貨幣獎(jiǎng)金welfare貨幣貨幣福利allowance貨幣貨幣津貼abatement貨幣貨幣扣發(fā)lesub貨幣貨幣遲到早退扣發(fā)absentsub貨幣貨幣曠工扣發(fā)overtime貨幣貨幣加班費(fèi)
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1