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   FireDAC.Phys.FB, FireDAC.Phys.FBDef;
  15
  16 type
  17   TDataModule1 = class(TDataModule)
  18     FDTable1: TFDTable;
  19     FDConnection1: TFDConnection;
  20     FDTable2: TFDTable;
  21     FDTable3: TFDTable;
  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     FDTable3INFO: TIntegerField;
  39     FDTable3COUNT: TIntegerField;
  40     FDTable4ID: TIntegerField;
  41     FDTable2PASS: TWideStringField;
  42     FDTable1DATABASE: TWideStringField;
  43     FDTable3password: TWideStringField;
  44     FDTable3ng: TWideStringField;
  45     FDQuery1: TFDQuery;
  46     FDTable3mente: TBooleanField;
  47     FDTable5: TFDTable;
  48   private
  49     { Private \90é\8c¾ }
  50   public
  51     { Public \90é\8c¾ }
  52   end;
  53
  54 var
  55   DataModule1: TDataModule1;
  56
  57 implementation
  58
  59 {%CLASSGROUP 'Vcl.Controls.TControl'}
  60
  61 {$R *.dfm}
  62
  63 end.