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

来源：Yesky 作者：倪显利 出处：综艺读书 2005-11-25 

关 键 词：硬盘  应用软件  协议  效果  数据库开发  

上一页 1 2 3 4 5 6 7 

　　五．实例一瞥：

　　服务器安装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”测试是否连通，否则检查机器连接或重复上述过程。
　　④．注意两种数据库数据类型的对应关系如下表：


 
　　关键程序段：

　　*连接远程数据源

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 ……

更多内容请看Linux数据库宝典  城域网专题  数据库安全技术专题专题，或进入讨论组讨论。

上一页 1 2 3 4 5 6 7 

【收藏此文】【大 中 小】【打印】【关闭】

较早的文章：Visual FoxPro 9.0更强大了

较新的文章：使用VFP的系统变量_SCREEN