人力资源管理系统的设计与实现
ElseIf Txtold.Text <> frmLogin.CurPsw Then MsgBox \ Txtold.SetFocus TxtNew1.Text = \ TxtNew2.Text = \ SendKeys \ Exit Sub
Else fil=FreeFile()
Open App.Path+”\%user.ini”For Input As #fil I=0
Do While Not EOF(fil) Input#fil,user(i),pws(i)
Input#fil,state (i),Emplo(i) I=i+1 Loop
Usercount=i Close#fil
Pws(frmLogin.CurID)=TxtNew1.Text frmLogin.CufPsw=TxtNew1.Text fil=FreeFile()
Open App.Path+”\%user.ini” For Output As#fil For i=0 To Usercount-1
Pint#fil,user(i);”:”;pws(i);”:”;state(i);”.”;Emplo(i)
Next i Close #fil Txtold.Text = \ TxtNew1.Text = \ TxtNew2.Text = \
Me.Hide
If FrmMain.Pwin = \ FrmMain.Enabled = True FrmMain.SetFocus
38
湖南工程学院毕业设计（论文）
Else Call FrmSys.ActiveAll
FrmSys.SetFocus
End If End If End Sub
39