Delphi内存表的使用

xiaoxiao2021-02-28  93

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;
转载请注明原文地址: https://www.6miu.com/read-40915.html

最新回复(0)