即日起在codingBlog上分享您的技术经验即可获得积分,积分可兑换现金哦。

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

编程语言 zisongjia 36℃ 0评论
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;

转载请注明:CodingBlog » Delphi内存表(临时表)的运用

喜欢 (0)or分享 (0)
发表我的评论
取消评论

*

表情