在项目事件的AfterOpenProject事件里写代码:
CurrentTable.Grid.Findform.Visible = False '隐藏 这一句不用的,多此一举.
Forms("自定义用户登录窗").open
把系统登录添加一个用户 设为默认就可以了.