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

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 MsgBox 用户名或密码错误(第 errorCount 次)！, vbOKOnly + vbExclamation, 登陆失败 Text1.SetFocus End If If errorCount = 3 Then Text1.Enabled = False Text2.Enabled = False Command1.Enabled = False MsgBox 三次输入用户名或密码错误,程序将自动退出！, vbOKOnly + vbExclamation, 登陆失败 End End If End If End Sub Private Sub Command2_Click() Unload Me End 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 Form2: 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 Preserve 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 工资 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.E