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 vconn>0
messagebox('连接成功！',,'odbc数据源')
else
messagebox('连接失败！',,'odbc数据源')
endif
使用连接字符串建立数据源连接，“建立连接方式2”按钮.click事件。
public vconn
vconn=sqlstringconnect('dsn=sfxt:uid=sa:pwd=5213')
if vconn>0
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)+'@hotmail.com' &&电子邮箱
*将传递到存储过程的参数转换成字符串，并加引号形成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事件。
sqldisconnect(vconn)
10.“关闭” 按钮.click事件。
thisform.release
以上我们利用vfp的sql pass-through技术编写了一个简单的通信录管理程序，实现对sql server数据库中数据的插入、查询、修改等基本功能，是一个典型的客户/服务器(c/s)结构的应用程序。希望对读者今后开发软件有所帮助。
新闻热点
疑难解答
