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;
17 TDataModule1 = class(TDataModule)
19 FDConnection1: TFDConnection;
22 DataSource1: TDataSource;
23 FDTable1DBNUM: TIntegerField;
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;
46 FDTable3mente: TBooleanField;
55 DataModule1: TDataModule1;
59 {%CLASSGROUP 'Vcl.Controls.TControl'}