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;
  13
  14 type
  15   TDataModule1 = class(TDataModule)
  16     FDTable1: TFDTable;
  17     FDConnection1: TFDConnection;
  18     FDTable2: TFDTable;
  19     FDTable2NUMBER: TIntegerField;
  20     FDTable2TITLE: TStringField;
  21     FDTable2NAME: TStringField;
  22     FDTable2COMMENT: TWideMemoField;
  23     FDTable2RAW: TWideMemoField;
  24     FDTable2DATE: TDateField;
  25     FDTable1DATABASE: TWideStringField;
  26     FDTable3: TFDTable;
  27     FDTable3TITLE: TStringField;
  28     FDTable3TITLE2: TStringField;
  29     FDTable3MENTE: TBooleanField;
  30     FDGUIxWaitCursor1: TFDGUIxWaitCursor;
  31   private
  32     { Private \90é\8c¾ }
  33   public
  34     { Public \90é\8c¾ }
  35   end;
  36
  37 var
  38   DataModule1: TDataModule1;
  39
  40 implementation
  41
  42 {%CLASSGROUP 'Vcl.Controls.TControl'}
  43
  44 {$R *.dfm}
  45
  46 end.