vb0079人事工資管理系統(tǒng)a2合集5篇-資料下載頁(yè)
2025-10-12 14:54本頁(yè)面
【正文】 員管理】菜單選項(xiàng)，打開(kāi)如圖21所示的界面。圖21操作員管理在圖21中輸入用戶(hù)名和密碼，選擇權(quán)限，單擊【增加】工具按鈕，以實(shí)現(xiàn)增加操作員信息。在圖21中的某一操作員，會(huì)自動(dòng)填寫(xiě)用戶(hù)名和密碼，可以修改用戶(hù)名、密碼、權(quán)限，單擊【修改】工具按鈕，以實(shí)現(xiàn)修改操作員信息。在圖21中的某一操作員，單擊【刪除】工具按鈕，以實(shí)現(xiàn)刪除操作員信息?！居脩?hù)管理】?【修改口令】菜單選項(xiàng)，打開(kāi)如圖22所示的界面。圖22修改密碼輸入登錄用戶(hù)的原始密碼，兩次輸入相同的心密碼，單擊【確定】按鈕，實(shí)現(xiàn)密碼修改?！居脩?hù)管理】?【更改操作員】菜單選項(xiàng)，打開(kāi)如圖23所示的界面。圖23更改操作員選擇用戶(hù)名，輸入該用戶(hù)的密碼，實(shí)現(xiàn)以所選擇的用戶(hù)身份登錄。第五篇：vb課程設(shè)計(jì) 職工工資管理系統(tǒng)代碼Form1: Dim errorCount As Integer Private Sub Command1_Click()If = “system” And = “1234” ThenLoad Form2MsgBox “登陸成功，歡迎您進(jìn)入職工工資管理系統(tǒng)”, vbInformation, “登陸成功”ElseerrorCount = errorCount + 1If errorCount 3 ThenMsgBox “用戶(hù)名或密碼錯(cuò)誤(第” amp。 errorCount amp。 “次)！”, vbOKOnly + vbExclamation, “登陸失敗”End IfIf errorCount = 3 Then = False = False = FalseMsgBox “三次輸入用戶(hù)名或密碼錯(cuò)誤,程序?qū)⒆詣?dòng)退出！”, vbOKOnly + vbExclamation, “登陸失敗”EndEnd If End IfEnd SubPrivate Sub Command2_Click()Unload Me End SubPrivate Sub Form_Load()errorCount = 0 End SubPrivate Sub Form_Unload(Cancel As Integer)If MsgBox(“是否要退出程序?”, vbYesNo, “退出提示”)= vbNo ThenCancel = 1 End If End SubFor i = 1 To jlNumygList(i).shifagongzi =(CSng(ygList(i).jibengz)+ ygList(i).gerensuiCSng(ygList(i).jingtie)ygList(y).shifagongzi = ygList(zuishao).shifagongzi ygList(zuishao).shifagongzi = End If Next loadData End SubPrivate Sub Command5_Click()Dim linShi As YuanGong = InputBox(“請(qǐng)輸入要添加的姓名”, “添加員工姓名錄入”)If Len(Trim()) 0 Then = InputBox(“請(qǐng)輸入添加員工的基本工資”, “添加員工基本工資錄入”)If Len(Trim()) 0 Then = InputBox(“請(qǐng)輸入添加員工的津貼”, “添加員工津貼錄入”)If Len(Trim()) 0 Then = InputBox(“請(qǐng)輸入添加員工的個(gè)人所得稅”, “添加員工個(gè)稅錄入”)If Len(Trim()) 0 Then = InputBox(“請(qǐng)輸入添加員工的水電費(fèi)”, “添加員工水電費(fèi)錄入”)If Len(Trim()) 0 ThenOpen filedir For Append As 1Write 1, 。Close 1MsgBox “添加員工成功！”, vbOKOnly + vbInformation, “成功”jlNum = 0 If Len(Trim(filedir)) 0 ThenOpen filedir For Input As 1Do While Not EOF(1)Line Input 1, aIf Len(Trim(a)) 0 ThenjlNum = jlNum + 1End IfLoopClose 1ReDim Preserve ygList(jlNum)As YuanGongjlNum = 0Open filedir For Input As 1Do While Not EOF(1)jlNum = jlNum + 1Input 1, ygList(jlNum).ygnamgInput 1, ygList(jlNum).jibengzInput 1, ygList(jlNum).jingtieNextClose 1MsgBox “刪除員工成功！”, vbOKOnly + vbInformation, “成功”jlNum = 0 If Len(Trim(filedir)) 0 ThenOpen filedir For Input As 1Do While Not EOF(1)Line Input 1, aIf Len(Trim(a)) 0 ThenjlNum = jlNum + 1End IfLoopClose 1ReDim ygList(jlNum)As YuanGongjlNum = 0Open filedir For Input As 1Do While Not EOF(1)jlNum = jlNum + 1Input 1, ygList(jlNum).ygnamgInput 1, ygList(jlNum).jibengzInput 1, ygList(jlNum).jingtieInput 1, ygList(jlNum).gerensuiInput 1, ygList(jlNum).suidianfeiLoopClose 1loadData = True = False = False = True = True End If = “姓名” amp。 vbTab amp。 “工資” amp。 vbTab amp。 “津貼” amp。 vbTab amp。 “所得稅” amp。 vbTab amp。 “水電費(fèi)” amp。 vbCrLfFor i = 1 To jlNum = amp。 ygList(i).ygnamg amp。 vbTab amp。 ygList(i).jibengz amp。 vbTab amp。 ygList(i).jingtie amp。 vbTab amp。 ygList(i).gerensui amp。 vbTab amp。 ygList(i).suidianfei amp。 vbCrLfNext ElseMsgBox “刪除員工失敗！”, vbOKOnly + vbExclamation, “失敗” End If End SubPrivate Sub Command7_Click()
法律信息相關(guān)推薦
鄂ICP備17016276號(hào)-1