用Delphi程序维护Paradox 数据表的索引

在数据库编程中,索引文件对于改善数据查询速度有着举足轻重的作用,充分使用索引文件可以极大改善数据库应用程序的性能,这一点恐怕是难以否认的.

在应用过程中,用户的查询条件可能是多种多样的,如果能根据用户查询建立和选择索引,对于保证应用程序的性能,无疑是很有帮助的.

另外,由于停电等意外事故很容易造成数据库中的索引文件未及时更新甚至于损坏,此时如果应用程序再出几个错误信息,无疑将使用户的处境雪上加霜.

因而,动态维护数据库索引文件,将使你的数据库应用程序更有稳定性和可靠性.笔者将以Delphi编程中常用的Paradox数据库为例,介绍数据库索引文件的动态维护.

Paradox数据表索引分为主索引(Primary Index)即关键字(Primary Key)索引和次索引(Secondary Index),其中主索引对应.PX文件,次索引对应.XG*和.YG*文件.

一.创建表索引

(1) 用Table.AddIndex来实现

方法:AddIndex( IndexName,FieldNames,Options )

其中:(详见Delphi帮助)

IndexName:索引名称,仅在指定次索引时有作用.

FieldNames:索引域,可指定多个域,各域之间用分号隔开,如Field1;Field2;Field3

软件开发网 www.mscto.com

Options:索引选项,可为[ixPrimary, ixUnique, ixDescending, ixCaseInsensitive, ixExpression]

其中:

　　ixPrimary : 建 立 的 索 引 为 主 索 引( 不 适 用 于dBase 数 据 表).

            　　ixUnique : 不 允 许 重 复 值 的 索 引.

            　　ixDescending: 按 降 序 索 引.

            　　ixCaseInsensitive: 索 引 排 序 时 按 忽 略 大 小 写( 不 适 用 于dBase 数 据 表).

            　　ixExpression: 建 立 表 达 式 索 引( 适 用 于Delphi3.0, 仅 适 用 于dBase 数 据 表).

            　　ixNonMaintained: 是 否 不 需 要BDE 自 动 维 护( 适 用 于Delphi1.0). 
 

软件开发网 www.mscto.com

下面是一个例子:

软件开发网 www.mscto.com

假设有一个存放通讯录数据表MyComm.DB(类型为Paradox)存放于本地目录d:mynote下,现建立一个主索引(索引域为编号ID)和一个次索引(索引域为编号ID和姓名Name,索引名称为NameIndex).

with table1 do

            begin

            close;

            DatabaseName := d:MyNote;

            TableName := MyComm.DB;

            Open;

            {建立主索引 }

            AddIndex(,ID,[ixPrimary]);

            {建立次索引 }

            AddIndex(NameIndex,ID;Name,[]);

            close;

            end;  

(2)用SQL来实现

对Paradox数据表来说,用SQL只能建立次索引.

在SQL语法中,用来建立索引的语句是: