unit ConvertDBGridDemoData; interface uses SysUtils, Classes, DB, cxStyles, cxClasses, cxGridTableView, Forms, DBTables; type TConvertDBGridDemoMainDM = class(TDataModule) DataBase: TDataBase; tblPERSONS: TTable; dsPERSONS: TDataSource; private { Private declarations } public { Public declarations } end; var ConvertDBGridDemoMainDM: TConvertDBGridDemoMainDM; implementation {$R *.dfm} end.