Login ProductsSalesSupportDownloadsAbout |
Home » Technical Support » DBISAM Technical Support » Incident Reports » Incident Reports Addressed for Version 4.17 » View Incident Report |
Serious |
Reported By: Romano Pittas Reported On: 1/25/2005 For: Version 4.16 Build 1 |
procedure TForm1.ShowInTransaction; begin if DBIsamDatabase1.InTransaction then Label2.caption:='InTransaction = True' else Label2.caption:='InTransaction = False'; end; procedure TForm1.FormShow(Sender: TObject); begin DBIsamSession1.Active:=false; Engine.TableTransLockRetryCount:=500; DBIsamTable1.Active:=true; DBIsamTable2.Active:=true; DBIsamTable3.Active:=true; TblList:=TStringList.create; ShowIntransaction; end; procedure TForm1.Button1Click(Sender: TObject); begin TblList.Clear; TblList.Add('Table1'); TblList.Add('Table2'); with DBIsamDatabase1 do begin if InTransaction then RollBack; StartTransaction(TblList); end; ShowInTransaction; end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin with DBIsamDatabase1 do if InTransaction then RollBack; TblList.free; end; procedure TForm1.Button2Click(Sender: TObject); begin TblList.Clear; TblList.Add('Table3'); with DBIsamDatabase1 do begin if InTransaction then RollBack; StartTransaction(TblList); end; ShowInTransaction; end; procedure TForm1.Button3Click(Sender: TObject); begin with DBIsamDatabase1 do if InTransaction then RollBack; ShowInTransaction; 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 |