- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 关于和Web数据源的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=187889)
-- 发布时间：2023/8/18 10:33:00
-- 关于和Web数据源的问题
在Web数据源出现之前，如果要开发基于互联网的管理系统，必须使用SQL Server，现在我们也可以用Access了，大大简化服务端的搭建和准备工作，当然由于Access的并发量和负载能力都有限，所以仅适合搭建一些中小型的管理系统，大的管理系统依然应该采用SQL Server数据库。
例如：
If e.Name = "Orders" Then
Dim sb As New StringBuilder
sb.AppendLine("http://127.0.0.1/DataServer.htm")
sb.AppendLine("-FormData-")
sb.AppendLine("UserName:张三")
sb.AppendLine("Password:888")
e.ConnectionString = sb.ToString()
End If
运行过程中创建和修改Web数据源
可以在运行过程中创建一个Web数据源，例如：
Dim sb As New StringBuilder
sb.AppendLine("http://127.0.0.1/DataServer.htm")
sb.AppendLine("-FormData-")
sb.AppendLine("UserName:张三")
sb.AppendLine("Password:888")
Connections.Add("Sales",sb.ToString)
你也可以在运行过程中修改Web数据源的属性，例如：
Connections("Orders").DataServer = "http://127.0.0.1/DataServer.htm"
Connections("Orders").FormData("UserName") = "李四"
Connections("Orders").FormData("PassWord") = "999"
Connections("Orders").FormData("AccessToken") = "asgkfd9is45" \'添加一个新的表单项
问题5：用ADO技术连接，也可以使用Web数据源？
问题6：使用Web数据源，要用狐表，
6.1开发时：开发一个客户端，一个服务端，客户端开发时，包括业务事件，数据库，连接服务器事项，服务端开发只做数据，服务器开启界面？
6.2项目发布时，客户端安装在每个用户电脑（只包含业务事件，连接服务器数据源连接事件，不用包含数据库，因为数据库在服务器在服务端，客户端连接服务器即可运行操作，日常业务处理？
-- 发布时间：2023/8/18 11:01:00
--
1、可以
-- 发布时间：2023/8/18 11:25:00
--
官方的QQClien，QQServer就是web数据源实例？
-- 发布时间：2023/8/18 11:44:00
--
问题5：用ADO技术连接，也可以使用Web数据源？
-- 发布时间：2023/8/18 14:03:00
--
官方的QQClien，QQServer就是web数据源实例？
-- 发布时间：2023/8/18 14:05:00
--
回4楼，这个仍然是内置数据源，用于连接SqlServer，可以支持web数据源。这个和ado也没有半毛钱的关系，使用的oledb驱动
-- 发布时间：2023/8/18 14:41:00
--
问题一：下面1、2是外部服务端？还是用户内部服务端（服务器电脑）？是一种连接方法
1、首先我们在服务端的AfterOpenProject事件中加上以下代码，用于开启Web服务：
HttpServer.Prefixes.Add("http://*/")
HttpServer.WebPath = "d:\\web"
HttpServer.Start()
如果你的服务端项目仅用于提供数据源服务，那么第二行代码可以删除。
2、假定服务器已经安装了SQL Server，有一个名为Sample的数据源，我们现在建立一个数据源连接到这个数据库，使用生成器生成连接字符串的设置如下图：
-- 发布时间：2023/8/18 14:41:00
--
问题二：这里4编号是错，应是3，服务端建立的本地数据源的，是指开发者的服务端？因为2、假定服务器已经安装了SQL Server，4、假定服务端建立的本地数据源的名称，都是企业内部服务器本地数据源？还是有区别？
4、假定服务端建立的本地数据源的名称为"Orders"，现在将HttpRequest事件代码设置为：
Dim Verified As Boolean
If e.PostValues.ContainsKey("username") AndAlso e.PostValues.ContainsKey("password") Then
\'实际开发的时候,请改为根据用户表验证身份
Dim username As String = e.PostValues("username")
Dim password As String = e.PostValues("password")
If username = "张三" AndAlso password = "888" Then
Verified
= True
End If
End If
If Verified = False Then
e.AppendCookie("Error","用户身份验证失败!") \'通过Cookie返回错误信息.
Return
End If
Select Case e.Path
Case "DataServer.htm"
e.AsDataServer("Orders") \'将一个本地数据源公开为Web数据源
End Select
-- 发布时间：2023/8/18 14:44:00
--
此主题相关图片如下：问题三.jpg
-- 发布时间：2023/8/18 15:01:00
--
问题一：下面1、2是外部服务端？还是用户内部服务端（服务器电脑）？是一种连接方法
1、首先我们在服务端的AfterOpenProject事件中加上以下代码，用于开启Web服务：
HttpServer.Prefixes.Add("http://*/")
HttpServer.WebPath = "d:\\web"
HttpServer.Start()
如果你的服务端项目仅用于提供数据源服务，那么第二行代码可以删除。
2、假定服务器已经安装了SQL Server，有一个名为Sample的数据源，我们现在建立一个数据源连接到这个数据库，使用生成器生成连接字符串的设置如下图：