не много поменяла код:
unit Core;
interface
uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
FireDAC.Stan.Intf, FireDAC.Stan.Option, FireDAC.Stan.Error, FireDAC.UI.Intf,
FireDAC.Phys.Intf, FireDAC.Stan.Def, FireDAC.Stan.Pool, FireDAC.Stan.Async,
FireDAC.Phys, FireDAC.FMXUI.Wait, FireDAC.Stan.Param, FireDAC.DatS,
FireDAC.DApt.Intf, FireDAC.DApt, Data.DB, FireDAC.Comp.DataSet,
FireDAC.Comp.Client, FireDAC.Phys.MSAcc, FireDAC.Phys.MSAccDef;
type
TForm2 = class(TForm)
FDQuery1: TFDQuery;
FDConnection1: TFDConnection;
FDManager1: TFDManager;
private
{ Private declarations }
public
function bdconected(s2:string;s1,s{,sd}: TObject): string; { Public declarations }
end;
var
Form2: TForm2;
implementation
{$R *.fmx}
function TForm2.bdconected(s2: string; s1, s{,sd}: TObject): string;
begin
if s is TFDConnection then
begin
TFDConnection(s).Params.DriverID:='MSAcc';
TFDConnection(s).Params.Database:=s2;
TFDConnection(s).Params.Encoding:='UTF8';
TFDConnection(s).LoginPrompt:=false;
end;
if s1 is TFDQuery then
begin
TFDQuery(s1).SQL.Clear;
TFDQuery(s1).SQL.add('select*From User_Grid');
TFDQuery(s1).Connection.Connected:=true;
TFDQuery(s1).Active:=true;
end;
{if s is TFDManager then
begin
{ TFDManager(sd).DriverDefFileName:='Some path to FDDrivers.ini';
TFDManager(sd).DriverDefFileAutoLoad:=true;
TFDManager(sd).GetCatalogNames(ExtractFilePath(ParamStr(0)) +'FDDrivers1.ini');
end;
{if (TFDConnection(s).Connected=true) and (TFDQuery(s1).Active=true) then
Result:='successfully'; }
end;
end.
