vb课程设计职工工资管理系统代码

《vb课程设计职工工资管理系统代码》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、Form1:DimerrorCountAsIntegerPrivateSubCommandl_Click()IfText1.Text=''system"AndText2.Text=n1234"ThenLoadForm2Form2.ShowMe.HideMsgBox"登陆成功，欢迎您进入职工工资管理系统"，vblnformation,"登陆成功ElseerrorCount=errorCount+1IferrorCount<3ThenMsgBox1•川户名或密码错误(策”&errorCount&”次)！n，vbOKOnly+vbE

2、xclamation，"登陆失败nTextl.SetFocusEndIfIferrorCount>=3ThenText1.Enabled=FalseText2.Enabled=FalseCommand1.Enabled=FalseMsgBox•’三次输入用户名或密码错误，程序将自动退出！"，vbOKOnly+vbExclamation,"登陆失败"EndEndIfEndIfEndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubForm_Load()errorCount=

3、0EndSubPrivateSubForm_Unload(CancelAsInteger)IfMsgBoxf是否要退出程序?'vbYesNo,1•退出提示")=vbNoThenCancel=1EndIfEndSubForm2:DimfiledirAsStringPrivateSubCommandl_Click()CommonDialogl.ShowOpenjlNum=0IfLen(Trim(CommonDialog1.FileName))>0Thenfiledir=CommonDialogl.FileNameOpenCommo

4、nDialogl.FileNameForInputAs#1DoWhileNotEOF(l)LineInput#1,aIfLen(Trim(a))>0ThenjlNum=jlNum+1EndIfLoopClose#1ReDimPreserveygList(jlNum)AsYuanGongjlNum=0OpenCommonDialogl.FileNameForInputAs#1DoWhileNotEOF(l)jlNum=jlNum+1Input#1，ygList(jlNum).ygnamgInput#1，ygList(jlNum)

5、.jibengzInput#1，ygList(jlNum).jingtieInput#1，ygList(jlNum).gerensuiInput#1，ygLi$t(jlNum).suidianfeiLoopClose#1Text1.Text="姓名"&vbTab&工资，，&vbTab&"津贴"&vbTab&"所得税”&vbTab&n水电费n&vbCrLfFori=1TojlNumText1.Text=Text1.Text&ygList(i).ygnamg&vbTab&ygList(i).jibengz&vbTab&ygList

6、(i).jingtie&vbTab&ygList(i).gerensui&vbTab&ygList(i).suidianfei&vbCrLfNextCommand2.Enabled=TrueCommand3.Enabled=FalseCommand4.Enabled=FalseCommand5.Enabled=TrueCommand6.Enabled=TrueEndSubPrivateSubCommand2_Click()CSng(ygList(i).jingtie)Fori=1TojlNumygList(i).shifago

7、ngzi=(CSng(ygList(i).jibengz)+ygList(i).gerensui-CSng(ygList(i).suidianfei))NextloadDataCommand3.Enabled=TrueCommand4.Enabled=TrueEndSubPrivateSubCommand3_Click()DimzuiDaAsIntegerDimlinShiAsYuanGongzuiDa=1DimshifoujiaohuanAsBooleanFory=1ToUBound(ygList)shifoujiaohua

8、n=FalsezuiDa=yForx=yToUBound(ygList)IfygList(x).shifagongzi