Componentes.Terceros.DevExp.../official/x.38/ExpressVerticalGrid/Demos/Delphi/EditorsMaskDemo/EditorsMaskDemoData.pas
2008-08-27 11:56:15 +00:00

39 lines
758 B
ObjectPascal

unit EditorsMaskDemoData;
{$I ..\cxVer.inc}
interface
uses
SysUtils, Classes, DB, cxStyles{$IFNDEF DELPHI6}, Forms{$ENDIF}, DBTables;
type
TEditorsMaskDemoDataDM = class(TDataModule)
StyleRepository: TcxStyleRepository;
stBlueDark: TcxStyle;
stGold: TcxStyle;
stBlueLight: TcxStyle;
stBlueBright: TcxStyle;
stYellowLight: TcxStyle;
stGreyLight: TcxStyle;
stBlueSky: TcxStyle;
DataBase: TDataBase;
tblUSERS: TTable;
dsUSERS: TDataSource;
tblDEPARTMENTS: TTable;
dsDEPARTMENTS: TDataSource;
private
{ Private declarations }
public
{ Public declarations }
end;
var
EditorsMaskDemoDataDM: TEditorsMaskDemoDataDM;
implementation
{$R *.dfm}
end.