procedure TDMCommon.CrashData;
var i: Integer;
begin
  TblMaster.Insert;
  TblMasterMasterKey.Value := '070501';
  TblMasterFieldValue1.Value := '1';
  TblMaster.Post;

  for i:= 1 to 3 do begin
     TblDetail.Insert;
     TblDetailFieldValue1.Value := IntToStr(i);
     TblDetail.Post;
  end;

  TblMaster.Insert;
  TblMasterMasterKey.Value := '070502';
  TblMasterFieldValue1.Value := '2';
  TblMaster.Post;

  for i:= 1 to 3 do begin
     TblDetail.Insert;
     TblDetailFieldValue1.Value := IntToStr(i);
     TblDetail.Post;
  end;


  TblMaster.Insert;
  TblMasterMasterKey.Value := '070503';
  TblMasterFieldValue1.Value := '3';
  TblMaster.Post;

  for i:= 1 to 3 do begin
     TblDetail.Insert;
     TblDetailFieldValue1.Value := IntToStr(i);
     TblDetail.Post;
  end;

  TblMaster.Prior;
  TblMaster.Edit;
  TblMasterFieldValue1.Value := '2';
  TblMaster.Post;

  TblMaster.Next;

  TblDetail.Edit;
  TblDetailFieldValue1.Value := '22';
  TblDetail.Post;

  TblMaster.First;
  TblMaster.Edit;
  TblMasterFieldValue1.Value := '11';
  TblMaster.Post; 

end;

procedure TDMCommon.DataModuleCreate(Sender: TObject);
begin
  TblMaster.Open;
  TblDetail.Open;
end;

procedure TDMCommon.TblMasterBeforePost(DataSet: TDataSet);
begin
 if TblMasterMasterkey.IsNull then
    TblMasterMasterKey.Value := FormatDateTime('YYMMDD',Date); 
end;