ViewVC Help

View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing

root/public/ibx/trunk/runtime/nongui/ibxscript.pas

Comparing ibx/trunk/runtime/nongui/ibxscript.pas (file contents):
Revision 271 by tony, Thu Dec 6 15:55:01 2018 UTC vs.
Revision 272 by tony, Mon Feb 4 13:34:37 2019 UTC

#	Line 1494 | Line 1494 | procedure TCustomIBXScript.SetSQLStateme
1494		begin
1495		FSQLReader := SQLStatementReader;
1496		FSQLReader.OnNextLine := @EchoNextLine;
1497	+	FSQLReader.Transaction := FInternalTransaction;
1498		end;
1499
1500		function TCustomIBXScript.ProcessStatement(stmt: string): boolean;
#	Line 1625 | Line 1626 | begin
1626		OnCreateDatabase(self,FileName);
1627		stmt := 'CREATE DATABASE ''' + FileName + '''' + system.copy(stmt,RegexObj.MatchPos[3], RegexObj.MatchLen[3]);
1628		UpdateUserPassword;
1629	<	FDatabase.Connected := false;
1629	>	if FDatabase.Connected then
1630	>	FDatabase.Dropdatabase;
1631		FDatabase.CreateDatabase(stmt);
1630	–	FDatabase.Connected := false;
1631	–	ExtractUserInfo;
1632	–	FDatabase.Connected := true;
1632		Result := true;
1633		Exit;
1634		end;
#	Line 1764 | Line 1763 | procedure TCustomIBXScript.SetTransactio
1763		begin
1764		if FTransaction = AValue then Exit;
1765		FTransaction := AValue;
1766	<	FSQLReader.Transaction := AValue;
1766	>	if FTransaction = nil then
1767	>	FSQLReader.Transaction := FInternalTransaction
1768	>	else
1769	>	FSQLReader.Transaction := FTransaction;
1770		end;
1771
1772		constructor TCustomIBXScript.Create(aOwner: TComponent);

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines
>	Changed lines