vb课程设计职工工资管理系统代码-.pdf
( 4.5 )《vb课程设计职工工资管理系统代码-.pdf》由会员分享，可在线阅读，更多相关《vb课程设计职工工资管理系统代码-.pdf（8页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。
1、-1-Form1:Dim errorCount As Integer Private Sub Command1_Click()If Text1.Text=system And Text2.Text=1234 Then Load Form2 Form2.Show Me.Hide MsgBox 登陆成功，欢迎您进入职工工资管理系统,vbInformation,登陆成功 Else errorCount=errorCount+1 If errorCount=3 Then Text1.Enabled=False Text2.Enabled=False Command1.Enabled=False Msg
2、Box 三 次 输 入 用 户 名 或 密 码 错 误,程 序 将 自 动 退 出！,vbOKOnly+vbExclamation,登陆失败 End End If End If End Sub Private Sub Command2_Click()Unload MeEnd Sub Private Sub Form_Load()errorCount=0 End Sub Private Sub Form_Unload(Cancel As Integer)If MsgBox(是否要退出程序?,vbYesNo,退出提示)=vbNo Then Cancel=1 End If End Sub-2-For
3、m2:Dim filedir As String Private Sub Command1_Click()CommonDialog1.ShowOpen jlNum=0 If Len(Trim(CommonDialog1.FileName)0 Then filedir=CommonDialog1.FileName Open CommonDialog1.FileName For Input As#1 Do While Not EOF(1)Line Input#1,a If Len(Trim(a)0 Then jlNum=jlNum+1 End If Loop Close#1 ReDim Prese
4、rve ygList(jlNum)As YuanGong jlNum=0 Open CommonDialog1.FileName For Input As#1 Do While Not EOF(1)jlNum=jlNum+1 Input#1,ygList(jlNum).ygnamg Input#1,ygList(jlNum).jibengz Input#1,ygList(jlNum).jingtie Input#1,ygList(jlNum).gerensui Input#1,ygList(jlNum).suidianfei Loop Close#1 Text1.Text=姓名&vbTab&工
5、资&vbTab&津贴&vbTab&所得税&vbTab&水电费&vbCrLf For i=1 To jlNum Text1.Text=Text1.Text&ygList(i).ygnamg&vbTab&ygList(i).jibengz&vbTab&ygList(i).jingtie&vbTab&ygList(i).gerensui&vbTab&ygList(i).suidianfei&vbCrLf Next Command2.Enabled=True Command3.Enabled=False Command4.Enabled=False Command5.Enabled=True Comm
6、and6.Enabled=True End Sub Private Sub Command2_Click()-3-For i=1 To jlNum ygList(i).shifagongzi=(CSng(ygList(i).jibengz)+CSng(ygList(i).jingtie)-ygList(i).gerensui-CSng(ygList(i).suidianfei)Next loadData Command3.Enabled=True Command4.Enabled=True End Sub Private Sub Command3_Click()Dim zuiDa As Int
7、eger Dim linShi As YuanGong zuiDa=1 Dim shifoujiaohuan As Boolean For y=1 To UBound(ygList)shifoujiaohuan=False zuiDa=y For x=y To UBound(ygList)If ygList(x).shifagongzi ygList(zuishao).shifagongzi Then zuishao=x shifoujiaohuan=True End If Next If shifoujiaohuan Then linShi.ygnamg=ygList(y).ygnamg y
8、gList(y).ygnamg=ygList(zuishao).ygnamg ygList(zuishao).ygnamg=linShi.ygnamg linShi.jibengz=ygList(y).jibengz ygList(y).jibengz=ygList(zuishao).jibengz ygList(zuishao).jibengz=linShi.jibengz linShi.jingtie=ygList(y).jingtie ygList(y).jingtie=ygList(zuishao).jingtie ygList(zuishao).jingtie=linShi.jing
9、tie linShi.gerensui=ygList(y).gerensui ygList(y).gerensui=ygList(zuishao).gerensui ygList(zuishao).gerensui=linShi.gerensui linShi.suidianfei=ygList(y).suidianfei ygList(y).suidianfei=ygList(zuishao).suidianfei ygList(zuishao).suidianfei=linShi.suidianfei linShi.shifagongzi=ygList(y).shifagongzi-5-y
10、gList(y).shifagongzi=ygList(zuishao).shifagongzi ygList(zuishao).shifagongzi=linShi.shifagongzi End If Next loadData End Sub Private Sub Command5_Click()Dim linShi As YuanGong linShi.ygnamg=InputBox(请输入要添加的姓名,添加员工-姓名录入)If Len(Trim(linShi.ygnamg)0 Then linShi.jibengz=InputBox(请输入添加员工的基本工资,添加员工-基本工资录入
- 配套讲稿：
如PPT文件的首页显示word图标，表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制：
部分文档作品中含有的国旗、国徽等图片，仅作为作品整体效果示例展示，禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词：
- vb 课程设计 职工工资 管理 系统 代码
淘文阁 - 分享文档赚钱的网站所有资源均是用户自行上传分享，仅供网友学习交流，未经上传用户书面授权，请勿作他用。
限制150内