Visual FoxPro 6.0与大型数据库的无“数据源”连接

来源：Yesky 作者：倪显利出处：巧巧读书 2005-11-25 进入讨论组

　　五．实例一瞥：

　　服务器安装windows 2000 Server操作系统，以Sybase 11.9.2数据库作为服务器端数据库管理数据；客户端安装Windows 98，Sybase客户端程序Open Client，以Visual FoxPro 6.0数据库作为客户端开发工具。扬长避短，相得益彰，充分发挥Sybase数据库安全性、可靠性高，管理数据量大；Visual FoxPrp 6.0数据库开发人员熟悉，开发速度快，程序体积小，运行速度快，占用资源少的特点。

　　以Sybase 11.9.2为例，编制一个实用的学籍管理程序，以期达到抛砖引玉的效果；数据库名称为Studentdb，只包括一个表（Student），其结构如下：

字段名称	宽度	注释
code nchar	(22)	代号
name char	(8)	姓名
birthday nchar	(8)	生日
grade int		年级
class int		班
tuition numeric	(7,2)	学费
maths numeric	(5,2)	数学
chinese numeric	(5,2)	语文
physicsnumeric	(5,2)	物理
chemistrynumeric	(5,2)	化学
history numeric	(5,2)	历史
geobiology numeric	(5,2)	地理
biology numeric	(5,2)	生物
gym numeric	(5,2)	体育

　　　　　　　　　　　
　　调试程序时需要注意以下问题：
　　①．服务器端Sybase数据库服务必须处于启动状态；
　　②．客户端安装必须选中“√”ODBC Driver组件；
　　③．客户端通过Open Client程序组中的Dsedit组件配置连接，具体连接操作过程如下：“Dsedit”→“Add Server Object”→输入服务名称（Server Name）→“OK” →“单击”选择所输入服务名称→“单击”“Server Address” →“右键”→“Modify Attributes”→“Add”→选择“TCP”协议→“Network Address”在此输入IP地址和端口号，例：10.23.12.120,5000→“Ping Server”测试是否连通，否则检查机器连接或重复上述过程。
　　④．注意两种数据库数据类型的对应关系如下表：

Visual FoxPro 6.0数据库数据类型	Sybase数据库数据类型
字符型(C)	Char
	nchar
	nvarchar
	varchar
货币型(Y)	money
货币型(Y)	smallmoney
数值型(N)	decimal
数值型(N)	numeric
浮动型(F)	无
日期型(D)	无
日期时间型(T)	datetime
日期时间型(T)	Smalldatetime
双精度型(B)	float
双精度型(B)	Real
整型(I)	Int
	smallint
	tinyint
逻辑型(L)	Bit
备注型(M)	Text
通用型(G)	image
字符型(二进制)(C)	无
备注型(二进制)(M)	binary
备注型(二进制)(M)	varbinary

　　关键程序段：

　　*连接远程数据源

PROCEDURE Activate
wait window at 12,20 nowait "请稍后!正在连接远程数据源 ......"
VarDriver=THISFORM.Text1.Value
VarServer=THISFORM.Text2.Value
VarDatabase=THISFORM.Text3.Value
VarUser=THISFORM.Text4.Value
VarPassword=THISFORM.Text5.Value
Store sqlstringconnect("Provider=MSDASQL;DRIVER={"+alltrim(VarDriver)+"};
DSN=;SRVR="+alltrim(VarServer)+";DB="+alltrim(VarDatabase)+";UID="+alltrim(VarUser)+";
PWD="+alltrim(VarPassword)) to ConnHandle &&ConnHandle为连接句柄
if ConnHandle<0
=messagebox(space(4)+" 连接远程数据源失败！原因如下："+chr(10);
+"１.“SYBASE信息”参数配置不正确；"+chr(10);
+"２.SYBASE服务（"+alltrim(upper(VarServer))+"）未启动。",16,"错误提示:")
wait clear
close all
return
else
wait clear
……
=sqldisconnect(ConnHandle)
endif
ENDPROC
……
PROCEDURE Release
=sqldisconnect(ConnHandle)
close all
ENDPROC

　　*查询

&&结果存入自定义游标MathsCursor
=sqlsetprop(ConnHandle,'batchmode',.T.) &&设置一次返回所有结果集
=sqlprepare(ConnHandle,"select code,name,grade,class,maths from student where grade='"+Vargrade+"' and class='"+Varclass+"'","mathscursor")
=sqlexec(ConnHandle)
……
*表单中加入页框控件,表格控件
THISFORM.Pageframe1.Page1.Grid1.RecordSource="mathscursor"
THISFORM.Pageframe1.Page1.Grid1.RecordSourceType=1 &&别名
THISFORM.Pageframe1.Page1.Grid1.Column1.ControlSource="mathscursor.code"
THISFORM.Pageframe1.Page1.Grid1.Column2.ControlSource="mathscursor.name"
THISFORM.Pageframe1.Page1.Grid1.Column3.ControlSource="mathscursor.grade"
THISFORM.Pageframe1.Page1.Grid1.Column4.ControlSource="mathscursor.class"
THISFORM.Pageframe1.Page1.Grid1.Column5.ControlSource="mathscursor.maths"
……

　　*修改

=sqlsetprop(ConnHandle,'transactions',2) &&设置人工事务处理
=sqlprepare(ConnHandle, "update student set grade=grade+1") &&新年升级处理
=sqlexec(ConnHandle)
if messagebox("确定修改所输入数据信息吗?",4+32,"运行提示:")=6
=sqlcommit(ConnHandle)
else
=sqlrollback(ConnHandle)
THISFORM.text1.setfocus
endif
……

　　*删除

Vargrade=THISFORM.Text1.Value
=sqlsetprop(ConnHandle,'transactions',2) &&设置人工事务处理
=sqlprepare(ConnHandle,"delete from student where grade='"+Vargrade+"'")
=sqlexec(ConnHandle)
if messagebox("确定删除所输入数据信息吗?",4+32,"运行提示:")=6
=sqlcommit(ConnHandle)
else
=sqlrollback(ConnHandle)
THISFORM.text1.setfocus
endif
……

　　*增加

Varcode=THISFORM.Text1.Value
Varname=THISFORM.Text1.Value
……
=sqlsetprop(ConnHandle,'transactions',2) &&设置人工事务处理

=sqlprepare(ConnHandle,"INSERT INTO student(code,name,birthday,grade,class,tuition,maths,chinese,physics,
chemistry,history,geobiology,biology,gym);
VALUES('"+Varcode+"','"+Varname+"','"+Varbirthday+"',"+Vargrade+","+Varclass+",
"+Vartuition+","+Varmaths+","+Varchinese+","+Varphysics+","+Varchemistry+",
"+Varhistory+","+Vargeobiology+","+Varbiology+","+Vargym+")")
=sqlexec(ConnHandle)
if messagebox("确定增加所输入数据信息吗?",4+32,"运行提示:")=6
=sqlcommit(ConnHandle)
else
=sqlrollback(ConnHandle)
THISFORM.text1.setfocus
endif
……

转载:http://www.qqread.com/foxpro/i225974060.html