自己对DELPHI学习的一点体会

				怎样在 DataSet 间快速拷贝一条记录 (2001年5月27日) 
				
				本站更新  分类:数据库   作者:Josir Gomes  推荐:   阅读次数:407  
				(http://www.codesky.net)  
				
				--------------------------------------------------------------------------------
				
				通常，你完成此项任务时使用 TBatchMove 构件。但 TBatchMove 也有不合适的情况：
				- 你并不希望拷贝所有的记录，也不想使用过滤器。
				- 你希望用到目的 DataSet 的有效事件（如 BeforPost，OnValidate，等）。
				- 或者更坏的情况，两 DataSet 的结构并不相同。
				使用下面的简单过程，上面的问题都可以被解决，所有字段中的数据将被拷贝到另外一个 Dataset 中的同名字段中。但这里面也存在一些限制：
				- 不能拷贝查找和计算字段
				- 当存在相同字段名但数据类型不同时，你需要先使用 Assign 判断。
				- 当然，目的字段不能是只读的。
				
				procedure CopyRecord(Source, Destination: TDataSet); 
				var Ind:longint; 
				SField, DField: TField; 
				begin 
				for Ind:=0 to Source.FieldCount - 1 do 
				begin 
				SField := Source.Fields[ Ind ]; 
				DField := Destination.FindField( SField.FieldName ); 
				if (DField  nil) and (DField.FieldKind = fkData) and 
				not DField.ReadOnly then 
				if (SField.DataType = ftString) or 
				(SField.DataType  DField.DataType) then 
				DField.AsString := SField.AsString 
				else 
				DField.Assign( SField ) 
				end; 
				end; 
				
				旧方法：
				
				DEST.Open; 
				ORIGIN.Open; 
				while not ORIGIN.Eof do 
				begin 
				if ORIGINTYPE.AsString = 'T' then 
				with ORIGIN do 
				begin 
				DEST.Append; 
				DEST.FieldByName('TYPE').AsString := ORIGINTYPE.AsString; 
				DEST.FieldByName('FIRSTNAME').AsString := ORIGINFIRSTNAME.AsString; 
				DEST.FieldByName('LASTNAME').AsString := ORIGINLASTNAME.AsString; 
				DEST.FieldByName('CPF').AsString := ORIGINCPF.AsString; 
				DEST.FieldByName('PARTY').AsString := ORIGINPARTY.AsString; 
				DEST.Post; 
				end; 
				ORIGIN.Next; 
				end; 
				
				使用该过程的调用示范：
				
				DEST.Open; 
				ORIGIN.Open; 
				while not ORIGIN.Eof do begin 
				if ORIGINTYPE.AsString = 'T' then begin 
				DEST.Append; 
				CopyRecord( ORIGIN, DEST ); 
				DEST.Post; 
				end; 
				ORIGIN.Next; 
				end; 
				
				此过程在使用 TQueries, TClientDataSet 和其它 TDataset 子类时，工作良好。 
				希望对大家有所帮助。.