BeforeConnectOuterDataSource 事件：

Dim n As Integer = OpenFileArgs.Count

If OpenFileArgs.Count = 0 Then

    If e.name = "project" Then

       e.C & e.ProjectPath & "pro.mox;Persist Security Info=False;Jet OLEDB:Database Password=c5wfC+5&5iw5"

    ElseIf e.name = "menu" Then

        e.C & e.ProjectPath & "menu.menu;Persist Security Info=False;Jet OLEDB:Database Password=kr(na5tm+I"

    ElseIf e.name = "history" Then

        e.C & e.ProjectPath & "history.his;Persist Security Info=False;Jet OLEDB:Database Password=tY3wS79fZ3"

    End If

Else

    If e.name = "project" Then

        e.ConnectionString = OpenFileArgs(0)

    ElseIf e.name = "menu" Then

        e.C & e.ProjectPath & "配置文件\\目录文件.menu;Persist Security Info=False;Jet OLEDB:Database Password=ka5tm+I"

    ElseIf e.name = "history" Then

        e.C & e.ProjectPath & "配置文件\\历史数据.his;Persist Security Info=False;Jet OLEDB:Database Password=tY9sV9fZ3"

    End If

End If

AfterOpenProject 事件

If OpenFileArgs.Count = 0 Then

    Vars("GoOn") = False

    Forms("登录").Show()

    If Vars("GoOn") = True Then

        Syscmd.Project.Open(ProjectFile, vars("conn"), vars("project_name"))

        Return

    Else

        Syscmd.Project.Exit()

    End If

end if

  Forms("登录") 事件

Dim txt As WinForm.ComboBox = e.Form.Controls("ComboBox1")

If txt.Text > "" Then

    Dim dis_project As String = ProjectPath & "工程文件\\" & txt.Text & ".mox"

    Vars("GoOn") = True

    vars("conn") = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source =" & dis_project & ";Persist Security Info=False;Jet OLEDB:Database Password=c5w&5iw5"

    Vars("project_name") = txt.Text

    e.Form.Close

End If