甜橘子，专注成都网站制作网站设计与营销型网站建设与优化
QQ :532337155
电话：028-86922220
取一个数的相反数，可以用数学运算来实现：-1 * x的结果就是x的相反数。
10年的柯坪网站建设经验，针对设计、前端、开发、售后、文案、推广等六对一服务，响应快，48小时及时工作处理。成都全网营销的优势是能够根据用户设备显示端的尺寸不同，自动调整柯坪建站的显示方式，使网站能够适用不同显示终端，在浏览器中调整网站的宽度，无论在任何一种浏览器上浏览网站，都能展现优雅布局与设计，从而大程度地提升浏览体验。创新互联公司从事“柯坪网站设计”,“柯坪网站推广”以来，每个客户项目都认真落实执行。
宏程序的作用：
数控系统为用户配备了强有力的类似于高级语言的宏程序功能，用户可以使用变量进行算术运算、逻辑运算和函数的混合运算，此外宏程序还提供了循环语句、分支语句和子程序调用语句，利于编制各种复杂的零件加工程序，减少乃至免除手工编程时进行繁琐的数值计算，以及精简程序量。
宏程序指令适合抛物线、椭圆、双曲线等没有插补指令的曲线编程；适合图形一样，只是尺寸不同的系列零件的编程；适合工艺路径一样，只是位置参数不同的系列零件的编程。较大地简化编程；扩展应用范围。
加工中心宏程序应用：
以下都以#100和#101和#102,及数值10和20做为例子,应用的时候别把他们当格式就行,
基本指令
H01赋值;格式:G65H01P#101Q#102:把#102内的数值赋予到#101中
G65H01P#101Q#10:把#10赋予到#101中
H02加指令;格式G65 H02 P#101 Q#102 R#103,把#102的数值加上#103的数值赋予#101
G65 H02 P#101 Q#102 R10
G65 H02 P#101 Q10 R#103
G65 H02 P#101 Q10 R20
上面4个都是加指令的格式都是把Q后面的数值或变量号内的数值加上R后面的数
值或变量号内的数值然后等于到P后面的变量号中.
H03减指令;格式G65 H03 P#101 Q#102 R#103,把#102的数值减去#103的数值赋予#101
G65 H03 P#101 Q#102 R10
G65 H03 P#101 Q10 R#103
G65 H03 P#101 Q20 R10
上面4个都是减指令的格式都是把Q后面的数值或变量号内的数值减去R后面的数
值或变量号内的数值然后等于到P后面的变量号中.
H04乘指令;格式G65 H04 P#101 Q#102 R#103,把#102的数值乘上#103的数值赋予#101
G65 H04 P#101 Q#102 R10
G65 H04 P#101 Q10 R#103
G65 H04 P#101 Q20 R10
上面4个都是乘指令的格式都是把Q后面的数值或变量号内的数值乘上R后面的数
值或变量号内的数值然后等于到P后面的变量号中.
H05除指令;格式G65 H05P#101 Q#102 R#103,把#102的数值除以#103的数值赋予#101
G65 H05 P#101 Q#102 R10
G65 H05 P#101 Q10 R#103
G65 H05 P#101 Q20 R10
上面4个都是除指令格式都是把Q后面的数值或变量号内的数值除以R后面的数
值或变量号内的数值然后等于到P后面的变量号中.(余数不存,除数如果为0的话会出现112报警)
以上内容参考：百度百科--宏程序
vfp的DBF格式的文件筛选数据，方式有两种，一种是 ...for 条件，一种是select ...form SQL语句，请参照以下语法：
select - sql 命令
从一个或多个表中检索数据。
语法
SELECT [ALL | DISTINCT] [TOP nExpr [PERCENT]]
[Alias.] Select_Item [AS Column_Name]
[, [Alias.] Select_Item [AS Column_Name] ...]
FROM [FORCE]
[DatabaseName!]Table [[AS] Local_Alias]
[[INNER | LEFT [OUTER] | RIGHT [OUTER] | FULL [OUTER] JOIN
DatabaseName!]Table [[AS] Local_Alias]
[ON JoinCondition …]
[[INTO Destination]
| [TO FILE FileName [ADDITIVE] | TO PRINTER [PROMPT]
| TO SCREEN]]
[PREFERENCE PreferenceName]
[NOCONSOLE]
[PLAIN]
[NOWAIT]
[WHERE JoinCondition [AND JoinCondition ...]
[AND | OR FilterCondition [AND | OR FilterCondition ...]]]
[GROUP BY GroupColumn [, GroupColumn ...]]
[HAVING FilterCondition]
[UNION [ALL] SELECT命令]
[ORDER BY Order_Item [ASC | DESC] [, Order_Item [ASC | DESC] ...]]
参数
SELECT
在 SELECT 子句中指定在查询结果中包含的字段、常量和表达式。
ALL
查询结果中包含所有行 ( 包括重复值 )。ALL 是默认设置。
DISTINCT
在查询结果中剔除重复的行。
注意 每一个 SELECT 子句只能使用一次 DISTINCT。
TOP nExpr [PERCENT]
在符合查询条件的所有记录中，选取指定数量或百分比的记录。TOP 子句必须与 ORDER BY 子句同时使用。ORDER BY 子句指定查询结果中包含的列上由Top字句决定的行数， TOP 子句根据此排序选定最开始的 nExpr个或 nExpr% 的记录。
您可以指定选取 1 到 32767 个记录。使用 ORDER BY 子句指定的字段进行排序，会产生并列的情况，比如，可能有多个记录，它们在选定的字段上相同；所以，如果您指定 nExpr 为 10，在查询结果中可能多于 10 个记录，因为可能有几个记录位置并列。
如果包含 PERCENT 关键字指定查询结果中的记录数，得到记录数的可能是小数，这时进行取整。包含 PERCENT 关键字时，nExpr 的范围是 0.01 到 99.99。
Alias.
限定匹配项的名称。 Select_Item 指定的每一项在查询结果中都生成一列。如果多个项具有相同的名称，则应在这些项名前加上表的别名和一个句点，以防止出现重复的列。
Select_Item 指定包括在查询结果中的项。一个项可以是：
FROM 子句所包含的表中的字段名称。
一个常量，查询结果中每一行都出现这个常量值。
一个表达式，可以是用户自定义函数名。
AS Column_Name
指定查询结果中列的标题。当 Select_Item 是一个表达式或一个字段函数时，如果要给此列取一个有含义的名称，一般可以使用这个子句。Column_Name可以是一个表达式，但不能包含那些表字段名称中不允许出现的字符(如空格)。
FROM
列出所有从中检索数据的表。如果没有打开表， Visual FoxPro 显示“打开”对话框以便指定文件位置。表打开以后，直到查询结束时才关闭。
如果您包含 FORCE 关键字，Visual FoxPro 在建立查询时会严格按照您在FROM 子句中声明的顺序连接表；若不包含 FORCE 关键字，Visual FoxPro 会试图对查询进行优化。使用 FORCE 子句，避免了优化过程，可能加快查询执行的速度。
DatabaseName!
当包含表的数据库不是当前数据库时，DatabaseName! 指定这个数据库的名称。如果数据库不是当前数据库，就必须指定包含表的数据库名称。应在数据库名称之后表名之前加上感叹号(!)分隔符。
[AS] Local_Alias
为 Table 中的表指定一个临时名称。如果指定了本地别名，那么在整个SELECT 语句中必须都用这个别名代替表名。本地别名不影响 Visual FoxPro环境。INNER JOIN 只有在其他表中包含对应记录(一个或多个)的记录才出现在查询结果中。
INNER JOIN 只有在其他表中包含对应记录(一个或多个)的记录才出现在查询结果中。
LEFT [OUTER] JOIN 在查询结果中包含：JOIN 左侧表中的所有记录，以及JOIN 右侧表中匹配的记录。OUTER 关键字可被省略；包含 OUTER 强调这是一个外连接 (outer join)。
RIGHT [OUTER] JOIN 在查询结果中包含：JOIN 右侧表中的所有记录，以及 JOIN 左侧表中匹配的记录。OUTER 关键字可被省略；包含 OUTER 强调这是一个外连接接 (outer join)。
FULL [OUTER] JOIN 在查询结果中包含：JOIN 两侧所有的匹配记录，和不匹配的记录；包含 OUTER 强调这是一个外连接 (outer join)。
ON JoinCondition 指定连接条件。
INTO Destination
指定在何处保存查询结果。如果在同一个查询中同时包括了 INTO 子句和 TO 子句，则 TO 子句不起作用。如果没有包括 INTO 子句，查询结果显示在“浏览”窗口中。也可以用 TO 将查询结果定向输出到打印机或文件。
Destination 可以是下列子句之一：
ARRAY ArrayName ，将查询结果保存到变量数组中。如果查询结果中不包含任何记录，则不创建这个数组。
CURSOR CursorName将查询结果保存到临时表中。如果指定了一个已打开表的名称，则 Visual FoxPro 产生错误信息。执行完 SELECT 语句后，临时表仍然保持打开、活动但只读。一旦关闭临时表，则自动删除它。临时表作为 SORTWORK 指定驱动器上的一个临时文件存在。
包含NOFILTER是为了创建一个能用在后来的询问中的指针。在Visual焖oxPro以前的版本需要一个额外的常量或表达式作为过滤器去创建一个能用在后来的询问中的指针。
SELECT *, .T. FROM customers INTO CURSOR myquery
包含NOFILTER能够减少询问的发生是因为临时表是建立在磁盘上的，当临时表被删除，指针就要被关闭。
DBF TableName | TABLE TableName ，将查询结果保存到一个表中。如果指定的表已经打开，并且 SET SAFETY 设置为 OFF，则 Visual FoxPro 在不给出警告的情况下改写该表。如果没有指定扩展名，Visual FoxPro 指定表的扩展名是 .DBF。SELECT 语句执行结束后，表仍然保持打开活动状态。
包含DATABASE DatabaseName 以指定添加了表的数据库。包含NAMELongTableName 可以为该表命一个最多可包括128个字符的并且可以在数据库中代替短名字的长名。
TO FILE FileName
如果命令中包括了 TO 子句，但没有包括 INTO 子句，则查询结果定向输出到名为FileName 的 ASCII 码文件、打印机或 Visual FoxPro 主窗口。
ADDITIVE 把查询结果定向输出到由TO FILE FileName指定的文本文件的现存目录上。
TO PRINTER [PROMPT] 使查询结果定向输出到打印机。在打印开始之前，使用可选的 PROMPT 子句显示一个对话框。您可以根据当前安装的打印机驱动程序调整打印机的设置。将 PROMPT 子句放置在紧跟 TO PRINTER 之后。
TO SCREEN 使查询结果定向输出到 Visual FoxPro 主窗口或活动的用户自定义窗口中。
PREFERENCE PreferenceName
如果查询结果送往浏览窗口，就可以使用 PREFERENCE 保存浏览窗口的属性和选项以备后用。PREFERENCE 把特征属性或参数选项长期保存在 FOXUSER 的资源文件中，任何时侯都可以对它们进行检索。
第一次执行有 PREFERENCE PreferenceName 的 SELECT 命令时创建参数选项。以后执行有相同参数选项名的 SELECT 命令时便将浏览窗口恢复到原来的参数选项状态。当浏览窗口关闭时，更新参数选项。
如果您按下CTRL+Q+W 键退出“浏览”窗口，您对“浏览”窗口所做的更改不会保存到资源文件中。
NOCONSOLE
不显示送到文件、打印机或 Visual FoxPro 主窗口的查询结果。
PLAIN
防止列标题出现在显示的查询结果中。不管有无 TO 子句都可使用 PLAIN子句。如果 SELECT 语句中包括 INTO 子句，则忽略 PLAIN 子句。
NOWAIT
打开浏览窗口并将查询结果输出到这个窗口后继续程序的执行。程序并不等待关闭浏览窗口，而是立即执行紧接在 SELECT 语句后面的程序行。
SELECT 命令中包括 TO SCREEN 可以把查询结果定向输出到 Visual FoxPro 主窗口或用户自定义窗口。如果显示时 Visual FoxPro 主窗口或用户自定义窗口中写满了一屏，就暂停输出。按任意键可以查看查询结果后面的内容。但是，如果命令中包括了NOWAIT 子句，显示查询结果时就不会暂停，等待按键，而是在 Visual FoxPro 主窗口或用户自定义窗口中连续滚过所有内容。如果命令中包含有 INTO 子句，忽略NOWAIT 子句。
WHERE
通知 Visual焖oxPro 在查询结果中仅包含一定数目的记录。如果要从多个表中检索数据，WHERE 子句是必需的。
JoinCondition
指定一个字段，该字段连接 FROM 子句中的表。如果查询中包括不止一个表，就应该为第一个表后的每一个表指定连接条件。
连接多个查询条件必须使用操作符 AND。每个连接条件都有下面的形式：
FieldName1 Comparison FieldName2
其中 FieldName1 是一个表中的字段名，FieldName2 是另一表中的字段名，Comparison 是下表中列出的某一操作符。
操作符 比较关系
= 相等
== 完全相等
LIKE SQL LIKE
, !=, # 不相等
大于
= 大于等于
小于
= 小于等于
对字符串使用 = 操作符时，所得结果与 SET ANSI 的设置有关。当 SET ANSI 设置为 OFF 时， Visual FoxPro 比较字符串的方式与 Xbase 的用户相同。当 SET ANSI 的设置为 ON 时， Visual FoxPro 比较字符串时遵守 ANSI 标准。有关 Visual FoxPro 字符比较方法的详细内容，请参阅 SET ANSI 和 SET EXACT。
WHERE子句支持ESCAPE操作符，允许执行对包含有SELECT ?SQL %和通配符的数据的有意义的查询。
ESCAPE子句允许指定一个可以看作文字字符的SELECT ?SQL通配符。 ESCAPE子句允许指定一个字符，一旦它被放到通配符字符之前，就表示这个通配符被看作一个文字字符。
FilterCondition
指定将包含在查询结果中记录必须符合的条件。使用 AND 或 OR 操作符，您可以包含随意数目的过滤条件。您还可以使用 NOT 操作符将逻辑表达式的值取反，或使用 EMPTY() 函数以检查空字段。
FilterCondition 可以是下面示例中的任何一种形式：
示例 1
示例 1 显示 FieldName1 Comparison FieldName窗体中的Fliter Condition
customer.cust_id = orders.cust_id
示例 2
示例 2 显示 FieldName Comparison Expression 窗体中的Fliter Condition
payments.amount = 1000
示例 3
示例 3 显示 FieldName Comparison ALL (Subquery) 窗体中的 Fliter Condition
当筛选条件包括 ALL 时，只有指定字段满足所有子查询结果后，它所在的记录才能添加到查询结果中。
company ALL ;
(SELECT company FROM customer WHERE country = "UK")
示例 4
示例 4 显示 FieldName Comparison ANY | SOME (Subquery) 窗体中的 Fliter Condition
当筛选条件包含 ANY 或 SOME 时，字段必须至少满足一个由子查询产生的值所决定的比较条件。
company ANY ;
(SELECT company FROM customer WHERE country = "UK")
示例 5
示例 5 显示 FieldName [NOT] BETWEEN Start_Range AND End_Range 窗体中的Fliter Condition
该示例检查字段中的值是否在指定范围内。
customer.postalcode BETWEEN 90000 AND 99999
示例 6
示例 6 显示 [NOT] EXISTS (Subquery) 窗体中的 Fliter Condition
该示例检查是否至少有一行满足子查询中的条件。当筛选条件包括 EXISTS 时，只要子查询不为空集，筛选的条件就为“真”(.T.)。
EXISTS ;
(SELECT * FROM orders WHERE customer.postalcode = orders.postalcode)
示例 7
示例 7 显示 FieldName [NOT] IN Value_Set 窗体中的 Fliter Condition
当筛选条件中包含 IN 时，把字段所在记录添加到查询结果中的条件是字段必须包含值集合的一个元素。
customer.postalcode NOT IN ("98052","98072","98034")
示例 8
示例 8 显示 FieldName [NOT] IN (Subquery) 窗体中的 Fliter Condition
这里，记录包含在查询结果中的条件是：字段必须包含一个子查询的返回值。
customer.cust_id IN ;
(SELECT orders.cust_id FROM orders WHERE orders.city="Seattle")
示例 9
示例 9 显示 FieldName [NOT] LIKE cExpression 窗体中的 Fliter Condition
customer.country NOT LIKE "UK"
这个筛选条件查找每个与字符串表达式相匹配的字段。
在字符串表达式中可以使用百分号 (%) 和下划线 ( _ ) 通配符。下划线表示字符串中一个任意字符。
GROUP BY GroupColumn [, GroupColumn ...]
按列的值对查询结果的行进行分组。GroupColumn 可以是常规的表字段名，也可以是一个包含 SQL 字段函数的字段名，还可以是一个数值表达式，指定查询结果表中的列位置(最左边的列编号为 1 )。
HAVING FilterCondition
指定包括在查询结果中的组必须满足的筛选条件。HAVING 应该同 GROUP BY一起使用。它能包含数量不限的筛选条件，筛选条件用 AND 或 OR 连接，还可以使用 NOT 来对逻辑表达式求反。
FilterCondition 不能包括子查询。
使用 HAVING 子句的命令如果没有使用 GROUP BY 子句，则它的作用与WHERE 子句相同。可以在 HAVING 子句中使用本地别名和字段函数。如果HAVING 子句不包含字段函数的话，使用 WHERE 子句可以获得较快的速度。
[UNION [ALL] SELECT命令]
把一个 SELECT 语句的最后查询结果同另一个 SELECT 语句最后查询结果组合起来。默认情况下，UNION 检查组合的结果并排除重复的行。要组合多个UNION 子句，可使用括号。
ALL 防止 UNION 删除组合结果中重复的行。
UNION 子句遵守下列规则：
不能使用 UNION 来组合子查询。
两个 SELECT 命令的查询结果中的列数必须相同。
两个 SELECT 查询结果中的对应列必须有相同的数据类型和宽度。
只有最后的 SELECT 中可以包含 ORDER BY 子句，而且必须按编号指出所输出的列。如果包含了一个 ORDER BY 子句，它将影响整个结果。
ORDER BY Order_Item
根据列的数据对查询结果进行排序。每个 Order_Item 都必须对应查询结果中的一列。它可以是下列之一：
FROM 子句中表的字段，同时也是 SELECT 主句(不在子查询中)的一个选择项。
一个数值表达式，表示查询结果中列的位置(最左边列编号为 1 )。
ASC 指定查询结果根据排序项以升序排列。它是 ORDER BY 的默认选项。
DESC 指定查询结果以降序排列。
如果不使用 ORDER BY 指定查询结果的排列顺序，则查询结果不排序。
说明
同其他 Visual FoxPro 命令一样，SELECT 是 Visual FoxPro 的一个内部 SQL 命令。当使用 SELECT 进行查询时，Visual FoxPro 先解释查询要求，然后从表中查询并检索指定数据。可以在下列环境内建立 SELECT 查询：
命令窗口
一个 Visual FoxPro 程序(与使用其他 Visual FoxPro 命令一样)
查询设计器
如果执行了 SET TALK ON 命令后再执行 SELECT 命令，则 Visual FoxPro 显示出执行查询所用的时间和查询结果中记录的数目。_TALLY 包含了查询结果中记录的数目。
SET FILTER 设置的筛选条件对SELECT 命令不起作用。
下面部分将多次提到子查询 (subquery)，子查询是指在 SELECT 命令中包含的SELECT 命令。在 SELECT 命令的 WHERE 子句中可以包含最多两个平级的(非嵌套)的子查询。子查询中可以有多个连接条件 (join conditions)。
创建查询输出时，列的命名遵循如下规则：
如果选择项是具有唯一名称的字段，则用字段名作为输出列名。
如果多个选择项具有相同名称。例如，如果名为 Customer 的表有一个STREET 字段，而名为 Employees 的表也有一个 STREET 字段，则输出列命名为 Extension_A 和 Extension_B (STREET_A 和 STREET_B)。如果选择项名称有 10 字符长，可以将名称截短后再加下划线和字母。例如，DEPARTMENT 变为 DEPARTME_A。
如果选择项是表达式，它的输出列命名为 EXP_A。其他表达式分别命名为EXP_B、EXP_C，依此类推。
如果选择项包含诸如 COUNT() 这样的字段函数，则输出列命名为CNT_A。如果另一个选择项包含 SUM()，它的输出列命名为 SUM_B。
SELECT 子句中的用户自定义函数： 在 SELECT 子句中使用用户自定义函数有明显优点，但使用时应考虑以下限制：
SELECT 子句的运行速度会受用户自定义函数执行速度的影响。因此，如果使用户自定义函数的操作量很大，则这些函数的功能最好调用 C 语言或汇编语言编写的 API 或用户自定义函数来完成。
在 SELECT 激活的用户自定义函数中，很难预测 Visual FoxPro 输入/输出(I/O)和表的环境。一般来说，不知道选择的工作区是哪一个，不知道当前表的名称，甚至不知道正在处理的字段名。这些变量的值完全取决于用户自定义函数在优化过程的什么地方激活。
在 SELECT 子句调用的用户自定义函数中修改 Visual FoxPro I/O 或表的环境是很不安全的。一般来说，这样做的结果难以预料。
从 SELECT 将值传递给用户自定函数唯一可靠的方法，是激活用户自定义函数时以参数的形式传递。
经过实践，有可能发现某种被认为是违法的操作在某种 FoxPro 版本中运行正确，但这并不保证它在以后的版本中也能正确运行。
抛开这些限制不说，用户自定义函数在 SELECT 语句中还是可接受的。但不要忘记使用 SELECT 可能要降低性能。
下列字段函数可以与选定项一起使用，选定项可以是一个字段或包含字段的表达式：
AVG(Select_Item) ，计算列中数值的平均值。
COUNT(Select_Item) ，计算列中选定项的数目。计算查询输出的行数。
MIN(Select_Item)，确定列中 Select_Item 的最小值。
MAX(Select_Item)，确定列中 Select_Item 的最大值。
SUM(Select_Item)，计算列中数值的和。
字段函数不能嵌套使用。
连接 (Join) Visual FoxPro 支持 ANSI SQL '92 连接 (Join) 语法，通过比较两个或多个表中的字段，将它们的记录连接到一起，生成查询。例如，内部连接 (inner join) 是将两个表中连接字段 (joined field) 值相同的记录选取到查询中。Visual FoxPro 支持嵌套连接(nested joins)
重要事项 创建连接条件时，请记住如下几点：
如果在查询中包括两个表，又没有指定连接条件，那么第一个表中每一个记录同第二个表中每一记录之间，只要满足筛选条件，就连接起来。这种查询产生的结果很长。
在连接条件中使用 DELETED()，EOF()，FOUND()，RECCOUNT()，和 RECNO() 等支持可选别名或工作区的函数时要小心。在这些函数中包括别名或工作区可能导致不可预料的结果。SELECT 不使用工作区，它执行与 USE ... AGAIN 相同的操作。在不带可选别名和工作区的情况下使用这些函数进行单表查询时，可得到正确的结果。但是，使用这些函数进行多表查询时，即使不带可选别名或工作区，也可能得到一些莫明其妙的结果。
当连接含有空字段 (empty field) 的表时也要注意。这是因为 Visual FoxPro匹配空字段。例如，连接 CUSTOMER.ZIP 和 INVOICE.ZIP 两个表。如果CUSTOMER 表中的 100 条记录中没有给出邮政编码，INVOICE 表中也有400 条记录没有给出邮政编码，那么查询结果中将会由于空字段的匹配而出现 40000 条多余的记录。要去除查询结果中的空记录，可以使用 EMPTY() 函数。
有关连接的其它情况，请参阅《Microsoft Visual FoxPro 6.0 中文版程序员指南》第八章“创建视图”。
---------------------------------------------
以下是本人商用软件《建筑机具租赁结算系统》的各单位日租租赁情况统计子过程，这里多处用到...for条件，请参考指正：
proce sdl95_1
*各单位日租租赁情况统计
use .\dbf\system
bfb0=dtqfbfb 冬停的百分比
use
use .\dbf\dwname
mchoice=zldm
rq0=ctod(alltrim(c)) 日期，表示统计到这天，这天算租费
use
create table .\dbf\temp1 (;
rq d,; 日期
zldm c(3),; 租赁单位代码
rzjzj n(12,3),; 增加租金
rzjjs n(12,3),; 减少租金
rzj n(12,3),; 日租金缓冲
rzjhj n(12,3),; 日租金合计
ts n(4),; 天数
zlf n(12,3),; 分步租金
zlflj n(12,3); 租金累计
)
use
以上建立目的是计算一个客户的租金
以下建立各单位的租金、租赁费统计情况表
create table .\dbf\tempX (;
dw c(38) ,; 单位名称
rzjhj n(12,3),; 日租金合计
zlflj n(12,3),; 租金累计
dtf n(12,3),; 扣冬停费
sjzlf n(12,3); 实际租赁费=租金累计-扣冬停费
)
use
以下将小于等于rq0日期的所有单位的租赁数据拷贝到temp2表中
use .\dbf\zlmxb
copy to .\dbf\temp2 for rq=rq0
use
以下将小于等于rq0日期的所有单位的回收数据拷贝到temp3表中
use .\dbf\hsmxb
copy to .\dbf\temp3 for rq=rq0
use
*select 2
*use .\dbf\temp2
*select 3
*use .\dbf\temp3
select 1
use .\dbf\temp1
select 8
use .\dbf\tempX 目的表
select 9
use .\dbf\tempzydwmc
delete all for zldm=" " 删除那些无租赁代码的行
pack
go top
do while .not. eof()
select 1 选择temp1将其内容删除
zap
append from .\dbf\temp2
delete all for zldm tempzydwmc.zldm 租赁
pack
replace all rzjzj with rzj,rzjjs with 0
jjj=reccount()
append from .\dbf\temp3
delete all for zldm tempzydwmc.zldm .and. recno()jjj 回收
pack
replace all rzjjs with rzj,rzjzj with 0 for recno()jjj
append blank
replace rq with rq0+1, rzjjs with 0,rzjzj with 0 要统计的那一天日期必须加进去，并且天数+1，因为含今天
index on rq to .\idx\rq
total on rq to .\dbf\temp4
select 4 4工作区
use .\dbf\temp4
go bottom
replace ts with 0
rq1=rq
if !bof()
skip -1
endif
*以下计算天数
do while .not. bof()
replace ts with rq1-rq
rq1=rq
skip -1
enddo
rzj0=0 日租金初值=0
go top
do while .not. eof()
replace rzjhj with rzj0+rzjzj-rzjjs
replace zlf with ts*rzjhj
rzj0=rzjhj
skip
enddo
*以下****行间一步一步计算租赁累计
****
go top
zlflj0=0
do while .not. eof()
replace zlflj with zlflj0+zlf
zlflj0=zlflj
skip
enddo
sum zlf to zlf00 for rq=tempzydwmc.dt1 .and. rqtempzydwmc.dt2 这里一定是日期=冬停1 而 小于 冬停2
zlf00=zlf00*bfb0 bfb0表示冬停取费系数
locate for rq=rq0 定位到指定的日期
go bottom
select 8
append blank
replace dw with tempzydwmc.zlmc,rzjhj with temp4.rzjhj,zlflj with temp4.zlflj,dtf with zlf00
replace sjzlf with zlflj - dtf
select 4 temp4表
use
select 9
skip
enddo
close database
return
这些是死知识，把常用的记住，不常用的直接查表就行了
golang 的fmt 包实现了格式化I/O函数，类似于C的 printf 和 scanf。
type Human struct {
Name string
}
var people = Human{Name:"zhangsan"}
golang没有 '%u' 点位符，若整数为无符号类型，默认就会被打印成无符号的。
宽度与精度的控制格式以Unicode码点为单位。宽度为该数值占用区域的最小宽度；精度为小数点之后的位数。
操作数的类型为int时，宽度与精度都可用字符 '*' 表示。
对于 %g/%G 而言，精度为所有数字的总数，例如：123.45，%.4g 会打印123.5，（而 %6.2f 会打印123.45）。
%e 和 %f 的默认精度为6
对大多数的数值类型而言，宽度为输出的最小字符数，如果必要的话会为已格式化的形式填充空格。
而以字符串类型，精度为输出的最大字符数，如果必要的话会直接截断。
使用起来很简单，一般配合fmt.Printf()使用，因为fmt的Printf()是有格式的输出，切忌使用Println()，否则将会以字符串的形式输出。
查看原文： golang fmt格式“占位符”
#include stdio.h
#include math.h
#include string.h
#include stdlib.h
int main()
{
int i, j, k, n, a[6], sum, avg;
float f[6], t;
printf("please enter 5 float numbers:\n");
for(i=0; i5; i++)///输入5个小数
{
scanf("%f", f[i]);
}
sum = 0;
for(i=0; i5; i++)
{
t = f[i] - (int)f[i];///根据小数部分和0.5的比较，决定是向上取整，还是向下取整
if(t0.5)
{
a[i] = (int)f[i];
}
else a[i] = (int)f[i] + 1;
sum += a[i];///求和
}
avg = sum / 5;///求平均数
printf("sum = %d , avg = %d\n", sum, avg);
}
VFP命令、函数及程序语句大全（2）
二、常用函数
1、数学函数
函数 用途
ABS(数值表达式） 绝对值，|x|
CEILING（数值表达式） =自变量的最小整数
EXP（数值表达式） 对基E的幂，e=2.71828
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 在IF...ENDIF结构中提供另一个条件选择路线
ENDCASE 终止多重判断
ENDDO 程序中一个循环体结束的标志
ENDIF 判断体IF...ENDIF结构结束标志
ERASE 从目录中删除指定文件
EXIT 在循环体内执行退出循环的命令
FIND 将记录指针移动到第一个含有与给定字符串一致的索引关键字的记录上
FLUSH 清除所有的磁盘存取缓冲区
GATHER FROM 将数组元素的值赋予数据库的当前记录中
GO/GOTO 将记录指针移动到指定的记录号
HELP 激活帮助菜单，解释FoxBASE+的命令
IF 在IF...ENDIF结构中指定判断条件
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 暂停（挂起）程序的执行
TEXT...ENDTEXT 在屏幕上当前光标位置显示...的文本数据块
TOTAL TO 对预先已排序的文件产生一个具有总计的摘要文件
TYPE 显示ASCII码文件的内容
UNLOCK 解除当前库文件对记录和文件的加锁操作
UPDATE 允许对一个数据库进行成批修改
USE 带文件名的USE命令打开这个数据库文件。无文件名时，关闭当前操作的数据库文件
WAIT 暂停程序执行，按任意键继续执行
ZAP 删除当前数据库文件的所有记录（不可恢复）