VF课后作业第三章

1.use sb

listsort to sb1 on 部门 for **》10000 fields 编号，名称，**，部门。

use sb1list

use sb

listsort to sb2 on 名称/d,启用日期/d for 主要设备。

use sb2list

use sb

listindex on 编号 tag bh descendinglist

use sb

listindex on 名称 + dtos(启用日期) tag mcrq descending uniquelist

use sb

listindex on val(部门)-val(dtos(启用日期))/1000000 tag bmrq descending candidatelist

顺序查询）use sb

listlocate for year(启用日期)=1992 and not 主要设备。

display

索引查询）use sb

listset filter to not 主要设备。

index on year(启用日期) tag qyry descending

seek 1992list

use sb

listlocate for 名称="钻床"

select 2

use zz

listlocate for 编号=sb.编号。

编号，sb.名称，增值。

use "c:\documents and settings\administrator\my documents\visual foxpro 项目\" exclusive

listindex on 名称 tag mc

seek "钻床"

select 2

use zz

listindex on 编号 tag bh

seek sb.编号。

编号，sb.名称 ,增值。

list for 名称="钻床" fields 编号，名称，zz.增值。

close all

use t1

select 2

use t2

index on 产品编号 tag 产品编号。

select 1

set relation to 产品编号 into t2

set skip to t2

browse fields 产品编号，产品名称，t2.合同号 ,t2.数量。

create view

close all

use sb

select 2

use dx

index on 编号 tag bh

select 3

use zz

index on 编号 tag bh

select 1

set relation to 编号 into dx

set relation to 编号 into zz additive

set skip to zz,dx

browse fields 编号，名称：h='设备名称',dx.费用：h='大修费用',zz.增值：h='设备增值'

use sb

count for 主要设备 and year(启用日期)<1992 to sbts

"2023年前启用的主要设备台数：",sbts

close all

use sb

index on 部门 tag bm

total on 部门 to bmjghz fields **。

use bmjghz

select 2

use bmdm

index on ** tag **。

select 1

set relation to 部门 into bmdm

browse fields bmdm.名称 ,** title '部门**汇总表'

close all

use sb

select sb.部门 ,count(sb.编号 ) from sb;

group by sb.部门；

into table

use bmsbts

use bmdm in 0

set order to tag ** of in bmdm

set relation to 部门 into bmdm

browse title '部门设备汇总表' fields bmdm.名称 ,cnt_编号：h= '设备台数'

select sb.名称，sb.启用日期 ,sb.** from sb;

where sb.** <100000

select sb.名称，sb.启用日期，sb.**，bmdm.名称；

from 上班inner join bmdm on sb.部门=bmdm.**；

where sb.**》=100000 or(sb.部门》”12”);

order by sb.启用日期。

select distinct sb.名称，sb.启用日期，bmdm.名称；

from sb inner join bmdm on sb.部门=bmdm.**；

where year(sb.启用日期)=1990

select distinct dx.编号，sb.名称；

from sb inner join dx on sb.编号=dx.编号；

into table

select distinct sb.名称，bmdm.名称；

from bmdm inner join sb;

inner join zz;

on sb.编号=zz.编号；

on bmdm.**=sb.部门。

select count(sb.主要设备) from sb;

where year(sb.启用日期)<1992 and sb.主要设备=.t.

select sb.名称，**g(dx.费用);

from sb inner join dx on sb.编号=sx.编号；

group by sb.名称。

select sb.名称，sb.启用日期 from sb;

where sb.启用日期=(select min(sb.启用日期)from sb);

or sb.启用日期=(select max(sb.启用日期)from sb)

select **g(dx.费用)from dx;

into appay pjfy

select sb.名称 as 大修设备，sum(dx.费用)-pjfy(1) as 大修费用均差；

from dx inner join sb on dx.编号=sb.编号；

group by dx.编号。

17,18，无考生。dbf文件夹。

19，解：根据主教材图3.30所示数据库sbsj的永久关系，若要删除的第一个记录，则应用参照完整性生成器删除规则中的“级联”、“限制”或“忽略”等子规则的效果，讨论如下：

1） bmdm为父表，sb为子表。

无论设置级联，限制或者忽略，删除的记录，都不受影响。

2） sb为父表，dx为子表。

1 级联。由于第一个记录的编号字段值为016-1，所以中的第一个记录（编号016-1）将被删除。

2 限制。由于dx中的第一个记录编号是016-1，所以在父表sb中删除第一个记录的尝试将被禁止，并产生“触发器失败”的提示信息。

3 忽略。删除sb的第一个记录对其他表不产生影响，也不受限制。

3） sb为父表，zz为子表。

1 级联。由于sb第一个记录的编号字段值为016-1，所以zz中的第。

一、二个记录都将被删除。

2 限制。由于zz中的第。

一、二个记录的编号均为016-1，所以在父表sb中删除第一个记录的尝试将被终止，并产生“触发器失败”的提示信息。

3 忽略。删除sb的第一个记录对其他表不产生影响，也不受限制。

20,解：视图是在数据库表的基础上创建的一种虚拟表，其数据是从已有的数据库表中或其他视图中抽取得来的。如果在视图中含有取自远程数据源的数据，则该视图为远程视图。

视图具有更新源表数据的功能：当修改视图的记录数据时，能够使源表随之更新。视图的这一功能，使相关的用户不接触源表也可能更新源表的数据，这是视图与查询的重要区别。

实现视图的更新数据功能的设置方法：首先确定关键字段，使视图中修改的记录与表中原始记录相匹配；然后确定可更新字段。

21解：从功能上说，视图与select-sql查询功能基本一致，不同之处在于以下两点：（1）查询的结果只能阅读，不能修改；而视图则不仅具有查询的功能，还可以修改记录并使源表随时更新。

若想从本地或远程表中提取一组可以更新的数据，就需要使用视图。

从存储方面而言，视图的数据是从已经有的数据库表或其他视图中抽取得来的。这些数据在数据库中并不实际存储，仅在数据字典中存储视图的定义。但视图一经定义，就成为数据库的组成部分，可以像数据库表一样随时接受用户的查询。

sql查询的结果可以输入到dbf文件scx文件或者ascii文件中存储起来，但不具备视图的更新功能；如果不存储查新结果，则每次需要查看数据时得重新执行sql查询。

由于sql视图只能存在于数据库中，因而也只能在数据库打开前提下才能打开视图设计器。一般在项目管理器中修改、浏览视图十分方便，在数据库设计器中也可修改、浏览视图。查询设计器设置的结果可以保存在查询文件中，供以后打开查询设计器使用或修改。

要打开查询设计器，只需打开查询文件即可。要查询属于某一项目管理器，也可在项目管理器中打开查询设计器。

VF课后作业第三章

第三章课后作业

第三章课后作业

第三章课后作业

其他用户还读了