关于VFP语言的问题，请大家多多指教！

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 的范围是 001 到 9999。

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

customercust_id = orderscust_id

示例 2

示例 2 显示 FieldName Comparison Expression 窗体中的Fliter Condition

paymentsamount >= 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

该示例检查字段中的值是否在指定范围内。

customerpostalcode BETWEEN 90000 AND 99999

示例 6

示例 6 显示 [NOT] EXISTS (Subquery) 窗体中的 Fliter Condition

该示例检查是否至少有一行满足子查询中的条件。当筛选条件包括 EXISTS 时，只要子查询不为空集，筛选的条件就为“真”(T)。

EXISTS ;

(SELECT FROM orders WHERE customerpostalcode = orderspostalcode)

示例 7

示例 7 显示 FieldName [NOT] IN Value_Set 窗体中的 Fliter Condition

当筛选条件中包含 IN 时，把字段所在记录添加到查询结果中的条件是字段必须包含值集合的一个元素。

customerpostalcode NOT IN ("98052","98072","98034")

示例 8

示例 8 显示 FieldName [NOT] IN (Subquery) 窗体中的 Fliter Condition

这里，记录包含在查询结果中的条件是：字段必须包含一个子查询的返回值。

customercust_id IN ;

(SELECT orderscust_id FROM orders WHERE orderscity="Seattle")

示例 9

示例 9 显示 FieldName [NOT] LIKE cExpression 窗体中的 Fliter Condition

customercountry 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匹配空字段。例如，连接 CUSTOMERZIP 和 INVOICEZIP 两个表。如果CUSTOMER 表中的 100 条记录中没有给出邮政编码，INVOICE 表中也有400 条记录没有给出邮政编码，那么查询结果中将会由于空字段的匹配而出现 40000 条多余的记录。要去除查询结果中的空记录，可以使用 EMPTY() 函数。

有关连接的其它情况，请参阅《Microsoft Visual FoxPro 60 中文版程序员指南》第八章“创建视图”。

---------------------------------------------

以下是本人商用软件《建筑机具租赁结算系统》的各单位日租租赁情况统计子过程，这里多处用到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 <> tempzydwmczldm &&租赁

pack

replace all rzjzj with rzj,rzjjs with 0

jjj=reccount()

append from \dbf\temp3

delete all for zldm <>tempzydwmczldm 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 tsrzjhj

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>=tempzydwmcdt1 and rq<tempzydwmcdt2 &&这里一定是日期>=冬停1 而 小于< 冬停2

zlf00=zlf00bfb0 &&bfb0表示冬停取费系数

&& locate for rq=rq0 &&定位到指定的日期

go bottom

select 8

append blank

replace dw with tempzydwmczlmc,rzjhj with temp4rzjhj,zlflj with temp4zlflj,dtf with zlf00

replace sjzlf with zlflj - dtf

select 4 && temp4表

use

select 9

skip

enddo

close database

return

解决过程：

1 检查 SYSDATADBF表stock_num 字段 有几个仓库就写数值几，默认都是数值1。修改后软件可以登录进去了。

2 修复经营历程单据 子表 DLYDBF,所以打开 会报错 文件c:\xxx\GRASP\DATA\dlydbf_GO_0-RECCOUNT_19874!

3知道了报错原理，此时我们需要重建明细定位索引。为了重建这些索引ID，我写了一个存储过程修复这些字段。

重要提醒：

在企业数据库进行维护时要进行备份并且要及时对电闸电路进行排查可能的问题，建议最好复制完整的MDF,LDF文件。并且一旦发生问题，一定要及时联系专业数据恢复的机构，可以尽量减少数据的丢失。

1\t

2\F

3\T

4\F

5\F

6\f

7\f

8\f

9\

10\f

11\f

12\f 选择、投影、联接

13\t

14\f

15\t

16\f

17\t

18\

19\

20\f

select 姓名,savg from (select 学号，avg（成绩）as savg from sc where 成绩<60 group by 学号 having count(学号)>=2) t1,student where t1学号=student学号

1 Group By 语句简介：

Group By语句从英文的字面意义上理解就是“根据(by)一定的规则进行分组(Group)”。它的作用是通过一定的规则将一个数据集划分成若干个小的区域，然后针对若干个小区域进行数据处理。 2 Group By 的使用： 上面已经给出了对Group By语句的理解。基于这个理解和SQL Server 2000的联机帮助，下面对Group By语句的各种典型使用进行依次列举说明。 21 Group By [Expressions]: 这个恐怕是Group By语句最常见的用法了，Group By + [分组字段](可以有多个)。在执行了这个 *** 作以后，数据集将根据分组字段的值将一个数据集划分成各个不同的小组。比如有如下数据集，其中水果名称(FruitName)和出产国家(ProductPlace)为联合主键： FruitName ProductPlace Price

Apple China $11

Apple Japan $21

Apple USA $25

Orange China $08

Banana China $31

Peach USA $30

　如果我们想知道每个国家有多少种水果，那么我们可以通过如下SQL语句来完成： SELECT COUNT() AS 水果种类, ProductPlace AS 出产国 FROM T_TEST_FRUITINFO GROUP BY ProductPlace 这个SQL语句就是使用了Group By + 分组字段的方式，那么这句SQL语句就可以解释成“我按照出产国家(ProductPlace)将数据集进行分组，然后分别按照各个组来统计各自的记录数量。”很好理解对吧。这里值得注意的是结果集中有两个返回字段，一个是ProductPlace(出产国), 一个是水果种类。如果我们这里水果种类不是用Count()，而是类似如下写法的话： SELECT FruitName, ProductPlace FROM T_TEST_FRUITINFO GROUP BY ProductPlace 那么SQL在执行此语句的时候会报如下的类似错误： 选择列表中的列 'T_TEST_FRUITINFOFruitName' 无效，因为该列没有包含在聚合函数或 GROUP BY 子句中。 这就是我们需要注意的一点，如果在返回集字段中，这些字段要么就要包含在Group By语句的后面，作为分组的依据；要么就要被包含在聚合函数中。我们可以将Group By *** 作想象成如下的一个过程，首先系统根据SELECT 语句得到一个结果集，如最开始的那个水果、出产国家、单价的一个详细表。然后根据分组字段，将具有相同分组字段的记录归并成了一条记录。这个时候剩下的那些不存在于Group By语句后面作为分组依据的字段就有可能出现多个值，但是目前一种分组情况只有一条记录，一个数据格是无法放入多个数值的，所以这里就需要通过一定的处理将这些多值的列转化成单值，然后将其放在对应的数据格中，那么完成这个步骤的就是聚合函数。这就是为什么这些函数叫聚合函数(aggregate functions)了。 22 Group By All [expressions] ： Group By All + 分组字段, 这个和前面提到的Group By [Expressions]的形式多了一个关键字ALL。这个关键字只有在使用了where语句的，且where条件筛选掉了一些组的情况才可以看出效果。在SQL Server 2000的联机帮助中，对于Group By All是这样进行描述的： 如果使用 ALL 关键字，那么查询结果将包括由 GROUP BY 子句产生的所有组，即使某些组没有符合搜索条件的行。没有 ALL 关键字，包含 GROUP BY 子句的 SELECT 语句将不显示没有符合条件的行的组。 其中有这么一句话“如果使用ALL关键字，那么查询结果将包含由Group By子句产生的所有组没有ALL关键字，那么不显示不符合条件的行组。”这句话听起来好像挺耳熟的，对了，好像和LEFT JOIN 和 RIGHT JOIN 有点像。其实这里是类比LEFT JOIN来进行理解的。还是基于如下这样一个数据集： FruitName ProductPlace Price

Apple China $11

Apple Japan $21

Apple USA $25

Orange China $08

Banana China $31

Peach USA $30

　首先我们不使用带ALL关键字的Group By语句： SELECT COUNT() AS 水果种类, ProductPlace AS 出产国 FROM T_TEST_FRUITINFO WHERE (ProductPlace <> 'Japan') GROUP BY ProductPlace 那么在最后结果中由于Japan不符合where语句，所以分组结果中将不会出现Japan。 现在我们加入ALL关键字： SELECT COUNT() AS 水果种类, ProductPlace AS 出产国 FROM T_TEST_FRUITINFO WHERE (ProductPlace <> 'Japan') GROUP BY ALL ProductPlace 重新运行后，我们可以看到Japan的分组，但是对应的“水果种类”不会进行真正的统计，聚合函数会根据返回值的类型用默认值0或者NULL来代替聚合函数的返回值。 23 GROUP BY [Expressions] WITH CUBE | ROLLUP： 首先需要说明的是Group By All 语句是不能和CUBE 和 ROLLUP 关键字一起使用的。 首先先说说CUBE关键字，以下是SQL Server 2000联机帮助中的说明： 指定在结果集内不仅包含由 GROUP BY 提供的正常行，还包含汇总行。在结果集内返回每个可能的组和子组组合的 GROUP BY 汇总行。GROUP BY 汇总行在结果中显示为 NULL，但可用来表示所有值。使用 GROUPING 函数确定结果集内的空值是否是 GROUP BY 汇总值。 结果集内的汇总行数取决于 GROUP BY 子句内包含的列数。GROUP BY 子句中的每个 *** 作数（列）绑定在分组 NULL 下，并且分组适用于所有其它 *** 作数（列）。由于 CUBE 返回每个可能的组和子组组合，因此不论指定分组列时所使用的是什么顺序，行数都相同。 我们通常的Group By语句是按照其后所跟的所有字段进行分组，而如果加入了CUBE关键字以后，那么系统将根据所有字段进行分组的基础上，还会通过对所有这些分组字段所有可能存在的组合形成的分组条件进行分组计算。由于上面举的例子过于简单，这里就再适合了，现在我们的数据集将换一个场景，一个表中包含人员的基本信息：员工所在的部门编号(C_EMPLINFO_DEPTID)、员工性别(C_EMPLINFO_SEX)、员工姓名(C_EMPLINFO_NAME)等。那么我现在想知道每个部门各个性别的人数，那么我们可以通过如下语句得到： SELECT C_EMPLINFO_DEPTID, C_EMPLINFO_SEX, COUNT() AS C_EMPLINFO_TOTALSTAFFNUM FROM T_PERSONNEL_EMPLINFO GROUP BY C_EMPLINFO_DEPTID, C_EMPLINFO_SEX 但是如果我现在希望知道： 1 所有部门有多少人(这里相当于就不进行分组了，因为这里已经对员工的部门和性别没有做任何限制了，但是这的确也是一种分组条件的组合方式)； 2 每种性别有多人(这里实际上是仅仅根据性别(C_EMPLINFO_SEX)进行分组)； 3 每个部门有多少人(这里仅仅是根据部门(C_EMPLINFO_DEPTID)进行分组)；那么我们就可以使用ROLLUP语句了。 SELECT C_EMPLINFO_DEPTID, C_EMPLINFO_SEX, COUNT() AS C_EMPLINFO_TOTALSTAFFNUM FROM T_PERSONNEL_EMPLINFO GROUP BY C_EMPLINFO_DEPTID, C_EMPLINFO_SEX WITH CUBE 那么这里你可以看到结果集中多出了很多行，而且结果集中的某一个字段或者多个字段、甚至全部的字段都为NULL，请仔细看一下你就会发现实际上这些记录就是完成了上面我所列举的所有统计数据的展现。使用过SQL Server 2005或者RDLC的朋友们一定对于矩阵的小计和分组功能有印象吧，是不是都可以通过这个得到答案。我想RDLC中对于分组和小计的计算就是通过Group By的CUBE和ROLLUP关键字来实现的。(个人意见，未证实) CUBE关键字还有一个极为相似的兄弟ROLLUP, 同样我们先从这英文入手，ROLL UP是“向上卷”的意思，如果说CUBE的组合是绝对自由的，那么ROLLUP的组合就需要有点约束了。我们先来看看SQL Server 2000的联机中对ROLLUP关键字的定义： 指定在结果集内不仅包含由 GROUP BY 提供的正常行，还包含汇总行。按层次结构顺序，从组内的最低级别到最高级别汇总组。组的层次结构取决于指定分组列时所使用的顺序。更改分组列的顺序会影响在结果集内生成的行数。 那么这个顺序是什么呢？对了就是Group By 后面字段的顺序，排在靠近Group By的分组字段的级别高，然后是依次递减。如：Group By Column1, Column2, Column3。那么分组级别从高到低的顺序是：Column1 > Column2 > Column3。还是看我们前面的例子，SQL语句中我们仅仅将CUBE关键字替换成ROLLUP关键字，如： SELECT C_EMPLINFO_DEPTID, C_EMPLINFO_SEX, COUNT() AS C_EMPLINFO_TOTALSTAFFNUM FROM T_PERSONNEL_EMPLINFO GROUP BY C_EMPLINFO_DEPTID, C_EMPLINFO_SEX WITH ROLLUP 和CUBE相比，返回的数据行数减少了不少。:)，仔细看一下，除了正常的Group By语句后，数据中还包含了： 1 部门员工数；(向上卷了一次，这次先去掉了员工性别的分组限制) 2 所有部门员工数；(向上又卷了依次，这次去掉了员工所在部门的分组限制)。 在现实的应用中，对于报表的一些统计功能是很有帮助的。 这里还有一个问题需要补充说明一下，如果我们使用ROLLUP或者CUBE关键字，那么将产生一些小计的行，这些行中被剔除在分组因素之外的字段将会被设置为NULL,那么还存在一种情况，比如在作为分组依据的列表中存在可空的行，那么NULL也会被作为一个分组表示出来，所以这里我们就不能仅仅通过NULL来判断是不是小计记录了。下面的例子展示了这里说得到的情况。还是我们前面提到的水果例子，现在我们在每种商品后面增加一个“折扣列”(Discount)，用于显示对应商品的折扣，这个数值是可空的，也就是可以通过NULL来表示没有对应的折扣信息。数据集如下所示： FruitName ProductPlace Price Discount

Apple China $11 08

Apple Japan $21 09

Apple USA $25 10

Orange China $08 NULL

Banana China $31 NULL

Peach USA $30 NULL

　现在我们要统计“各种折扣对应有多少种商品，并总计商品的总数。”，那么我们可以通过如下的SQL语句来完成： SELECT COUNT() AS ProductCount, Discount FROM T_TEST_FRUITINFO GROUP BY Discount WITH ROLLUP 好了，运行一下，你会发现数据都正常出来了，按照如上的数据集，结果如下所示： ProductCount Discount

3 NULL

1 08

1 09

1 10

6 NULL

　好了，各种折扣的商品数量都出来了，但是在显示“没有折扣商品”和“商品小计”的时候判断上确存在问题，因为存在两条Discount为Null的记录。是哪一条呢？通过分析数据我们知道第一条数据(3, Null)应该对应没有折扣商品的数量，而(6,Null)应该对应所有商品的数量。需要判断这两个具有不同意义的Null就需要引入一个聚合函数Grouping。现在我们把语句修改一下，在返回值中使用Grouping函数增加一列返回值，SQL语句如下： SELECT COUNT() AS ProductCount, Discount, GROUPING(Discount) AS Expr1 FROM T_TEST_FRUITINFO GROUP BY Discount WITH ROLLUP 这个时候，我们再看看运行的结果： ProductCount Discount Expr1

3 NULL 0

1 08 0

1 09 0

1 10 0

6 NULL 1

　对于根据指定字段Grouping中包含的字段进行小计的记录，这里会标记为1，我们就可以通过这个标记值将小计记录从判断那些由于ROLLUP或者CUBE关键字产生的行。Grouping(column_name)可以带一个参数，Grouping就会去判断对应的字段值的NULL是否是由ROLLUP或者CUBE产生的特殊NULL值，如果是那么就在由Grouping聚合函数产生的新列中将值设置为1。注意Grouping只会检查Column_name对应的NULL来决定是否将值设置为1，而不是完全由此列是否是由ROLLUP或者CUBE关键字自动添加来决定的。 22 Group By 和 Having, Where ,Order by语句的执行顺序： 最后要说明一下的Group By, Having, Where, Order by几个语句的执行顺序。一个SQL语句往往会产生多个临时视图，那么这些关键字的执行顺序就非常重要了，因为你必须了解这个关键字是在对应视图形成前的字段进行 *** 作还是对形成的临时视图进行 *** 作，这个问题在使用了别名的视图尤其重要。以上列举的关键字是按照如下顺序进行执行的：Where, Group By, Having, Order by。首先where将最原始记录中不满足条件的记录删除(所以应该在where语句中尽量的将不符合条件的记录筛选掉，这样可以减少分组的次数)，然后通过Group By关键字后面指定的分组条件将筛选得到的视图进行分组，接着系统根据Having关键字后面指定的筛选条件，将分组视图后不满足条件的记录筛选掉，然后按照Order By语句对视图进行排序，这样最终的结果就产生了。在这四个关键字中，只有在Order By语句中才可以使用最终视图的列名，如： SELECT FruitName, ProductPlace, Price, ID AS IDE, Discount FROM T_TEST_FRUITINFO WHERE (ProductPlace = N'china') ORDER BY IDE 这里只有在ORDER BY语句中才可以使用IDE，其他条件语句中如果需要引用列名则只能使用ID，而不能使用IDE。

在数据库 *** 作过程中，用户需要了解数据对象的类型、状态等属性，Visual FoxPro提供了相关的测试函数，使用户能够准确地获取 *** 作对象的相关属性。

1．数据类型测试函数

格式：VARTYPE((表达式)，[(逻辑表达式)])

功能：测试表达式的数据类型，返回用字母代表的数据类型。函数值为字符型。未定义或错误的表达式返回字母U。若表达式是一个数组，则根据第一个数组元素的类型返回字符串。

若表达式的运算结果是NULL值，则根据函数中逻辑表达式的值决定是否返回表达式的类型。具体规则是：如果逻辑表达式为．T．，则返回表达式的原数据类型。如果逻辑表达式为．F．或省略，则返回X，表明表达式的运算结果是NUll值。

举例：

a=DATE()

a=NUll

VARTYPE($385)，VARTYPE([FoxPro])，VARTYPE(a，T．)，VARTYPE(a)

输出为：Y C D X。

2．表头测试函数

格式：BOF([(工作区号)])l<别名)])

功能：测试指定或当前工作区的记录指针是否超过了第一个逻辑记录，即是否指向表头，若是，函数值为．T．，否则为．F．。(工作区号)用于指定工作区，(别名)为工作区的别名或在该工作区上打开的表的别名。当<工作区号>和<别名>都缺省不写时，默认为当前工作区。

3．表尾测试函数

格式：EOF([(工作区号)[(别名>])

功能：测试指定或当前工作区中记录指针是否超过了最后一个逻辑记录，即是否指向表的末尾，若是，函数值为．T．，否则为．F．。自变量含义同BOF函数，缺省时默认为当前工作区。

4．记录号测试函数

格式：REcNO([<工作区号>}(别名>])

功能：返回指定或当前工作区中当前记录的记录号，函数值为数值型。省略参数时，默认为当前工作区。如果记录指针在最后一个记录之后，即EOF()为．T．，RECNO()返回比记录总数大l的值。如果记录指针在第一个记录之前或者无记录，即BOF()为．T．，REcONO()返回1。

5．记录个数测试函数

格式：RECCOUNT([(工作区号|别名>])

功能：返回当前或指定表中记录的个数。如果在指定的工作区中没有表被打开，则函数值为O。如果省略参数，则默认为当前工作区。RECCOUNT()返回的值不受SET r)EI。ETED和SET FIITER的影响，总是返回包括加有删除标记在内的全部记录数。

6．查找是否成功测试函数

格式：FOUND([<工作区号『别名>])

功能：在当前或指定表中，检测是否找到所需的数据。如果省略参数，则默认为当前工作区。数据搜索由FIND、SEEK、LOCATE或CONTINUE命令实现。如果这些命令搜索到所需的数据记录，函数值为．T．，否则函数值为．F．。如果指定的工作区中没有表被打开，则FOUND()返回．F．。如果用非搜索命令如GO移动记录指针，则函数值为．F

7．文件是否存在测试函数

格式：FILE((文件名>)

功能：检测指定的文件是否存在。如果文件存在，则函数值为．T，否则函数值为．F文件名必须是全称，包括盘符、路径和扩展名，且(文件名)是字符型表达式。

8．判断值介于两个值之间的函数

格式：BETwEEN(<被测试表达式>，<下限表达式)，(上限表达式))

功能：判断表达式的值是否介于相同数据类型的两个表达式值之间。BETwEEN()首先计算表达式的值。如果一个字符、数值、日期、表达式的值介于两个相同类型表达式的值之间，即被测表达式的值大于或等于下限表达式的值，小于或者等于上限表达式的值，BETW：EEN()将返回．T．值，否则返回．F

举例：

gz一375

7 BETWEEN(gz，260，650)

输出为．T

9．条件函数IIF

格式：IIF((逻辑型表达式)，(表达式1)，(表达式2>)

功能：若逻辑型表达式的值为．T．，函数值为(表达式1>的值，否则为<表达式2>的值。

举例：

xb="女"

IIF(xB=[男]，1，IIF(Xb一[女]，2，3))

输出为2。

>

以上就是关于关于VFP语言的问题，请大家多多指教！全部的内容，包括:关于VFP语言的问题，请大家多多指教！、管家婆四肖八码数据恢复方管法、求强人解答 数据库应用 一套习题！(二）急等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！