查询条件的封装(二)
摘要:
TConditionItem 1 { TConditionItem } 2 3 procedure TConditionItem.Assign(Source: TPersistent); 4 begin 5 if Source is TConditionItem then 6 begin 7 if Assigned(Collection) then Collection.BeginUpdate; 8 try 9 //RestoreDefaults;10 ConditionName := TConditionItem(Source).Condit... 阅读全文
posted @ 2012-04-04 21:26 封三郎 阅读(614) 评论(0) 推荐(1)
浙公网安备 33010602011771号