主题：关闭除共有窗口所有窗体

If LastInputTickCount > 30000 Then
    For Each frm As WinForm.Form In forms
        If frm.Name <> "共有窗口" OrElse frm.Name <> "用户登录" Then
            frm.Close
        End If
    Next
   
    Forms("用户登录").Open()
   
    MainTable = Tables("首页")
    Forms("主窗体").Open()
End If