Delphi数据录入时自动复制原记录  

2007-06-22 14:31:17|  分类： Delphi |举报 |字号 订阅

       

var
   FieldOldValue: array of string;
 
procedure TFrmSoftTicketLog.AdoCBeforeInsert(DataSet: TDataSet);
var i :integer;
begin
  inherited;
  SetLength(FieldOldValue,DBGridEh2.FieldCount);
  for i:=0 to DBGridEh2.FieldCount-1 do
  begin
    FieldOldValue :=AdoC.fieldbyname(DBGridEh2.Fields.FieldName).AsString;
    next;
  end;
end;
procedure TFrmSoftTicketLog.AdoCAfterInsert(DataSet: TDataSet);
var i :integer;
begin
  inherited;
  SetLength(FieldOldValue,DBGridEh2.FieldCount);
  for i:=0 to DBGridEh2.FieldCount-1 do
  begin
    AdoC.fieldbyname(DBGridEh2.Fields.FieldName).AsString :=FieldOldValue;
    next;
  end;
end;