分享
 
 
 

VFP中用SPT访问SQL Server数据库

王朝mssql·作者佚名  2008-05-31
窄屏简体版  字體: |||超大  

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

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有