Database-Comparer-Examples/CBuilder/DataComparerCustomSQL/DataModule1.cpp at master · CleverComponents/Database-Comparer-Examples · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "DataModule1.h"
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "dbcConnection_FireDAC"
#pragma link "dbcDBEngine"
#pragma link "FireDAC.DApt"
#pragma resource "*.dfm"
TDataMd *DataMd;
//---------------------------------------------------------------------------
__fastcall TDataMd::TDataMd(TComponent* Owner)
  : TDataModule(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TDataMd::DBCConnection1BeforeConnect(TObject *Sender)
{
  FDConnection1->Params->Clear();
  FDConnection1->DriverName = "FB";
  FDConnection1->Params->Add("Database=" + Form1->fnDatabaseMaster->Text);
  FDConnection1->Params->Add("User_Name=" + Form1->EditMUser->Text);
  FDConnection1->Params->Add("Password=" + Form1->EditMPswd->Text);
}
//---------------------------------------------------------------------------

void __fastcall TDataMd::DBCConnection2BeforeConnect(TObject *Sender)
{
  FDConnection2->Params->Clear();
  FDConnection2->DriverName = "FB";
  FDConnection2->Params->Add("Database=" + Form1->fnDatabaseTarget->Text);
  FDConnection2->Params->Add("User_Name=" + Form1->EditTUser->Text);
  FDConnection2->Params->Add("Password=" + Form1->EditTPswd->Text);
}
//---------------------------------------------------------------------------