在Web上获取过滤数据及报表设计指南
一、在Visual FoxPro中构建参数化Web服务
- 创建项目和程序：在Visual FoxPro 8或更高版本中创建一个名为XMLProject的项目，添加一个名为XMLClass.PRG的程序，并将以下代码输入到该程序中。
DEFINE CLASS XMLCLASS AS CUSTOM OLEPUBLIC FUNCTION CustsByRegion (pRegion AS String ) AS String S = “Driver={SQL Server};Server=(local);Database=Pinter;UID=sa;PWD=;” Handle = SQLSTRINGCONNECT( s ) FieldList = “CustomerID,CompanyName,ContactName,Region” Cmd = “SELECT “ + FieldList + “ FROM CUSTOMERS WHERE Region=’” + pRegion + “‘“ SQLEXEC( Handle, Cmd ) CURSORTOXML(“SQLResult”,”lcXML”) USE SQLDISCONNECT(0) RETURN lcXML ENDFUNC FUNCTION CustsByCountry (pCountry AS String ) AS
