WillHubner
diff --git a/‎GenericQuery.dproj‎
Lines changed: 274 additions & 425 deletions b/‎GenericQuery.dproj‎
Lines changed: 274 additions & 425 deletions
diff --git a/‎GenericQuery.identcache‎
55 Bytes b/‎GenericQuery.identcache‎
55 Bytes
diff --git a/‎GenericQuery.res‎
0 Bytes b/‎GenericQuery.res‎
0 Bytes
diff --git a/‎src/core/Connection/GenericQuery.Model.Connection.pas‎
Lines changed: 25 additions & 2 deletions b/‎src/core/Connection/GenericQuery.Model.Connection.pas‎
Lines changed: 25 additions & 2 deletions
diff --git a/‎src/core/GenericQuery/GenericQuery.pas‎
Lines changed: 18 additions & 1 deletion b/‎src/core/GenericQuery/GenericQuery.pas‎
Lines changed: 18 additions & 1 deletion
diff --git a/‎src/interfaces/Model.GenericQuery.Intf.pas‎
Lines changed: 2 additions & 1 deletion b/‎src/interfaces/Model.GenericQuery.Intf.pas‎
Lines changed: 2 additions & 1 deletion
@@ -27,14 +27,15 @@ interface
   FireDAC.Comp.UI;
 
 type
-  TTypeConnection = (FireBird, SQLite, Ora);
+  TTypeConnection = (FireBird, SQLite, Ora, MySQL);
 
 var
   FConnList : TObjectList<TFDConnection>;
   FServer : String;
   FDatabase : String;
   FPassword : String;
   FUsername : String;
+  FPort : String;
   FTypeConnection : TTypeConnection;
 
 function Connected : Integer;
@@ -67,7 +68,8 @@ function Connected : Integer;
           raise Exception.Create('variable FServer must be informed!');
 
         if FUsername = '' then FUsername := 'sysdba';
-        if FPassword = '' then FPassword := 'masterkey';      
+        if FPassword = '' then FPassword := 'masterkey';
+        if FPort     = '' then FPort := '3050';
 
         FConnList.Items[IndexConn].Params.DriverID := 'FB';
         FConnList.Items[IndexConn].Params.UserName := FUsername;
@@ -94,6 +96,27 @@ function Connected : Integer;
         FConnList.Items[IndexConn].Params.Database := FServer+'/'+FDatabase;
         FConnList.Items[IndexConn].Params.Add('CharacterSet=UTF8');
       end;
+
+    MySQL :
+      begin
+        if FServer = '' then
+          raise Exception.Create('variable FServer must be informed!');
+
+        if FUsername = '' then
+          raise Exception.Create('variable FUsername must be informed!');
+
+        if FPassword = '' then
+          raise Exception.Create('variable FPassword must be informed!');
+
+        if FPort     = '' then FPort := '3306';
+
+        FConnList.Items[IndexConn].Params.DriverID := 'MySQL';
+        FConnList.Items[IndexConn].Params.UserName := FUserName;
+        FConnList.Items[IndexConn].Params.Password := FPassword;
+        FConnList.Items[IndexConn].Params.Add('Database='+FDatabase);
+        FConnList.Items[IndexConn].Params.Add('Server='+FServer);
+        FConnList.Items[IndexConn].Params.Add('Port='+FPort);
+      end;
   end;
 
   FConnList.Items[IndexConn].Connected;
 
@@ -29,7 +29,8 @@   TGenericQuery = class(TInterfacedObject, iGenericQuery)
     function SQL(vSQL : String) : iGenericQuery;
     function Params(aValue : Variant) : iGenericQuery; overload;
     function Params(aParamName : String; aValue : Variant) : iGenericQuery; overload;
-    function Execute : Boolean;
+    function Execute : Boolean; overload;
+    function Execute(var aValueReturn : Variant) : Boolean; overload;
     function OpenArray : TJSONArray;
     function OpenObject : TJSONObject;
     function RecordCount : Integer;
@@ -61,6 +62,22 @@ destructor TGenericQuery.Destroy;
   inherited;
 end;
 
+function TGenericQuery.Execute(var aValueReturn: Variant): Boolean;
+begin
+  if FSQL.Text = '' then
+    raise Exception.Create('SQL não informado!');
+
+  try
+    FQuery.Open;
+
+    aValueReturn := FQuery.Fields[0].Value;
+
+    Result := True;
+  except
+    Result := False;
+  end;
+end;
+
 function TGenericQuery.Execute: Boolean;
 begin
   if FSQL.Text = '' then
 
@@ -8,7 +8,8 @@ interface
 type
   iGenericQuery = interface
   ['{D7C2F73C-5199-4890-A261-B2F2F16D35B9}']
-    function Execute : Boolean;
+    function Execute : Boolean; overload;
+    function Execute(var aValueReturn : Variant) : Boolean; overload;
     function OpenArray : TJSONArray;
     function OpenObject : TJSONObject;
     function RecordCount : Integer;