精选优质文档-倾情为你奉上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 Combo1.AddItem user(i
