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