那么我们就可以在其他项目中通过下面的下面的代码直接打开此项目：

Dim fl As String = "C:\\foxtable\\商业版\\CaseStudy\\自定义用户管理.Table"
Syscmd.Project.Open(fl,"吴晓","888")

传递过去的用户名为“吴晓”，密码为“888”，如果用户名和密码正确，将直接进入系统，否则出现登陆窗口。

这样每个项目都是独立的，开发的时候容易驾驭，而实际使用的时候，这些项目看起来又是一个整体(共用数据库和用户信息)，能相互无缝切换。
但是采用这种方式不能采用系统内置的用户管理，必须自定义用户管理，代码的重用也不如集成在一个项目开发好。

重要提示：

已经发布的项目，也可以采用上述方法打开。
发布后的项目文件位于Publish目录下的Project子目录下，文件名和原项目文件相同，后缀名为：FoxEx

现在是：

新模块的

Forms("共有窗口").show

Forms("主窗口").show

TableCaptionVisible = False

放在AfterOpenProject，不能打开？

请教应放在哪个事件？

谢谢Bin老师

晕菜！

If OpenFileargs.Count = 2 Then \'如果传递了两个参数
    Dim UserName As String = openFileargs(0) \'获得第一个参数,也就是用户名
    Dim cmd As New S QLCommand
    Dim dt As DataTable
    Dim dr As DataRow
    cmd.C onnectionName = "User"
    If UserName = "" Then
        Messagebox.show("请选择用户!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        Return
    End If
    cmd.C ommandText = "S elect * From {Users} Where [Name] = \'" & UserName & "\'"
    dt = cmd.E xecuteReader
    dr = dt.DataRows(0)
    If dr("Password") = OpenFileArgs(1) Then \'如果密码等于第二个参数
        _UserName = OpenFileargs(0)
        _UserGroup = dr("Group")

...............

...............复制一份AfterOpenProject事件中所有要执行的代码放在这儿！

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