2011计算机等考Delphi：数据访问部件应用及编程

　　Delete方法：Delete方法用于删除表中的记录，调用Delete方法时，将会删除表中当前的记录，并且自动地将记录指针移到被删记录的下一条记录，同时将数据集置成Browse状态。

　　Cancel方法:Cancel方法用于取消当前的操作，当程序还没有调用Post方法，将对记录的修改写回数据库表时，调用Cancel方法，可以将记录恢复到没有修改之前的状态。并且在调用Cancel方法时，它总是将数据集置成Browse状态。

　　AppendRecord方法和InsertRecord方法：这两个方法分别与Append方法和Insert方法相似。它们都是用于在表中插入一条新记录，但AppendRecord方法和InsertRecord方法比Append和Insert方法更简单更方便一些，它们直接在表中插入一条新记录，新记录的各个字段值作为AppendRecord或InsertRecord方法的参数传递给新记录并且不需显式地调用post方法，将插入的新记录写回数据库表。在给插入的新记录赋字段值时，将由多个字段值组成的数组作为AppendRecord或InsertRecord的参数，在字段值数组中可以为每一个字段提供一个值，或从左边一列开始依次为任意多个字段赋值。也就是说，用户可以从数据库表的最左一列起，把许多列的值同时传递给InsertRecord，直到所有的字段被赋值，用户也可以省略字段序列后面的的一些字段值，InsertRecord会用空值来填充这些字段：用户也可以对那些明确希望用空填充的字段传递保留字NIl。

　　例如：如果表Country有Name，Captial，Continent，Area和Population字段，并且数据集部件Table1与它相连，下面的代码便可以在Country表中当前记录的后面插入一条新记录。

　　Table1.InsertRecord (["中国","北京","五洲"]);

　　在上述代码中没有为Area和population字段赋值，InsertRecord会用空值来填这两个字段。

　　SetRecords方法：调用该方法可以修改表中当前记录的多个字段的值，调用该方法之前必须将数据集部件置成编辑状态，调用该方法之后，还要调用post方法，才能真正将当前记录的修改写回数据库表。调用SetRecord方法时，被修改的字段值必须要与表中实际存在的字段名对应，并且数据类型要相匹配。例如，下面的代码是修改上面刚刚插入的那条记录。

　　Table1.Edit;

　　Tabel1.SetRecord(， ， ，9600000,1200000000);

　　Tabel1.post;

　　这一段代码是修改上面刚刚插入的那条记录的Area 和Population 字段的值，而对Name,Continent和Captial字段没有修改。

　　在数据集部件中，还有一个重要方法Abort方法，该方法是用于取消其他方法的调用的，如在插入记录、修改记录和删除记录之前，往往需要用户确认是否真的要执行这种操作，此时调用Abort方法便可取消各种方法的调用，下面的代码是在用户删除一条记之前，让用户确认是否真的要执行删除操作。

　　Tabel1.BeforeDelete(DataSet:TDataSet);

　　If MessageDlg('真的要删除记录吗?',

　　mtConfirmation,mbyesNoCanel,0 <> mryes then

　　Abort; {取消删除操作}

　　关于书签(BookMark)操作;

　　书签操作主要用于在表中快速地定位记录指针，在应用程序中常常要保存记录指针所在的位置，在进行其他处理之后，希望能快速地返回到先前指针所在的位置，此时，使用书签将显得特别有用。有关书签操作，Delphi提供了三个方法，它们是：

　　● GetBookMark

　　● GotoBookMark

　　● FreeBokMark

　　这三个方法一般都是在一起使用，GetBookMark方法返回一个TBookMark类型的变量，该变量包含着指向当前记录的指针，GotoMark方法用于快速地将记录指针定位到具有书签的记录处。FreeBookmark方法是与GetBookMark方法相反的操作，它释放书签标志。下面的程序代码阐述了书签操作的一般方法：

　　BookMark : TBookMark;

　　BookMark := Table1.GetBookMark; {对当前记录作书签标志}

　　Table1.DisalbeControls; {切断Table1与数据察觉部件的联系}

　　Table.First

　　While Not EOF Do {对表中全部记录进行其他处理}

　　begin

　　Tabel1.Next;

　　end;

　　Tabel1.GotoBookMark(BookMark)

　　Table1.enableControls; {重新定位记录指针回到原来的位置}

　　Tabel1.FreeBookMark(BookMark); {删除书签BookMark标志}