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

文章作者 100test 发表时间 2008:02:01 15:51:54
来源 100Test.Com百考试题网

　　在开发网络多用户应用系统时，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环境中运行着！