[求助]web数据源 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

一、场景：服务端仅提供数据源服务

二、服务端设置

（1）管理项目>项目属性>项目事件>AfterOpenProject：

HttpServer.Prefixes.Add("http://*/")

'HttpServer.WebPath = "d:\web" '''这个是存储静态网页文件如html用的？

HttpServer.Start()

（2）数据表>外部数据源，配置好外部数据源，假设外部数据源名称＝CS

（3）管理项目>网络监视器>HttpRequest事件

''Sel ect Case e.Path ''头尾全部注释掉，只保留涂黄的一句代码

'' Case "DataServer.htm"

e.AsDataServer("CS") '将一个本地数据源公开为Web数据源

''End Se lect

（4）杂项>重定向>Redirect，将数据定向到外部数据源

三、客户端设置

（1）管理项目>项目属性>项目事件>BeforeConnectOuterDataSource：这个事件是否必须设置？

Sel ect Case e.Name

Case "CS"

Dim sb As New StringBuilder

sb.AppendLine("http://127.0.0.1/DataServer.htm")

sb.AppendLine("-FormData-")

sb.AppendLine("UserName:张三")

sb.AppendLine("Password:888") '如果是要对登录账号做校验，这个是要用全局变量（如登录用户、登录账号）合成？比如象下面这样？

sb.AppendLine("UserName:" & 全局变量登录账号)

sb.AppendLine("Password:" & 全局变量登录密码)

e.ConnectionString = sb.ToString()

End Select

（2）外部数据源设置，数据表>外部数据源>增加

http://127.0.0.1/dataserver.htm '''后面的dataserver.htm似乎也没有必要加，但考虑到如果服务端要公开多个数据源时，还是要指定路径

（3）不需要在杂项>重定向里做设置

这样就算设置完成了？

主题：[求助]web数据源