VB.net 2010 视频教程 VB.net 2010 视频教程 python基础视频教程
SQL Server 2008 视频教程 c#入门经典教程 Visual Basic从门到精通视频教程
当前位置:
首页 > 数据库 > VF教程 >
  • vfp教程之VFP下客户机访问任意映射服务器的方法

在开发网络多用户应用系统时,VFP的程序员常采用如下方法:将1个或多个数据库(.DBC及.DBF)作为共享资源放在1台或多台NOVELL,WIN-NT(或在WIN9X对等网上所设定)的服务器上,应用程序及临时文件放在本地客户的机WIN9X环境下,在客户机上开发时将本机对这些服务器访问盘符预先映射成指定的F:(H:..)等。最后编译成.EXE文件生成安装系统安装到每台客户机上。

---- 实际应用中局域网内各客户机因本身盘符数量的原因,对这指定的1台或多台服务的映射盘符可能并不是开发机上的F:(H:)。这时麻烦来了,程序一运行,屏幕提示“‘定位数据库’—‘初始化临时表对象时发生错误。找不到F:…???.DBC’” 。如果整个应用软件有.DBC库表和各种自由表,又有许多表单组成,此时让用户去定位数据库或自由表在什么位置,简直是不可能的。

---- 笔者是这样解决这个问题的(大致方法如下):

---- 1. 建立一个包含文件:如info.h

#include DBCname1_loc drv1_loc+’\citicmis1.dbc’

;服务器1上的库1

#include DBCname2_loc drv2_loc+’\citicmis2.dbc’;

服务器2上的库2

#include DBCusrinf_loc drv1_loc+’\citicmis1!usrinf.dbf’

;库1中表

#include DBCEMP_loc drv2_loc+’\citicmis2!emp.dbf ‘ ;

库2中的表

#include dbcjgbh_loc drv1_loc+’\rsc\jgbh.dbf’;

库中表或自由表

---- 2. 在应用系统的某目录中建文本文件:如.\bmp\serdrv.txt, 内有二行文本

F:\acc ;某客户机对第1台服务器的映射盘符

H:\acc ;某客户机对第2台服务器的映射盘符

---- 3. 在软件的主程序main.prg中 建全局变量 drv1_loc,drv2_loc,一开始就用低级文件操作命令fopen,fget等将serdev.txt中的二行 f:\acc,h:\acc分别读入并赋值给drv1_loc,drv2_loc。

---- 4. 应用软件中的表单或其他过程都包含info.h 文件。

---- 4.1 对于自由表:

---- 可在表单的LOAD 事件中 用如 use (dbcjgbh_loc) in 0 alia jgbh shar打开表,在UNLOAD事件中用 USE in jgbh 关闭表。

---- 4.2 对于数据库的表:

---- 可在表单设计时的数据环境中打开表(如打开了 usrinf.dbf,emp.dbf),此事 数据环境中的 Dataenvironmnet.cursor?.database属性 自动设定为所在的服务器的数据库,如本例为 f:\acc\citicmis1.dbc,h:\acc\citicmis2.dbc 。

---- 这时可以在Dataenvironmnet对象的 BeforeOpenTables 方法中写入如下代码:

---- This.Cursor1.database=DBCNAME1_LOC

---- This.Cursor2.database=DBCNAME2_LOC 就可解决问题。

---- 以上方法生成的.EXE系统,安装到各客户机上后,只要修改各客户机的.\bmp\serdrv.txt中为实际对服务器盘符指向就能使用应用系统运行自如了!用此方法开发的系统已在笔者所在系统各单位的WIN9X对WIN9X,WIN9X对NOVELL服务器,VFP6.0环境中运行着!
相关教程