主题：当连接外部数据源的连接字符串不正确时,怎样让系统自动退出?

这怎么可以？

一个系统如果只对开发者开放连接，那我们做的系统谁还敢要？
开发者并不是真正意义上的使用者，用户最终做的程序要提供管理员权限交由别人使用，开发者权限并不提供给用户，所以对用户来说管理员才是真正的最高权限者，如果连管理员都没有这个权限那怎么行，假如我请人做个系统，还得告诉别人我的服务器用户名和密码，我能放心？

所以这个建议我都可以否决。

前面好多人都提出了自己的意见,我这个门外汉也来说说,

本身我们单位已有一医院信息管理HIS系统,采用ORACLE数据库,它的做法是安装客户端时已经在进行数据库链接的设置,设置正确才能正常运行,而安装客户端的工作当然是开发者或者系统管理员做的,安装完成后,当后台数据库没打开情况下,客户端直接弹出后台数据库关闭提示,根本不提供任何更改机会,更不要说能看到链接字符串.....

鉴于此,链接字符串并不需要在客户端启动出现链接错误时更改,只是在安装时一次设置完成.以后需要更改链接密码时,重新安装客户端更改链接即可.

我想,不会有哪个管理员会频繁更改链接字符串吧?即使有也可以用下面的方法解决.普通操作人员根本不需要也不允许接触如此重要的数据机密...

BeforeConnectOuterDataSource事件

示例四

假定有一个名为“销售数据”远程数据源，默认的IP地址为119.119.120.120，因为服务器的调整，IP地址可能会发生变化，导致数据源无法连接。
为解决这个问题，可以在用户管理窗口增加一个名为IP的扩展用户属性，让用户在登录的时候，可以输入另一个IP地址，然后在BeforeConnectOuterDataSource事件中加入下面的代码：

If e.Name = "销售数据" Then
    Dim IP As String = e.User.ExtendedValues("IP") '获得用户输入的IP
    If IP > "" '如果用户自己输入了IP
        '则用用户输入的IP替换原来的IP
        e.ConnectionString = e.ConnectionString.Replace("119.119.120.120", IP)
    End If
End If

你也可以用另一种方法解决，在项目文件目录下创建一个ip.txt的文本文件，在该文件中输入最新的IP地址，并在BeforeConnectOuterDataSource事件中设置如下代码：

Dim ipFile As String = e.ProjectPath & "ip.txt"
If e.Name = "销售数据" Then
    If Filesys.FileExists(ipFile) Then
        Dim ip As String = FileSys.ReadAllText(ipFile)
        e.ConnectionString = e.ConnectionString.Replace("119.119.120.120",ip)
    End If
End If

以下是引用狐狸爸爸在2009-3-23 17:19:00的发言：
刚刚加上的，以后各取所需：


此主题相关图片如下：abc.gif

Very Good!

以下是引用狐狸爸爸在2009-3-23 17:19:00的发言：
刚刚加上的，以后各取所需：


此主题相关图片如下：abc.gif

     希望不仅在菜单的项目属性中加这样一个选项,同时允许用代码变更此选项!例如:在项目没有完成的时候,如果是开发者进入,则此项设为True;若是其他操作员进入,则此项设为False.
     另外,还有以前我提到的关于"是否显示列标题"的选项,希望也增加用代码修改的功能.

    从理论上来讲,凡是菜单中能更改的选项,用代码肯定也可以更改,所以,希望贺老师提供一下方便!这样会使这些选项的设置更为灵活方便!