VFP下客户机访问任意映射服务器的方法

---- 实际应用中局域网内各客户机因本身盘符数量的原因，对这指定的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环境中运行着！