- 1 -Form1:Dim errorCount As Integer Private Sub Command1_Click() If Text1.Text = “system“ And Text2.Text = “1234“ ThenLoad Form2Form2.ShowMe.HideMsgBox “登陆成功，欢迎您进入职工工资管理系统“, vbInformation, “登陆成功“ElseerrorCount = errorCount + 1If errorCount = 3 ThenText1.Enabled = FalseText2.Enabled = FalseCommand1.Enabled = FalseMsgBox “三次输入用户名或密码错误,程序将自动退出！“, 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 Sub- 2 -Form2:Dim filedir As String Private Sub Command1_Click() CommonDialog1.ShowOpen jlNum = 0 If Len(Trim(CommonDialog1.FileName) 0 Then filedir = CommonDialog1.FileNameOpen CommonDialog1.FileName 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 CommonDialog1.FileName For Input As #1 Do While Not EOF(1) jlNum = jlNum + 1 Input #1, ygList(jlNum).ygnamgInput #1, ygList(jlNum).jibengzInput #1, ygList(jlNum).jingtieInput #1, ygList(jlNum).gerensuiInput #1, ygList(jlNum).suidianfeiLoopClose #1Text1.Text = “姓名“ linShi.jibengz; linShi.jingtie; linShi.gerensui; linShi.suidianfeiClose #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).jingtie- 6 -Input #1, ygList(jlNum).gerensuiInput #1, ygList(jlNum).suidianfeiLoopClose #1Command2.Enabled = TrueCommand3.Enabled = FalseCommand4.Enabled = FalseCommand5.Enabled = TrueCommand6.Enabled = True End IfText1.Text = “姓名“ ygList(i).jibengz; ygList(i).jingtie; ygList(i).gerensui; ygList(i).suidianfeiEnd If- 7 -NextClose #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 #1loadDataCommand2.Enabled = TrueCommand3.Enabled = FalseCommand4.Enabled = FalseCommand5.Enabled = TrueCommand6.Enabled = True End IfText1.Text = “姓名“ & vbTab & “工资“ & vbTab & “津贴“ & vbTab & “所得税“ & vbTab & “水电费“ & vbCrLfFor i = 1 To jlNumText1.Text = Text1.Text & ygList(i).ygnamg & vbTab & ygList(i).jibengz & vbTab & ygList(i).jingtie & vbTab & ygList(i).gerensui & vbTab & ygList(i).suidianfei & vbCrLfNext ElseMsgBox “删除员工失败！“, vbOKOnly + vbExclamation, “失败“ End If End SubPrivate Sub Command7_Click()- 8 -Unload Me End SubPrivate Sub Form_Load() Command2.Enabled = False Command3.Enabled = False Command4.Enabled = False Command5.Enabled = False Command6.Enabled = False End SubPrivate Sub Form_Unload(Cancel As Integer) If MsgBox(“是否要退出程序?“, vbYesNo, “退出提示“) = vbNo ThenCancel = 1 Else MsgBox “感谢您使用职工工资管理系统“, vbInformationEnd End If End SubPrivate Sub loadData() Text1.Text = “姓名“ & vbTab & “工资“ & vbTab & “津贴“ & vbTab & “所得税“ & vbTab & “ 水电费“ & vbTab & “实发工资“ & vbCrLf For i = 1 To jlNumText1.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 SubModule 1:Public Type YuanGongygnamg As Stringjibengz As Integerjingtie As Integergerensui As Singlesuidianfei As Integershifagongzi As Single End TypePublic jlNum As Integer Public ygList() As YuanGong