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;
  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     FDTable1DATABASE: TWideStringField;
  24     FDTable1DBNUM: TIntegerField;
  25     FDQuery1: TFDQuery;
  26     FDTable4: TFDTable;
  27     FDTable4DBNAME: TIntegerField;
  28     FDTable4POSNUM: TIntegerField;
  29     FDTable4DATE: TDateField;
  30     FDTable4REQUEST: TWideMemoField;
  31     FDTable2DBNUM: TIntegerField;
  32     FDTable2NUMBER: TIntegerField;
  33     FDTable2TITLE: TWideStringField;
  34     FDTable2NAME: TWideStringField;
  35     FDTable2COMMENT: TWideMemoField;
  36     FDTable2RAW: TWideMemoField;
  37     FDTable2DATE: TDateField;
  38     FDTable3TITLE: TWideStringField;
  39     FDTable3TITLE2: TWideStringField;
  40     FDTable3MENTE: TBooleanField;
  41     FDTable3INFO: TIntegerField;
  42     FDTable3COUNT: TIntegerField;
  43     FDTable2PASS: TStringField;
  44     FDTable4ID: TIntegerField;
  45     FDTable3PASSWORD: TWideStringField;
  46   private
  47     { Private \90é\8c¾ }
  48   public
  49     { Public \90é\8c¾ }
  50   end;
  51
  52 var
  53   DataModule1: TDataModule1;
  54
  55 implementation
  56
  57 {%CLASSGROUP 'Vcl.Controls.TControl'}
  58
  59 {$R *.dfm}
  60
  61 end.