FireDAC.Phys.SQLiteDef, FireDAC.Stan.ExprFuncs, Data.DB, FireDAC.Comp.Client,
FireDAC.Comp.DataSet, FireDAC.Phys.IB, FireDAC.Phys.IBLiteDef,
FireDAC.VCLUI.Wait, FireDAC.Comp.UI, FireDAC.Phys.MySQL, FireDAC.Phys.MySQLDef,
- FireDAC.Phys.IBDef, Data.FMTBcd, Data.DBXInterBase, Data.SqlExpr;
+ FireDAC.Phys.IBDef, Data.FMTBcd, Data.DBXInterBase, Data.SqlExpr,
+ FireDAC.Phys.FB, FireDAC.Phys.FBDef;
type
TDataModule1 = class(TDataModule)
FDConnection1: TFDConnection;
FDTable2: TFDTable;
FDTable3: TFDTable;
- FDGUIxWaitCursor1: TFDGUIxWaitCursor;
DataSource1: TDataSource;
FDTable1DBNUM: TIntegerField;
FDTable4: TFDTable;
FDTable2DATE: TDateField;
FDTable3TITLE: TWideStringField;
FDTable3TITLE2: TWideStringField;
- FDTable3MENTE: TBooleanField;
FDTable3INFO: TIntegerField;
FDTable3COUNT: TIntegerField;
FDTable4ID: TIntegerField;
- FDTable3PASSWORD: TWideStringField;
FDTable2PASS: TWideStringField;
- FDTable3TCNT: TIntegerField;
- FDTable5: TFDTable;
- FDTable5ID: TIntegerField;
- FDTable5NAME: TWideStringField;
- FDTable5SOURCE: TBlobField;
- FDQuery1: TFDQuery;
FDTable1DATABASE: TWideStringField;
+ FDTable3password: TWideStringField;
+ FDTable3ng: TWideStringField;
+ FDQuery1: TFDQuery;
+ FDTable3mente: TBooleanField;
+ FDTable5: TFDTable;
private
{ Private \90é\8c¾ }
public