david
3b29f73ece
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.DevExpressVCL@8 05c56307-c608-d34a-929d-697000501d7a
62 lines
1.5 KiB
ObjectPascal
62 lines
1.5 KiB
ObjectPascal
unit StylesSimpleDemoData;
|
|
|
|
interface
|
|
|
|
uses
|
|
Forms, SysUtils, Classes, DB, cxStyles, ImgList, Controls,
|
|
cxClasses, cxTL, DBTables;
|
|
|
|
type
|
|
TStylesSimpleDemoDataDM = class(TDataModule)
|
|
DataBase: TDataBase;
|
|
tblDEPARTMENTS: TTable;
|
|
dsDEPARTMENTS: TDataSource;
|
|
tblPERSONS: TTable;
|
|
dsPERSONS: TDataSource;
|
|
tblPERSONSID: TAutoIncField;
|
|
tblPERSONSName: TStringField;
|
|
tblPERSONSCountry: TStringField;
|
|
tblPERSONSPostalCode: TStringField;
|
|
tblPERSONSCity: TStringField;
|
|
tblPERSONSAddress: TStringField;
|
|
tblPERSONSPhone: TStringField;
|
|
tblPERSONSFax: TStringField;
|
|
tblPERSONSEMAIL: TStringField;
|
|
tblPERSONSHOMEPAGE: TStringField;
|
|
tblPERSONSDepartmentID: TIntegerField;
|
|
StyleRepository: TcxStyleRepository;
|
|
Sunny: TcxStyle;
|
|
Dark: TcxStyle;
|
|
Golden: TcxStyle;
|
|
Summer: TcxStyle;
|
|
Autumn: TcxStyle;
|
|
Bright: TcxStyle;
|
|
Cold: TcxStyle;
|
|
Spring: TcxStyle;
|
|
Light: TcxStyle;
|
|
Winter: TcxStyle;
|
|
Depth: TcxStyle;
|
|
UserStyleSheet: TcxTreeListStyleSheet;
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
procedure SetParentValue(AValue: Variant);
|
|
end;
|
|
|
|
var
|
|
StylesSimpleDemoDataDM: TStylesSimpleDemoDataDM;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure TStylesSimpleDemoDataDM.SetParentValue(AValue: Variant);
|
|
begin
|
|
if tblDepartments.State in [dsEdit, dsInsert] then
|
|
tblDepartments.FindField('ParentID').Value := AValue;
|
|
end;
|
|
|
|
end.
|
|
|