2012.10.8 星期一

教学内容：记录的索引

教学目的：掌握索引的类型、创造方法以及索引的用途

教学时间：2课时

教学方法：讲授法、实践法

教学过程：

一、复习、巩固、导入

假前我们学习了数据库、表的建立、打开、关闭、修改、显示操作，后来我们对表的结构、记录的增加、修改、删除、显示等操作指令，及学习了一些相关的函数，请大家认识的归类、温习。

记录的显示（list、select）、记录的修改（edit、replace）、记录的删除（delete、recall、pack、zap）、记录的定位（go n、skip）、记录的范围（all、next n、record n、rest）

这节课，我们讲一下数据表的索引。因为有序的数据为增加查询的速度，所以索引就是为了这一目的设立的技术。一个物理存在的数据表，可以建立无数个索引，来让表格中的数据按某种方向使数据有序。其实，类似于书本中的索引（目录）。

二、新授

1.索引的概念及意义：表索引就是有一个记录号的列表，指向待处理的记录并确定记录的处理顺序。类似书的索引（目录），一个表格可以建立无数个索引，且打开的索引自动更新，也可手动更新。建立索引的目的就是让数据处理有序、定位快速。

索引影响记录的处理顺序，但不改变表格文件中记录存储的物理顺序。

索引文件的扩展文件名为：.cdx和.idx

2.索引命令：

菜单命令：（课本P33页）

索引命令：（课本P35页）

INDEX ON eExpression TO IDXFileName | TAG TagName 
   [ COLLATE cCollateSequence ] [OF CDXFileName] [FOR lExpression]
   [COMPACT] [ASCENDING | DESCENDING] [UNIQUE | CANDIDATE] [ADDITIVE]

3.索引种类：普通索引（.idx）、复合索引（.cdx）。 

三、练习

1.体验：

use xx1    &&打开表格文件“xx1”

list        &&观察记录号的顺序

index on xm to xm1  &&建立一个以“xm”字段为索引关键字的普通索引，马上生效（即自动打开）

list          &&在观察记录号的顺序，会发现，已经不再有顺序，有顺序的为“xm”字段。

clos index      &&关闭索引文件

list          &&和刚打开的时候一样，已经恢复成以“记录号”的顺序（即默认的顺序），也就是索引不在生效。

use        &&关闭表格文件

2.索引文件的打开

use xx1       &&打开表格文件xx1，默认不打开任何索引文件

list                &&显示表格的初始顺序的记录

set inde to xm1    &&打开已经建立（存在）的普通索引文件xm1.idx

list            &&显示记录的信息顺序已经受到了xm1索引文件中的索引表达式“xm”的影响。

clos index      &&关闭索引文件

list          &&恢复记录的显示顺序

use       &&关闭当前打开的文件（xx1）

3.索引分类：

一类是普通索引（单索引标志），以上例子就属于普通索引，扩展名为.idx。

一类是复合索引（双索引标志），又分为结构化复合索引和非结构化复合索引，扩展名为.cdx。

4.索引文件类型的区别：

单个普通索引文件中只有一种索引标识，即一个文件中只有一种顺序，一种顺序只能存放在一个文件中；

复合索引文件中可以含有多个索引标识，即一个文件中可有多种顺序，多种顺序可以存放在一个文件中；

复合索引又分为：结构化复合索引和非结构化复合索引，它们之间的区别在于，结构化的复合索引的主文件名与相应的表格同名，非结构化复合索引不同名，但二者的扩展文件名均默认为.cdx。

结构化复合索引与非结构化复合索引的区别还在于，表格文件打开，与其配套的结构化复合索引自动打开，非结构化的复合索引和普通普通需手动打开。

索引文件打开于否的意义：只有打开了索引文件，索引文件中的索引标识才会起作用，才会使记录顺序有效；另一个作用就是索引文件只有打开了，才会与配套表格文件中的数据自动同步更新，否则在索引文件关闭的情况下，主表文件中的记录信息增加、删除、修改了，而索引文件中没有更新、同步，那样就造成错误。

手动打开索引文件的命令：set index to 索引文件名1，索引文件名2....    意思就是一个命令可以打开多个索引文件或标识

无论打开多少索引文件，某一时刻只允许一个索引标识起效果。

5.索引标识的转换命令

SET ORDER TO [nIndexNumber | IDXIndexFileName | [TAG] TagName 
   [OF CDXFileName] [IN nWorkArea | cTableAlias]
   [ASCENDING | DESCENDING]]

注：

一个表可以同时打开多个索引文件。但是，只有一个单索引 (.IDX) 文件(主控索引文件)或一个来自复合索引 (.CDX) 文件的索引标识(主控标识)决定表中记录的显示和访问顺序。可用 SET ORDER 来指定主控索引文件或标识。有些命令(例如 SEEK)使用主控索引或标识来查找记录。

可以在 USE 命令中包含 INDEX 子句随表打开索引文件。如果一个表有相关的结构 .CDX 文件，这个文件会随着表的打开而自动打开。在一个表被打开以后，可以使用 SET INDEX 命令为这个表打开或关闭索引文件。 默认情况下，SET ORDER 为当前工作区中打开的表指定主控索引或主控标识。

6.索引文件的关闭

SET INDEX TO 

CLOSE [ALL | ALTERNATE | DATABASES [ALL] | DEBUGGER | FORMAT | INDEXES
   | PROCEDURE | TABLES [ALL]]

四、总结

1.索引文件的建立意义、打开、关闭、应用、转换。

2.索引文件的分类及各种类型之间的区别。

3.建立索引文件后对命令的影响。

五、作业

1.索引文件的建立命令格式（熟悉）

2.索引文件的种类及区别（掌握）

3.写出对xx2表格文件建立两个索引文件的指令（书面）

六、反思

2012.9.23-2012.9.26

实训任务：数据库、表、记录等操作。

实训目的：掌握相关的指令、参数、函数等应用。

实训内容：（见过程）

实训重点：掌握“数据库系统-数据库管理系统-数据库-数据表-记录-字段-字符-位”之间的层次关系

实训过程：

1.实训内容：

微机58班  数据库基础操作训练题目测试

共计8题，计120分（要求：尽量使用SQL编程模式完成相应的指令）

1.建立一个数据库文件，文件名为：qmjn.dbc（10分）

（建立完成后，--------------------------------------------------使用list data to file sj.txt addi）

2.建立以下三个自由表：（30分）

1)XX1.DBF 结构如下：

XM  C（2）

XH  C（3）

XB  C（2）

NL  N（2）----------------------------------建立完成后，使用list stru to file sj.txt addi

2)XX2.DBF结构如下：

XH  C（3）

ZZ  C（20）

YB  C（6）

QT  C（5）----------------------------------建立完成后，使用list stru to file sj.txt addi

3)XX3.DBF结构如下：

XH  C（3）

CJ1  N（5，1）

CJ2  N（5，1）

ZF   N（5，1）---------------------------建立完成后，使用list stru to file sj.txt addi

3.给XX1、XX2、XX3三个表分别加入以下记录（15分）(注意改变当前库)

1)xx1记录如下，输入完成后显示插入的结果

张三  001  男  19

李四  002  女  18

王五  003  男  20----------------------建立完成后，使用list to file sj.txt addi

2)xx2记录如下，输入完成后显示插入结果

001   徐水   072550

002   易县   073000

003   徐水   072550----------------------建立完成后，使用list to file sj.txt addi

3)xx3记录如下，输入完成后显示插入结果

001  90.0  102.0  192.0

002  87.5  77.5  165.0

003  93.0  100.0  193.0----------------------建立完成后，使用list to file sj.txt addi

   分别将xx1.dbf、xx2.dbf、xx3.dbf三个表格复制成xx11.dbf、xx22.dbf、xx33.dbf三张自由表。

   使用方法为：use xx1

               Copy to xx11，就可以将表格xx1.dbf复制生成xx11.dbf，以此类推

4.将XX1、XX2、XX3三张表加到数据库qmjn.dbc中）（15分）----------添加完成后，使用list data to file sj.txt addi

5.把表格xx1中的XM字段的长度改为6，此步完成后使用list stru to file sj.txt addi，然后关闭该表格（USE）；将表格XX2中的QT字段删除，此步完成后使用list stru to file sj.txt addi，然后关闭该表格（USE）；将表格XX33中增加一个新字段PJF  N（5，1），此步完成后使用list stru to file sj.txt addi，然后关闭该表格（USE）（15分）

6.X1表格中的‘男’同学过滤出来保存到新的自由表V125.dbf中（写出SQL语句）（10分）完成此步后，使用sele * from V125 to file sj.txt addi 。

7.将数据库中的XX2表格移除（变成自由表），将XX3表格从数据库的移除并从磁盘上物理删除，完成一步显示数据库中的表格。（10分）完成此步后，使用list data to file sj.txt addi，再使用dir *.dbf to file test.txt addi。

8.关闭数据库文件，打开数据库文件，修改数据库文件的指令。（10分）

2.评分依据：

CLOSE ALL
fen=0
CREATE dbf pjjl (jl c(100))
IF .not.FILE("qmjn.dbc")
   =MESSAGEBOX("建立的数据库qmjn.dbc不存在",0)
   INSERT INTO pjjl (jl) VALUES ("数据库qmjn.dbc建立不正确,没有得分")
   x_f=.f.
ELSE
   x_f=.t.
   OPEN DATABASE qmjn 
   fen=fen+10
   LIST DATABASE TO FILE sj.txt ADDITIVE NOCONSOLE
   INSERT INTO pjjl (jl) VALUES ("数据库qmjn.dbc建立正确,加10分")
ENDIF

IF .not.file("xx1.dbf")
   INSERT INTO pjjl (jl) VALUES ("xx1.dbf文件不存在,不得分")
ELSE
   USE xx1
   LIST STRUCTURE TO FILE sj.txt ADDITIVE NOCONSOLE
   IF FCOUNT()<>4
      INSERT INTO pjjl (jl) VALUES ("数据表XX1.DBF的字段数目不对")
   ELSE
      INSERT INTO pjjl (jl) VALUES ("数据表XX1.DBF的字段个数正确，加5分")
      fen=fen+5
   ENDIF
   IF UPPER(FIELD(1))<>"XM" .or. UPPER(FIELD(2))<>"XH" .or. UPPER(FIELD(3))<>"XB" ;
      .or. UPPER(FIELD(4))<>"NL"
      INSERT INTO pjjl (jl) VALUES ("数据表XX1.DBF的字段建立不正确，此项不加分")
   ELSE
      INSERT INTO pjjl (jl) VALUES ("数据表XX1.DBF的字段建立正确，加5分")
      fen=fen+5
   ENDIF
ENDIF

IF .not. FILE("xx2.dbf")
   INSERT INTO pjjl (jl) VALUES ("xx22.dbf文件不存在,不得分")
ELSE
   USE xx2 EXCLUSIVE
   LIST STRUCTURE TO FILE sj.txt addi NOCONSOLE 
   IF FCOUNT()<>3
      INSERT INTO pjjl (jl) VALUES ("xx2.dbf文件的字段数目不是3个,不得分")
   ELSE
      INSERT INTO pjjl (jl) VALUES ("xx2.dbf文件的字段数目正确,加5分")
      fen=fen+5
      IF (UPPER(FIELD(1))<>"XH" .or. UPPER(FIELD(2))<>"ZZ" .or. UPPER(FIELD(3))<>"YB")
       INSERT INTO pjjl (jl) VALUES ("xx2.dbf文件的字段名称不对,不得分")
      ELSE
       INSERT INTO pjjl (jl) VALUES ("xx2.dbf文件的字段名称正确,加5分")
       fen=fen+5
      endif
   ENDIF
ENDIF

USE
IF file("xx3.dbf")
   INSERT INTO pjjl (jl) VALUES ("建立的数据表格XX3.dbf存在,其实它不应该存在,此项不得分")
ELSE
   IF file("xx33.dbf")
   INSERT INTO pjjl (jl) VALUES ("表格XX3.dbf不存在,已经删除正确,加5分")
   fen=fen+5
   ELSE
   INSERT INTO pjjl (jl) VALUES ("表格XX3.dbf不存在,但你没有建立过，所以不加分")
   ENDIF  
ENDIF

   USE
IF FILE("xx11.dbf")
   USE xx11
   LIST to file sj.txt addi NOCONSOLE
   IF RECCOUNT()<>3
      INSERT INTO pjjl (jl) VALUES ("你的XX1表格中的记录条数不对，应该是3条，此项不加分")
   ELSE
      INSERT INTO pjjl (jl) VALUES ("你的XX1表格中的记录条正确，加3分")
      fen=fen+3
   ENDIF
   GO 2
   IF xm<>"李"
      INSERT INTO pjjl (jl) VALUES ("你的第二条记录的姓名应该是 李四,此项不加分")
   ELSE
      INSERT INTO pjjl (jl) VALUES ("xx1.dbf中3条记录正确，加2分")
      INSERT INTO pjjl (jl) VALUES ("xx11.dbf正确，加5分")
      fen=fen+7
   ENDIF
ELSE
   INSERT INTO pjjl (jl) VALUES ("xx11.dbf不存在，此项不加分")     
ENDIF

IF FILE("xx22.dbf")
   USE xx22
   LIST to file sj.txt addi NOCONSOLE
   IF RECCOUNT()<>3
      INSERT INTO pjjl (jl) VALUES ("你的XX2表格中的记录条数不对，应该是3条，此项不加分")
   ELSE
      INSERT INTO pjjl (jl) VALUES ("xx2.dbf中3条记录正确，加3分")
      fen=fen+3
   ENDIF
   GO 2
   IF ALLTRIM(xh)<>"002"
      INSERT INTO pjjl (jl) VALUES ("你的第二条记录的学号应该是 002，此项不得分")
   ELSE
      INSERT INTO pjjl (jl) VALUES ("xx2.dbf中3条记录正确，加2分")     
      INSERT INTO pjjl (jl) VALUES ("xx22.dbf正确，加5分")
      fen=fen+7
   ENDIF
ELSE
   INSERT INTO pjjl (jl) VALUES ("xx22.dbf不存在，此项不加分")     
ENDIF

IF FILE("xx33.dbf")  
   USE xx33
   LIST to file sj.txt addi NOCONSOLE
   IF RECCOUNT()<>3
      INSERT INTO pjjl (jl) VALUES ("你的XX3表格中的记录条数不对，应该是3条，此项不加分")
   ELSE
      INSERT INTO pjjl (jl) VALUES ("xx3.dbf中3条记录正确，加3分")
      fen=fen+3
   ENDIF
   GO 2
   IF cj1<>87.5
      INSERT INTO pjjl (jl) VALUES ("你的第二条记录的成绩应该是 87.5，此项不加分")
   ELSE
      INSERT INTO pjjl (jl) VALUES ("原xx3.dbf记录3条正确，加2分")
      INSERT INTO pjjl (jl) VALUES ("xx33.dbf正确，加5分")
      INSERT INTO pjjl (jl) VALUES ("原xx3.dbf建立正确，加10分")
      fen=fen+17
   ENDIF
ELSE
   INSERT INTO pjjl (jl) VALUES ("xx33.dbf不存在，此项不加分")     
ENDIF

USE
  
IF x_f  
   IF .not.INDBC("xx1","table")
      INSERT INTO pjjl (jl) VALUES ("XX1不在数据库中，此项不加分")
   ELSE
      INSERT INTO pjjl (jl) VALUES ("XX1是数据库表，加5分")
      fen=fen+5
   ENDIF

   IF INDBC("xx2","table")
      INSERT INTO pjjl (jl) VALUES ("XX2在数据库中，此项不加分")
   ELSE
      IF FILE("xx2.dbf")
         INSERT INTO pjjl (jl) VALUES ("XX2已经成功成为自由表，加5分")
         fen=fen+5
      ELSE
         INSERT INTO pjjl (jl) VALUES ("XX2不是自由表即没有成功移除，可能是删除了，不得分")
      endif
   ENDIF
   IF INDBC("xx3","table")
      INSERT INTO pjjl (jl) VALUES ("XX3不应该在数据库中,此项不得分")
   ELSE
      IF .not.FILE("xx3.dbf")
         IF x_f
            INSERT INTO pjjl (jl) VALUES ("XX3已经成功删除,加5分")
            fen=fen+5
         ELSE
            INSERT INTO pjjl (jl) VALUES ("XX3虽然不存在，但你没有建立过,不加分")
         ENDIF
        
      ELSE
         INSERT INTO pjjl (jl) VALUES ("XX3没有成功删除,不加分")     
      endif
   ENDIF
ELSE
         INSERT INTO pjjl (jl) VALUES ("数据库没有建立成功，所以不加分")     
ENDIF
  
  
  
  
IF FILE("xx1.dbf")
   USE xx1
   IF LEN(xm)<>6
      INSERT INTO pjjl (jl) VALUES ("XX1的姓名字段长度不为6，不加分")
   ELSE
      INSERT INTO pjjl (jl) VALUES ("XX1的姓名字段长度已经成功更改，加5分")
      fen=fen+5
   ENDIF
ENDIF

IF FILE("xx2.dbf")  
   USE xx2
   IF FCOUNT()<>3
      INSERT INTO pjjl (jl) VALUES ("xx2中的字段数量不对，应该是3个，此项不得分")
   ELSE
      INSERT INTO pjjl (jl) VALUES ("xx2中的字段数量正确，加5分")
      fen=fen+5
   ENDIF
ENDIF

IF FILE("xx33.dbf")  
   USE xx33
   IF FCOUNT()<>5
      INSERT INTO pjjl (jl) VALUES ("xx3中的字段数量应该为5，此项不得分")
   ELSE
      INSERT INTO pjjl (jl) VALUES ("xx3中的字段已经成功添加，为5分")
      fen=fen+5
   ENDIF
ENDIF

   USE
   IF FILE("V125.dbf")
      USE v125
      IF RECCOUNT()<>2
         INSERT INTO pjjl (jl) VALUES ("v125中的记录条数不对，应该有2个，不得分")
      ELSE
         INSERT INTO pjjl (jl) VALUES ("v125中成功建立，加5分")
         fen=fen+5
      ENDIF
   ENDIF      
  
  
  
   *thisform.label1.Caption="最后得分:"+ALLTRIM(STR(fen+10))
      
   INSERT INTO pjjl (jl) VALUES ("打开数据库 open data ;关闭数据库 clos data ; 修改数据库 modi data 记住后 赠你10分")
   INSERT INTO pjjl (jl) VALUES ("最后得分:"+ALLTRIM(STR(fen+10)))

   if MESSAGEBOX("最后得分:"+ALLTRIM(STR(fen+10))+chr(13)+"查看详情吗?",1,"提示")=1
      sele * from pjjl
   endif
   clos all
   retu
  
  

3.内容下载：

ftp://192.168.8.40---教学文件---V58---“实训内容、评分程序”

4.实训结果：

5.实训总结：

2012.9.19 星期三

教学内容：记录的相关操作

教学目的：掌握记录的相关操作

教学重点：记录指针的概念与实战

教学时间：3课时

教学方法：理时一体

教学地点：微机58班微机室

一、导入

上节课，我们学习的变量的使用，只是从宏观上讲了变量的建立、显示、释放、保存、恢复，但应用方面讲得比较简单，但变量的应用非常的广泛，在各个环节上，都要运用到变量。

变量的其他的操作，我们没有讲，比如，变量的作用域、变量的传递、变量的使用规则等等。

这节课，我们讲的内容是，记录的操作，也要运用到变量，到时，我们再分析总结变量的各种操作。

二、记录的操作

打开表（use）

记录定位（go/skip）

记录的显示（disp）

记录的增加（insert）

记录的修改（edit）

记录的删除（delete）

记录的统计（count）

记录的分析

记录的输出（select ）

表的关闭（use/close）

三、相关函数

1.recc()　显示当前打开表的记录总条数

2.recn()　显示当前表的记录指针所在记录的记录号

3.recs()　显示当前表的记录宽度

4.eof()　显示当前指针是不是已经指向文件尾部

5.bof()　显示当前指针是不是已经指向文件开始

6.found()　显示查找记录的情况（找到为真，没有找到为假）

四、其他的函数复习

1.dbf（），dbc（），file（），recsize（），fcount（）

2.tye（），val（）

五、练习与作业

　　　reccount（），ctod（）的应用

2012.9.17 星期一

教学内容：变量

教学目的：掌握变量的概念及相关的技术操作

教学重点：

变量的建立、显示、释放、保存、恢复

教学难点：变量的保存与恢复

教学时间：2课时

教学方法：理时一体

一、导入

上节课，我们学习了insert into指令。如给表XX1插入一个记录，insert into xx1 (xm,xh,xb,nl)  value ('王六','080','男',19)

问题所在就是，每次输入不同的记录，要更改命令的内容，有的时候极不方便，这节课，我们讲一下‘变量’，因为变量的引用，会使用这个问题简单化。

二、变量

1.变量：其值可以变量的量。

意义是用一个名子去代表一个值。变量的定义：变量是内存中的一个位置,它的值在程序操作过程中可变。变量可以是任意数据类型,并且您能在任何时候改变这些值。

2.变量的相关操作：

变量的建立：=

变量的显示：?

变量的释放：release

变量的保存：save

变量的恢复：restore

3.使用：

a=3        建立变量，“赋值”        

b=4        建立变量，“赋值”

? a,b      显示变量，“输出”

?c           显示不存在的变量，报错

c=5        建立变量，“赋值”

?c           显示变量，结果正正确

d=a        建立变量，赋值有方向性，自右至左，所以是把a的值赋值给左边的d

?a,b,c,d     一次可以显示多个变量的值

release c    释放变量c，内存中也就没有了变量C。

?c          显示变量c的值不存在了，因为使用命令release c 释放掉了

disp memo  显示当前内存中的所有变量，含有下划线开头的‘系统变量’

save to x1 将当前内存变量保存在内存变量文件x1.mem中

clear memory  清除内存中的所有变量，不能清除系统变量

restore from x1  从原来建立的内存变量文件中提取出所有变量，恢复到内存中。

4.注意

一次可以建立几个变量？（如何建立多个）

一次可以释放几个变量？（如何释放全部）

一次可以显示几个变量？（如何显示多个）

一次可以清除几个变量？（清除一批如何？）

一次可以恢复几个变量？（覆盖当前变量吗）

三、练习

x_m="王七"

x_h="088"

x_b="男"

n_l=22

insert into xx1 (xm,xh,xb,nl) value (x_m,x_h,x_b,n_l)

x_h="099"

insert into xx1 (xm,xh,xb,nl) value (x_m,x_h,x_b,n_l)

结果：发现插入了两条记录，只是学号一个是“088”，一个是“099”，其他一样，说明了什么？

四、相关函数

1.类型测试函数

? type("A") 测试变量A的类型，如果返回N，则证明变量A是数值型的。

如：

A=5

? tyep("A")

N

2.类型转换函数

?val（A），将字符型的变量A的值，转换成数值型的，但变量A的类型不改变

如：

A="1234"

?　A+1          会出错，为什么？

?   val(A)+1   就会正确，为什么？

五、作业（自己总结出来，写在作业本上）

1.变量的属性：（变量名、变量值、变量类型）

2.变量的相关操作（建立、显示、释放、保存、恢复）的相关指令

3.变量的应用与类型测试及类型转换

2012.9.10 星期一

教学内容：数据库、数据表的建立、打开、修改等操作

教学目的：掌握数据库、数据表之间的层次关系

教学时间：两课时

教学地点：微机实训室

教学方法：理时一体化

教学重点：数据表的分类、相关指令

教学难点：resc()、dbf()、dbc()、file()、fcount()几个函数

教学过程：

一、作业检查、复习巩固、导入

1.上节课讲的命令：（create database 、modify database、clos database、create table、modify structure、use 、select ）

2.操作过程：

建立一个abc数据库（想：存放在什么位置了）

建立三个表（xx1.dbf、xx2.dbf、xx3.dbf）

建立一个自由表（xx4.dbf）

3.相关函数及意义

状态栏的信息、库表打开后的变化。（库！表）

测试相关函数的工作状态，理解函数的应用

4.导入：

二、表的分类（Table）

1.库表

2.自由表

3.区别

三、表的建立

1.库表的建立：

2.自由表的建立：（Free的使用）

四、记录的操作

1.增加记录（insert into）

2.修改记录（alter table）

3.删除记录（delete from ）

4.查询记录（select * from）

五、难点：（函数的测试）

1.recsize()

2.dbf()

3.dbc()

4.file()

5.fcount()

六、作业

熟练掌握数据库、数据表的建立、修改、显示的命令。

掌握库表与自由表的建立方式，并理解它们之间的区别。

将文档中的操作过程，（建库、建表、录入记录的操作过程进行练习，达到不看要求即能操作的熟练程度）