Delphi内存表的使用

最新推荐文章于 2024-10-17 12:25:13 发布

紫松Win

最新推荐文章于 2024-10-17 12:25:13 发布

阅读量3.5k

点赞数 1

分类专栏： Delphi 文章标签： delphi 内存表

本文链接：https://blog.youkuaiyun.com/zisongjia/article/details/72898223

版权

Delphi 专栏收录该内容

228 篇文章

订阅专栏

1、放置控件

2、添加字段

3、右键单击控件，然后单击create data就创建好了

注意：

创建好后如果还要添加字段，添加完字段后需先右键单击控件执行clear data，然后再右键此控件重新点击create data

4、临时表的：增删改语法

添加数据到ClientDataset

Self.cdsExpenseList.Edit;
Self.cdsExpenseList.Append;
      self.cdsExpenseList.FieldByName('id').Value :=
        FieldByName('id').AsInteger;
      Self.cdsExpenseList.FieldByName('CheckInNum').Value :=
        FieldByName('CheckInNum').AsString;
      Self.cdsExpenseList.FieldByName('MasterNum').Value :=
        FieldByName('MasterNum').AsString;
      Self.cdsExpenseList.FieldByName('RoomNum').Value :=
        FieldByName('RoomNum').AsString;
      Self.cdsExpenseList.FieldByName('RoomName').Value :=
        FieldByName('RoomName').AsString;
      Self.cdsExpenseList.FieldByName('RoomCategoryName').Value :=
        FieldByName('CategoryName').AsString;
      Self.cdsExpenseList.FieldByName('PreferentialName').Value :=
        FieldByName('PreferentialName').AsString;
Self.cdsExpenseList.Post;

修改：
Self.cdsConsume.Edit;
  self.cdsConsume.FieldByName('Amount').Value := TcxCurrencyEdit(Sender).Value;
  Self.cdsConsume.FieldByName('Total').Value :=
    self.cdsConsume.FieldByName('Price').AsFloat *
    TcxCurrencyEdit(Sender).Value;
  self.cdsConsume.Post;

删除：
  self.cdsConsume.Edit;
  self.cdsConsume.Delete;