用外部数据源自定义用户管理,打开项目第一个打开的依然是内置的登录窗,第二个才是自定义的。
在项目事件
AfterOpenProject中,已放置了如下代码
Dim cmd As New SQLCommandcmd.Ccmd.CommandText = "SELECT * Fr om {Users} Where [Name] Is Null"_UserTable = cmd.ExecuteReader(True)
Fo rms("用户登录").Open()If _UserName = "" Then Syscmd.Project.Exit() Return
End If
请兰老师指点迷津