回复 28楼 qingfameng
谢谢帮助测试。本以为在你那可以发现新的情况。那个提示不要理它。只是我在过程中抽取几条语句。
vfp9.0实现这个不是难事,但用中间层构建系统,与 CS结构编程在客户端实现有很大不同,
所有的数据处理如:保存、查询、统计等代码都放在中间层。客户端只是用来实现 如：输入，显示查询结果等.
中间层构建可以看下我上传的那资料。大概是这样：
1、把所有数据处理的各个过程（如 连接数据、断开连接，保存、查询等），以涵数形式编写在一个PRG文件。
然后编译成一个 DLL，这样就形成一个动态涵数库。
2、在IIS 创建一个虚拟目录（网站)
3、在 SOAP 中发布那个 DLL 文件（也可在VFP用向导发布)。这样就构建了一个 Web Service.
4、客户端连接网站。调用 DLL中的涵数（如刚才的测试代码就有连接、调用），在客户端可以把连接创建的对象(如oweb)定义为公共变量，这样在整个客户端程序都可以使用这个对象了，只要进入系统连接一次即可.
又如在连接后可以调如下可以取得服务器的时间、查询条码以 321 开头的资料等
?oweb.GETDATETIME() &&服务器的时间
STRTOFILE(STRCONV(oweb.get_hpxx('0001','321','2'),14),'d:\tmbh.dbf') &&查询结果放在 D:\tmbh.dbf 文件上.
其中取日期涵数在中间层就是这样的过程
*****************
*获取系统时间
*****************
FUNCTION getdatetime () as String
LOCAL SQL_ERR,DATETIME_TMP
SQL_ERR=THIS.GET_QUERY_TABLE("SELECT GETDATE() RQ",'getdatetime_TMP') &&取SQLSERVER服务器时间
IF SQL_ERR=-1
DATETIME_TMP=TTOC(DATETIME()) &&如果取SQLSERVER服务器时间没成功，就取本网站的电脑时间。
ELSE
DATETIME_TMP=TTOC(getdatetime_TMP.RQ)
USE IN getdatetime_TMP
ENDIF
RETURN DATETIME_TMP
ENDFUNC
如果只是想取本网站的电脑时间，可以简单写成
FUNCTION getdatetime () as String
RETURN TTOC(DATETIME())
ENDFUNC
[ 本帖最后由 bccn0906 于 2013-11-15 10:19 编辑 ]
