君，已阅读到文档的结尾了呢~~
JSP程序设计习题解答[1],c语言程序设计习题,java程序设计习题集,c程序设计习题答案,c语言程序设计习题集,java程序设计复习题,c语言程序设计复习题,c程序设计复习题,vfp程序设计复习题集,vf程序设计复习题
扫扫二维码，随身浏览文档
手机或平板扫扫即可继续访问
JSP程序设计习题解答[1]
举报该文档为侵权文档。
举报该文档含有违规或不良信息。
反馈该文档无法正常浏览。
举报该文档为重复文档。
推荐理由：
将文档分享至：
分享完整地址
文档地址：
粘贴到BBS或博客
flash地址：
支持嵌入FLASH地址的网站使用
html代码：
&embed src='/DocinViewer--144.swf' width='100%' height='600' type=application/x-shockwave-flash ALLOWFULLSCREEN='true' ALLOWSCRIPTACCESS='always'&&/embed&
450px*300px480px*400px650px*490px
支持嵌入HTML代码的网站使用
您的内容已经提交成功
您所提交的内容需要审核后才能发布，请您等待！
3秒自动关闭窗口2009年2月 .NET技术大版内专家分月排行榜第三
2010年9月 挨踢职涯大版内专家分月排行榜第一
2010年12月 .NET技术大版内专家分月排行榜第二2010年10月 挨踢职涯大版内专家分月排行榜第二2010年8月 挨踢职涯大版内专家分月排行榜第二
2010年9月 挨踢职涯大版内专家分月排行榜第一
2010年12月 .NET技术大版内专家分月排行榜第二2010年10月 挨踢职涯大版内专家分月排行榜第二2010年8月 挨踢职涯大版内专家分月排行榜第二
本帖子已过去太久远了，不再提供回复功能。匿名用户不能发表回复！|
每天回帖即可获得10分可用分！小技巧：
你还可以输入10000个字符
(Ctrl+Enter)
请遵守CSDN，不得违反国家法律法规。
转载文章请注明出自“CSDN（www.csdn.net）”。如是商业用途请联系原作者。半年来，一直想写一篇关于用 Visual FoxPro 7 编写 Web Service 的文章，但总不成愿。这回不是我偷懒，为了了解这种新技术我和我的朋友们经历了种种&磨难&。这里略作回忆，也算是新春来临之际对&往年&的回眸&&算是没有浪费太多的生命。
磨难一：发布向导不能正确发布Web Service。
7月份就拿到了 Visual FoxPro 7，查遍Sample，没有发现有关于 Web Service 的 Demo。但在Help里以及微软对 Visual FoxPro7 的宣传里，都信誓旦旦的：我们支持开发 Web Service&& 还好在 Msdn 里看到了一篇名为《Creating Web Services with Visual FoxPro》的文章。真的很不幸，按部就班做实验却不能正确发布 Web Service。经过反复研究，我认为这是一个 Bug，还好发现了能绕过这个Bug的路径。这个时候已经是10月份了&&
磨难二：原来 Web Service 是无状态的！
真是浪费生命啊，还好我已经不是专业的 Visual FoxPro 程序员了，业余的消闲，没有压力。大家记得BOE上的我写的《Visual FoxPro 7 全新登场－－ XML 在 COM 组件数据集传递中 的意义》一文吗？那篇东西的示例，原本是为本文的 Web Service 准备的：当代码仅编译为 COM 被使用时，一切都在我的设想中；而进一步发布为Web Service，怪问题产生了&& Web Service 不能记忆我对它命令。经研究原来 Web Service 是&无状态&的（&无状态&在前几年就看到过了，当时无法理解。没想到现在 Web Service 帮我理解了这个概念，也算因祸得福）。
磨难三：Xmltocursor()对中文支持有问题！
自以为已经能用 Visual FoxPro 编写一些小的 Web Service 应用了，于是向一位网友鼓吹：用Web Service做你那个应用吧！人家很仔细，第二天就告诉了我一个大问题：用 xmltocursor() 没法正确处理包含中文的 xml 文档，很多中文字符会被截断！昏倒，又是一个Bug！那个时候微软已经宣布将要发布Visual FoxPro7的SP1，于是我就一边等待SP1，一边寻找其他的解决方案。黄天不负有心人，west-wind竟然提供了这么一套类库wwXML，功能比Visual FoxPro7对XML的支持更强大，对中文支持也很好！
（经过测试，Visual FoxPro 7 的 SP1 已经解决了对中文字符的处理的问题）
磨难四：SP1竟然这么难安装！
1月16号，微软发布了 SP1。鬼知道，他们的安装程序是怎么做的&&只能在Win9x下正确安装，win2000、xp 下都不行（听说有人在 Win2000 下成功安装了 SP1，真佩服他们的运气&&）。还好论坛的 QXF 同志，把他在 win98 下安装的sp1后发现的更新文件打了包，分发给大家。现在，如果你装不上SP1 的话，只要在计算机里作如下处理就行了。
1.关闭Visual FoxPro72.拷贝文件DW15.EXE、DWINTL.DLL到Visual FoxPro7的HOME()目录。3.在计算机里查找并替换VFP7.EXE、VFP7R.DLL、VFP7T.DLL、VFP7RENU.DLL、VFP7Runtime.MSM、VFPOLEDB.DLL、VFPOLEDB.MSM
闲话就说那么多了，让我们开始吧！
1.各种版本的 Win2000及 Win Xp，并安装 IIS (其他版本的Windows没有试过)2.安装Visual FoxPro7，建议安装SP13.安装 SOAP Toolkit 2.0（在 Visual FoxPro 7 安装盘里就有）4.SQL Server 7 或者 SQL Server 2000
这个 Web Service 提供了两个数据查询的方法，分别是：检索系统中所有发票的功能以及查询某段时间中销售总额的功能。
我采用了SQL Server 的Demo数据库NorthWind为数据来源，为了凸现Visual FoxPro的威力，我有把这个数据库转换成为Visual FoxPro的本地DBC库。数据库的名称是：web_service.dbc，包含着13个表，这与SQL Server 里的NorthWind数据库是一致的！
好了，我们现在有两个一样的数据来源，一个是本地的DBC，另一个是远程的SQL Server数据库。在待会的试验中，我们会同时在这两个数据源中查询数据，大家就会看到 Visual FoxPro 在远程（异构）数据处理上的简便、灵活。
还有一些工作要做。我们知道，Visual FoxPro 访问远程数据库的方法是Remote View(远程视图) 和 SPT。其中 Remote View 是很有特色的，它的数据源是远程数据，但它本身又是本地 DBC 的成员，这样就能实现 Visual FoxPro 对远程数据源的快捷管理、完美融合。
这里根据需要我们要建立三个Remote View，分别对应 NorthWind数据库里的Orders、Order details 表和视图 invoices：可以通过如下命令完成：
CREATE SQL VIEW orders_sql REMOTE CONNECTION localSQLServer as select * from ordersCREATE SQL VIEW Order_details_sql REMOTE CONNECTION localSQLServer as select * from [order details]CREATE SQL VIEW invoice_sql REMOTE CONNECTION localSQLServer as select * from invoices
这里用到连接&localSQLServer& 可以用如下命令生成：(大家可根据各人系统不同情况建立合法的连接！)
CREATE CONNECTION LocalSQLServer CONNSTRING "DRIVER=SQL SSERVER=BOEWORKS;UID=PWD=;DATABASE=Northwind"
在试验中，我们还要用到由本地数据所产生的Local View（本地试图），它的效果与 invice_sql 一致，只不过前者的数据来源于本地的DBC，后者来源于SQL Server的NorthWind数据库。可以用如下代码实现：(如果你用视图设计器设计这个视图，你会发现视图设计器&报错&，这是因为：Visual FoxPro 的视图设计器不支持太过复杂的 SQL 语句。所以设计复杂视图时，应该直接手写代码，其实这也是众多SQL高手的通常做法！)
CREATE SQL VIEW invoice_ SELECT Orders.shipname, Orders.shipaddress, Orders.shipcity,;Orders.shipregion, Orders.shippostalcode, Orders.shipcountry,;Orders.customerid, panyname AS customernam,;Employees.firstname+" "+Employees.lastname AS salesperson,;Orders.orderid, Orders.orderdate, Orders.requireddate,;Orders.shippeddate, panyname AS shippername,;Order_details.productid, Products.productname, Order_details.unitprice,;Order_details.quantity, Order_details.discount,;Order_details.unitprice*Order_details.quantity*(1-Order_details.discount) AS extendedprice,;Orders.FROM northwind!employees INNER JOIN northwind!INNER JOIN northwind!INNER JOIN northwind!INNER JOIN northwind!order_INNER JOIN northwind!ON Order_details.productid = Products.ON Orders.orderid = Order_details.ON Orders.shipvia = Shippers.ON ;Orders.customerid = Customers.ON Employees.employeeid = Orders.employeeid
#define CL chr(13)+chr(10)DEFINE CLASS FoxBaseClass as Session DataSession=2DataBasePath="D:\Data\"PROCEDURE Init()LOCAL cText as StringcText="开启时间"+TRANSFORM(TIME()) STRTOFILE(cText,'c:\FoxWebService.txt',.t.)ENDPROCPROCEDURE DestroyLOCAL cText as StringcText="关闭时间"+TRANSFORM(TIME()) STRTOFILE(cText,'c:\FoxWebService.txt',.t.) ENDPROCPROCEDURE OpenDataBase()OPEN DATABASE this.DataBasePath+"northwind.dbc" SHARED ENDPROCPROCEDURE CloseDataBase()CLOSE DATABASESENDPROCFUNCTION ConnectSQLServer() as Integer LOCAL iConn as IntegeriConn=SQLCONNECT("LocalSQLServer")RETURN iConnENDFUNCPROCEDURE DisConnectSQLServer(iConn as Integer)SQLDISCONNECT(iConn)ENDPROCPROCEDURE Error(nError as Integer,cMethod as String, nLine as Integer)LOCAL cText as StringcText=;'出错时间：'+transform(datetime())+CL+;'错误代码：'+str(nError,4)+CL+;'错误提示：'+message()+CL+;'错误方法：'+cMethod+CL+;'错误行号：'+transform(nLine)+CL+CLstrtofile(cText,'c:\FoxWebService.txt',.t.)comreturnerror("Fox Web Service",cText)ENDPROCENDDEFINE
分析上面的代码，有几点需要讲解：
1.控制本地数据所在的路径
DataBasePath="D:\Data\"
2.打开、关闭本地数据库：
PROCEDURE OpenDataBase()PROCEDURE CloseDataBase()
3.连接到SQL Server和从SQL Server断开连接（其实本例中没有使用这两个方法，因为我们使用了远程视图。远程视图能够自动控制连接！）
FUNCTION ConnectSQLServer() as Integer PROCEDURE DisConnectSQLServer(iConn as Integer)
4.出错控制
PROCEDURE Error(nError as Integer,cMethod as String, nLine as Integer)
5.记录对象的建立与摧毁（这是为了证明Web Service是&无状态&的，具体我们等会再说）
具体实现代码
DEFINE CLASS FoxWebService as FoxBaseClass olepublicFUNCTION GetInvoice(iType as Integer) as stringLOCAL cXML as Stringthis.OpenDataBase()IF iType=0 &&SQL Server 数据表USE invoice_sql ALIAS invoice ELSE &&Fox 数据库USE invoice_vfp ALIAS invoice ENDIF CURSORTOXML("invoice","cXML",3,48,0,"")USE IN invoicethis.CloseDataBase()RETURN cXMLENDFUNCFUNCTION GetSumSales(dStart as Date,dEnd as Date) as Doublethis.OpenDataBase()SELECT sum(b.Unitprice*b.Quantity*(1-b.Discount)) as Sumsalse from orders a INNER JOIN order_details_sql b ON a.orderid=b.where a.orderdate>=dstart and a.orderdate<=dEnd into ARRAY resultIF _tally>0 thenRETURN result[1]ELSERETURN 0ENDIFthis.CloseDataBase() ENDFUNCENDDEFINE
从代码上我们可以发现，FoxWebService 是FoxBaseClass的子类，继承了所有FoxBaseClass的特性。同时它还被赋予了OlePublic关键字，表明它可以编译成为COM对象！
FoxWebService 只有两个方法，分别实现不同的两个功能，具体如下：
功能一：查询所有发票信息，用户可以指定从DBC本地数据库返回信息还是从SQL Server返回信息。
FUNCTION GetInvoice(iType as Integer) as string
当参数 iType 等于 0 时，从SQL Server 里返回Invoice信息；其他情况下，从本地的 DBC里返回Invoice 信息。具体通过调用两个不同的视图来实现：
IF iType=0 &&SQL Server 数据表USE invoice_sql ALIAS invoice ELSE &&Fox 数据库USE invoice_vfp ALIAS invoice ENDIF
到这里，大家也许会问了，怎么把一个数据集合（表）返回出去，这个问题我在《Visual FoxPro 7 全新登场－－ XML 在 COM 组件数据集传递中 的意义》一文里已经讲的很清楚了：用cursortoxml()把数据集合转化成为XML字符串返回：
CURSORTOXML("invoice","cXML",3,48,0,"")
功能二：返回一个时间段内的销售金额合计
如果您研究过数据库结构的话，这句查询是很容易完成的。但这里我加了一个有意思的要求：销售主档（orders）的数据要来源于本地的DBC，销售明细（Order Details）的数据要来源于远程 SQL Server 表。且不论这个要求是否合理（这里，我们只谈论技术实现），这显然是异构数据库之间的关联查询：用了Visual FoxPro 可以简单的实现：
SELECT sum(b.Unitprice*b.Quantity*(1-b.Discount)) as Sumsalse from orders a INNER JOIN order_details_sql b ON a.orderid=b.where a.orderdate>=dstart and a.orderdate<=dEnd into ARRAY resultIF _tally>0 thenRETURN result[1]ELSERETURN 0ENDIF
看到了吗？很简单&&我这里实际上是关联了本地的Orders表与远程视图order_details_sql。order_details_sql打开时，Visual FoxPro会自动的通过ODBC 读取 SQL Server 上的有关数据，所以连接本地的Orders表与远程视图 order_details_sql 就等于直接连接异构数据表。这一点在其他语言中是很难实现的，它们也可以读取不同的数据源的数据，但它们无法支持异构数据在本地的SQL连接，它们只能用&循环+条件判断&的方式实现&异构数据&的连接。
编译并发布 Web Service
编译 Web Service
这个过程大家应该是非常熟悉了，其实就是编译成通常的COM。通过下面的命令就可以实现：
BUILD MTDLL First_web_service FROM First_web_service
好了，就这样容易&&COM组件做好了，我们可以调用一下，在Command窗口中：
*请务必保证 C 盘根目录中不存在FoxWebService.txt文件，如果有就删除它（我们的目的是证明COM组件是&有状态&的）*建立COM对象ox=CREATEOBJECT("first_web_service.FoxWebService")*测试GetInvoiceXMLTOCURSOR(ox.GetInvoice(0),"test")*测试GetSumSales?ox.GetSumSales({^},{^})*摧毁COM对象rele ox
如果测试成功了，就请查看C 盘根目录中的 FoxWebService.txt 文件，我的文件中的内容是（根据试验时间，结果会有不同）：
开启时间23:20:54关闭时间23:21:25
这是由FoxWebService对象的 Init 和 Destory 事件中的代码产生的：Init当类被实例化为对象时触发，Destory当对象被摧毁时触发。在COM 应用中，CreateObject()和rele 分别触发了这两个事件！
好了，记住这里的结果。我们继续&&
声明：该文章系网友上传分享，此内容仅代表网友个人经验或观点，不代表本网站立场和观点；若未进行原创声明，则表明该文章系转载自互联网；若该文章内容涉嫌侵权，请及时向
论文写作技巧
上一篇：下一篇：
相关经验教程