求VFP的命令大全 要所有的

VFP命令、函数及程序语句大全（2）

二、常用函数

1、数学函数

函数 用途

ABS(<数值表达式>） 绝对值，|x|

CEILING（<数值表达式>） >=自变量的最小整数

EXP（<数值表达式>） 对基E的幂，e=271828

FLOOR（<数值表达式>） <=自变量的最大整数

INT（<数值表达式>） 取整（舍尾）自变量

LOG（<数值表达式>） 自变量的自然对数，ln x

LOG10（<数值表达式>） 自变量的普通对数，lg x

MAX（<表达式1>，<表达式2>） 两个值的最大值

MIN（<表达式1>，<表达式2>） 两个值的最小值

MOD（<数值表达式1>，<数值表达式2>） 求余数

RAND（[<数值表达式1>]） 返回伪随机数

ROUND（<数值表达式1>，<数值表达式2>） 四舍五入第一个自变量

SIGN（<数值表达式>） 自变量的符号

SQRT（<数值表达式>） 平方根（正根）

2、字符串 *** 作函数

函数 用途

&<内存变量> 用于代替内存变量内容

LEN（<字符串表达式>） 返回字符串表达式的字符个数

SPACE（<数值表达式>） 生成空格

SUBSTR（<字符串表达式>，<数值表达式n>[，<数值表达式L>]） 求子字符串，从指定的字符串表达式第n个开始，总长为L的字符串

LOWER（<字符串表达式>） 将字符串字母转换成小写字母

UPPER（<字符串表达式>） 将字符串字母转换成大写字母

TRIM（<字符串表达式>） 删除字符串尾空格

ASC（<字符串表达式>） 返回字符串表达式最左边的第一个字符的ASCII码

CHR（<数值表达式>） 将数值表达式转换成字符

AT（<字符串表达式1>，<字符串表达式2>[，<数值表达式n>]）

确定字符串表达式1在字符串表达式2中的位置，n为字符串表达式第几次出现

STR（<数值表达式>[，<数值表达式L>][，<数值表达式n>） 将数值转换为字符串，L为数值表达式总长，n为小数位数

VAL（<字符串表达式>） 将数字字符串转换为数字

TYPE（<表达式>） 检测表达式值的数据类型

LTRIM（<字符串表达式>） 删除字符串左部空格

RTRIM（<字符串表达式>） 删除字符串右部空格

LEFT（<字符串表达式>，<数值表达式n>） 取字符串左边部分字符，n为返回的字符个数

RIGHT（<字符串表达式>，<数值表达式n>） 取字符串右边部分字符，n从右边截取字符个数

3、表（dbf） *** 作函数

函数 用途

BOF（[<工作区号或别名>]） 查表文件开始函数

EOF（[<工作区号或别名>]） 表文件结尾测试函数

RECNO（[<工作区号或别名>]） 测试当前或指定工作区表的当前记录号

DELETED（[<工作区号或别名>]） 记录删除测试函数

FILE（<"字符串">） 测试文件是否存在函数

DBF（[<工作区号或别名>]） 检测表的文件名函数

4、日期、时间函数

函数 用途

DATE（） 查系统当前日期函数

TIME（[<数值表达式>]） 查系统当前时间函数

YEAR（<日期型表达式>|<日期时间型表达式>） 由日期查年函数

MONTH（<日期型表达式>|<日期时间型表达式>） 从日期查月份函数

CMONTH（<日期型表达式>|<日期时间型表达式>） 由日期查月份名函数

DAY（<日期型表达式>|<日期时间型表达式>） 从日期查当月的日函数

DOW（<日期型表达式>|<日期时间型表达式>[，<数值表达式>]） 由日期查星期函数

CDOW（<日期型表达式>|<日期时间型表达式>） 从日期查星期名函数

DTOC（<日期型表达式>|<日期时间型表达式>） 日期转换为字符函数

CTOD（<字符串表达式>） 字符串转换为日期函数

CTOT（<字符串表达式>） 返回日期时间值函数

TTOC（<日期时间型表达式>） 返回字符值

5、显示、打印位置函数

函数 用途

ROW（） 判断光标行位置函数

COL（） 判断光标列位置函数

INKEY（[<数值表达式>]） 检测用户所击键对应的ASCII码函数，数值表达式以秒为单位等待击键的时间

6、其他函数

函数 用途

DISKSPACE（） 返回默认磁盘驱动器中可用字节数函数

OS（） 检测 *** 作系统名称的函数

VERSION（） 返回VFP版本号的函数

VFP命令、函数及程序语句大全（3）

三、主要程序语句

1、条件判断语句

格式：（1）IF <条件>

<命令语句组>

ENDIF

说明：如果条件为真，则执行命令语句组中的各语句，否则跳过这些命令语句不执行，

而执行ENDIF后的语句。

（2）IF <条件>

<命令语句组1>

ELSE

<命令语句组2>

ENDIF

说明：如果条件为真，执行命令语句组1，否则执行命令语句组2。

（3）IF <条件1>

IF <条件2>

<命令语句组1>

ELSE

<命令语句组2>

ENDIF

ELSE

<命令语句组N>

ENDIF

说明：进行多重条件的嵌套选择。

（4）DO CASE

CASE <条件1>

<命令语句组1>

CASE <条件2>

<命令语句组2>

CASE <条件3>

<命令语句组3>

CASE <条件N>

<命令语句组N>

[OTHERWISE]

[<命令语句组N+1>]

ENDCASE

说明：依次判断条件，转入条件为真的命令语句组中执行。当所有条件都不成立时，若有

OTHERWISE项，则执行命令语句组N+1，否则执行ENDCASE后面的语句。

2、循环语句

格式：（1）DO WHILE <条件>

<命令语句组>

[LOOP]

<命令语句组>

[EXIT]

<命令语句组>

ENDDO

说明：判断条件是否为真，如为真就重复执行循环体中的命令语句组，直到条件为假，结束循环。

（2）SCAN

<命令语句组>

ENDSCAN

说明：在一个表中建立一个执行命令语句组的循环，并执行对每一条记录的 *** 作，直到表文件

记录完为止。

在下一行显示表达式串

在当前行显示表达式串

@ 将数据按用户设定的格式显示在屏幕上或在打印机上打印

ACCEPT 把一个字符串赋给内存变量

APPEND 给数据库文件追加记录

APPEND FROM 从其它库文件将记录添加到数据库文件中

AVERAGE 计算数值表达式的算术平均值

BROWSE 全屏幕显示和编辑数据库记录

CALL 运行内存中的二进制文件

CANCEL 终止程序执行，返回圆点提示符

CASE 在多重选择语句中，指定一个条件

CHANGE 对数据库中的指定字段和记录进行编辑

CLEAR 清洁屏幕，将光标移动到屏幕左上角

CLEAR ALL 关闭所有打开的文件，释放所有内存变量，选择1号工作区

CLEAR FIELDS 清除用SET FIELDS TO命令建立的字段名表

CLEAR GETS 从全屏幕READ中释放任何当前GET语句的变量

CLEAR MEMORY 清除当前所有内存变量

CLEAR PROGRAM 清除程序缓冲区

CLEAR TYPEAHEAD 清除键盘缓冲区

CLOSE 关闭指定类型文件

CONTINUE 把记录指针指到下一个满足LOCATE命令给定条件的记录，在LOCATE命令后出现。无LOCATE则出错

COPY TO 将使用的数据库文件复制另一个库文件或文本文件

COPY FILE 复制任何类型的文件

COPY STRUCTURE EXTENED TO 当前库文件的结构作为记录，建立一个新的库文件

COPY STRUCTURE TO 将正在使用的库文件的结构复制到目的库文件中

COUNT 计算给定范围内指定记录的个数

CREATE 定义一个新数据库文件结构并将其登记到目录中

CREATE FROM 根据库结构文件建立一个新的库文件

CREATE LABEL 建立并编辑一个标签格式文件

CREATE REPORT 建立宾编辑一个报表格式文件

DELETE 给指定的记录加上删除标记

DELETE FILE 删除一个未打开的文件

DIMENSION 定义内存变量数组

DIR 或 DIRECTORY 列出指定磁盘上的文件目录

DISPLAY 显示一个打开的库文件的记录和字段

DISPLAY FILES 查阅磁盘上的文件

DISPLAY HISTORY 查阅执行过的命令

DISPLAY MEMORY 分页显示当前的内存变量

DISPLAY STATUS 显示系统状态和系统参数

DISPLAY STRUCTURE 显示当前书库文件的结构

DO 执行FoxBase程序

DO CASE 程序中多重判断开始的标志

DO WHILE 程序中一个循环开始的标志

EDIT 编辑数据库字段的内容

EJECT 使打印机换页的命令，将PROW()函数和PCOL()函数值置为0

ELSE 在IFENDIF结构中提供另一个条件选择路线

ENDCASE 终止多重判断

ENDDO 程序中一个循环体结束的标志

ENDIF 判断体IFENDIF结构结束标志

ERASE 从目录中删除指定文件

EXIT 在循环体内执行退出循环的命令

FIND 将记录指针移动到第一个含有与给定字符串一致的索引关键字的记录上

FLUSH 清除所有的磁盘存取缓冲区

GATHER FROM 将数组元素的值赋予数据库的当前记录中

GO/GOTO 将记录指针移动到指定的记录号

HELP 激活帮助菜单，解释FoxBASE+的命令

IF 在IFENDIF结构中指定判断条件

INDEX 根据指定的关键词生成索引文件

INPUT 接受键盘键入的一个表达式并赋予指定的内存变量

INSERT 在指定的位置插入一个记录

JOIN 从两个数据库文件中把指定的记录和字段组合成另一个库文件

KEYBOARD 将字符串填入键盘缓冲区

LABEL FROM 用指定的标签格式文件打印标签

LIST 列出数据库文件的记录和字段

LIST FILES 列出磁盘当前目录下的文件

LIST HISTORY 列出执行过的命令

LIST MEMORY 列出当前内存变量及其值

LIST STATUS 列出当前系统状态和系统参数

LIST STRUCTURE 列出当前使用的数据库的库结构

LOAD 将汇编语言程序从磁盘上调入内存

LOCATE 将记录指针移动到对给定条件为真的记录上

LOOP 跳过循环体内LOOP与ENDDO之间的所有语句，返回到循环体首行

MENU TO 激活一组@PROMPT命令定义的菜单

MODIFY COMMAND 进入FoxBASE+系统的字处理状态，并编辑一个ASCII码文本文件（如果指定文件名以PRG为后缀，则编辑一个FoxBASE+命令文件）

MODIFY FILE 编辑一个一般的ASCII码文本文件

MODIFY LABEL 建立并编辑一个标签(LBL)文件

MODIFY REPORT 建立并编辑一个报表格式文件(FRM)文件

MODIFY STRUCTURE 修改当前使用的库文件结构

NOTE/ 在命令文件（程序）中插入以行注释（本行不被执行）

ON 根据指定条件转移程序执行

OTHERWISE 在多重判断(DO CASE)中指定除给定条件外的其它情况

PACK 彻底删除加有删除标记的记录

PARAMETERS 指定子过程接受主过程传递来的参数所存放的内存变量

PRIVATE 定义内存变量的属性为局部性质

PROCEDURE 一个子过程开始的标志

PUBLIC 定义内存变量为全局性质

QUIT 关闭所有文件并退出FoxBASE+

READ 激活GET语句，并正是接受在GET语句中输入的数据

RECALL 恢复用DELETE加上删除标记的记录

REINDEX 重新建立正在使用的原有索引文件

RELEASE 清楚当前内存变量和汇编语言子程序

RENAME 修改文件名

REPLACE 用指定的数据替换数据库字段中原有的内容

REPORT FORM 显示数据报表

RESTORE FROM 从内存变量文件(MEM)中恢复内存变量

RESTORE SCREEN 装载原来存储过的屏幕映象

RESUME 使暂停的程序从暂停的断点继续执行

RETRY 从当前执行的子程序返回调用程序，并从原调用行重新执行

RETURN 结束子程序，返回调用程序

RUN/！ 在FoxBASE+中执行一个 *** 作系统程序

SAVE TO 把当前内存变量及其值存入指定的磁盘文件(MEM)

SAVE SCREEN 将当前屏幕显示内容存储在指定的内存变量中

SCATTER 将当前数据库文件中的数据移到指定的数组中

SEEK 将记录指针移到第一个含有与指定表达式相符的索引关键字的记录

SELECT 选择一个工作区

SET 设置FoxBASE+控制参数

SET ALTERNATE ON/OFF 设置传送/不传送输出到一个文件中

SET ALTERNATE TO 建立一个存放输出的文件

SET BELL ON/OFF 设置输入数据时响铃/不响铃

SET CARRY ON/OFF 设置最后一个记录复制/不复制到添加的记录中

SET CENTURY ON/OFF 设置日期型变量要/不要世纪前缀

SET CLEAR ON/OFF 设置屏幕信息能/不能被清除

SET COLOR ON/OFF 设置彩色/单色显示

SET COLOR TO 设置屏幕显示色彩

SET CONFIRM ON/OFF 设置在全屏幕编辑方式中，要求/不要求自动跳到下一个字段

SET CONSOLE ON/OFF 设置将输出传送/不传送到屏幕

SET DATE 设置日期表达式的格式

SET DEBUG ON/OFF 设置传送/不传送ECHO的输出到打印机上

SET DECIMALS TO 设置计算结果需要显示的小数位数

SET DEFAULT TO 设置默认的驱动器

SET DELETED ON/OFF 设置隐藏/显示有删除标记的记录

SET DELIMITER TO 为全屏幕显示字段和变量设置定界符

SET DELIMITER ON/OFF 选择可选的定界符

SET DEVICE TO SCREEN/PRINT 将@SAY命令的结果传送到屏幕/打印机

SET DOHISTORY ON/OFF 设置存/不存命令文件中的命令到历史记录中

SET ECHO ON/OFF 命令行回送到屏幕或打印机

SET ESCAPE ON/OFF 允许ESCAPE退出/继续命令文件的执行

SET EXACT ON/OFF 在字符串的比较中，要求/不要求准确一致

SET EXACLUSIVE ON/OFF 设置数据库文件的共享

SET FIELDS ON/OFF 设置当前打开的数据库中部分/全部字段为可用

SET FIELDS TO 指定打开的数据库中可被访问的字段

SET FILTER TO 在 *** 作中将数据库中所有不满足给定条件的记录排除

SET FIXED ON/OFF 固定/不固定显示的小数位数

SET FORMAT TO 打开指定的格式文件

SET function设置F1-F9功能键值

SET HEADING ON/OFF 设置LIST或DISPLAY时，显示/不显示字段名

SET HELP ON/OFF 确定在出现错误时，是否给用户提示

SET HISTORY ON/OFF 决定是/否把命令存储起来以便重新调用

SET HISTORY TO 决定显示历史命令的数目

SET INDEX TO 打开指定的索引文件

SET INTENSITY ON/OFF 对全屏幕 *** 作实行/不实行反转显示

SET MARGIN TO 设置打印机左页边

SET MEMOWIDTH TO 定义备注型字段输出宽度和REPORT命令隐含宽度

SET MENU ON/OFF 确定在全屏幕 *** 作中是否显示菜单

SET MESSAGE TO 定义菜单中屏幕底行显示的字符串

SET ODOMETER TO 改变TALK命令响应间隔时间

SET ORDER TO 指定索引文件列表中的索引文件

SET PATH TO 为文件检索指定路径

SET PRINT ON/OFF 传送/不传送输出数据到打印机

SET PRINTER TO 把打印的数据输送到另一种设备或一个文件中

SET PROCEDURE TO 打开指定的过程文件

SET RELATION TO 根据一个关键字表达式连接两个数据库文件

SET SAFETY ON/OFF 设置保护，在重写文件时提示用户确认

SET SCOREBORAD ON/OFF 设置是/否在屏幕的第0行上显示FoxBASE+的状态信息

SET STATUS ON/OFF 控制是/否显示状态行

SET STEP ON/OFF 每当执行完一条命令后，暂停/不暂停程序的执行

SET TALK ON/OFF 是否将命令执行的结果传送到屏幕上

SET TYPEAHEAD TO 设置键盘缓冲区的大小

SET UNIQUE ON/OFF 在索引文件中出现相同关键字的第一个/所有记录

SKIP 以当前记录指针为准，前后移动指针

SORT TO 根据数据库文件的一个字段或多个字段产生一个排序的哭文件

STORE 赋值语句

SUM 计算并显示数据库记录的一个表达式在某范围内的和

SUSPEND 暂停（挂起）程序的执行

TEXTENDTEXT 在屏幕上当前光标位置显示的文本数据块

TOTAL TO 对预先已排序的文件产生一个具有总计的摘要文件

TYPE 显示ASCII码文件的内容

UNLOCK 解除当前库文件对记录和文件的加锁 *** 作

UPDATE 允许对一个数据库进行成批修改

USE 带文件名的USE命令打开这个数据库文件。无文件名时，关闭当前 *** 作的数据库文件

WAIT 暂停程序执行，按任意键继续执行

ZAP 删除当前数据库文件的所有记录（不可恢复）

vfp60的十个实用技巧

---- 一选择网络打印机

---- 笔者单位里的局域网上安装有多台网络打印机，在使用vfp 60编制的程序进行打印 *** 作时，是否可以选择其中的某一台空闲的网络打印机进行打印，而不一定非要从默认打印机输出，从而提高工作效率呢？经笔者研究，在执行命令：report from … to printer 之前，先执行下列程序代码：set printer to name getprinter()，就可以调用 *** 作系统的"打印设定"对话框，用户利用该窗口即可达到灵活选择空闲打印机进行打印输出的功能。(注：可供选择的打印机名是用户计算机上已安装好的打印机名。)

---- 二恢复丢失了的fpt文件

---- 由于误 *** 作，将自由表的备注文件删除，致使自由表无法打开。遇到这种情况我们可采用下述方法解决:

---- 1创建一个新的自由表，且该自由表只含一个字段，其类型为备注型。关闭该自由表，将其扩展名为fpt的备注文件复制给误删除的自由表的备注文件，或将该备注文件改名为误删除的自由表的备注文件即可。运行下面的程序同样也可以恢复丢失了的fpt 文件：

accept ''请输入丢失了fpt

文件的自由表名称(不带扩展名)：'' to namef

namef=trim(namef)+''bbb''

crea dbf &namef (aa m)

use

dele file &namef

---- 2用vfp低级文件函数创建一个空的fpt文件，原自由表即可打开。程序清单如下：

accept ''请输入丢失了fpt

文件的自由表名称(不带扩展名)：'' to namef

namef=trim(namef)+''fpt''

hand=fcreate(namef)

abc=repl(chr(0),3)+chr(8)+

repl(chr(0),3)+''@''+repl(chr(0),504)

=fwrite(hand,abc)

=fclose(hand)

return

---- 上述方法只是为丢失了fpt文件的自由表建立了一个新的fpt文件，原fpt文件中的内容已经丢失，无法恢复。在实际 *** 作中若遇到这种情况，最好是恢复原来的fpt文件，若原fpt文件无法恢复时再采用上述方法。

---- 三脱离vfp运行程序

---- 利用vfp 60创建的应用程序，被编译成可执行程序后，若要使其脱离vfp环境独立运行，除了我们所知道的在应用程序目录中需包含一个名为"configfpw"的配置文件外，经笔者试验发现还必须包含"vfp6rdll"、"vfp6rchsdll"、"vfp6renudll"这三个动态链接库文件。这三个文件在"windows\system"目录下，用户可直接将其复制到自己的应用程序目录中。最后再经过编译形成可执行程序，运行安装向导创建发布磁盘，我们开发的小应用程序就可以堂堂正正地在win 98下安装运行了。

---- 四低级文件函数加密数据库

---- vfp有一个十分薄弱的环节就是数据库的保密性差。由于dbf文件都是敞开式的，甚至用dos中最简单的type命令都可以浏览，因此,笔者从以下两方面对数据进行加密：

---- 1在向自由表中增加数据时,就进行加密,即更新自由表时就对数据进行加密,在读取数据时再解密。

---- 2用vfp提供的低级文件函数进行加密，加密后的文件无法打开、浏览，使用时，再执行该加密程序即可将加密的自由表还原。

加密数据库程序(同时也是解密程序)

set talk off

close all

clea

@10,10 say "请输入要加密的

自由表名(含扩展名):" get file1 defa '' ''

read

handle=fopen("&file1",2)

if handle< 0

@14,10 say "不能打开文件!"

=inkey(0)

retu

endif

j=0

do while notfeof(handle)

bb=fread(handle,1)

cc=chr(mod(asc(bb)+128,256))

=fseek(handle,j)

=fwrite(handle,cc)

asc(bb),asc(cc)

j=j+1

enddo

=fclose(handle)

close all

retu

---- 五简易设置textbox对象的输入长度

---- 在以前的xbase语法中，我们可以通过picture参数定义某变量或文本栏的输入长度格式，而在vfp中的textbox对象中则支持了format和inputmask属性来定义输入的格式。我们可以使用比较原始的方法来进行设定，比如当要求输入有20个栏位的文本框对象时，我们可以在此对象的inputmask属性中定义为inputmask="xxxxxxxxxxxxxxxxxxxx"。

---- 但是这样的设定方法非常麻烦，尤其是当面对更长的字符串输入时更是不方便。其实我们完全可以用另外一种方法来把这样的需求设计过程变得很简单，下面就具体介绍一下这种简易的快速设定输入栏位的方法。

---- 利用replicate()函数设定输入长度这里我们同样利用了对象的inputmask属性来定义输入格式和输入长度，但是当对象的输入比较长时，则可以借助算术表达式的方式来对其进行设定。通过属性窗口中的inputmask属性建立表达式对话框，我们可以利用replicate()函数设定重复的"x"的个数即可(本例为20)。完成后回到属性设置窗口，我们可以看到在inputmask属性栏中出现了"=replicate(20)"位值的表达式，这样，我们就轻松地完成了长字符输入的长度控制。由此我们也可以体会到善于使用表达式给我们带来的方便之处。

---- 六中文文本框的设计方法

---- 在程序开发过程中,我们经常要设计一些文本框,而且这些文本框要求只能输入中文。在这种情况下,通常需手工启动某一种中文输入法。如果软件能够自动启动缺省的中文输入法,那么将会给编程人员带来很大的方便。下面的类便能实现这一功能,具体的设计步骤如下:

---- 1创建一个新类,其基类是"textbox",类名为"中文textbox",存储于"myclass"类库中。

---- 2进入类设计器后,设置"中文textbox"的各项属性,如字体、颜色等。

---- 3设计gotfocus事件,代码为: =imestatus(1) 表示当光标移到此框后,自动启动中文输入法。

---- 4设计lostfocus事件,代码为: =imestatus(0) 表示当光标移开此框后,自动关闭中文输入法。设计好后,保存到文件即可。

---- 七立体框类的设计方法

---- 在vfp的标准类里提供了一个形状控制类(shape),可以简单地将s hape的"specialef fect"属性设置为"0-3d",将"backstyle"属性设为 "0-透明",来设计三维立体框。

---- 然而这样的三维立体框太单调,缺少变化。通过以下的设计方法, 我们可以作出类似于vb中的three_d panel那样的效果。具体设计步骤如下:

---- 1新建一个类,基类是"container",类名为"three_panel",存储于"myclass"类库中。

---- 2进入类设计器后,设置"three_ panel"的各项属性,如表1所示。属性设计完毕后,存入文件,就可以得到凸起效果的边框类。

---- 3通过调整"specialeffect"的值为"1-凹下",可以设计凹下效果的边框类(three_p anel_ao)。 调整其余参数可以得到不同效果的边框。

---- 八在程序中播放动画

---- 我们知道，vfp只支持静止的，无法直接播放gif动画。但网上许多有趣而华丽的gif动画的确令人心动，如何将这些动画插入到你的vfp程序中，让你的程序更吸引人呢？

---- 其实很简单，将gif动画分解成各单独的静止的gif或bmp，然后在vfp使用计时器让这些静止的轮流出现，就产生动画效果了。

---- 将gif动画分解为静止的软件有很多，在网上很容易找到，如animagic gif 等。分解出来的我们分别以a0bmp、a1bmp……这样的形式保存。在表单中添加计时器timer1，timer1的interval属性设为100，enabled属性设为t，再添加image1控件，其backstyle属性设为0(透明)，stretch也设为0(裁剪)。

---- 在form的load过程中写代码：

public i , n

i=0

n=5(静止的总共数目)

在timer1的timer过程中写代码：

local j

i = mod (i+1,n)

j = alltrim( str(i) )

thisformimage1picture="a"－j－"bmp"

运行表单，我们就可以看到熟悉的gif动画了。

---- 九粘贴vfp顶层表单

---- 当你将表单设置为顶层表单并独立运行于windows下,就会发现表单中复制粘贴功能失效，给实际工作造成极大的不便，从而使编制的软件达不到专业水准。通过认真分析与实践，笔者认为，造成这一问题的原因是微软设计vfp时，只考虑了位于系统选单下的表单的复制和粘贴情况，即位于系统选单下的表单可使用复制及粘贴热键，而处于windows下的表单完全脱离了系统选单的控制，因此复制及粘贴热键失效。

---- 解决的办法是可在表单的控件(本文举例为文本框)中,为keypress event编写如下事件处理程序,该事件处理程序首先将选择内容复制到windows剪贴板上，然后再将剪贴板上的内容添加到控件中。

keypress event

lparameters nkeycode, nshiftaltctrl

if nkeycode=3

&& ctrl+c 复制

-cliptext=thisseltext

endif

if nkeycode=22

&& ctrl+v 粘贴

do case

case thisselstart=0

thisvalue=-cliptext+thisvalue

case thisselstart〉=1

and thisselstart〈=len(thisvalue)

thisvalue=subs(thisvalue,1,thisselstart)+

-cliptext+subs(thisvalue,thisselstart+1)

endcase

endif

thisformgrid1column1setfocus()

sele recetem

if not eof()

skip

endif

thisformrefresh

---- 十为vfp添加循环微调控件类

---- 在vfp编程中，微调控件是最常用的控件之一。按照微调控件提供的基本功能，通过单击向上或向下箭头，而达到微调控件的最大或最小值时，如继续单击向上或向下箭头，将保持最大或最小值不变。笔者通过对spinner控件属性和事件的分析，用编程的方法实现了循环微调控件功能。

---- 循环微调控件(cyclespinner)所实现的功能是：当单击向上箭头而达到最大值时，再单击向上箭头，能自动跳到最小值；当单击向下箭头而达到最小值时，能自动跳到最大值；其余功能均继承spinner基类的功能。具体实现方法如下：利用表单控件，在表单中设计一个微调按钮，并设置如下属性：

spinnerhighvalue=max

&&max应小于spinner基类所

&&提供的最大默认值

spinnerlowvalue=min

&&min应大于spinner基类所

&&提供的最小默认值

value=1

name=''cyclespinner''

在init事件中写入如下代码：

thisspinnerhighvalue=this

spinnerhighvalue+thisincrement

thisspinnerlowvalue=this

spinnerlowvalue－thisincrement

在interactivechange事件中写入如下代码：

if thisvalue=thisspinnerhighvalue

thisvalue=int(this

spinnerlowvalue+thisincrement)

endif

if thisvalue=thisspinnerlowhvalue

thisvalue=int(this

spinnerhighvalue－thisincrement)

endif

thisformrefresh

---- 再将其作为类保存起来，添加到你的类库中。

---- 若你在编程中，需用此功能，就可直接用此循环微调控件类了。

看了半天知道你程序有问题,先说说吧

1TIMDBF表在变电站选项为1时是否存在啊,从你这个程序上看是不存在的,除非在别处打开了,如果不存在,下面的GRIDRECORDSOURCE一行一定出错,如果存在,那也没有新内容显示,所以你的程序在查询时就不会有你想要的结果

2多项选择都打勾,从程序上一定是显示最后一个项目的结果,所以前面的勾没用处

应该如何改

将多个CHECK改成OPTIONGROUP控件,进行单项选择,只放一个COMBO1控件,在查询CLICK里的代码如下

thisformgrid1recordsource=""

use bdxx

DO CASE

CASE THISFORMOPTIONGROUP1VALUE=1

select 变电站,电压等级,时间,设备类型,缺陷,类别 from bdxx INTO CURSOR TIM where 变电站=THISFORMCOMBO1VALUE

CASE THISFORMOPTIONGROUP1VALUE=2

select 变电站,电压等级,时间,设备类型,缺陷,类别 from bdxx INTO CURSOR TIM where 设备类型=THISFORMCOMBO1VALUE

CASE THISFORMOPTIONGROUP1VALUE=3

select 变电站,电压等级,时间,设备类型,缺陷,类别 from bdxx INTO CURSOR TIM where 电压等级=THISFORMCOMBO1VALUE

OTHER

ENDCASE

thisformgrid1recordsource="timdbf"

THISFORMGRID1REFRESH

过程是这样的,先把GRID1的绑定表解除下来,不然GRID1控件将变成白框,不能用了

打开总表,再看用户选了哪个项目作为查询条件,再按不同的选项进行不同命令的查询,在查询时输出给TIM临时表,最后将表与GRID1绑定

这里要注意,如果不同选择中的值不同时,可以将OPTIONGROUP1的CLICK下加代码:

THISFORMCOMBO1CLEAR

DO CASE

CASE THISFORMOPTIONGROUP1VALUE=1

THISFORMCOMBO1ADDITEM("变电站1")

THISFORMCOMBO1ADDITEM("变电站2")

THISFORMCOMBO1ADDITEM("变电站3")

CASE THISFORMOPTIONGROUP1VALUE=2

THISFORMCOMBO1ADDITEM("设备1")

THISFORMCOMBO1ADDITEM("设备2")

THISFORMCOMBO1ADDITEM("设备3")

CASE THISFORMOPTIONGROUP1VALUE=3

THISFORMCOMBO1ADDITEM("电压1")

THISFORMCOMBO1ADDITEM("电压2")

THISFORMCOMBO1ADDITEM("电压3")

OTHER

ENDCASE

这样COMBO1的值就成了变化的了,值的内容你自己填写吧,我这里只给你举例了

打印时可以用报表设计器进行设计,不难的,只在与TIM绑定就行了

以上就是关于求VFP的命令大全 要所有的全部的内容，包括:求VFP的命令大全 要所有的、关于visual foxpro 6.0中的打印输出问题、怎样实现VFP的下个表单里的查询打印等功能等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！