Database-Comparer-Examples/CBuilder/LocalSQLScript/LocalSqlForm.cpp at version-8-0-examples · 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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "LocalSqlForm.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "dbcClasses"
#pragma link "dbcConnection_BDE"
#pragma link "dbcDBEngine"
#pragma link "dbcLocalSQLExec"
#pragma link "dbcSQL_Exec"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
  : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
  if (OpenDialog->Execute())
  {
    EditFileName->Text = OpenDialog->FileName;
    if (FileExists(OpenDialog->FileName))
    {
      LocalSQLExec->LoadFromFile(OpenDialog->FileName);
      MemoScript->Lines->LoadFromFile(OpenDialog->FileName);
      MemoLog->Lines->Clear();
      AddToLog("Script loaded: " + IntToStr(LocalSQLExec->StatementsCount) + " statements.");
    } else
    {
      AddToLog("File not found: " + OpenDialog->FileName);
    }
  }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::ShowErrorMessage(TObject *Sender, UnicodeString ErrText)
{
  AddToLog("Error: " + ErrText);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::LocalSQLExecLogNextLine(TObject *Sender, UnicodeString LogText)
{
  AddToLog(LogText);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::BitBtn2Click(TObject *Sender)
{
  DBCConnectionBDE->Connected = true;
  LocalSQLExec->ExecuteScript();
  DBCConnectionBDE->Connected = false;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::LocalSQLExecProgressUpdate(TObject *Sender, int Value, int MaxValue)
{
  ProgressBar->Max = MaxValue;
  ProgressBar->Position = Value;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::AddToLog(UnicodeString aText)
{
  MemoLog->Lines->Add(aText);
  MemoLog->Perform(EM_SCROLLCARET, 0, 0);
}
//---------------------------------------------------------------------------