Unit1.pas

   1 unit Unit1;
   2
   3 interface
   4
   5 uses
   6   System.SysUtils, System.Classes, FireDAC.Stan.Intf, FireDAC.Stan.Option,
   7   FireDAC.Stan.Param, FireDAC.Stan.Error, FireDAC.DatS, FireDAC.Phys.Intf,
   8   FireDAC.DApt.Intf, FireDAC.Stan.Async, FireDAC.DApt, FireDAC.UI.Intf,
   9   FireDAC.Stan.Def, FireDAC.Stan.Pool, FireDAC.Phys, FireDAC.Phys.SQLite,
  10   FireDAC.Phys.SQLiteDef, FireDAC.Stan.ExprFuncs, Data.DB, FireDAC.Comp.Client,
  11   FireDAC.Comp.DataSet, FireDAC.Phys.IB, FireDAC.Phys.IBLiteDef,
  12   FireDAC.VCLUI.Wait, FireDAC.Comp.UI, FireDAC.Phys.MySQL, FireDAC.Phys.MySQLDef,
  13   FireDAC.Phys.IBDef, Data.FMTBcd, Data.DBXInterBase, Data.SqlExpr;
  14
  15 type
  16   TDataModule1 = class(TDataModule)
  17     FDTable1: TFDTable;
  18     FDConnection1: TFDConnection;
  19     FDTable2: TFDTable;
  20     FDTable3: TFDTable;
  21     FDGUIxWaitCursor1: TFDGUIxWaitCursor;
  22     DataSource1: TDataSource;
  23     FDTable1DBNUM: TIntegerField;
  24     FDTable4: TFDTable;
  25     FDTable4DBNAME: TIntegerField;
  26     FDTable4POSNUM: TIntegerField;
  27     FDTable4DATE: TDateField;
  28     FDTable4REQUEST: TWideMemoField;
  29     FDTable2DBNUM: TIntegerField;
  30     FDTable2NUMBER: TIntegerField;
  31     FDTable2TITLE: TWideStringField;
  32     FDTable2NAME: TWideStringField;
  33     FDTable2COMMENT: TWideMemoField;
  34     FDTable2RAW: TWideMemoField;
  35     FDTable2DATE: TDateField;
  36     FDTable3TITLE: TWideStringField;
  37     FDTable3TITLE2: TWideStringField;
  38     FDTable3MENTE: TBooleanField;
  39     FDTable3INFO: TIntegerField;
  40     FDTable3COUNT: TIntegerField;
  41     FDTable4ID: TIntegerField;
  42     FDTable3PASSWORD: TWideStringField;
  43     FDTable2PASS: TWideStringField;
  44     FDTable3TCNT: TIntegerField;
  45     FDTable5: TFDTable;
  46     FDTable5ID: TIntegerField;
  47     FDTable5NAME: TWideStringField;
  48     FDTable5SOURCE: TBlobField;
  49     FDQuery1: TFDQuery;
  50     FDTable1DATABASE: TWideStringField;
  51   private
  52     { Private \90é\8c¾ }
  53   public
  54     { Public \90é\8c¾ }
  55   end;
  56
  57 var
  58   DataModule1: TDataModule1;
  59
  60 implementation
  61
  62 {%CLASSGROUP 'Vcl.Controls.TControl'}
  63
  64 {$R *.dfm}
  65
  66 end.