免费视频淫片aa毛片_日韩高清在线亚洲专区vr_日韩大片免费观看视频播放_亚洲欧美国产精品完整版

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;

本站僅提供存儲服務(wù)，所有內(nèi)容均由用戶發(fā)布，如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請點(diǎn)擊舉報(bào)。