评论

#lanphaday 发表于2007-06-19 15:13:36  IP: 218.107.55.*

现在博文的封面设计得越来越漂亮了！

#luozhuang 发表于2007-06-21 22:59:17  IP: 220.165.248.*

Visual FoxPro 微软都不支持了
几乎就没人用了（除了某些考试虫和守旧的人）
倒不如出个sql权威指南

#mfes88 发表于2007-07-19 15:50:18  IP: 222.172.221.*

Visual FoxPro 是个好东西，不需任何额外费用，开发者就可以嵌入FoxPro到不受数量限制的应用程序中。在Java或VB 6出现以前，它就已经具有一个成熟的面向对象环境了。对于某些特定的应用程序，Visual FoxPro可以和内存数据库运行的几乎一样快。另外，FoxPro既可以作为一个数据存储工具使用，又可以作为一个具有数据库思想的开发工具的特点，使其进化为可以适合今天的Web开发环境。

#mfes88 发表于2007-08-02 14:26:25  IP: 220.163.25.*

张老师你好,阅读了您出的VFP160问、VFP开发模式与应用案例两本书后对我帮助很大真是受益非浅，从您这里学到了不少知识在此向您表示道谢！
现有一技术方面的问题向您请教：我用SQL SERVER 2000作为数据库存储后台，在操作VFP通用字段向SQL SERVER2000对应存储时WORD文件存到SQL SERVER2000后下次读出打开时WORD文档的页面格式会不完整，原本WORD文件为A3页面的定义，现从SQL SERVER2000读出时页面设定就会不是原来的A3幅面。其它格式的文件完好只有WORD文件会出现异常。

程序代码如下：在本地临时表测试存储到vfp通用字段的WORD文档后在打开

1、 在客户端选择文件存入本地临时表
XCD=ALLTRIM(THISFORM.Label2.CAPTION)
XF=GETFILE()
CD &XCD
IF FILE("&XF")=.T.
THISFORM.EDIT3.Value=XF
*取扩展名
CHAR1=LEN(ALLTRIM(XF))
CHAR2=""
DO WHILE CHAR1>=1
IF SUBSTR(ALLTRIM(XF),CHAR1,1)="."
CHAR1=-1
ELSE
CHAR2=SUBSTR(ALLTRIM(XF),CHAR1,1)+CHAR2
ENDIF
CHAR1=CHAR1-1
ENDDO
THISFORM.TEXT2.Value=CHAR2
*取文件名
CHAR1=LEN(ALLTRIM(XF))
CHAR2=""
DO WHILE CHAR1>=1
IF SUBSTR(ALLTRIM(XF),CHAR1,1)="\"
CHAR1=-1
ELSE
CHAR2=SUBSTR(ALLTRIM(XF),CHAR1,1)+CHAR2
ENDIF
CHAR1=CHAR1-1
ENDDO
THISFORM.TEXT4.Value=CHAR2
*

#lyt319 发表于2008-01-28 15:56:56  IP: 61.142.75.*

我买了一本<<Visual Foxpro 软件开发模式与应用案例>>但是光盘丢失了,可否提供下载? 下面是我关于本书的的些疑问,及在网上一些的提出的疑部.:
在第二章中.depin, depout 为什么不把每个记录都记入一个表中然后库存的数量由统计产生呢?而是每张单计算再输入.这样很难控制,也很容易出错.下面在网上就有一位网友提出了疑问.
_____________________________________
本人在网上听说过张老师写有关VFP的书非常好，于是慕名买了一本《Visual Foxpro 软件开发模式与应用案例》，昨晚抽了一些时间看了点，无意间发现了该书的例程代码中的“SET DELETED ON/OFF”命令使用不当，这一错误使系统留下严重的隐患。
书中第18页：
IF NOT DBUSED("dbMain") &&打开数据库
OPEN DATABASE dbMain EXCLUSIVE
ENDIF
SET DATABASE TO dbMain
IF NOT USED("tblOperator") &&打开操作员表
USE tblOperator ALIAS tblOperator IN 0
ENDIF
SELECT tblOperator
SET DELETED ON
IF NOT USED("tblDepartment") &&打开部门表
USE tblDepartment ALIAS tblDepartment IN 0
ENDIF
SELECT tblDepartment
SET DELETED ON
IF NOT USED("tblFormula") &&打开公式表
USE tblFormula ALIAS tblFormula IN 0
ENDIF
SELECT tblFormula
SET DELETED ON
IF NOT USED("tblPerson") &&打开员工表
USE tblPerson ALIAS tblPerson IN 0
ENDIF
SELECT tblPerson
SET DELETED ON
IF NOT USED("tblSalaryItem") &&打开工资项目表
USE tblSalaryItem ALIAS tblSalaryItem IN 0
ENDIF
SELECT tblSalaryItem
SET DELETED ON
SET ORDER TO fldSort
IF NOT USED("tblTally") &&打开账套名称表
USE tblTally ALIAS tblTally IN 0
ENDIF
SELECT tblTally
SET DELETED ON
IF NO

#yt045326 发表于2008-05-09 14:01:10  IP: 221.214.157.*

张老师你好：
最近我用vfp+sql server2000作了一个C/S系统。
请教怎样才能实现用sqlexec()函数向sql 传送图片和长度大于255的字符串？
急用，赐教为盼!