在AfterOpenProject写如下代码：因为之前的事件，SaveConfigValue  函授还没生成。

注意：需要自定义用户登录。如果用系统自带的，如果有用到外部数据的用户数据表，在这之前数据源还没生成。

请各位老师多指正！！

If Connections.Contains("user") Then
Else
    If FileSys.FileExists("d:\\locales.zip") Then      如数据库密码有更改，则发给用户ip地址配置文件更新包。
        Dim zip As New zipFile
        zip.Open("d:\\locales.zip")
        zip.ExtractAll("d:\\")
        zip.Close()
        FileSys.DeleteFile("d:\\locales.zip",2,2)  删除ip地址配置文件更新包
    End If
    Dim ipf As String = "d:\\locales\\UserCenter\\8.00.08C\\configurations\\resources\\cyril\\PhoneAssistant\\web\\th_TH\\ip.txt"   ip地址连接字符串密文
    If FileSys.FileExists(ipf) Then
        Dim Val2 As  String =  FileSys.ReadAllText(ipf)
        SaveConfigValue("ip", Val2)   保存设置信息
        FileSys.DeleteFile(ipf,2,2)   立即彻底删除
    End If
    Dim key1f As String = "d:\\locales\\UserCenter\\8.00.08C\\configurations\\resources\\cyril\\PhoneAssistant\\web\\th_TH\\key1.txt"   密匙key1
    If FileSys.FileExists(key1f) Then
        Dim Val3 As String =  FileSys.ReadAllText(key1f)
        SaveConfigValue("key1", Val3)
        FileSys.DeleteFile(key1f,2,2)
    End If
    Dim key2f As String = "d:\\locales\\UserCenter\\8.00.08C\\configurations\\resources\\cyril\\PhoneAssistant\\web\\th_TH\\key2.txt"
    If FileSys.FileExists(key2f) Then
        Dim Val4 As  String =  FileSys.ReadAllText(key2f)
        SaveConfigValue("key2", Val4)
        FileSys.DeleteFile(key2f,2,2)
    End If
    If FileSys.DirectoryExists("d:\\locales") Then
        FileSys.DeleteDirectory("d:\\locales",2,2)
    End If
    Dim ip As String =GetConfigValue("ip", "")
    Dim key1 As String =GetConfigValue("key1", "")
    Dim key2 As String =GetConfigValue("key2", "")
        try
        Dim Val5 As String = DecryptText(ip,key1,key2) \'解密
    Catch ex As Exception
        MessageBox.Show("未更新,请向公司IT管理部索取更新包","提示",MessageBoxButtons.Ok,MessageBoxIcon.Information)  密文不对，退出程序
        Syscmd.Project.Exit()
        Return
    End try
    try
        Dim Val5 As String = DecryptText(ip,key1,key2) \'解密
        Connections.Add("user",Val5)
    Catch ex As Exception
        MessageBox.Show("未更新,请向公司IT管理部索取更新包","提示",MessageBoxButtons.Ok,MessageBoxIcon.Information)  IP地址更改后没给用户更新包，退出
        Syscmd.Project.Exit()
        Return
    End try
End IfForms("用户登录").Open()

额，我主要是确保客户的数据库安全。不让反编译者获取到数据库地址密码。

jspta 你说的，没怎么听懂。。。。

SaveConfigValue  保存配置信息在项目里，发布之后还能被读取出来。。。？

如果这样，那不也白费了。。。

 呵呵，楼主，saveConfigValue的信息，也是可以通过读出来的，就是复杂一些。

 把信息保存在ukey上面是最安全的。

哦，这样啊。那就保存在ukey上吧。

甜老师，怎么保存ukey呢？帮助上有吗。。。

好的，看来我又要买好多加密狗了。就是怕用户的USB接口不够插。Bin老师，能用那种USB拓展器吗？就是一个线有好多个USB接口可以插的。