1、医学计算机与信息技术应用基础课程体系课题项目组,第4章 Visual FoxPro 表记录的管理,辽宁省教育厅“十一五”立项教育研究规划课题 辽宁省普通高等教育精品课程 全国高等医药类院校规划教材,课 程 导 航,4.4,表记录的排序,4.1,4.2,4.3,表的索引,统计与计算,表的查询,多表 操 作,4.5节,实验指导,4.1节,4.2节,4.3节,4.4节,要点,总结,4.1表的排序,排序是从物理上对表重新整理，按照指定的关键字段来重新排列表中数据的顺序，并产生一个新的文件 【格式】SORT TO ON /A|/D ,/A|/D FIELDS FORWHILE,4.5节,4.1节,4.2
2、节,4.3节,4.4节,要点,返回本章,【功能】对当前的表排序，并将结果输出到新表中 【说明】ON ：用作排序的关键字段/A按升序排序，/D按降序排序，默认是升序；可实现多重排序，首先按排序，如果有可选项，则在之值相同的情况下，再按的大小进行排序。,4.2 表的索引,计算机文化,1.1.1,5.1.2,重新指定主控索引,建立索引文件,打开索引文件,关闭索引文件,更新索引文件,返回本章,4.5节,4.1节,4.2节,4.3节,4.4节,要点,4.2.1目,4.2.2目,4.2.3目,4.2.4目,4.2.5目,返回本节,4.2 表的索引,索引是从逻辑上对表进行重新整理，索引是以索引文件的形式存在
3、的，它是根据指定的索引关键字表达式建立起来的。 可以将索引文件看成索引关键字的值与记录号之间的对照表。 索引文件必须与原数据表文件一起使用。 打开索引文件时会改变表中记录的逻辑顺序，但是并不会改变表中记录的物理顺序。,索引文件有二种:单索引文件(.IDX)和复合索引文件(.CDX)。 一个数据表文件可以建立多个索引文件，也可以同时打开多个索引文件，但在同一时间内只有一个索引起作用，这个索引被称为主控索引。,原 数 据 表：,姓名索引,班级索引,4.2.1 建立索引文件,1. 单索引文件的建立 【格式】INDEX ON TO COMPACTUNIQUEFOR ADDITIVE 【功能】对当前表按
4、指定的关键字建立单索引文件,4.2.1目,4.2.2目,4.2.3目,4.2.4目,4.2.5目,返回本节,【说明】 可以是字段名，也可以是含有当前表中字段组成的合法表达式。 若在表达式中包含有几种类型的字段，常常需要使用类型转换函数将其转换为相同类型的数据 单索引文件:指定要建立的单索引文件名。 单索引文件扩展名是.IDX,COMPACT:表示建立压缩索引文件 FOR 表示对满足条件的记录建立索引 UNIQUE：表示建立唯一索引，若有多条记录的的值相同时，则只把第一次遇到的记录进行排序加入到索引文件中 ADDITIVE：表示保留打开的索引文件。否则，除结构复合索引文件外，以前打开的其他索引文
5、件被关闭,4.2.1 建立索引文件,4.2.1目,4.2.2目,4.2.3目,4.2.4目,4.2.5目,返回本节,【例4-3】为 “患者信息”按照入院日期的升序建立单索引文件。,4.2.1 建立索引文件,4.2.1目,4.2.2目,4.2.3目,4.2.4目,4.2.5目,返回本节,USE 患者信息 INDEX ON 入院日期 TO 入院日期单索引 LIST 住院号,姓名,吸烟否,入院日期,住院科室,实收押金,2. 复合索引文件的建立 复合索引中包含多个索引，每个索引均有一个标识名(TAG) ，标识名由字母或下划线开头由字母、数字或下划线组成，长度不超过10个字符,4.2.1 建立索引文件,
6、复合索引文件又可分为结构复合索引文件和独立复合索引文件两种。 结构复合索引文件与表文件同名，打开表时自动打开结构复合索引文件； 独立复合索引文件的文件名由用户指定，在打开表文件时独立复合索引文件不会自动打开而需要使用命令进行打开操作。,2. 建立复合索引命令方式【格式】INDEX ON TAG OF FOR ASCENDING|DESCENDINGUNIQUEADDITIVE 【功能】对当前表按指定的关键字建立复合索引文件,4.2.1 建立索引文件,4.2.1目,4.2.2目,4.2.3目,4.2.4目,4.2.5目,返回本节,【说明】TAG 用于指定复合索引文件中的索引标识； 当缺省OF时建
7、立一个与表同名的结构复合索引文件； 加 OF将建立一个指定名称的独立复合索引文件 使用ASCENDING按升序索引 使用DESCENDING按降序索引。缺省时，按升序建立索引。,2. 建立复合索引 【例4-7】在“患者信息.dbf”表的结构复合索引文件中按照吸烟否的降序追加索引标识。,4.2.1 建立索引文件,USE 患者信息 INDEX ON 吸烟否 TAG 吸烟降序 DESCENDING LIST 住院号,吸烟否,住院科室,既往病史,家族病史,诊断,3. 菜单方式建立、修改结构复合索引 打开表文件 选择显示 - 表设计器 选择“索引”选项卡 用表设计器建立的索引都是结构复合索引,【格式1】
8、USE INDEX order| TAG OF ASCENDING|DESCENDING 【功能】打开指定的表文件及相关的索引文件,4.2.2 打开索引文件,4.2.1目,4.2.2目,4.2.3目,4.2.4目,4.2.5目,返回本节,【说明】,虽然可以同时打开多个索引文件，但同一时间只能有一个单索引文件或是复合索引文件中的一个索引标识作为主控索引 记录的操作和显示由主控索引来控制。 如果中排在第一位的是单索引文件，则该单索引就是主控索引 如果排在第一位的是复合索引文件，所有索引项均不起作用，表文件的记录将以物理顺序被访问。,【注意】1、在建立索引文件的同时，即打开了该索引文件，并指定其为主
9、控索引文件2、在打开表的同时就打开了结构复合索引文件,【格式2】SET INDEX TO ADDITIVE 【功能】在已打开表文件的前提下，打开相关索引文件;存在同名的索引文件必须带扩展名,4.2.2 打开索引文件,4.2.1目,4.2.2目,4.2.3目,4.2.4目,4.2.5目,返回本节,【说明】,ADDITIVE:表示保留以前打开的索引文件。缺省时，打开本索引同时关闭所有已打开的索引文件(结构复合索引文件外)。 如果打开多个索引文件，则系统自动为各打开的索引项统一编号 编号规则：先单索引，再结构复合索引，最后是独立复合索引,4.2.3 关闭索引文件,【格式1】USE 【功能】关闭打开的
10、表文件及所有索引文件 【格式2】SET INDEX TO 【格式3】CLOSE INDEX 【功能】关闭当前工作区中打开的所有单索引文件和独立复合索引文件注意：当表未关闭时，结构复合索引文件无法关闭,4.2.1目,4.2.2目,4.2.3目,4.2.4目,4.2.5目,返回本节,如果对数据表记录进行了增删或记录数据发生了变化，应及时对已有的索引文件中的索引项重新进行索引进行更新。 命令方式 【格式】REINDEX 【功能】重新进行索引，更新当前打开的索引文件,4.2.4 索引文件的更新,4.2.1目,4.2.2目,4.2.3目,4.2.4目,4.2.5目,返回本节,【格式】SET ORDER
11、TO |OF 【功能】重新指定打开的索引文件中的主控索引,4.2.5 重新指定主控索引,4.2.1目,4.2.2目,4.2.3目,4.2.4目,4.2.5目,返回本节,【说明】,数值表达式：指定该数值号的索引为主控索引；其值为0,则关闭主控索引，表文件的记录将以物理顺序被访问;单索引文件名： 指定该名字的单索引为主控索引TAG ：指定复合索引文件中的该索引标识的索引项为主控索引。 加OF： 指定独立复合索引文件,4.3 表的查询,计算机文化,1.1.1,5.1.2,顺序查询,索引查询,返回本章,4.5节,4.1节,4.2节,4.3节,4.4节,要点,4.3.1 顺序查询,按照记录的物理顺序逐个
12、比较，逐个查询 命令方式： 【格式】LOCATE FOR 【功能】在指定范围中按指定条件，物理顺序进行查找，记录指针定位到第一条符合条件的记录。,4.3.1目,4.3.2目,返回本节,【说明】,若找到符合条件的记录，则测试函数?FOUND()为真； 如果没有找到，则测试函数?FOUND()为假，并且指针定位到表底，即?EOF()为真。一般用DISP显示当前找到的记录。 若继续查找符合该条件的其余记录，可使用 CONTINUE命令。,4.3.2 索引查询,打开索引文件后，可以使用FIND和SEEK命令快速查询 1. FIND命令 【格式】 FIND / 【功能】在表文件的主控索引中查找关键字值与
13、或相匹配的第一条记录,4.3.1目,4.3.2目,返回本节,【说明】,如果找到，则把记录指针指向该记录，并且将FOUND()函数的值置为“真”； 如果没有找到与其相符的记录，将FOUND()函数的值置为“假”，EOF()函数的值置为“真”。 如果有多个与关键字匹配的记录，则记录指针定位于其中的第一条记录上，若浏览后续记录，可用SKIP 若字符常量无首尾空格，可省略定界符; 字符串可用字符变量代替，但需用&转换，,【例4.16】查找表“患者信息.dbf”中实收押金为6 000 的最后一个患者的记录。 USE 患者信息 ORDER 实押降序 FIND 6000 ?FOUND() &系统主窗口显示结
14、果为.T. DISPLAY 住院号,姓名,吸烟否,入院日期,住院科室,实收押金,2. SEEK命令（表达式查询命令） 【格式】SEEK 【功能】在表文件的主控索引中查找关键字值与值相匹配的第一条记录,4.3.2 索引查询,4.3.1目,4.3.2目,返回本节,【说明】 SEEK命令可查找字符型、数值型、日期型、逻辑型表达式值 SEEK命令中表达式必须有定界符，以确定表达式类型。,【例4-20】查找表“患者信息.dbf”中吸烟的患者的信息。（查询逻辑型数据）,2. 表达式查询命令（SEEK命令）,4.3.2 索引查询,4.3.1目,4.3.2目,返回本节,USE 患者信息 ORDER 吸烟降序
15、SEEK .T. ?FOUND() &系统主窗口显示结果为.T. DISPLAY 住院号,姓名,吸烟否,入院日期,出院日期,住院科室,4.4 数据统计与计算,计算机文化,1.1.1,5.1.2,综合计算,统计记录数,求和,求平均值,分类汇总,返回本章,4.5节,4.1节,4.2节,4.3节,4.4节,要点,4.4.1 统计记录数,【格式】COUNT TO FOR WHILE 【功能】统计表中指定范围内满足条件的记录个数,4.4.1目,4.4.2目,4.4.3目,4.4.4目,4.4.5目,返回本节,【说明】,若使用子句，统计出指定内满足的记录个数，默认的范围是ALL。 若使用TO ，可将统计的
16、结果保存到指定内存变量中。,4.4.2 求和,【格式】SUM TO FOR WHILE 【功能】将指定范围内满足条件的记录按指定的各个表达式分别求和。,4.4.1目,4.4.2目,4.4.3目,4.4.4目,4.4.5目,返回本节,【说明】,由数值型字段组成，若省略，则对当前表的所有数值型字段求和。 TO :将求和结果按顺序存入内存变量,【例4.22】统计表“患者信息.dbf”中所有患者的住院费用的总和。 USE 患者信息 SUM 住院费用 TO fyzh,4.4.3 求平均值,【格式】AVERAGE TO FOR WHILE 【功能】将指定范围内满足条件的记录按指定的各个表达式分别求平均值。
17、 【说明】选项用法同SUM,4.4.1目,4.4.2目,4.4.3目,4.4.4目,4.4.5目,返回本节,4.4.4 分类汇总,【格式】TOTAL TO ON FIELDSFOR WHILE 【功能】按关键字段对当前表文件的数值型字段进行分类汇总，形成一个新的文件,4.4.1目,4.4.2目,4.4.3目,4.4.4目,4.4.5目,返回本节,【说明】,当前表必须在关键字上排序或索引 将当前表文件中关键字段值相同的记录分成一类，每一类产生一个记录 各记录中的汇总字段值为汇总后的和 而非汇总字段值为每一类的第一条记录的值。,【例4.23】统计表“ 住院费用.dbf”中各个患者费用小结的总和，将
18、统计结果保存在“患者费用小结.dbf” 文件中。 USE 住院费用 INDEX ON 住院号 TAG 住院号 TOTAL TO 患者费用小结 ON 住院号 USE 患者费用小结 LIST 住院号,费用小结,4.4.4 分类汇总,4.4.1目,4.4.2目,4.4.3目,4.4.4目,4.4.5目,返回本节,4.4.5 综合计算,【格式】CALCULATE TO FOR WHILE 【功能】对当前表中指定范围内满足条件的记录进行指定的综合计算工作 【说明】表达式表可以是,4.4.1目,4.4.2目,4.4.3目,4.4.4目,4.4.5目,返回本节,【例4.24】计算表“患者信息.dbf”中，患
19、者人数、住院费用的最大值、最小值和平均 值、住院费用的总和。 USE 患者信息 CALCULATE CNT(),MAX(住院费用), MIN(住院费用) ,AVG(住院费用),SUM(住院费用) ; TO rs,fyzd,fyzx,fypj,fyzh,4.5 多表操作,计算机文化,1.1.1,5.1.2,关闭多个工作区文件,工作区与多个表,表间的逻辑连接,表间的物理连接,表间的数据更新,返回本章,4.5节,4.1节,4.2节,4.3节,4.4节,要点,工作区和当前工作区 VFP系统最多能同时使用32767个工作区，每个工作区只能打开一个表文件。 任何时候只能对一个工作区进行操作，这个工作区称为
20、当前工作区（或主工作区）。,4.5.1 工作区与多个表,4.5.1目,4.5.2目,4.5.3目,4.5.4目,4.5.5目,返回本节,当前工作区上打开的表文件为当前表文件。 32767个工作区的区号分别为1-32767，系统启动后，默认1号工作区为当前工作区。 对于1-10号工作区，系统别名为A-J。 11-32767号工作区，系统别名为W11-W32767。,2选择当前工作区 （1）表别名是代表打开的数据表文件的一个简短名称 当用USE命令打开表文件时，系统默认表的文件名就是表的别名。 （2）用户可自定义表的别名,4.5.1 工作区与多个表,4.5.1目,4.5.2目,4.5.3目,4.5
21、.4目,4.5.5目,返回本节,【格式】USE ALIAS 是用英文字母或下划线开头，由字母、数字、下划线组成，长度最多为10个字节 【例如】USE 患者信息 ALIAS HZ,（3）工作区的选择 【格式】SELECT | 可以是系统的别名，也可以是表的别名。 如果指定“0”，则表示选用当前未使用过的编号最小的工作区作为当前工作区。,4.5.1 工作区与多个表,4.5.1目,4.5.2目,4.5.3目,4.5.4目,4.5.5目,返回本节,【例题】 SELECT BUSE 患者信息 ALIAS HZ SELECT AUSE 床位分配BROWSE 要回到B工作区，以下三条命令是等价的 SELEC
22、T B | SELECT 2 | SELECT HZ,3.非当前工作区字段的引用 【格式】 -或 . 【说明】通过工作区别名指定访问的工作区，所得到的字段值为指定工作区打开的表当前记录的字段值,4.5.1 工作区与多个表,4.5.1目,4.5.2目,4.5.3目,4.5.4目,4.5.5目,返回本节,【例4.27】在1 号工作区和2 号工作区内分别打开表“患者信息.dbf”和“床位分配.dbf”，在1 号工作区内查看当前记录的姓名、性别、出生日期、医生姓名、护士姓名和床位号等字段内容。 SELECT A USE 患者信息 SELECT B USE 床位分配 SELECT A DISPLAY 姓
23、名,性别,出生日期,B.医生姓名,B.护士姓名,B-床位,4.5.2 表间的逻辑连接,1关联的概述 表间的逻辑连接又称做关联。 所谓关联是把工作区中打开的表与另一个工作区中打开的表根据关键字段进行逻辑连接，而不生成新表。 两个表建立关联后，当前工作区中的表记录指针移动时，被关联工作区的表记录指针也将自动相应移动，以实现对多表的同时操作。,4.5.1目,4.5.2目,4.5.3目,4.5.4目,4.5.5目,返回本节,在多个表中，必须有一个表为关联表，此表常称为父表或主表，而其他的表则称为被关联表，常称为子表。 在两个表之间建立关联，必须以某一个字段为标准，该字段称为关键字段。 表文件的关联可分
24、为一对一关联、一对多关联和多对多关联。,2创建表间关联 （1）一对一关联的建立 命令方式 【命令】SET RELATION TO INTO | ADDITIVE 【功能】将当前工作区表与另一工作区表按关键字段或者记录号建立逻辑关联。这时，当主表记录指针移动时，被关联数据表的记录指针也将同步移动。,4.5.2 表间的逻辑连接,4.5.1目,4.5.2目,4.5.3目,4.5.4目,4.5.5目,返回本节,【说明】,1、使用时，其中的关键字必须是两个表文件的共有字段，且别名表已按关键字段建立了索引文件，并已指定为主控索引； 2、使用ADDITIVE时，当前表与其他表已经建立的关联仍有效；否则在建立
25、本次关联时，将自动撤消当前表与其他数据表已建立的关联。 3、当父表文件的记录指针移动时，子表文件的记录指针就定位于值与值相等的第一条记录上。如果子表中找不到匹配的记录，则子表的记录指针指向文件尾，这时EOF()返回值为.T.。,【例4.28】将“患者信息.dbf”表和“ 床位分配.dbf”表以住院号为关键字段建立一对一的关联。 SELECT 2 USE 床位分配 INDEX ON 住院号 TO zyh &索引表达式为住院号 SELECT 1 USE 患者信息 SET RELATION TO 住院号 INTO B &关联表达式为住院号 LIST 住院号,姓名,B.医生姓名,B.护士姓名,B.床位
26、,4.5.2 表间的逻辑连接,2创建表间关联（1）一对一关联的建立 菜单方式,4.5.2 表间的逻辑连接,利用菜单方式建立一对一关联的具体操作步骤：,a单击“窗口”|“数据工作期”命令，弹出“数据工作期”对话框。 b单击“打开”按钮，将需要用到的表在不同工作区中打开。 c在“别名”列表框中选择主表，再单击“关系”按钮，显示出主表文件名，如患者信息表，并且下方引出一条线，再在别名表中选择子表。 d如果子表文件未指定主控索引，系统会弹出 “设置索引顺序”对话框，以指定子表文件的主控索引。 e主控索引建立后，系统弹出 “表达式生成器”对话框，在“字段”列表框中双击需要关联的关键字段，如“住院号”字段
27、，然后单击“确定”按钮，返回“数据工作期”对话框。 f此时在“数据工作期”对话框的右侧列表框中出现了子表“床位分配”表，在父表和子表之间有一单线相连，说明在两表之间已建立了一对一关联。 g使用“数据工作期”对话框建立一对一关联后，就可以在命令窗口中使用“ LIST 住院号,姓名,B.医生姓名,B.护士姓名,B.床位号”这样的命令显示关联后的结果。,（3）一个表与多个表关联的建立 命令方式 【格式】SET SKIP TO ， 【功能】将当前表文件与其他工作区中的表文件建立一对多关联。,4.5.2 表间的逻辑连接,4.5.1目,4.5.2目,4.5.3目,4.5.4目,4.5.5目,返回本节,【说
28、明】,1、SET SKIP 命令要在使用SET RELATION TO 命令建立了一对一的关联之后才能使用， 2、当父表中的一个记录与子表的多个记录相匹配时， 在使用SKIP命令，父表的指针不移动，而子表的指 针却向下移动，指向下一条与父表相匹配的记录； 重复使用SKIP命令，直至在子表中没有与父表当前记 录相匹配的记录后，父表的指针才向下移动。 3、无任何选择项的SET SKIP TO 命令将取消一对多的 关联（一对一的关联仍然存在）。, 菜单方式利用前面介绍的使用菜单建立一对一关联的步骤，只要每次选择的子表不同，就可以分别建立一个表文件同多个表文件的关联。,3取消表的关联 取消数据间的关联
29、可以采用以下 4 种方法。 在建立关联的命令中，如果不选用ADDITIVE 项，则在建立新关联的同时，取消了当前表原来建立的关联。 命令SET RELATION TO，取消当前表与其他表之间的关联。 命令SET RELATION OFF INTO |，取消当前表与指定别名表之间 的关联。 关闭表文件，关联都被取消，下次打开时，必须重新建立。,4.5.2 表间的逻辑连接,4.5.3 表间的物理连接,【格式】JOIN WITH | TO FOR FIELDS 【功能】把当前主表与/表中符合条件的对应记录，按字段表给定的字段连接起来,生成新的表文件,4.5.1目,4.5.2目,4.5.3目,4.5.
30、4目,4.5.5目,返回本节,【说明】,1、FOR 是必选项，是两个数据表记录相连接的依据。2、生成的新表文件所含的字段与其先后顺序由指定的决定。 若缺省，取两个数据表的全部字段, 若重名,重复字段只取主表中的一个。,【例4.30】将“患者信息.dbf”和“床位分配.dbf”表文件按住院号连接，生成一个新的“患者床位.dbf”表文件，并浏览该表。 SELECT 2 USE 床位分配 SELECT 1 USE 患者信息 JOIN WITH B TO 患者床位 FOR 住院号=B.住院号 FIELDS 住院号,姓名,住院科室,诊断,B.床位,B.医生姓名 SELECT 0 USE 患者床位 BRO
31、WSE,4.5.3 表间的物理连接,4.5.4 表间的数据更新,【命令】UPDATE ON FROM | REPLACE WITH , WITH RANDOM 【功能】当|指定表中的关键字段值与当前表中记录的关键字段值匹配时，用指定的表达式的值来替换当前表中匹配记录指定字段的值。,【说明】关键字段名必须是两个数据表都具有的。使用RANDOM选项，只需主表按指定的关键字段索引，工作区或别名区中的表不需要索引；否则两个表都必须以关键字段索引。,【例4.31】创建新表文件“ 患者医疗费用合计.dbf”， 内容如图4-37 所示。使用“ 住院费用.dbf”表的“ 费用小结”字段值更新“ 患者医疗费用合
32、计.dbf”表中的“ 费用合计”字段。 SELECT 2 USE 住院费用 SELECT 1 USE 患者医疗费用合计 SET ORDER TO TAG zyh & 指定主索引项zyh（zyh 为已建立的复合索引项） UPDATE ON 住院号FROM 住院费用REPLACE 费用合计 WITH 费用合计+B.费用小结RANDOM BROWSE,4.5.4 表间的数据更新,4.5.5 关闭多个工作区文件,为了防止多个用户对数据库和表文件同时访问时产生冲突，一般情况下在使用完数据库和表文件后，要关闭多个工作区内的文件。关闭多个工作区文件的方法有如下3 种。 【格式1】CLOSE ALL 关闭所有
33、工作区的所有类型文件，并选择1 号工作区为当前工作区，不释放内存变量。,【格式2】CLOSE DATABASE 关闭所有工作区的数据库文件、表文件、索引文件，并选择1 号工作区为当前工作区，不释放内存变量。 【格式3】CLEAR ALL 关闭所有工作区的表文件、索引文件，并选择1 号工作区为当前工作区，但是释放所有内存变量。,总 结,在Visual FoxPro中提供了两种重新排列记录的方法：排序和索引。 本章主要介绍了： 排序和索引 顺序查询和索引查询的使用方法 统计计算命令 多表操作,排序和索引 sort to xinbiao on 数学/a,英语/d index to aa on 数学+
34、英语 ascendingdescending,顺序查询和索引查询的使用方法 Locate for ContinueFind 李伟峰 &xxSeek “李伟峰” skip,统计计算命令 Count Sum Average Total calculate,多表操作,关联(逻辑连接)： 一对一： Set ralation to 关键字段 into 别名 一对多 Set skip to 别名 物理连接： Join with 别名 to 表名 for 关键字段=别名.关键字段,强调：,一、教材66页12题： 通用、备注、日期、逻辑型字段的宽度分别为： 4、4、8、1 二、逻辑型字段两种表示，优先使用后一种。 吸烟否=.t. 吸烟否 吸烟否=.f. Not 吸烟否,查询用户数据的三种关系运算：,1.选择选择运算在表中选取若干个记录的操作。 List for 性别=男 Disp all,关系运算,2.投影投影运算是从关系中选取若干个字段的操作。 List fields 学号，姓名，入学成绩,3.联接联接运算是将两个关系模式的若干字段拼接成一个新的关系模式的操作。 Join with b to new for 学号=b.学号,
