VFP中用SPT访问SQL Server数据库

核心提示： 7. “向存储过程传替参数插入新记录” 按钮.CLICK事件， local vname,vbirthday,vtelephone,vemail,vsql*随机产生新记录举例vname = '姓名'+sys(3) &&姓名vbirthday = dto

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)结构的应用程序。希望对读者今后开发软件有所帮助。