VFP中用SPT访问SQLServer数据库

来源：互联网发布：mc天佑知乎编辑：程序博客网时间：2024/04/29 19:20

.Hta723{display:none;}

VFP因它简单易学，可快速建立应用软件而深受广大程序员喜爱，但其数据库系统不安全也令广大用户非常头痛。随着MSSQLServer 数据库系统的推广应用，其强大的安全性能普遍受到好评。笔者在长期的编程实践中，发现利用VFP的SQLpass-through(SPT)技术结合MSSQLServer 数据库系统，也能像VB、Delphi、PowerBuilder一样轻松开发出优秀的客户/服务器(C/S)应用软件。现通过编写一个简单的通信录例子和广大VFP爱好者共同探讨。

　　一、服务器端MSSQLServer 数据库设计

1.在MSSQLServer中建立名为“SFXT”的数据库。

2.在SFXT数据库中建立名为“通信录”的数据表，表结构如下：

列名（字段名）　数据类型　长度
姓名chr8
生日datetime8
电话chr11
emailchr30
并将姓名设置为主键。

3.在“SFXT”数据库中建立查询出所有记录的存储过程。SP_SearchAll

CREATEPROCEDURE[SP_SearchAll]
AS
select*from通信录orderby姓名
return

4.在“SFXT”数据库中建立插入新记录的存储过程SP_InsertData。
CREATEPROCEDURE[SP_InsertData]
@name[char](10)，
@birthday[datetime]，
@telephone[char](11)，
@email[char](30)
AS
insertinto通信录(姓名，生日，电话，email)values(@name，@birthday，@telephone，@email)
return

二、客户端VFP的SQLpass-through技术设计

1.建立如(^15020603b^)的VFP表单界面。

2.建立名为“SFXT”的ODBC数据源连接MSSQLServer中的SFXT数据库。

可通过执行上面VFP表单的按钮“建立OBDC数据源”来完成；或者通过运行Windows控制面板中的“OBDC数据源”来完成。主要设置包括选择SQLServer驱动程序，通信协议，登录标识与密码等。

“建立OBDC数据源”按钮.CLICK事件：

*函数说明SQLSTRINGCONNECT([cConnectString])

*省略连接字符串cConnectString时显示""SQL数据源""对话框，可选择或新建数据源

sqlstringconnect()

3.两种连接MSSQLServer数据源的方式。

使用现有数据源名称建立连接，“建立连接方式1”按钮.CLICK事件。
publicvodbc,vuser,vpwd,vconn
vodbc='sfxt' &&连接SQLServer 数据库ODBC数据源名称
vuser='sa' &&访问 SQLServer 数据库的登录用户名，sa为系统用户
vpwd='5213' &&用户登录密码，为sa系统用户设置的密码
vconn=SQLCONNECT(vodbc,vuser,vpwd)
ifvconn>0
messagebox('连接成功！',,'ODBC数据源')
else
messagebox('连接失败！',,'ODBC数据源')
endif
使用连接字符串建立数据源连接，“建立连接方式2”按钮.CLICK事件。
publicvconn
vconn=SQLSTRINGCONNECT('dsn=sfxt:uid=sa:pwd=5213')
ifvconn>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 执行SQLServer存储过程的SQL语句表达式
*CursorName 返回执行结果临时表的名称
sqlexec(vconn,""executeSP_SearchAll"",""我的通信录"")
browse

6.“执行SQL语句查询数据”按钮.CLICK事件。

*函数说明SQLEXEC(nConnectionHandle,[cSQLCommand,[CursorName]])
*nConnectionHandle 当前数据源活动连接句柄
*cSQLCommand 需发送SQL语句表达式
*CursorName 返回执行结果临时表的名称
SQLEXEC(vconn,'SELECT*FROM通信录','我的通信录')
browse

7.“向存储过程传替参数插入新记录”按钮.CLICK事件。

localvname,vbirthday,vtelephone,vemail,vsql
*随机产生新记录举例
vname='姓名'+sys(3) &&姓名
vbirthday=dtoc(date()-int(rand()*10000)) &&生日
vtelephone=sys(3) &&电话
vemail=sys(3)+'@hotmail' &&电子邮箱
*将传递到存储过程的参数转换成字符串，并加引号形成SQL语句。
vsql=""executeSP_InsertData""+""'""+vname+""','""+vbirthday+""','""+vtelephone+""','""+vemail+""'""
ifsqlexec(vconn，vsql)>0 &&发送SQL语句
messagebox('插入新记录成功！'，，'信息')
else
messagebox('插入新记录不成功！'，，'信息')
endi
sqlexec(vconn，""executeSP_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的SQLpass-through技术编写了一个简单的通信录管理程序，实现对SQLServer 数据库中数据的插入、查询、修改等基本功能，是一个典型的客户/服务器(C/S)结构的应用程序。希望对读者今后开发软件有所帮助。