/
dimferon
/
AstrobloQ
Обзор
Документация
Войти
/
dimferon
/
AstrobloQ
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
source/dBase.pas
49 строк
840 B
glscene
Included solver
29 июн 2024, 22:25
29 июн 2024, 22:25
7392f98
Код
Авторство
О чём код?
unit dBase; interface uses System.SysUtils, System.Classes, FireDAC.Stan.ExprFuncs, FireDAC.Phys.SQLiteWrapper.Stat, FireDAC.Phys.SQLiteDef, FireDAC.Stan.Intf, FireDAC.Stan.Option, FireDAC.Stan.Error, FireDAC.UI.Intf, FireDAC.Phys.Intf, FireDAC.Stan.Def, FireDAC.Stan.Pool, FireDAC.Stan.Async, FireDAC.Phys, FireDAC.Phys.SQLite, FireDAC.VCLUI.Wait, FireDAC.Stan.Param, FireDAC.DatS, FireDAC.DApt.Intf, FireDAC.DApt, Data.DB, FireDAC.Comp.DataSet, FireDAC.Comp.Client, FireDAC.Comp.BatchMove; type TdmBase = class(TDataModule) FDPhysSQLiteDriverLink: TFDPhysSQLiteDriverLink; FDConnection: TFDConnection; FDQuery: TFDQuery; FDBatchMove: TFDBatchMove; private public end; var dmBase: TdmBase; implementation {%CLASSGROUP 'Vcl.Controls.TControl'} {$R *.dfm} end.