Database-Comparer-Examples/CBuilder/ExtractMetadata/Unit1.h 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
//---------------------------------------------------------------------------

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <dbcClasses.hpp>
#include <dbcDBEngine.hpp>
#include <dbcDBStructure.hpp>
#include <dbcIBDatabaseExtract.hpp>
#include <dbcMSSQLDatabaseExtract.hpp>
#include <dbcMySQLDatabaseExtract.hpp>
#include <dbcTypes.hpp>
#include <Buttons.hpp>
#include <ComCtrls.hpp>
#include <Dialogs.hpp>
#include <ExtCtrls.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:	// IDE-managed Components
  TBitBtn *BtnExtractDb;
  TOpenDialog *OpenDialog;
  TRichEdit *MemoScript;
  TRichEdit *MemoLog;
  TProgressBar *ProgressBarM;
  TDBCConnection *DBCConnection;
  TPanel *Panel2;
  TRadioButton *rbMIB;
  TRadioButton *rbMMS;
  TRadioButton *rbMMY;
  TEdit *EditDBNameM;
  TEdit *EditUserM;
  TEdit *EditPswdM;
  TLabel *Label3;
  TLabel *LabelUserM;
  TLabel *LabelPswdM;
  TCheckBox *cbAuthM;
  TEdit *EditServerM;
  TLabel *LabelServerM;
  TEdit *EditTableM;
  TLabel *Label11;
  TIBDBExtract *IBDBExtract;
  TMSSQLDBExtract *MSSQLDBExtract;
  TMySQLDBExtract *MySQLDBExtract;
  TDBStructure *DBStructure;
  TBitBtn *BtnExtractMetadata;
  TBitBtn *BtnExtractTable;
  void __fastcall LogErrorMessage(TObject *Sender, UnicodeString ErrText);
  void __fastcall LogNextLine(TObject *Sender, UnicodeString LogText);
  void __fastcall BtnExtractDbClick(TObject *Sender);
  void __fastcall FormCreate(TObject *Sender);
  void __fastcall FormDestroy(TObject *Sender);
  void __fastcall rbMClick(TObject *Sender);
  void __fastcall BtnExtractMetadataClick(TObject *Sender);
  void __fastcall BtnExtractTableClick(TObject *Sender);
private:	// User declarations
  TDatabaseType __fastcall GetDBType();
  void __fastcall SetDBType(TDatabaseType aType);
public:		// User declarations
  __fastcall TForm1(TComponent* Owner);
  void __fastcall AddToLog(UnicodeString aText);
  __property TDatabaseType DatabaseType = {read=GetDBType};
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif