主题：注销代码里，把系统关闭前生成的临时表都删除

此主题相关图片如下：3.png

老师，我注销重新登录后，首页是这样的，那个表是临时表

我想问如何让注销和退出差不多，把该关闭的都关闭了， 登录后就是重新进入系统？

现在注销代码是这样的 ：

basemainform.visible = False
Forms("用户登录").Open()
Forms("首页").Close
Forms("首页").Open
Forms("单位管理").Close
Forms("单位管理").Open
Forms("部门管理").Close
Forms("部门管理").Open
Forms("用户管理主窗口").Close
Forms("用户管理主窗口").Open
Forms("人员管理窗口").Close
Forms("人员管理窗口").Open
Forms("历史库管理窗口").Close
Forms("历史库管理窗口").Open
RibbonTabs.SelectedTab = RibbonTabs("首页")

老师，有一个问题我实在不知道咋回事？

就是首页功能区去和窗口不对应

1、退出重新进的时候对着呢，

2、注销再登录进去时，那个先是首页窗口，1秒就跳转到人员窗口，首页窗口和人员窗口都绑定的是人员表，但是首页窗口我没有打开人员表，只是放了几个图表控件？

我实在不明白这是啥原因，如何让注销和退出功能一样，只是多了个登录窗口？

老师，这么弄显示对了，但是会有闪烁 ，首页窗口最后显示的对的，但是，显示对之前会有闪烁？从人员窗口闪到首页窗口？

老师，注销应当是把所有都关闭重启一遍，然后打开后是首页窗口，老师，请您指导一下，这个把所有关闭重启，或者就类似退出一样，是如何实现的？

为啥重新登录就不会有明显的窗口闪烁，而注销登录就有

老师，我想您应该明白我的需求了 ，那么您能给提供我解决方法么？

只有第一条重新打开项目有效果，就是登录窗口出现的有点慢，得5秒左右

basemainform.visible = False
'Forms("用户登录").Open()
'Dim ls As new List(Of String)
'For Each dt As DataTable In DataTables
    'If dt.Type = 5 Then
        'ls.add(dt.name)
    'End If
'Next
'For Each s As String In ls
    'DataTables.Unload(s)
'Next

 Syscmd.Project.Open(projectfile)

'
'Forms("单位管理").Close
'Forms("单位管理").Open
'Forms("部门管理").Close
'Forms("部门管理").Open
'Forms("用户管理主窗口").Close
'Forms("用户管理主窗口").Open
''Forms("人员管理窗口").Close
''Forms("人员管理窗口").Open
'Forms("历史库管理窗口").Close
'Forms("历史库管理窗口").Open
'Forms("首页").Close
'Forms("首页").Open
'RibbonTabs.SelectedTab = RibbonTabs("首页")

就保留了那两句代码？

老师，您这个方法目前没问题的。没有闪烁等其他问题

我在最前面加上了这句代码：basemainform.visible = False，，因为要退出那个界面，然后显示登录窗口