主题：打开其它系统

以下是引用lin_hailun在2012-9-21 14:05:00的发言：

回复楼上，当然可以是变量......

以下是引用muhua在2012-9-21 15:35:00的发言：

自定义权限管理：http://www.foxtable.com/help/topics/2048.htm

 

四、在全局代码中定义两个变量：

Public _UserName As String
Public _UserGroup As String

 

 

就是这个。

 

Syscmd.Project.Open(fl,_UserName,_UserGroup)

以下是引用muhua在2012-9-22 9:38:00的发言：

要用自定义用户的哦，不能用系统的用户来登陆的哦。

 

我的意思是变量参数传递是可以的。

 

如果是要登陆，肯定也是自定义用户才可以，系统用户无法调用的。而且需要是外部数据源。

以下是引用muhua在2012-9-22 9:38:00的发言：

要用自定义用户的哦，不能用系统的用户来登陆的哦。

 

我的意思是变量参数传递是可以的。

 

如果是要登陆，肯定也是自定义用户才可以，系统用户无法调用的。而且需要是外部数据源。

以下是引用muhua在2012-9-24 8:50:00的发言：

既然是传递参数打开新的项目，怎么还要打开登陆窗口呢，这样还有什么传递参数的意义？？？

 

http://www.foxtable.com/help/topics/2495.htm

 

 Return '直接返回,不出现登录窗口

 

注意看这句，意思就是，如果是通过参数进行传递的，是正确的话，就返回了，就执行不了下面的登陆窗口的代码，就不需要打开登陆窗口了。

 

两个项目都是用自定义用户管理做的登陆页面。

以下是引用muhua在2012-9-27 9:33:00的发言：

我当然验证过啊。

 

还是出现登陆窗口，是不是你的登陆窗口是系统自带的窗口，如果是系统自带的，需要设置默认用户，就不会出现了。

 

自定义窗口的Forms("登陆窗口").Open()，是已经Return ，是不会出现的了。

 

 

 

需要不同项目打开无登陆打开，是要设置系统登陆为默认用户登陆，登陆的时候使用自己的自定义登陆窗口的。

以下是引用muhua在2012-9-27 9:43:00的发言：

把你要打开的第二个项目的AfterOpenProject的代码发上来。

以下是引用muhua在2012-9-27 10:27:00的发言：

明白了，需要增加个变量：

 

Public _UserPassword As String   

 

需要在登陆的时候设置    _UserPassword = e.Form.Controls("PassWord").Value

 

传递的时候使用的是：Syscmd.Project.Open(fl,_UserName,_UserPassword)

 

这样才有效。

 

 

呵呵，我就觉得奇怪了，怎么一直做都不行，原来是参数传递错了， 之前给你的只是个例子，你没把_UserRole 改为_UserPassword

 

密码传递不正确，当然出现登陆窗口了。

以下是引用muhua在2012-9-27 10:27:00的发言：

明白了，需要增加个变量：

 

Public _UserPassword As String   

 

需要在登陆的时候设置    _UserPassword = e.Form.Controls("PassWord").Value

 

传递的时候使用的是：Syscmd.Project.Open(fl,_UserName,_UserPassword)

 

这样才有效。

 

 

呵呵，我就觉得奇怪了，怎么一直做都不行，原来是参数传递错了， 之前给你的只是个例子，你没把_UserRole 改为_UserPassword

 

密码传递不正确，当然出现登陆窗口了。