多层数据库开发八:访问表格_Delphi程序_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

多层数据库开发八:访问表格

作者：闵涛文章来源：闵涛的学习笔记点击数：1835 更新时间：2009/4/23 18:30:20

第八章访问表格
　　这一章介绍怎样在数据库应用程序中使用TTable构件。TTable的上级是TDBDataSet，而TDBDataSet是从TBDEDataSet继承下来的，TBDEDataSet又是从TDataSet继承下来的。因此，如果对第六章的内容完全掌握了的话，您应该对TTable构件不感到陌生。
8.1 使用TTable构件的一般步骤
　　TTable构件可以访问数据库表格中的每一行和每一列。TTable构件既可以访问本地的数据库如Paradox、dBASE、Access、FoxPro，也可以访问ODBC数据库，还可以访问远程数据库如InterBase、Sybase和SQL Server。
　　既可以显示和编辑表格的所有行和所有列，也可以选择一定范围内的行，或者用过滤技术检索出其中一部分行，可以搜索记录，复制、换名或删除一个表格。
　　一个TTable构件往往只访问一个表格，不过，如果需要的话，一个TTable构件也可以访问几个表格。
8.1.1 设置TTable构件
　　下面是使用和设置TTable构件的一般步骤，有些应用程序可能还需要其他步骤。
　　第一步是把一个TTable构件放到窗体或数据模块上，设置它的Name属性指定构件的名称，不能与同一个应用程序中的其他构件同名。
　　第二步是设置DatabaseName属性指定要访问的数据库。
　　第三步是设置TableName属性指定要访问的表。
　　第四步是把一个TDataSource构件放到窗体或数据模块上，设置它的DataSet属性指定TTable构件
　　第五步是把一个数据控件如TDBGrid放到窗体上，设置它的DataSource属性指定TDataSource构件。
　　最后，把TTable构件的Active属性设为True。
8.1.2 指定要访问的数据库
　　DatabaseName属性用于指定要访问的数据库。对于Paradox和dBASE来说，DatabaseName属性可以设为BDE别名或表的路径。对于SQL数据库来说，DatabaseName属性必须设为BDE别名。
　　用BDE别名指定数据库的好处是，只要修改别名的定义，就可以访问不同的数据库，而应用程序不必作任何修改。要修改别名的定义，就要用到SQLExplorer。
　　在修改DatabaseName属性之前，先要把Active属性设为False。
　　如果用TDatabase构件来管理与数据库的连接，可以把DatabaseName属性设为应用程序专用的别名。
8.1.3 指定要访问的表
　　TableName属性用于指定要访问的表。在设置TableName属性之前，首先要把Active属性设为False，并且设置DatabaseName属性指定要访问的数据库。
　　既可以在设计期指定要访问的表，也可以在运行期指定要访问的表，程序示例如下：
With OrderOrCustTable Do
Begin
Active := False;
If TableName = ''''CUSTOMER.DB'''' then　TableName := ''''ORDERS.DB''''
ElseTableName := ''''CUSTOMER.DB'''';
Active := True;
End;
8.1.4 指定表格的类型
　　如果要访问的数据库是Paradox、dBASE、FoxPro或用逗号隔开的ASCII文本文件，必须设置TableType 属性指定表格的类型。
　　默认情况下，TableType属性设为ttDefault，BDE将根据文件扩展名来区分表格的类型。扩展名为.DB就认为是Paradox，扩展名为.DBF就认为是dBASE，扩展名为.TXT就认为是ASCII文本，没有扩展名就认为是Paradox。
　　如果需要确切地指定表格的类型，就必须设置TableType属性，设为ttDefault表示让BDE来判断表格的类型，设为ttParadox表示是Paradox，设为ttDBase表示是dBASE，设为ttFoxPro表示是FoxPro，设为ttASCII表示是ASCII文本。
8.1.5 打开和关闭一个表
　　要显示和编辑表格中的数据，首先要打开这个表格。要打开一个表格有两种方式，一是把Active属性设为True，二是调用Open。表格打开后，数据集就进入dsBrowse状态。
　　如果不再需要显示和编辑表格中的数据，或者要修改TTable构件的某些属性如DatabaseName、TableName和TableType，此时就要关闭表格。
　　要关闭表格也有两种方式，一是把Active属性设为False，二是调用Close函数。表格关闭后，将使数据集进入dsInactive状态。
8.1.6 控制对表格的读写
　　当一个表格打开后，应用程序需要取得对它读和写的访问权，这就要用到TTable构件的三个属性：CanModify、ReadOnly和Exclusive。
　　CanModify是一个只读的属性，当一个表格打开后，可以通过这个属性来判断表格的数据是否修改。如果CanModify属性返回False，应用程序就不能修改表格的数据。
　　如果CanModify属性返回True，应用程序可以修改表格的数据。
　　如果ReadOnly属性设为False，用户就可以编辑表格的数据。如果要限制用户只能查看数据，不能修改数据，就得把ReadOnly属性设为True。
　　Exclusive属性用于设置应用程序是否能独占表格。如果要独占对表格的访问权，就在打开表格之前把Exclusive属性设为True，其他应用程序就既不能读也不能写这个表格。
　　Exclusive属性一般只适用于Paradox、dBASE或FoxPro等本地数据库，对于SQL数据库来说，有的服务器不支持表格级的锁定，有的服务器虽然支持锁定，但其他应用程序仍然可以读表格的数据。
8.2 在表格中搜索记录
　　要在表格中搜索记录有几种方式，我们推荐调用Locate函数和Lookup函数，这两个函数可以在任何表格中基于任何类型的字段来搜索记录，不管表格是否建立了索引。　
　　Locate函数用于在表格中搜索一条符合特定条件的记录，如果找到的话，就使该记录成为当前记录。
　　Lookup函数与Locate 函数的区别是，如果找到匹配的记录后，当前记录不变。事实上，Locate函数和Lookup函数并不仅适用于TTable构件，它还适用于其他数据集构件。
8.2.1 基于索引中的字段搜索
　　记录除了Lookup函数与Locate 函数外，TTable构件还保留了Goto系列和Find系列的方法，这些方法可以基于索引中的字段搜索匹配的记录，并使找到的记录成为当前记录。在Delphi 4中，索引中的字段称为关键字段。
　　与Locate不同的是，GotoKey、GotoNearest要求表格必须已建立了索引，并且只能基于关键字段搜索记录，而Locate则没有这个要求。下面列出了Goto系列和Find系列中的6种方法：
.EditKey使数据集进入dsSetKey状态，程序就可以指定关键字段的值。
.FindKey综合了SetKey和GotoKey两个方法。
.FindNearest综合了SetKey和GotoNearest两个方法。
.GotoKey基于关键字段搜索特定的记录，并使找到的记录成为当前记录。
.GotoNearest类似于GotoKey，但只要近似匹配即可(适合于字符串类型的字段)。
.SetKey使数据集进入dsSetKey状态，程序就可以指定关键字段的值。与EditKey不同的是，如果SetKey没有调用成功，原先的键值被清掉。
　　其中，GotoKey和FindKey是返回布尔值的函数，如果调用成功，就返回True，并使找到的记录成为当前记录。如果没有找到匹配的记录，这两个函数就返回False。
　　GotoNearestand和FindNearest分别类似于GotoKey和FindKey，不同的是，如果它们没有找到精确匹配的记录，就查找近似匹配的记录。
8.2.2 Goto系列
　　使用Goto系列的方法来搜索和定位记录，一般是这么几个步骤：
　　第一步是设置IndexName属性指定要使用的索引(对SQL数据库来说，需要设置IndexFieldNames属性)。当然，如果使用表格本身的主索引，可以不设置这个属性。
　　第二步是打开表格。
　　第三步是调用SetKey使数据集进入dsSetKey状态。
　　第四步是通过Fields属性或FieldByName函数指定关键字段的值。
　　第五步是调用GotoKey或GotoNearest查找匹配的记录。
　　下面的例子实际演示了上述5个步骤：
Procedure TSearchDemo.SearchExactClick(Sender: TObject);
Begin
Table1.SetKey;
Table1.Fields[0].AsString := Edit1.Text;
If not Table1.GotoKey then ShowMessage(''''Record not found'''');
End;
　　上述例子演示的是GotoKey，其实GotoNearest也是差不多的，程序示例如下：
Table1.SetKey;
Table1.Fields[0].AsString := ''''Sm'''';
Table1.GotoNearest;
8.2.3 Find系列使用
　　Find系列的方法来搜索和定位记录，一般是这么几个步骤：
　　第一步是设置IndexName属性指定要使用的索引(对SQL数据库来说，需要设置IndexFieldNames属性)。当然，如果您使用表格本身的主索引，可以不设置这个属性。
　　第二步是打开表格。
　　第三步是调用FindKey或FindNearest函数查找匹配的记录。这两个方法都要传递一个KeyValues参数，用于指定关键字段的值。其中，FindNearest只适合于字符串类型的字段。
8.2.4 KeyExclusive属性和KeyFieldCount属性
　　调用GotoNearest、FindNearest等函数时，如果KeyExclusive属性设为False，匹配的记录将成为当前记录(如果找到的话); 如果KeyExclusive属性设为True，匹配的记录的下一条记录成为当前记录。
　　如果一个索引中有多个字段，而您只想基于其中部分字段进行搜索，就要设置KeyFieldCount属性指定关键字段的个数。例如，假设索引中有三个关键字段，而您只想基于其中第一个字段进行搜索，就把KeyFieldCount属性设为1。
　　如果把KeyFieldCount属性设为2，表示基于前面2个字段进行搜索。如果把KeyFieldCount属性设为3，表示基于前面3个字段进行搜索。但是，如果要基于第一个和第三个字段进行搜索，KeyFieldCount属性无能为力。
8.2.5 基于副索引进行搜索
　　如果不想基于主索引而想基于副索引进行搜索，就要通过IndexName属性指定索引名称。在设置IndexName属性之前，首先要关闭表格。程序示例如下：
Table1.Close;
Table1.IndexName := ''''CityIndex'''';
Table1.Open;
Table1.SetKey;
Table1[''''City''''] := Edit1.Text;
Table1.GotoNearest;
　　对于SQL表来说，可以直接用IndexFieldNames属性指定索引中的字段。对于Paradox和dBASE表来说，必须事先建立索引，而且只能基于索引中的字段进行搜索，否则，会触发异常。
　　每次调用SetKey或FindKey函数，总是清除前一次对键值的设置。如果想基于前面设置的键值继续搜索，或者要在原来的基础上加入新的关键字段，就不能调用SetKey或FindKey，而要调用EditKey函数。例如，假设原先设置City和Country两个键值，现在要增加一个Company字段，程序示例如下：
Table1.EditKey;
Table1['''' Company] := Edit2.Text;
Table1.GotoNearest;
8.3 对记录排序
　　索引的作用就是对记录排序。默认情况下，Paradox表按照主索引以升序排列，如果要以其他方式排序，就要用到副索引(Paradox或dBASE)或者直接列出索引中的字段(SQL)。
8.3.1 检索已定义的索引名
　　可以调用GetIndexNames函数来检索一个表格已定义的索引名，它能够返回一个列表，该列表由所有已定义的索引的名称组成。程序示例如下：
varIndexList: TList;
...
CustomersTable.GetIndexNames(IndexList);
　　注意：对于Paradox来说，主索引是没有名称的，因此，GetIndexNames函数返回的列表中不包含主索引。
8.3.2 指定使用哪个副索引
　　对于Paradox表来说，如果要按副索引排序，首先要设置IndexName属性指定一个副索引。例如：
　　CustomersTable.IndexName := ''''CustDescending'''';
　　如果先按副索引排序，以后又想按主索引排序，只要把IndexName属性设为空。
　　对于dBASE表来说，如果要按副索引排序，首先要设置IndexFiles属性指定一个或几个索引文件。
　　在设计期，可以在对象观察器中单击IndexFiles属性边上的省略号按钮，打开如图8.1所示的对话框：
　　图8.1在设计期设置IndexFiles属性
　　在运行期，可以通过TStrings对象动态地增加或删减索引文件，也可以用一个字符串列出要使用的索引文件名，文件名与文件名之间用分号隔开。
　　下面的代码指定了一个索引文件ANIMALS.MDX，并且指定其中的NAME作为副索引来排序：
　　AnimalsTable.IndexFiles := ''''ANIMALS.MDX'''';
　　AnimalsTable.IndexName := ''''NAME'''';
　　对于SQL表来说，记录的排列顺序取决于SQL语句的ORDER BY部分。可以设置IndexName属性指定一个已有的索引，也可以设置IndexFieldNames属性直接指定索引中的字段，让SQL表按这些字段排序。
　　IndexName属性和IndexFieldNames属性是互斥的，设置其中一个，另一个就被清空。
　　IndexFieldNames属性是一个字符串列表，可以列出所有要用来排序的字段的名称，彼此之间用分号隔开。只能以升序排列，至于是否大小写敏感，取决于服务器。
　　下面的代码试图把PhoneTable表先按LastName字段再按FirstName字段排序：
　　PhoneTable.IndexFieldNames := ''''LastName;FirstName'''';
　　注意：如果对Paradox和dBASE表使用IndexFieldNames属性，Delphi 4将试图查找有没有类似的索引，如果没有，就触发异常。
8.3.3 检查索引中的字段
　　如果想知道一个索引中有几个字段、有哪些字段，可以使用IndexFieldCount属性和IndexFields属性。
　　IndexFieldCount属性能够返回索引中的字段的个数。IndexFields属性是一个字符串列表，由索引中的字段的名称组成。程序示例如下：
var　I: Integer;
ListOfIndexFields: array[0 to 20} of string;
Begin
With CustomersTable Do
Begin
For I := 0 to IndexFieldCount - 1 Do
ListOfIndexFields[I] := IndexFields[I];
End;
End;
8.4 选择部分记录
　　数据库往往是庞大的，而一个应用程序通常只关心其中一部分数据。对于TTable构件来说，要限制应用程序能访问的记录有两种方式。一是使用过滤技术，它不但适用于TTable，也适用于TQuery和TStoredProc。二是设置范围，它只适用于TTable构件。
8.4.1 过滤和范围的区别
　　过滤和范围都是为了选择一部分记录，但它们的工作方式是不同的。
　　所谓范围，是指一段连续的记录，这些记录的值在一定的范围内。例如，假设有一个雇员表格，本来按LastName字段排序，如果关心LastName字段的值在“Jones”和“Smith”之间的记录，就需要设置范围。只能对排序的Paradox和dBASE表格设置范围，对SQL表格，也可以对IndexFieldNames属性中出现的字段设置范围。
　　而过滤则不需要依赖于索引，它类似于SQL Select语句，只选择满足特定条件的记录，这些记录不一定是连续的。例如，假设有一个雇员表格，可以用过滤技术找出其中出生在California并且在公司任职超过5年以上的雇员。
　　从功能上讲，过滤的功能比设置范围的功能强。不过，对于一个很大的数据库并且记录已经按某个字段排序，用范围来选择部分记录比较快。
8.4.2 设置范围的起点
　　要设置范围的起点，就要调用SetRangeStart。SetRangeStart将使数据集进入dsSetKey状态。一旦调用了SetRangeStart后，以后对字段的赋值就认为是范围的起点。对于Paradox 和dBASE来说，调用SetRangeStart后，您只能对关键字段赋值。
　　例如，假设有一个CUSTOMER表，基于CustNo字段排序。可以这样设置范围的起点和终点：
With Customers Do
Begin
SetRangeStart;FieldByName(''''CustNo'''') := StartVal.Text;
SetRangeEnd;
If EndVal.Text <> '''''''' then
FieldByName(''''CustNo'''') := EndVal.Text;
ApplyRange;
End;
　　读者可能注意到，在调用了SetRangeEnd后，首先检查用户是否在编辑框EndVal中输入了范围的终点，这是因为，如果范围的终点设为NULL，将不会有任何记录被选择。
　　如果索引中有多个字段，可以在调用了SetRangeStart后对所有字段赋值，也可以只对部分字段赋值。如果某个字段没有被赋值，就认为该字段的值是NULL。如果在调用了SetRangeStart后对不是索引中的字段赋值，则是无效的。
　　如果您不想设置范围的起点，只想设置终点，可以不调用SetRangeStart。
8.4.3 设置范围的终点
　　要设置范围的终点，就要调用SetRangEnd函数。SetRangeEnd将使数据集进入dsSetKey状态。一旦调用了SetRangeEnd函数后，以后对字段的赋值就认为是范围的终点。对于Paradox 和dBASE来说，调用SetRangeEnd函数后，只能对关键字段赋值。
　注意：范围的起点可以省略，但终点不能省略，即使终点无关紧要。如果没有设置终点，将认为终点是NULL，此时，将不会有任何记录被选择。下面这个例子基于LastName字段设置范围：
With Table1 Do
Begin
SetRangeStart;
FieldByName(''''LastName'''') := Edit1.Text;
SetRangeEnd;FieldByName(''''LastName'''') := Edit2.Text;
ApplyRange;
End;
　　如果索引中有多个字段，可以在调用SetRangeEnd函数后对所有字段赋值，也可以只对部分字段赋值。如果某个字段没有被赋值，就认为该字段的值是NULL。如果在调用了SetRangeEnd后对不是索引中的字段赋值，将触发异常。
8.4.4 同时设置起点和终点
　　其实，不必分别调用SetRangeStart和SetRangeEnd来设置范围的起点和终点，只要调用SetRange就可以同时设置起点和终点。SetRange将使数据集进入dsSetKey状态。
　　SetRange需要传递两个数组类型的参数，一个用于设置起点，另一个用于设置终点，程序示例如下：
　　SetRange([Edit1.Text, Edit2.Text], [Edit3.Text, Edit4.Text]);
　　如果索引中有多个字段，您可以在调用SetRange时对所有字段赋值，也可以只对部分字段赋值。如果某个字段没有被赋值，就认为该字段的值是NULL。在调用SetRange 时对不是索引中的字段赋值是无效的。
　　注意：调用SetRange时，范围的起点可以省略，但终点不能省略，即使终点是无关紧要的。如果您没有设置终点，将认为终点是NULL，此时，将不会有任何记录被选择。
8.4.5 近似匹配
　　如果组成索引的字段是字符串类型，可以在调用SetRangeStart、SetRangeEnd

[1] [2] [3] 下一页

[VB.NET程序]远程数据库的访问

教程录入：mintao 责任编辑：mintao

上一篇教程：多层数据库开发七:字段对象

下一篇教程：多层数据库开发九:查询数据库

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]