Login ProductsSalesSupportDownloadsAbout |
Home » Technical Support » ElevateDB Technical Support » Incident Reports » Incident Reports Reported for Version 1.03 » View Incident Report |
Serious |
Reported By: russell Reported On: 6/2/2007 For: Version 1.03 Build 1 |
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;
This web page was last updated on Tuesday, April 23, 2024 at 08:39 AM | Privacy PolicySite Map © 2024 Elevate Software, Inc. All Rights Reserved Questions or comments ? E-mail us at info@elevatesoft.com |