主题：判断单位用户首次登陆

If OpenFileargs.Count = 0 Then

    Dim cmd1 As New SQLCommand

    cmd1.ConnectionName = "数据源A"

    cmd1.CommandText = "SELECT 单位名称 From {机器码} where 机器码 = '" & ComputerId & "'"

    Dim dw As String = cmd1.ExecuteScalar

    If dw > "" Then

        Dim cmd2 As New SQLCommand

        Dim dt2 As DataTable

        cmd2.ConnectionName = "数据源A"

        cmd2.CommandText = "SELECT * From {用户授权} whwre 单位名称 = '" & dw & "'"

        dt2 = cmd2.ExecuteReader

        If dt2.DataRows.Count > 0 Then

            Dim dr2 As DataRow = dt2.DataRows(0)

            Dim s1 As String = dr2("数据源_密码")

            Dim s2 As String = dr2("数据源_用户名")

            Dim s3 As String = dr2("数据源_数据库名称")

            Dim s4 As String = dr2("数据源_IP")

            Dim cs As String = "Provider=SQLOLEDB.1;Password=" & s1 & ";Persist Security Info=True;User ID=" & s2 & ";Initial Catalog=" & s3 & ";Data Source=" & s4

            Syscmd.Project.Open(ProjectFile,cs)

            Return

        End If

    End If

End If

afteropenproject事件类似这里的用法：http://www.foxtable.com/webhelp/topics/2495.htm