ViewVC Help

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

root/public/ibx/trunk/examples/DBAdmin/DataModule.pas

Comparing ibx/trunk/examples/DBAdmin/DataModule.pas (file contents):
Revision 230 by tony, Tue Apr 10 13:32:36 2018 UTC vs.
Revision 231 by tony, Mon Apr 16 08:32:21 2018 UTC

#	Line 203 | Line 203 | type
203		function GetPageBuffers: integer;
204		function GetRoleName: string;
205		function GetSecurityDatabase: string;
206	+	function GetServerName: string;
207		function GetSweepInterval: integer;
208		function GetUserAdminPrivilege: boolean;
209		procedure SetAutoAdmin(AValue: boolean);
#	Line 256 | Line 257 | type
257		property RoleName: string read GetRoleName;
258		property DBOwner: string read GetDBOwner;
259		property DBSQLDialect: integer read GetDBSQLDialect write SetDBSQLDialect;
260	+	property ServerName: string read GetServerName;
261		property HasUserAdminPrivilege: boolean read GetUserAdminPrivilege;
262		property AfterDBConnect: TNotifyEvent read FAfterDBConnect write FAfterDBConnect;
263		property AfterDataReload: TNotifyEvent read FAfterDataReload write FAfterDataReload;
#	Line 914 | Line 916 | begin
916		Result := Trim(SecPlugin.AsString);
917		end;
918
919	+	function TDatabaseData.GetServerName: string;
920	+	begin
921	+	Result := IBXServicesConnection1.ServerName;
922	+	end;
923	+
924		function TDatabaseData.GetSweepInterval: integer;
925		begin
926		if DatabaseQuery.Active then

Diff Legend

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