VB.net 2010 视频教程 VB.net 2010 视频教程 python基础视频教程
SQL Server 2008 视频教程 c#入门经典教程 Visual Basic从门到精通视频教程
当前位置:
首页 > 数据库 > Oracle教程 >

  • vfp教程之VFP智能感应的二次开发

摘要：本文提出了VFP内置编辑器的智能感应功能及用法，供智能感应使用的表FOXCODE.DBF的结构及功能。重点介绍了智能感应的二次开发功能的脚本程序编写方法。文中给出了几个实用的实例。
关键字：VFP 编辑器 智能感应

1 智能感应简介
VFP从7.0版开始增加了一个非常好的功能：智能感应（IntelliSense）功能。主要的功能有：（1）输入命令缩写及空格后，命令会自动扩展；（2）输入函数名及左括弧、对象名及点之后，系统会自动提示相应的参数或属性、方法名等供选择。除了上述这些与其它语言类似的功能以外，VFP还有一个特点，那就是它提供了可供用户二次开发的功能，即可以用脚本程序对功能进行扩展。
智能感应的所有内容及方案都在一个表中定义，表的文件名在系统变量_FOXCODE中存放。修改或扩展这个表的内容就可以改变智能感应的内容。在工具菜单中有一项是智能感应管理器（IntelliSense Manager）。智能感应管理器的作用其实就是帮助修改这个表。当然也可以直接用手工对表进行修改。
2 FOXCODE的表结构及用法
2.1 FOXCODE的表结构
此表共有十几个字段，下面介绍一下几个关键字段的用处：
Type:类型，有C(命令)、F(函数)、P(属性)、S(脚本)、O(对象)、U(用户自定义)等
Abbrev:引发智能感应的关键词，也是命令或函数的最短缩写
Cmd：填写脚本的名称，放在{}内，此脚本名应在另外一条记录的Abbrev字段中
Data:备注型，存放脚本程序，或存放任意数据
Expanded:命令或函数展开的全名
Tip:提示信息
根据Type的不同，这些字段的意义也有所区别，而且不一定全部需要，不需要的字段可以空着，下面简单介绍一下不同用途的组合方式：
C或F:Abbrev中存放缩写，Expand中存放全称，Cmd中的脚本名可选
S:Abbrev中存放脚本名，Data中存放脚本程序
U:Abbrev中存放关键词，Cmd存放空括弧{}，脚本直接存放在Data中；或者：Cmd中存放脚本名，Data中存放数据，脚本则在另外一条记录中定义。
2.2 智能感应的简单应用：提示信息的汉化
命令、函数、属性等类型的记录都是系统内部已经定义好的，虽然也可以修改，但基本上不好作太大的变动，毕竟功能的改造是有限的，在此就不详加叙述了。然而有一点工作是可以做的，那就是对Tip字段进行汉化。由于VFP从7.0开始已经不再出中文版了，汉化工作必须由自己做，对于智能感应提示的汉化，不需对二进制文件进行修改，直接修改表的Tip字段即可，这样汉化难度就很简单了。汉化时要注意，由于里面的逗号是作为参数分隔符的，不要进行增删，否则参数会错位。内容中若需要添加逗号，请使用全角的中文逗号。这样经过汉化之后，提示就变成中文的了。由于系统变量_FOXCODE的值可以改变，因此可以随时改变它的值，选择另外的表。若结合键激活功能，可以设置一个热键用于切换_FOXCODE的值，以便随时改变中、英文提示。
3.用户自定义类型的使用
用户自定义类型(Type为U)的记录，是我们可以添加的。下面介绍一下脚本编写的方法。
脚本实际上就是标准的VFP程序，简单地说，就是在编辑时输入一个在Abbrev字段中存在的字符串，并按空格键激活智能感应，那么系统就执行相应的脚本程序，用脚本的返回值替换输入的内容，若返回值为空，则不替换。调用脚本时，系统会传入一个对象型的参数FOXCODE，这个参数包含了用户输入的及FOXCODE表中相应记录中的许多有用的信息，脚本程序可以从中获取信息。因此不管是否需要这个对象，脚本程序的第一句必须用LPARAMETERS接收传入的参数。
4. FOXCODE对象的属性
FOXCODE对象有许多属性，没有方法。与FOXCODE表的字段同名的属性，分别代表相应的字段内容，除此以外比较有用的还有：
CursorLocaChar：执行脚本后，放在要选中文本内容前后的特殊字符，默认为“~”
DefaultCase：缺省大小写，来自Type为V的记录的Case字段内容
FileName：编辑的文件名
FullName：当前输入的整行文本
Location：使用编辑器的类型：
0：命令窗口，1：程序，8：菜单片段，10：代码片段，12：存储过程
UserTyped：用户输入的文本，不包括激活键、前导空格或Tab（可用FullLine代替）
valueTip：当valueType为“T”时的提示
valueType：脚本处理的方案，L：显示列表项，V：显示值，T：提示。这个属性一般需要在脚本中赋值，用户自定义的一般设置为“V”
5.实例分析
为了能说得更清楚，现举几个实例，并对其进行分析说明。下面的例子中的Type都为“U”，Abbrev为要替换的关键字。“U”类型相当与“C”类型（命令），是用空格键激活的。若是类的方法或函数，是用左括弧激活的，那么必须用“F”类型，其余的与“U”类型的类似。
5.1直接替换，不用脚本
在Expanded中存放展开后的字符串即可，字段长度为26，不超过就行。而且前面的几个字符不必与Abbrev的相同。
5.2 用单条记录实现
脚本程序直接存放在当前记录的Data字段中，在Cmd字段中存放空括弧{}。例：关键词为DC,替换为DEFINE CLASS语句块的多行内容，最后光标停在“类名”的位置。脚本程序为：
LPARAMETERS oFoxcode
IF oFoxcode.Location #1 &&如果不是程序窗口，则不变
RETURN ""
ENDIF
oFoxcode.valuetype = "V" &&此行必需
TEXT TO myvar NOSHOW 
DEFINE CLASS ~类名~ AS Session OLEPUBLIC
PROCEDURE Init

ENDPROC
ENDDEFINE
ENDTEXT
RETURN myvar
说明：（1）若使用智能感应管理器，则点击Custom中的Script时，LPARAMETERS一行会自动添加。（2）TEXT-ENDTEXT间的几行（包括空行）为返回的内容，替换后“类名”为选中状态，便于直接输入。若只需光标定位，不需选中，则只要一个“~”就行了，符号“~”由CursorLocaChar属性决定，是可变的。
5.3 单独定义脚本
若脚本程序有通用性，则可以把脚本写到单独的记录中，供其它项调用。定义脚本：Type为“S”，Abbrev存放脚本名，Data存放脚本程序，Cmd为空。调用：Type为“U”，Abbrev存放关键词，Data存放数据，Cmd存放要调用的脚本名（两边加{}）。例：关键词为SQ与IQ，分别生成SQL的SELECT与INSERT语句，字段名由脚本生成，若当前已有表打开，则使用当前表，否则提示打开。
Type Abbrev Cmd Data
U SQ {fieldlist} SELECT <> FROM <> 
WHERE ~条件~ INTO CURSOR
U IQ {fieldlist} INSERT INTO <> (<>) 
value (~<>~)
S fieldlist 脚本程序

fieldlist脚本程序如下
LPARAMETER oFoxCode
oFoxcode.valuetype = "V"
IF EMPTY(DBF()) &&没打开表，则提示打开
USE ?
ENDIF
AFIELDS(AR)
FieldList=AR(1,1)
FOR I=2 TO ALEN(AR,1)
FieldList=FieldList+","+AR(I,1)
NEXT
DbfName=JUSTSTEM(DBF())
RETURN TEXTMERGE(oFoxCode.Data) &&直接替换DATA中两个变量的内容
脚本程序说明： TEXTMERGE()函数可以用变量的值一次性替换字符表达式里<<>>中的变量。
6 其它
系统在第一次运行时会把FOXCODE.DBF从安装目录下复制一份到WINDOWS下的应用数据目录下，再使用它。HOME()目录下会有相同的一份，到底用的是哪一份，以系统变量_FOXCODE为准，也可以重新设置。
可以通过设置_VFP.EditorOptions属性来打开或关闭智能感应功能，赋"lq"可分别关闭成员列表与快速提示。小写为关闭，大写为打开。
7.总结
智能感应虽然是7.0版才开始有的，比其它的编程软件晚，但一开始就有强大的功能，更有意义的是它的功能是表FOXCODE.DBF的内容来实现的，因此用户可以通过修改或增加表的记录来增加系统智能感应的功能，达到了二次开发的目的，这一点是任何其它语言所不能达到的。
VFP的这种特性给编程带来了方便，若充分利用其功能，可以做到事半功倍的效果。文中提到的程序与脚本，都已在VFP7.0版中调试成功。

相关教程