ماهي أفضل طريقة لدمج قاعة بيانات فايربيرد مع البرنامج؟

PHP كود :

[align=right]procedure TForm1.FormCreate(Sender: TObject);
var FolderApplication:String;
begin
FolderApplication:=ExtractFilePath(ParamStr(0));
dmData.FDPhysFBDriverLink1.Release;
                  dmData.FDPhysFBDriverLink1.DriverID := 'FB';
                  dmData.FDPhysFBDriverLink1.VendorHome := EmptyStr;
                  dmData.FDPhysFBDriverLink1.VendorLib := FolderApplication+'\bin\fbclient.dll'; 
                  dmData.FDPhysFBDriverLink1.Embedded  := True; 
                  dmData.myConn.Connected := False;  
                  dmData.myConn.DriverName                    := 'FB'; 
                  dmData.myConn.Params.Values['Port']        := '3050';  
                  dmData.myConn.Params.Values['Protocol']    := 'local';
                  dmData.myConn.Params.Values['Server']      := EmptyStr;
                  dmData.myConn.Params.Values['CharacterSet'] := 'UTF8';  
                  dmData.myConn.Params.Values['SQLDialect']  := '3';
                  dmData.myConn.Params.Values['Database']    := FolderApplication+'Database.fdb'; 
                  dmData.myConn.Params.Values['User_Name']    := 'sysdba';
                  dmData.myConn.Params.Values['Password']    := 'masterkey';
                  dmData.myConn.Params.Values['ExtendedMetadata']    := 'True';
                    dmData.Table1.TableName  :=  'Student';
                    dmData.Table2.TableName  :=  'Class';
                    dmData.Table3.TableName  :=  'Grades';
                    dmData.Table4.TableName  :=  'attendance';
                    dmData.myConn.Connected  := True;
                    dmData.Table1.Active      := True;
                    dmData.Table2.Active      := True;
                    dmData.Table3.Active      := True;
                    dmData.Table4.Active      := True;
                    dmData.query1.Active      := True
end;[/align]

كود :

var FolderApplication:String;
begin
FolderApplication:=ExtractFilePath(ParamStr(0));
dmData.FDPhysFBDriverLink1.Release;
                  dmData.FDPhysFBDriverLink1.DriverID := 'FB';
                  dmData.FDPhysFBDriverLink1.VendorHome := EmptyStr;
                  dmData.FDPhysFBDriverLink1.VendorLib := FolderApplication+'\bin\fbclient.dll'; 
                  dmData.FDPhysFBDriverLink1.Embedded  := True; 
                  dmData.myConn.Connected := False;  
                  dmData.myConn.DriverName                    := 'FB'; 
                  dmData.myConn.Params.Values['Port']        := '3050';  
                  dmData.myConn.Params.Values['Protocol']    := 'local';
                  dmData.myConn.Params.Values['Server']      := EmptyStr;
                  dmData.myConn.Params.Values['CharacterSet'] := 'UTF8';  
                  dmData.myConn.Params.Values['SQLDialect']  := '3';
                  dmData.myConn.Params.Values['Database']    := FolderApplication+'Database.fdb'; 
                  dmData.myConn.Params.Values['User_Name']    := 'sysdba';
                  dmData.myConn.Params.Values['Password']    := 'masterkey';
                  dmData.myConn.Params.Values['ExtendedMetadata']    := 'True';
   var FolderApplication:String;
begin
FolderApplication:=ExtractFilePath(ParamStr(0));
dmData.FDPhysFBDriverLink1.Release;
                  dmData.FDPhysFBDriverLink1.DriverID := 'FB';
                  dmData.FDPhysFBDriverLink1.VendorHome := EmptyStr;
                  dmData.FDPhysFBDriverLink1.VendorLib := FolderApplication+'\bin\fbclient.dll'; 
                  dmData.FDPhysFBDriverLink1.Embedded  := True; 
                  dmData.myConn.Connected := False;  
                  dmData.myConn.DriverName                    := 'FB'; 
                  dmData.myConn.Params.Values['Port']        := '3050';  
                  dmData.myConn.Params.Values['Protocol']    := 'local';
                  dmData.myConn.Params.Values['Server']      := EmptyStr;
                  dmData.myConn.Params.Values['CharacterSet'] := 'UTF8';  
                  dmData.myConn.Params.Values['SQLDialect']  := '3';
                  dmData.myConn.Params.Values['Database']    := FolderApplication+'Database.fdb'; 
                  dmData.myConn.Params.Values['User_Name']    := 'sysdba';
                  dmData.myConn.Params.Values['Password']    := 'masterkey';
                  dmData.myConn.Params.Values['ExtendedMetadata']    := 'True';

كود :

data1.Uni1.Database:= path+'\DB.FDB';
data1.Uni1.SpecificOptions.Values['Clientlibrary'] := Path + '\fbembed.dll';

كود :

C:\Users\Public\Documents\Embarcadero\Studio\FireDAC\FDDrivers.ini

كود :

[ASA]
; ASA base driver will use specified ODBC driver
ODBCDriver=Adaptive Server Anywhere 8.0

[Ora815]
; Ora815 virtual driver will use specified Oracle Home
BaseDriverID=Ora
VendorHomeWin32=OraHome815
VendorHomeWin64=OraHome815_64

[MySQL327]
; MySQL327 virtual driver will use specified LIBMYSQL.DLL
BaseDriverID=MySQL
VendorLib=c:\LIBMYSQL327.DLL

[MySQL510_Embedded]
; MySQL510_Embedded virtual driver will use specified MySQL embedded library and arguments
BaseDriverID=MySQL
VendorLib=c:\LIBMYSQLD.DLL
EmbeddedArgs=--datadir=./data;--language=./;--skip-innodb;--skip-networking

[MSSQL_2000]
; MSSQL_2000 virtual driver will use specified ODBC driver
BaseDriverID=MSSQL
ODBCDriver=SQL SERVER
ODBCAdvanced=

[FB21]
; FB21 virtual driver will use specified Firebird client library
BaseDriverID=FB
VendorLibWin32=C:\ib\fb21\bin\fbclient.dll
VendorLibWin64=C:\ib\fb21_64\bin\fbclient.dll

[FB21_Embedded]
; FB21_Embedded virtual driver will use specified Firebird client library
BaseDriverID=FB
VendorLib=C:\ib\fb21_embed\bin\fbembed.dll

كود :

interface

uses
  ..., FireDAC.Phys.FB;

type
  TForm1 = class(TForm)
  ......
    FDPhysFBDriverLink1: TFDPhysFBDriverLink;
    FDConnection1: TFDConnection;
    procedure FormCreate(Sender: TObject);
  ......
  end;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  FDPhysFBDriverLink1.VendorLib := 'C:\ib\fb21_embed\bin\fbembed.dll';

  FDConnection1.ConnectionDefName := 'FB_Demo';
  FDConnection1.Connected := True;
end;