david
08e42642b8
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.DevExpressVCL@21 05c56307-c608-d34a-929d-697000501d7a
76 lines
2.0 KiB
ObjectPascal
76 lines
2.0 KiB
ObjectPascal
unit DragDropDemoData;
|
|
|
|
interface
|
|
|
|
uses
|
|
SysUtils, cxClasses, cxStyles, cxTL, DB, Classes, DBTables, Forms;
|
|
|
|
type
|
|
TDragDropDemoDataDM = class(TDataModule)
|
|
DataBase: TDataBase;
|
|
tblDepartments: TTable;
|
|
dsDepartments: TDataSource;
|
|
tblDepartmentsID: TAutoIncField;
|
|
tblDepartmentsPARENTID: TIntegerField;
|
|
tblDepartmentsNAME: TStringField;
|
|
tblDepartmentsBUDGET: TFloatField;
|
|
tblDepartmentsPHONE: TStringField;
|
|
tblDepartmentsFAX: TStringField;
|
|
tblDepartmentsEMAIL: TStringField;
|
|
tblDepartmentsVACANCY: TBooleanField;
|
|
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;
|
|
cxStyle1: TcxStyle;
|
|
cxStyle2: TcxStyle;
|
|
cxStyle3: TcxStyle;
|
|
cxStyle4: TcxStyle;
|
|
cxStyle5: TcxStyle;
|
|
cxStyle6: TcxStyle;
|
|
cxStyle7: TcxStyle;
|
|
cxStyle8: TcxStyle;
|
|
cxStyle9: TcxStyle;
|
|
cxStyle10: TcxStyle;
|
|
cxStyle11: TcxStyle;
|
|
cxStyle12: TcxStyle;
|
|
cxStyle13: TcxStyle;
|
|
stlGroupNode: TcxStyle;
|
|
stlFixedBand: TcxStyle;
|
|
TreeListStyleSheetDevExpress: TcxTreeListStyleSheet;
|
|
tblDeptDict: TTable;
|
|
dsDeptDict: TDataSource;
|
|
dsPersDict: TDataSource;
|
|
tblPersDict: TTable;
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
procedure SetParentValue(AValue: Variant);
|
|
end;
|
|
|
|
var
|
|
DragDropDemoDataDM: TDragDropDemoDataDM;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure TDragDropDemoDataDM.SetParentValue(AValue: Variant);
|
|
begin
|
|
if tblDepartments.State in [dsEdit, dsInsert] then
|
|
tblDepartments.FindField('ParentID').Value := AValue;
|
|
end;
|
|
|
|
end.
|