日韩黑丝制服一区视频播放|日韩欧美人妻丝袜视频在线观看|九九影院一级蜜桃|亚洲中文在线导航|青草草视频在线观看|婷婷五月色伊人网站|日本一区二区在线|国产AV一二三四区毛片|正在播放久草视频|亚洲色图精品一区

搜索
分享

Delphi數據錄入時自動復制原記錄

 quasiceo 2016-11-18

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;

    本站是提供個人知識管理的網絡存儲空間，所有內容均由用戶發(fā)布，不代表本站觀點。請注意甄別內容中的聯系方式、誘導購買等信息，謹防詐騙。如發(fā)現有害或侵權內容，請點擊一鍵舉報。
    轉藏 分享 獻花（0）

    0條評論

    發(fā)表

    請遵守用戶 評論公約

    類似文章 更多