vfp远程视图与spt应用详解

vfp远程视图与spt应用详解-远程视图(Remote Views)与SPT(SQL pass through)是vfp为开发Client/Server程序提供的两个内置的解决方案，如果您更深入的应用vfp，这两部分的内容是必须掌握的。由于内容比较多，文章分成若干篇几次发完。但个人认为，远程视图与spt又是不可分割的整体，虽然spt应用得比较多，但若对远程视图没有比较深入的了解，我想你也不见得能用好spt。因此做了这个目录，希望您能从远程视图开始，逐步了解这两个伟大的开发工具的使用。一、SPT详解1二、用vfp与sql server构建Client/Server应用程序(SPT)(1)7三、用vfp与sql server构建Client/Server应用程序(SPT)(2)22四、用vfp与sql server构建Client/Server应用程序(远程视图)(1)25五、用vfp与sql server构建Client/Server应用程序(远程视图)(2)30六、用vfp与sql server构建Client/Server应用程序(远程视图)(3)34七、用vfp与sql server构建Client/Server应用程序(远程视图)(4)39八、用vfp与sql server构建Client/Server应用程序(远程视图)(5)48foxpro for graph对象全接触(1)52foxpro for graph对象全接触(2)55用vfp动态生成数据网页（一）60用vfp动态生成数据网页（二）64一、SPT详解 -说在前面熟悉 Fox 的朋友都知道，在 VFP 里我们可以使用远程视图 (Remote View) 和 SPT(SQL Pass Through) 技术控制远程异构数据库。这些技术其实是 VFP 对 ODBC 的 API 的封装，所以对于用户来说访问远程数据库就像操作传统的DBF一样简单。关于这两种技术的使用，完全可以洋洋洒洒地写下一本书，鉴于本文主题及篇幅，这里仅枚举 SPT 技术访问远程数据的应用。SPT与远程视图很多人搞不懂有了远程视图这样直观、简单的工具，为什么还需要 SPT 呢？确实 SPT 较远程视图难以掌握，但细细体会你会发现：远程视图其实是对 SPT 的可视化工具！SPT 较远程视图更具威力，远程视图提供的功能只是 SPT 的一个子集。仔细探索两者优劣，我们发现：SPT 的优势：1. 一次得到多个Cursor2. 执行除 Select 以外的其他 SQL 语句，如 Insert、Update、Delete等3. 执行远程数据库的存储过程 4. 执行远程数据库的特殊函数、命令 5. 事务管理SPT 的劣势：1. 没有图形用户界面 2. 必须人工维护连接3. 得到的Cursor默认是可读写Cursor，要使它成为可更新Cursor必须经过设定下面就顺着我们对 SPT 的认识，来浏览一下这种伟大的工具吧！（注意：本文所有例程均使用 SQL Server的NorthWind 数据库演示）管理连接：建立连接：（注意：本文所有示例代码若用到连接的，默认采用建立连接代码中产生的连接句柄con）WAIT 连接到 SQL Server 上去 NOWAIT NOCLEAR WINDOW SQLSETPROP(0,DispLogin ,3) & 设置环境为：从不显示 ODBC 登陆对话框 con=SQLSTRINGCONNECT(driver=SQL Server;Server=BOE;Uid=sa;pwd=;database=northwind) *假定 SQL Server 服务器名为 BOE, 用户 ID 是sa, 口令是空串*如果你的 SQL Server 的服务器名, 用户 ID, 口令与上不同，请修改以上代码中的相关部分以符合你系统中的设置WAIT clear IF con=0 MESSAGEBOX( 连接失败 ,64, 连接到 SQL Server 上去 ) ELSE MESSAGEBOX( 连接成功 ,64, 连接到 SQL Server 上去 ) ENDIF断开连接： SQLDISCONNECT(con) 一次得到多个Cursor我们可以用一次 SPT 传回多个Cursor，如下： cSQL=SELECT * FROM EMPLOYEES+CHR(10)+SELECT * FROM CUSTOMERS+CHR(10)+SELECT * FROM PRODUCTS ?SQLEXEC(con,cSQL,TEMP) SQLEXEC( ) 的返回值表示Cursor的数量，这里返回 3 。这三个Cursor分别以： TEMP,TEMP1,TEMP2 命名。执行除 SQL-Select 以外的 SQL 语句 cSQL=IF EXISTS(SELECT * FROM CUSTOMERS WHERE CUSTOMERID=TEST) cSQL=cSQL+ DELETE FROM CUSTOMERS WHERE CUSTOMERID=TEST cSQL=cSQL+ ELSE INSERT CUSTOMERS(CUSTOMERID,COMPANYNAME) VALUES(TEST, 这是一个测试！ ) IF SQLEXEC(CON,cSQL)0+chr(10) cSQL=cSQL+ SELECT Desc= 找到了 +CAST(ROW AS VARCHAR(4) + 位下属 +chr(10) cSQL=cSQL+ ELSE SELECT Desc= 这是一位普通员工 ?SQLEXEC(con,cSQL) 使用 T-SQL 的写法： EMPID=2 DESCRIPTION= ?SQLEXEC(CON,EXEC MY_PROC ?EMPID,?DESCRIPTION,TEMP1) ?DESCRIPTION 使用 ODBC 的写法： EMPID=2 DESCRIPTION= ?SQLEXEC(CON,CALL MY_PROC(?EMPID,?DESCRIPTION),TEMP2) ?DESCRIPTION 执行远程数据库的特殊函数、命令如果在 SQL Server 中你有足够的权限，通过 SPT 你可以完全控制 SQL Server ，这里我们演示怎样取得数据库服务器的时间：?SQLEXEC(con,select getdate() as serverdatetime,temp1) ?temp1.serverdatetime USE IN (temp1) 事务管理 在一些复杂的应用中，往往会有一项操作影响好几个表的情况。就客户端来说，发送到远程数据库的数据变动可能来源很多：表缓冲的多行记录的变动，行缓冲的单行记录变化，以及前文我们演示的直接用 SQL 语句传递的数据维护，林林总总怎样把这些更新行为控制在一个事务中要么-一起成功，要么一起回滚。cSQL=DELETE FROM CUSTOMERS WHERE CUSTOMERID=BLAUS+CHR(10) cSQL=cSQL+INSERT CUSTOMERS(CUSTOMERID,COMPANYNAME) VALUES(TEST1, 这是一个测试！ ) SQLSETPROP(CON,Transactions ,2)& 开始一个事务 IRETURN=SQLEXEC(CON,cSQL) IF IRETURN=1 SQLCOMMIT(CON)& 事务交付 ELSE SQLROLLBACK(CON)& 事务回滚 ENDIF SQLSETPROP(CON,Transactions ,1)& 重新回到自动事务处理状态 &就本例而言，DELETE FROM CUSTOMERS WHERE CUSTOMERID=BLAUS总是不能执行的，SQL Server会返回错误：&DELETE statement conflicted with COLUMN REFERENCE constraint FK_Orders_Customers. &The conflict occurred in database Northwind, table Orders, column CustomerID.&所以这笔事务总是被回滚的！从例程中我们看到，我们开启的事务其实是针对连接的，也就是说通过该连接的所有数据更新都包含于事务中，直到事务被回滚或交付。 SQLSETPROP(CON,Transactions ,2 ）， 其实是开启了人工事务处理，也就是说必须由用户明确的给出交付或者回滚指令，事务才会结束。所以笔者以为：完成一笔事务以后，应执行 SQLSETPROP(CON,Transactions ,1 ） 将连接的事务模式设为默认的自动，这样可以防止用户陷入未知的事务中去。 设为可更新到目前为止，我们已经演示了 6 个 SPT 专题了，除了第一个连接管理在远程视图中能够实现之外，其余的远程视图都无法实现。下面我们要讨论一下怎样把 SPT 传回的结果集合设为可更新，总的来说远程视图提供的就是这个功能。 在默认状况下， SPT 从远程数据库得到的Cursor是可读写的，即：可以对它进行 Select 、 Update 、 Insert 、 Delete 的操作，但数据的变化不会反映到数据源。可更新Cursor的特色就是可以直接将客户端的数据变动，自动生成一系列 SQL 描述更新远程数据库。 实现可读写Cursor到可更新Cursor必须经历以下五步的设置： 1. CURSORSETPROP(TABLES, 数据源表名 , 可更新Cursor名 ) 此步骤设定的是数据源里(SQL Server)待更新的表名，如果涉及多个表就这样写： CURSORSETPROP(TABLES,T1,T2,MyCursor) 。2. CURSORSETPROP(KEYFIELDLIST, 关键字段 , 可更新Cursor名 )此步骤是设定关键字段的，这个关键字段是可更新Cursor的字段，而不是数据源里的字段。 3. CURSORSETPROP(UPDATABLEFIELDLIST, 可更新字段列表 , 可更新Cursor名 ) 此步骤设定的是在可更新Cursor里哪些字段的变动要被反映到数据源，即哪些字段时可更新的。 4. CURSORSETPROP(UPDATENAMELIST, 前后段字段对应关系列表 , 可更新Cursor名 ) 此步骤设定数据源字段与可更新Cursor字段的对应关系。 5. CURSORSETPROP(SENDUPDATES,.T., 可更新Cursor名 ) 这个步骤是打开 SQL 发送开关，最关键的一步。 为便于大家理解，现将以上五步实例化：例一：SQLEXEC(con,select categoryid as id ,categoryname,description from categories,mycursor) SELECT mycursor CURSORSETPROP(Tables,categories,mycursor) CURSORSETPROP(KeyFieldList,id,mycursor) CURSORSETPROP(UpdatableFieldList ,id,categoryname,description,mycursor) CURSORSETPROP(UpdateNameList,id categories.categoryid,categoryname categories.categoryname,+; description categories.description,mycursor) CURSORSETPROP(SendUpdates ,.t.,mycursor) 例二：SQLEXEC(con,select ductid,ductname,a.unitprice,b.categoryid,b.categoryname,c.supplierid,+; panyname as suppliername,c.contactname+; from (products a inner join categories b on a.categoryid=b.categoryid)+; inner join suppliers c on a.supplierid=c.supplierid,mycursor) SELECT mycursor CURSORSETPROP(Tables,products,categories,suppliers,mycursor) CURSORSETPROP(KeyFieldList,productid,categoryid,supplierid,mycursor) CURSORSETPROP(UpdatableFieldList,+; productid,productname,unitprice,categoryid,categoryname,supplierid,suppliername,contactname,mycursor) CURSORSETPROP(UpdateNameList,productid ductid,productname +; ductname,unitprice products.unitprice,+; categoryid categories.categoryid,categoryname categories.categoryname,+; supplierid suppliers.supplierid,suppliername panyname,contactname suppliers.contactname,mycursor) CURSORSETPROP(SendUpdates ,.t.,mycursor)行笔匆匆，终于把我认识的 SPT 基本操作写完了，掌握这些，已能编写不错的 C/S 程序。虽然，本文是用 SQL Server 作为远程数据库，但是如果你使用 DB2 、 Oracle ，在 VFP 中也是一样处理。本文来自编程入门网：/Programming/vfp/200705/974.htm二、用vfp与sql server构建Client/Server应用程序(SPT)(1) -一些题外话 最近有一种好的现象越来越多的Visual FoxPro用户开始注意到Client/Server应用程序的重要性，他们开始安装SQL Server了。作为开发人员，我们没有必要深入认识SQL Server的种种（我个人以为那是数据库管理员DBA的事情），我们要解决的是怎样使Visual FoxPro与SQL Server在一起顺利的运行，怎样发挥两者的优越特性。“远程视图”一章已经涉及到了许多深层次的问题，但遗憾的是(可能是文章太过枯燥)很少有人关注它！笔者到现在还是认为，“远程视图”一文绝对是目前网络上能得到的最好的简体中文学习资料，没有哪篇文章会为你深入介绍“更新冲突发生的原理”，没有哪篇文章会为你讲解“Visual FoxPro发送更新到SQL Server 的原理”，没有哪篇文章会为你讲解“各种连接属性的意义”在国内众多Visual FoxPro图书中，我最喜欢的作者是台湾的章立民先生。我个人以为Visual FoxPro的章立民、Delphi的李维、Visual Basic的王国荣是那种多数读者看到是他们写的作品就应该买的那类作者。三位大家的书我都有拜读，窃以为：文采最棒的是章立民先生，名气最小的也是章立民先生（也许是因为Visual FoxPro的关系）。中国铁道出版社为国内的Visual FoxPro事业做了一件好事在99年前后出版了章立民先生的四册图书，分别是：Visual FoxPro 6.X 中文版程序设计教学指南、Visual FoxPro 6.X 中文版程序设计基础加强、Visual FoxPro 6.X 中文版程序设计问题集、Visual Foxpro 6.X 中文版程序设计应用实务。除了教学指南外，其余三本都是进阶应用的好书，但很奇怪的是他们在市场上销售的并不理想，直到今年上半年在上海书市中还能觅到，相反的一些粗制滥造的东西却是卖得火爆，真是咄咄怪事！我不认识章立民先生，与中国铁道出版社更无关系，但我愿意为他们做广告，如果章立民能为Visual FoxPro 7写出更好的东西，我们将感激不尽，也希望国内出版社积极参与引进！本文在写作上参考了Visual Foxpro 6.X 中文版程序设计应用实务的内容，但绝对不是抄袭，大家有兴趣可以买一本读上一读。为什么要引入SPT的概念我们已经讲解了“远程视图”，您也许已经发现了远程视图的不足，是的远程视图的缺陷正是SPT的优势所在：执行除Select以外的其他的SQL语句，如Insert 及Update等 执行后端数据库的存储过程 执行后端数据库的特殊的函数、命令 一次得到多个数据集合这些都是我们在系统开发时要遇到的实现问题，Visual FoxPro 小组注意到了，于是提出了SPT的概念。SPT是SQL Pass Through的简写，它与远程视图在一起共同组成Visual FoxPro远程数据访问体系，利用它们你就可以开发完整的ClientServer构架的系统了！与“远程视图”相比，SPT技术也有以下缺陷：没有图形用户界面 必须人工维护连接 数据集合是“可读写光标”，要使它成为“可更新光标”必须进行设定 从我的经验来看待“远程视图”与SPT，我以为两者是Visual FoxPro远程数据访问体系的双臂，相辅相成。不用SPT，系统就会变得弱智、愚笨；不用远程视图，系统开发会变得缓慢、繁琐。我以为，“远程视图”是组件化的SPT，是微软公司对SPT部分功能的图像化封装，所以它显得更有生产效率，同时由于系统作得多了，功能也就弱了，“远程视图”能做得就是那些事情从数据源读取一个结果集，在客户端对它维护，并自动将变动结果更新到数据源。然而作为系统开发，我们会在实践中遇到林林总总、奇奇怪怪的需求，只有“远程视图”独立担当显然是不行的，所以SPT的出现有它的必然性。在其他的远程数据处理组件中也有类似的概念，例如ADO中的RecordSet相当于Visual FoxPro的远程视图，Command相当于Visual FoxPro的SPT。13个SPT函数Visual FoxPro 中内置了13个以SQL开头的函数，我们把它们称为SPT函数。就是这13个函数完成了Visual FoxPro的所有的SQL Pass Though功能。从功能上看，我们可以把它们分成五个部分：连接函数连接建立函数：SqlConnect(),SqlStringConnect()连接的断开函数：SqlDisconnect()核心的执行函数SQL语句传输及执行函数：SqlExec(),SqlPrapare()批次模式下更多数据集的取得函数：SqlMoreResults()异步模式下撤销正在执行的SPT的函数：SqlCancel()事务处理函数SqlCommit(),SqlRollBack()连接通道属性函数SqlGetProp(),SqlSetProp()数据源的信息截取函数SqlTables(),SqlColumns()连接到SQL Server连接SqlConnect()的两种用法一般来说SqlConnect有两种用法：直接调用操作系统里的用户型或系统型DNS；使用当前数据库DBC的连接对象。如果已经在操作系统中制作了一个名为LocalServer的系统型DNS，在命令窗口中我们就可以直接键入：SQLCONNECT(localserver，sa,)如果当前数据库中存在连接对象，我们就可以这样调用它：SQLCONNECT(NorthWind)SqlStringConnect()函数的用法在用了SqlConnect以后，大家也许会发现不太自由，能不能及时动态建立连接呢？可以的，用SqlStringConnect()就可以了：SQLSTRINGCONNECT(driver=SQL Server;Server=See-you;Uid=sa;pwd=;database=northwind)我们解释一下参数字符串的意义，driver指明了使用哪一个ODBC驱动程序，这里是SQL Server；Server是指SQL Server的服务器名称，我的服务器叫：See-You；UID是在SQL Server的用户名称，这里使用SA；PWD是用户口令，这里为空值；最后我们指定了要连接的数据库的名字，这次我们仍然使用NorthWind数据库。所有这些条件组成了一个字符串，各条件用分号分割，我的实验表明对这大小写的要求不高，当然不包括用户口令和用户名。关于连接的两大问题连接建立起来很简单，但尚有问题要解决：怎么判断连接是否成功？怎么屏蔽SQL Server的登陆对话框？第一个问题很好解决，只要SqlConnect()或是SqlStringConnect()返回正整数（0的数）就表示连接成功，得到的正整数很重要就是连接句柄！STORE SQLCONNECT(LocalServer, sa,错误密码) TO gnConnHandleIF gnConnHandle 50&传送,得到的光标名称为默认的SqlResultSQLEXEC(hconn,csql)传递变量上面一个例子充分证明了我关于字符串分隔符的经验，接着我又为大家提出了一个新课题：怎样传递变量到SQL Server中。上例中，我们为语句加入了Where字句，下面我们把其中的条件值变为变量，这样这句SQL传递才变得真正的有意义！我以为关于变量的传递有两种方法，下面逐一介绍。第一种是利用：问号+变量来传递的，这是一种常用的方法，用起来也很简单，不用担心变量的类型，ODBC会自动的转化。下面的例子中就涉及到了日期型、数值型、字符型变量，我们根本不用担心变量类型的转化，只要在前面加上问号填入语句中就行了：local csq&要传送的变量dDate1=1996-10-01dDate2=1997-09-30cCustomerID=%C%nQty=50&配置待传送的语句csql=csql+SELECT ORDERS.SHIPNAME,ORDERS.SHIPADDRESS,ORDERS.SHIPCITY,ORDERS.SHIPREGION,csql=csql+ORDERS.SHIPPOSTALCODE,ORDERS.SHIPCOUNTRY,ORDERS.CUSTOMERID,csql=csql+CUSTOMERS.COMPANYNAME AS CUSTOMERNAM,csql=csql+EMPLOYEES.FIRSTNAME+ +EMPLOYEES.LASTNAME AS SALESPERSON,ORDERS.ORDERID,ORDERS.ORDERDATE,csql=csql+ORDERS.REQUIREDDATE,ORDERS.SHIPPEDDATE,SHIPPERS.COMPANYNAME AS SHIPPERNAME,csql=csql+ORDER DETAILS.PRODUCTID,PRODUCTS.PRODUCTNAME,ORDER DETAILS.UNITPRICE,csql=csql+ORDER DETAILS.QUANTITY,ORDER DETAILS.DISCOUNT,csql=csql+ORDER DETAILS.UNITPRICE*ORDER DETAILS.QUANTITY*(1-ORDER DETAILS.DISCOUNT) AS EXTENDEDPRICE,csql=csql+ ORDERS.FREIGHTcsql=csql+ FROM (EMPLO