basemainform.text ="离退休干部信息管理系统"Forms("用户登录").Open()If _UserName = "" Then Syscmd.Project.Exit() Return '这个要加上,因为既然要退出,就不应该再执行后面的初始化代码了,否则会出错End If
Forms("首页").open()MainTable = Tables("person")If User.Type <> UserTypeEnum.Developer TableCaptionVisible = FalseEnd If
这个是代码,应该登录进去就是首页,但是,这个系统不是,是闪一下加载的表,然后再换成首页