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