VB程序两层C/S转三层

最新推荐文章于 2021-12-16 09:34:29 发布

pcwe2002

最新推荐文章于 2021-12-16 09:34:29 发布

阅读量2.7k

点赞数

分类专栏： satrda 文章标签： vb三层 pb三层 satrda 外网访问

本文链接：https://blog.csdn.net/pcwe2002/article/details/52000119

版权

satrda 专栏收录该内容

19 篇文章 18 订阅

订阅专栏

很多朋友肯定遇到过这样的需求，以前开发的老程序，采用CS架构，客户端直接连接数据库，这样的程序在很长一段时间内占据了主流。程序在客户的局域网里面一直运行良好。突然有一天，客户说我要开分店了，我的分店能不能使用这个软件和总店连接？我经常在外面，你的软件在外网上能不能操作和进行报表查看？好吧，客户是上帝（神马人民币？）于是乎，开始忙碌。。。

最先想到工作量最少，那么把数据库迁移到外网，程序直接访问外网数据库。看起来不错，但是数据库暴露在互联网上，心里总感觉有点不踏实，
好吧，不管了，先满足需要吧，客户又不知道，还有谁没事去攻击这个呢。。。。说服自己后开始干了，很快完成了。配置一下就行，确实方便
几乎不用改什么，可是一测试，泥马，速度怎么比局域网慢这么多，自己都接受不了，怎么给客户？
没办法开始改方案，自己建个服务器，把业务逻辑分离出来移到服务器上，服务器和客户端使用指定协议进行交互。服务器开发用什么语言？服务器
稳定吗？怎么和客户端交互？大数据量能不能抗得住？很多客户连接会不会有问题？。。。一堆问题，费了不少脑细胞终于想通了，可是程序好几十个模块，

怎么分离，要多久，修改之后稳定吗，hold不住了。

好吧，我承认，前面的场景都是为了引出我们的主角SATRDA, 这样的场景确实是我经历过后才有了SATRDA这个组件。我就不多介绍了，

下载地址：

http://download.csdn.net/detail/pcwe2002/9690008

最新版本下载，交流请到QQ群：345559891

包括PB,delphi,VB示例。大家可以下载后看说明：）

附一个和两层的速度对比，

服务器端配置：阿里云单核1G，1M带宽

客户端：XP 酷睿I5 2G， 20M带宽

下面进行主题。

为了演示，我从网上搜了一个两层的VB超市管理系统，后台数据库是sqlserver

下载地址：

http://www.codesky.net/showhtml/7122.htm

解压后，发现运气不错，还有说明，按照说明用他的工具把数据库建立起来了（挺方便，赞一下）。
找开后台管理文件夹，按说明注册了控件。
打开SuperMarket.vbp，点运行出现了登录界面

看来能运行，不过数据连接没改，肯定连不上数据库，退出来，看看代码。登录窗口很好找，一看名称frmLogin肯定是你了，

找到确定按钮的代码，发现了连接函数sqlConnect, 把连接串改成我的数据库，再进入，输入密码admin, 进去了，看界面还不错，点几个界面操作了下，也正常。

程序没问题，好，那我们进入主题，看看如何改成三层的。（我们先假设你已经看过了SATRDA的说明）

1.打开SATRDA的Server文件夹，用文本编辑器打开dbconfig文件，我使用的notepad++，比notepad格式看起来好些，看起来像这样

{
	"mssql": {
		"DBType": "odbc",
		"Provider": "driver=sql server native client 10.0;server=X6P2J80LPMLFALP\\SQLEXPRESS;uid=dbuser;pwd=sql;database=test"
	},
	"orcl": {
		"DBType": "odbc",
		"Provider": "driver=Oracle in OraDb10g_home1;SERVER=ORCL;uid=system;pwd=sql;EXC=T"
	},
	"mytest": {
		"DBType": "sqlite",
		"Provider": "dbname=ccc"
	}
}

因为用的sqlserver数据库，我复制一个mssql,修改后像这样

{
	"mssql": {
		"DBType": "odbc",
		"Provider": "driver=sql server native client 10.0;server=X6P2J80LPMLFALP\\SQLEXPRESS;uid=dbuser;pwd=sql;database=test"
	},
	"marketdb": {
		"DBType": "odbc",
		"Provider": "driver=sql server native client 10.0;server=X6P2J80LPMLFALP\\SQLEXPRESS;uid=dbuser;pwd=sql;database=SuperMarketdb;"
	},
	"orcl": {
		"DBType": "odbc",
		"Provider": "driver=Oracle in OraDb10g_home1;SERVER=ORCL;uid=system;pwd=sql;EXC=T"
	},
	"mytest": {
		"DBType": "sqlite",
		"Provider": "dbname=ccc"
	}
}

2. 运行satserver.exe, 如果成功，那么恭喜你。有可能看到界面闪了一下，就不见，那么就是端口号被占用了，打开config文件

{
	"TAG": "QQ:9091178",
	"Port": 80,
	"Log": 0,
	"SecrectKey":""
}

修改"Port": 80中80为任意合法端口号。再运行，那么你可以看到这个界面

3. 把示例中的satrda.dll,libcurl.dll,zlib1.dll三个dll,拷到工程目录下面, 增加一个函数

Function boolean SATODBC_Install(boolean quiet) library "satrda.dll"

该函数的作用是注册驱动，可以在程序开头调用，进行驱动的自动注册（多次调用不会重复注册）。

如果驱动正常注册后打开odbc数据源管理器，可以找到下图的驱动

4. 回到VB工程修改sqlconnect函数为

'连接SQL服务器
Public Function sqlConnect(ByVal cnThis As ADODB.Connection, ByVal strServer As String, ByVal strUser As String, ByVal strPass As String, Optional ByVal strDataBase As String = "")
    Dim strSQL As String
    Dim server As String, db As String
    
    server = "127.0.0.1:5555"
    db = "marketdb"
    '生成连接字符串
    'strSQL = "provider=sqloledb;server=" & strServer & ";user id=" & strUser & ";password=" & strPass
    strSQL = "Provider=MSDASQL.1;Password=sql;User ID=dbuser;Extended Properties=""driver=Smart ODBC Driver;server=" & server & ";DB_NAME=" & db & ";"""


    cnThis.CursorLocation = adUseClient     '注意，必须使用adUseClient
    cnThis.Open strSQL
End Function

这里一定要有，