Delphi内存表(临时表)的使用

2017-06-07 19:52:10来源:CSDN作者:zisongjia人点击

1、放置控件 2、添加字段     
3、右键单击控件,然后单击create data就创建好了注意:  创建好后如果还要添加字段,添加完字段后需先右键单击控件执行clear data,然后再右键此控件重新点击create data4、临时表的:增删改语法添加数据到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;

最新文章

123

最新摄影

闪念基因

微信扫一扫

第七城市微信公众平台