《vb课程设计职工工资管理系统代码-.pdf》由会员分享，可在线阅读，更多相关《vb课程设计职工工资管理系统代码-.pdf（8页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
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(请输入添加员工的基本工资,添加员工-基本工资录入
11、)If Len(Trim(linShi.jibengz)0 Then linShi.jingtie=InputBox(请输入添加员工的津贴,添加员工-津贴录入)If Len(Trim(linShi.jingtie)0 Then linShi.gerensui=InputBox(请输入添加员工的个人所得税,添加员工-个税录入)If Len(Trim(linShi.gerensui)0 Then linShi.suidianfei=InputBox(请输入添加员工的水电费,添加员工-水电费录入)If Len(Trim(linShi.suidianfei)0 Then Open filedir Fo
12、r Append As#1 Write#1,linShi.ygnamg;linShi.jibengz;linShi.jingtie;linShi.gerensui;linShi.suidianfei Close#1 MsgBox 添加员工成功！,vbOKOnly+vbInformation,成功 jlNum=0 If Len(Trim(filedir)0 Then Open filedir 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
13、 ReDim Preserve ygList(jlNum)As YuanGong jlNum=0 Open filedir 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-6-Input#1,ygList(jlNum).gerensui Input#1,ygList(jlNum).suidianfei Loop Close#1 Command2.Enabled=True
14、Command3.Enabled=False Command4.Enabled=False Command5.Enabled=True Command6.Enabled=True End If Text1.Text=姓名&vbTab&工资&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)
15、.suidianfei&vbCrLf Next Else MsgBox 添加员工失败！,vbOKOnly+vbExclamation,失败 End If Else MsgBox 添加员工失败！,vbOKOnly+vbExclamation,失败 End If Else MsgBox 添加员工失败！,vbOKOnly+vbExclamation,失败 End If Else MsgBox 添加员工失败！,vbOKOnly+vbExclamation,失败 End If Else MsgBox 添加员工失败！,vbOKOnly+vbExclamation,失败 End If End Sub Pri
16、vate Sub Command6_Click()Dim str As String str=InputBox(请输入要删除的员工名字,删除员工信息)If Len(Trim(str)0 Then Open filedir For Output As#1 For i=1 To jlNum If str ygList(i).ygnamg Then Write#1,ygList(i).ygnamg;ygList(i).jibengz;ygList(i).jingtie;ygList(i).gerensui;ygList(i).suidianfei End If-7-Next Close#1 MsgB
17、ox 删除员工成功！,vbOKOnly+vbInformation,成功 jlNum=0 If Len(Trim(filedir)0 Then Open filedir 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 ygList(jlNum)As YuanGong jlNum=0 Open filedir For Input As#1 Do While Not EOF(1)jlNum=jlNum+1 Input#1,ygL
18、ist(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 loadData Command2.Enabled=True Command3.Enabled=False Command4.Enabled=False Command5.Enabled=True Command6.Enabled=True End If Text1.Text=姓名&vbT
19、ab&工资&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 Else MsgBox 删除员工失败！,vbOKOnly+vbExclamation,失败 End If End Sub Private Sub Command7_Click()-
20、8-Unload Me End Sub Private Sub Form_Load()Command2.Enabled=False Command3.Enabled=False Command4.Enabled=False Command5.Enabled=False Command6.Enabled=False End Sub Private Sub Form_Unload(Cancel As Integer)If MsgBox(是否要退出程序?,vbYesNo,退出提示)=vbNo Then Cancel=1 Else MsgBox 感谢您使用职工工资管理系统,vbInformation
21、End End If End Sub Private Sub loadData()Text1.Text=姓名&vbTab&工资&vbTab&津贴&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&vbTab&ygList(i).shifagongzi&vbCrLf Next End Sub Module 1:Public Type YuanGong ygnamg As String jibengz As Integer jingtie As Integer gerensui As Single suidianfei As Integer shifagongzi As Single End Type Public jlNum As Integer Public ygList()As YuanGong