VFP中用SPT访问SQL Server数据库.doc

VFP中用SPT访问SQL Server数据库VFP因他简单易学，可快速建立应用软件而深受广大程式员喜爱，但其数据库系统不安全也令广大用户很头痛。随着MS SQL Server数据库系统的推广应用，其强大的安全性能普遍受到好评。笔者在长期的编程实践中，发现利用VFP的SQL pass-through(SPT)技术结合MS SQL Server数据库系统，也能像VB、Delphi、PowerBuilder相同轻松研发出优秀的客户/服务器(C/S)应用软件。现通过编写一个简单的通信录例子和广大VFP爱好者一起探讨。 一、服务器端MS SQL Server数据库设计 1. 在MS SQL Server中建立名为“SFXT”的数据库。 2. 在SFXT数据库中建立名为“通信录”的数据表，表结构如下： 列名（字段名）数据类型长度 姓名 chr 8 生日 datetime 8 电话 chr 11 email chr 30 并将姓名配置为主键。 3. 在“SFXT”数据库中建立查询出任何记录的存储过程。 SP_SearchAll CREATE PROCEDURE SP_SearchAll AS select * from 通信录 order by 姓名 return 4. 在“SFXT”数据库中建立插入新记录的存储过程 SP_InsertData。 CREATE PROCEDURE SP_InsertData name char (10)， birthday datetime ， telephone char (11)， email char (30) AS insert into 通信录(姓名，生日，电话，email) values (name，birthday，telephone，email) return 二、客户端VFP的SQL pass-through技术设计 1. 建立如(15020603b)的VFP表单界面。 2. 建立名为“SFXT”的ODBC数据源连接MS SQL Server中的SFXT数据库。 可通过执行上面VFP表单的按钮“建立OBDC数据源”来完成；或通过运行Windows控制面板中的“OBDC数据源”来完成。主要配置包括选择SQL Server驱动程式，通信协议，登录标识和密码等。 “建立OBDC数据源”按钮.CLICK事件： *函数说明SQLSTRINGCONNECT(cConnectString) *省略连接字符串cConnectString时显示SQL数据源对话框，可选择或新建数据源 sqlstringconnect() 3. 两种连接MS SQL Server数据源的方式。 使用现有数据源名称建立连接，“建立连接方式1”按钮.CLICK事件。 public vodbc,vuser,vpwd,vconn vodbc=sfxt &连接SQL SERVER数据库ODBC数据源名称 vuser=sa &访问SQL SERVER数据库的登录用户名，sa为系统用户 vpwd=5213 &用户登录密码，为sa系统用户配置的密码 vconn=SQLCONNECT(vodbc, vuser,vpwd) if vconn0 messagebox(连接成功！,ODBC数据源) else messagebox(连接失败！,ODBC数据源) endif 使用连接字符串建立数据源连接，“建立连接方式2”按钮.CLICK事件。 public vconn vconn=SQLSTRINGCONNECT(dsn=sfxt:uid=sa:pwd=5213) if vconn0 messagebox(连接成功！，ODBC数据源) else messagebox(连接失败！，ODBC数据源) endif 4. 数据源连接的主要参数配置，“活动连接属性配置”按钮.CLICK事件。 * 注：用函数sqlgetprop()可返回配置的参数值 sqlsetprop(vconn，asynchronous，.f.) &取假值时为结果集同步返回： 取真值时为异步返回 sqlsetprop(vconn,ConnectTimeOut,15) &连接超时等待秒数配置，可取值0至600 sqlsetprop(vconn,IdleTimeout,0)&空闲超时间隔秒数，取值0为无限期超时等待 sqlsetprop(vconn,Transactions,1) &取值1时为自动处理远程事务：取值2时为手工处理 5. “执行存储过程查询数据”按钮.CLICK事件。 *函数说明SQLEXEC(nConnectionHandle, cSQLCommand， CursorName) *nConnectionHandle 当前数据源活动连接句柄 *cSQLCommand执行SQL SERVER存储过程的SQL语句表达式 *CursorName返回执行结果临时表的名称 sqlexec(vconn,execute SP_SearchAll,我的通信录) browse 6. “执行SQL语句查询数据” 按钮.CLICK事件。 *函数说明SQLEXEC(nConnectionHandle, cSQLCommand, CursorName) *nConnectionHandle 当前数据源活动连接句柄 *cSQLCommand需发送SQL语句表达式 *CursorName返回执行结果临时表的名称 SQLEXEC(vconn, SELECT * FROM 通信录, 我的通信录) browse 7. “向存储过程传替参数插入新记录” 按钮.CLICK事件。 local vname,vbirthday,vtelephone,vemail,vsql *随机产生新记录举例 vname = 姓名 sys(3) &姓名 vbirthday = dtoc(date()-int(rand()*10000) &生日 vtelephone = sys(3) &电话 vemail = sys(3) &电子邮箱 *将传递到存储过程的参数转换成字符串，并加引号形成SQL语句。vsql=execute SP_InsertData vname , vbirthday , vtelephone , vemail if sqlexec(vconn，vsql)0 &发送SQL语句 messagebox(插入新记录成功！，信息) else messagebox(插入新记录不成功！，信息) endi sqlexec(vconn，execute SP_SearchAll，我的通信录) browse 8. “配置当前表的属性修改数据” 按钮.CLICK事件。* 注：用函数cursorgetprop()可返回配置的参数值 cursorsetprop(BatchUpdateCount,100) &发送到缓冲表的远程数据源的更新指令的数目 cursorsetprop(Buffering,3) &配置当前表为开放式行缓冲 cursorsetprop(FetchSize,-1)&从远程表中提取全部查询记录 cursorsetprop(KeyFieldList,姓名)&指定远程表的主关键字段 cursorsetprop(SendUpdates,.t.) &当前缓冲表更改内容时发送SQL语句更新远程表 cursorsetprop(Tables,通信录) &指定连接的远程表名 *本地缓冲表和远程表字段对应关系 cursorsetprop(UpdateNameList,姓名 通信录.姓名,生日 通信录.生日,电话 通信录.电话,email 通信录.email) *指定可更新字段列表 cursorsetprop(UpdatableFieldList,姓名,生日,电话,email) cursorsetprop(UpdateType,1) &远程表更新方式，替换方式 cursorsetprop(WhereType,3)&更新SQL语句中where子句包含主关键字和被修改过的字段 browse&修改缓冲表数据，移动记录指针后，自动发送SQL语句更新远程表 9. “断开指向数据源的连接” 按钮.CLICK事