add TdmPgEngine.IsConnected()

Author: pashagolub

udatamodule.pas

@@ -31,6 +31,7 @@   TdmPgEngine = class(TDataModule)
     procedure Connect;
     procedure Disconnect;
     function IsCronValueValid(const S: string): boolean;
+    function IsConnected: boolean;
   end;
 
 var
@@ -141,5 +142,10 @@ function TdmPgEngine.IsCronValueValid(const S: string): boolean;
   end;
 end;
 
+function TdmPgEngine.IsConnected: boolean;
+begin
+  Result := qryChains.Active and qryTasks.Active;
+end;
+
 
 end.