计算机二级VF第三章 Visual FoxPro 自由表及其数据库的操作

第三章 Visual FoxPro自由表及其数据库的操作第一节自由表的基本操作一、定义表结构1.命令格式: CREATE <表名>2.菜单/工具栏法:文件→新建→表→新建文件→输入表名→保存→……→确定作业:创建表文件人事管理(RSGL.DBF)并输入10条以上的数据,表文件的结构要求如下:1 编号 BH C 42 姓名 XM C 63 性别 XB C 34 出生日期 CS D NULL5 婚否 HF L NULL6 基本工资 JB N 7,27 奖金 JJ I(整型)二、记录的输入1.在创建表文件完成后单击"是"命令按钮(针对新表)2.追加命令(针对旧表)命令:APPEND [BLANK]3.插入命令命令:INSERT [BEFORE] [BLANK]三、自由表的使用1.表的打开格式:USE <表名>注:刚创建的表文件自动处于打开状态,在当前工作区打开一个新的表文件的同时会自动关闭原有的表文件NOUPDATE:只读方式打开EXCLUSIVE:以独占方式打开(默认) SHARED:以共享方式打开2.表的关闭命令:USE注:退出VFP时,所有打开表会自动关闭四、记录的定位1.绝对定位格式: GO <N> | TOP |BOTTOM2.相对定位格式: SKIP [N]注:以当前记录为准,使记录向下(N为正)、向上(N为负)移动若干条,N的默认值为1例: .USE DJKS &&打开表文件DJKS .?RECNO() &&以数值型数据返回当前的记录号1注:刚打开的表文件,记录指针指向首记录.GO 78+1.?RECNO()79.SKIP.?RECNO()80.SKIP –3.?RECNO()77.GO BOTTOM &&将记录指针指向尾记录.?RECNO()100.?RECCOUNT() &&以数值型数据返回当前表的记录个数100.?EOF() &&当记录指针下出表时返回.T..F..SKIP.?EOF(),RECNO().T. 101注:当记录指针下出表时,记录号为当前表记录总数加1.GO TOP &&定位到首记录.?RECNO(),BOF() &&BOF()当指针上出表时返回.T.1 .F..SKIP –1.?BOF(),RECNO().T. 1注:当记录指针上出表时,记录号为1 *.表文件检测函数(1).记录号测试函数格式:RECNO()(2).表文件尾部测试函数格式:EOF() .T.:下出表 .F.:表内或上出表(3).表文件首部测试函数格式:BOF() .T.:上出表 .F.:表内或下出表(4).记录个数测试函数格式:RECCOUNT()【范围】1.ALL:表示所有记录2.NEXT <N>:表示从当前记录开始连续的N个记录3.RECORD <N>:表示第N条记录4.REST:表示从当前至表尾的所有记录例:显示DJKS.DBF表中的所有信息.DISPLAY ALL.LIST ALL.LIST.?EOF(),RECNO().T. 101注:DISPLAY与LIST均为显示命令,但DISPLAY为分屏显示,而LIST为滚屏显示.在无范围时,DISPLAY默认显示当前记录,而LIST默认显示所有记录例:显示90条(包括第90条)以后的所有记录.GO 90.DISP REST.?EOF().T.注:以ALL为范围或以REST为范围的命令在使用结束后一般记录指针会下出表(LOCATE命令除外)例:显示从第50条记录开始的连续7条记录.GO 50.DISP NEXT 7.?RECNO()56注:以NEXT为范围的命令使用完成后,记录指针大多指向范围内最后一条记录(LOCATE命令除外)例:显示第17条记录的信息.GO 17.DISP注:也可用命令 DISP RECORD 17 .?RECNO()17注:以RECORD为范围的命令使用完,记录指针指向指定的记录【条件】1.FOR <条件>:表示对满足条件的记录进行操作。

2.WHILE <条件>:表示对满足条件的记录进行操作，但遇到第一个不满足条件的记录就终止操作。

注:当使用条件短语而没有范围短语存在时,FOR <条件>的默认范围为ALL,WHILE <条件>的默认范围为REST例:显示所有性别为男的考生信息.DISP FOR 性别=[男]例:显示所有性别为女的考生信息.DISP FOR 性别="女".DISP FOR 性别!=[男].DISP FOR !性别=[男]例:显示所有成绩合格的考生的信息.DISP FOR 笔试>=60 AND 上机>=60.DISP FOR 结论=[优秀] OR 结论=[通过] .DISP FOR MIN(笔试,上机)>=60.DISP FOR ALLT(结论)$[通过优秀] 例:显示所有性别为男且成绩合格的考生信息.DISP FOR 性别=[男] AND(结论=[优秀] OR 结论=[通过])例:显示前50条记录中的补考考生信息.GO TOP.DISP NEXT 50 FOR 结论=[补考]例:显示订购单表中所有供应商号为NULL 值的记录.USE 订购单.DISP FOR ISNULL(供应商号)例:显示订购单表中所有供应商号不为NULL值的记录.DISP FOR !ISNULL(供应商号)例:显示DJKS表中笔试和上机成绩均在70-80之间的考生信息.USE DJKS.DISP FOR 笔试>=70 AND 笔试<=80 AND 上机>=70 AND 上机<=80.DISP FOR BETWEEN(笔试,70,80) AND BETWEEN(上机,70,80)【指定字段】FIELDS 字段名表:表示对指定的字段进行操作。

例:显示所有考生的考号,性别,姓名,结论信息.DISP FIELDS 考号,性别,姓名,结论 ALL 例:显示前20条记录中所有性别为女的考生的考号,姓名,结论信息.GO TOP.DISP FOR 性别=[女] FIELDS 考号,姓名,结论 NEXT 20注:命令除"命令动词"必须在最前面之外,其它各个短语的先后顺序无关紧要*在对记录的操作命令中,"范围"和"条件"短语是进行"选择操作",而"字段名列表"则是进行"投影操作"五、记录的显示格式:LIST|DISP [范围] [条件] [字段名表] [OFF]【DISP 默认范围为当前记录,LIST默认范围为ALL】例:.DISP ALL 姓名-IIF(性别=[男],[先生],[女士])-"您的考试成绩为:"-结论OFF注:OFF:有此选项时,显示时不显示记录号IIF(L,表达式1,表达式2):当括号内的L 为.T.时,返回表达式1的值,反之返回表达式2的值六、自由表的复制格式:COPY TO <新表文件名> [范围] [条件] [字段名表]功能:将当前表中的指定内容复制到指定的新表文件中例:将DJKS表中的所有信息复制到DJKSBAK.DBF中.USE DJKS.COPY TO DJKSBAK.USE DJKSBAK.BROWSE &&浏览编辑注:通过COPY TO 命令生成的表文件不会自动打开例:将DJKS表中所有性别为男的合格考生保存到NAN.DBF中,所有性别为女的合格考生保存在NV.DBF中.USE DJKS.COPY TO NAN FOR 性别=[男] AND 笔试>=60 AND 上机>=60.COPY TO NV FOR 性别=[女] AND ALLT(结论)$[优秀通过]注:COPY STRUCTURE TO <表文件名> [字段名表] 命令为仅复制表的结构,新表将是一个只有结构而无记录的空表例: .USE DJKS.COPY STRU TO LSH FIELDS 考号,姓名,性别,结论.USE LSH.?RECNO(),EOF(),BOF(),RECCOUNT()1 .T. .T. 0七、修改记录1.交互式修改命令格式:EDIT|CHANGE2.浏览编辑格式:BROWSE3.命令替换格式:REPLACE [范围][条件] <字段名1> WITH <表达式1> …【默认范围为当前记录】功能:用WITH后表达式的值替换WITH前指定字段的当前值.要求:表达式的类型与字段的类型一致.可以一次为多个字段改值.注:只能对有记录内容的字段进行修改(空记录也可以)例: .USE DJKS.COPY TO DJKSBAK.USE DJKSBAK.REPL 结论 WITH SPACE(6) ALL.REPL ALL 结论 WITH [通过].REPL 结论 WITH [优秀] FOR MIN(笔试,上机)>=85.REPL 结论 WITH [补考] FOR 笔试<60 OR 上机<60.REPL 结论 WITH [未过] FOR MAX(笔试,上机)<604.表结构的修改命令:MODIFY STRUCTURE注:显示结构为LIST|DISPLAY STRUCTURE八、记录的删除与恢复1.逻辑删除格式:DELE [范围] [条件]【默认范围为当前记录】例:逻辑删除DJKSBAK表中所有成绩为'未过'的考生信息.DELE FOR 结论=[未过].BROWSE例:逻辑删除DJKSBAK表中所有性别为男且结论为'补考'的考生信息.DELE FOR 性别=[男] AND 结论=[补考] .BROWSE例:删除第4条记录.GO 4.DELE &&删除当前记录.?DELE().T.注:当前记录有逻辑删除标记时,DELETE()函数的返回值为.T.例:显示所有有删除标记的记录.DISP FOR DELE()例:将当前表无删除标记的记录复制到DJ.DBF中.COPY TO DJ FOR !DELE()2.恢复删除格式:RECALL [范围] [条件]【默认范围为当前记录】例:恢复前50条中,性别为男的考生的被删除标记.GO TOP.RECA NEXT 50 FOR 性别='男'.BROWSE3.物理删除命令:PACK例:物理删除当前表中有删除记号的记录 .PACK4.物理删除所有记录命令:ZAP例:物理删除当前表中所有记录.ZAP注:本命令使用完后当前表将成为空表(只有结构而无记录)例:将DJKS表的记录追加到当前表中.APPEND FROM DJKS注:APPEND FROM <另一表名>命令的功能为:将另一个表文件中信息追加到当前表中,使用完后,当前记录为尾记录(BOTTOM);另外,如果另一表中的字段名或类型与当前表不相符,则会追加空记录;另一表要处于关闭状态九、条件查找命令格式:LOCATE FOR <条件>[范围]【记录指针定位在满足条件的第一条记录，使用CONTINUE命令可以查找到满足条件的其它记录】例 .LOCATE FOR 性别=[男] AND 结论=[优秀].?FOUND(),EOF().T. .F..COUNTIUE &&在上一个LOCATE命令的剩余范围内继续查找.?性别,结论男优秀十、排序格式:SORT TO <新表文件名> ON <字段1>[/A] [/D] [/C]…[范围][条件][字段名表]【排序又称分类。