• 什么是数据集(ADOQuery)


    6.7.2 插入新的记录
    要在数据集中插入新的记录,首先要进入dsInsert状态。要进入dsInsert状态,可以调用Insert或Append函数。不过,调用Insert或Append不一定会使数据集进入dsInsert状态,还取决于CanModify属性的值。
    一旦进入了dsInsert状态,用户就可以在数据控件(一般是TDBGrid)中插入一条新的记录,并给这条记录输入数据。
    如果要通过编程来插入新的记录,就要注意Insert和Append的区别。Insert将把一条新的记录插入到当前记录的前面,而Append将把一条新的记录添加到数据集的末尾。
    插入了新的记录后,应当调用Post或在CachedUpdates属性设为True的情况下调用ApplyUpdates把新的记录写到数据集中。
    如果数据集是已建立了索引的Paradox或dBASE表,新记录将自动移到恰当的位置。
    如果数据集没有建立索引,新记录就插入到数据集的当前位置(Insert)或末尾(Append)。
    6.7.3 删除记录
    调用Delete函数将删除当前记录,并且使数据集回到dsBrowse状态。如果窗体上有TDBNavigator构件的话,用户可以单击导航器上的“Delete”按钮删除当前记录。当前记录被删除后,下一条记录就成为当前记录。
    如果删除的本来就是最后一条记录,则前一条记录成为当前记录。
    6.7.4 修改整条记录
    除了TDBGrid和TDBNavigator外,大部分数据控件只能工作于数据集的一个或几个字段,而不是整条记录。
    不过,TDataSet提供了若干个方法可以直接修改整条记录而不是单独的字段,这些方法包括:
    .AppendRecord类似于Append,但可以给字段赋值,不需要调用Post;
    .InsertRecord类似于Insert,但可以给字段赋值,不需要调用Post;
    .SetFields对当前记录的字段赋值,需要显式地调用Post。
    上述三个方法都要传递一个TVarRec类型的数组作为参数,该数组的每一个元素对应着一个字段的值。如果数组的元素个数小于数据集的字段个数,剩下字段的值就是NULL。
    对于没有建立索引的数据集来说,AppendRecord把一条新的记录加到数据集的末尾。对于已建立索引的数据集来说,新记录将自动移到一个恰当的位置。
    SetFields用于对当前记录的字段赋值。在调用SetFields之前,首先要调用Edit,使数据集进入dsEdit状态。调用了SetFields后,需要显式地调用Post函数。
    调用SetFields时,如果您只想对部分字段赋值,让其他字段的值保持不变,可以用NULL或NIL去赋值。
    假设一个数据集中有五个字段,分别是Name、Capital、Continent、Area和Population,可以这样对它们赋值:
    CountryTable.InsertRecord(['Japan', 'Tokyo', 'Asia']);
    上述程序在数据集中插入了一条新的记录,并且对前三个字段赋了值。现在可以再次对当前记录赋值,不过,这次只想对Area字段和Population字段赋值,程序就要这样写:
    With CountryTable Do
    Begin
    If Locate('Name', 'Japan', loCaseInsensitive) then
    Begin
    Edit;
    SetFields(NIL, NIL, NIL, 344567, 164700000);
    Post;
    End;
    End;
    注意:此处要用NIL而不是NULL,否则,前三个字段会被设为空。
    6.8 事 件
    TDataSet的事件主要分为两大类,一类是Before系列,另一类是After系列,列表如下:
    .BeforeOpen,AfterOpen发生在数据集打开前后;
    .BeforeClose,AfterClose发生在数据集关闭前后;
    .BeforeInsert,AfterInsert发生在插入了一条新的记录前后;
    .BeforeEdit,AfterEdit 发生在进入dsEdit状态前后;
    .BeforePost,AfterPost 发生在写数据集的前后;
    .BeforeCancel,AfterCancel发生在取消修改的前后;
    .BeforeDelete,AfterDelete发生在删除记录的前后。
    此外,当数据集中增加了一条新的记录时就会触发OnNewRecord事件,当“计算字段”的值需要重算时将触发OnCalcFields事件。
    Before系列的事件常常用来中止操作。例如,当调用Delete函数试图删除当前记录时,在当前记录将要删除前会触发BeforeDelete事件,可以在处理BeforeDelete事件的句柄中调用Abort或触发一个异常放弃删除当前记录,程序示例如下:
    Pocedure TForm1.TableBeforeDelete (Dataset: TDataset)
    Begin
    If MessageDlg('Delete This Record?', mtConfirmation, mbYesNoCancel, 0) <> mrYes Then Abort;
    End;
    After系列的事件往往用来在状态栏上通知用户,程序示例如下:
    Procedure TForm1.Table1AfterDelete(DataSet: TDataSet);
    Begin
    StatusBar1.SimpleText := Format('有%d 条记录',[DataSet.RecordCount]);
    End;
    OnCalcFields事件主要用于给出“计算字段”的值。AutoCalcFields属性的值决定了什么时候会发生OnCalcFields事件。
    如果AutoCalcFields属性设为True,下列情况下会发生OnCalcFields事件:
    .数据集被打开时;
    .在数据控件中,输入焦点从一条记录移到另一条记录;
    .在数据控件中,输入焦点从一个字段移到另一个字段;
    .当前记录被修改或从数据库中检索了一条记录。
    不过,即使AutoCalcFields属性设为False,当数据集中的任意一个非计算字段的值发生变化时都会触发OnCalcFields事件。
    由于OnCalcFields事件有可能是频繁发生的,因此,处理OnCalcFields 事件的代码要尽可能地简短。在AutoCalcFields属性设为True的情况下,在处理OnCalcFields事件的句柄中不能修改数据集的数据,因为一旦当前记录被修改,又要触发OnCalcFields事件,从而导致无限循环。例如,假设您在处理OnCalcFields事件的句柄中调用了Post,就会触发OnCalcFields事件,导致再次调用Post,再次触发OnCalcFields事件……
    6.9 TBDEDataSet
    TBDEDataSet是从TDataSet继承下来的,它提供了通过BDE(BorlandDatabase Engine)访问数据的能力。这一节主要介绍TBDEDataSet,读者应当对前面介绍的TDataSet已经有了比较深刻的认识。
    与TDataSet一样,TBDEDataSet也是虚拟的和抽象的,除非您想建立自定义的数据集,否则,一般不需要直接用到TBDEDataSet。
    TBDEDataSet重载了TDataSet中涉及记录导航、索引和书签的方法,增加了一些处理BLOB字段、缓存更新的属性、方法和事件。
    6.9.1 CacheBlobs属性
    TBDEDataSet的CacheBlobs属性用于控制BDE是否把BLOB字段的内容放到缓存中。如果这个属性设为True,当应用程序读取BLOB字段的值时,BDE将把BLOB字段的内容放在缓存中,这样,当应用程序下次要读取这个字段的值时,就不必再从数据库服务器那儿去检索,只要直接从内存中取过来就行了,这样可以提高应用程序的性能。
    不过,如果应用程序需要频繁地更新BLOB字段的值,这时候反而应当把CacheBlobs属性设为False,这样能保证检索到的BLOB字段的值总是最新的。
    6.9.2 缓存更新
    TBDEDataSet提供了缓存更新的技术。所谓缓存更新就是,应用程序从数据库中检索数据,在本地缓存中建立一个副本,用户对数据进行修改后,也只是反映在缓存中,以后可以调用ApplyUpdates一次性地把所有的修改反映到数据集中。
    可以看出,缓存更新技术可以明显地提高应用程序的性能,而且可以方便地取消修改,只要还没有调用ApplyUpdates。下面列出了TBDEDataSet中有关缓存更新的属性、方法和事件:
    .CachedUpdates如果这个属性设为True,缓存更新有效;
    .UpdateObject用于指定一个TUpdateSQL构件来更新基于查询的数据集;
    .UpdatePending如果缓存中有未决的记录,这个属性就返回True;
    .UpdateRecordTypes指定数据集中哪些记录是可见的;
    .UpdateStatus返回当前的更新状态;
    .OnUpdateError如果更新过程中出错将触发这个事件;
    .OnUpdateRecord每更新一条记录就会触发一次这个事件;
    .ApplyUpdates把缓存中的数据写到数据集中;
    .CancelUpdates把缓存中未决的修改取消;
    .CommitUpdates把缓存清掉;l FetchAll从数据库检索所有记录到缓存中;
    .RevertRecord撤消对当前记录的修改。
  • 相关阅读:
    SQL学习
    设计模式学习之简单工厂
    c#读写操作3
    SQL存储过程学习
    c# xml的读写
    SQL存储过程实例
    存储过程分页
    搞双显示器
    转:用药的七种心理误区
    lp提了一个非常让偶非常郁闷的要求……
  • 原文地址:https://www.cnblogs.com/y232995558/p/1410161.html
Copyright © 2020-2023  润新知