人力资源管理系统源代码.pdfVIP

1）登陆窗体代码设计 窗体代码主要实现了连接数据库的功能， 这里用于连接用户信息表。 其程序 如下： Private Sub Form_Load() Dim i As Integer If App.PrevInstance Then MsgBox ( 程序已经运行，不能再次装载。 ), vbExclamation Unload Me End If 本段代码用于判定本程序是否已经装载于内存中， 以避免程序的多重启 动 i = 0 Open App.Path + \user.ini For Input As #1 Do While Not EOF(1) Input #1, user(i), pws(i), state(i), Emplo(i) If state(i) = A Then