david
3b29f73ece
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.DevExpressVCL@8 05c56307-c608-d34a-929d-697000501d7a
95 lines
2.8 KiB
ObjectPascal
95 lines
2.8 KiB
ObjectPascal
unit BandedFixedDemoData;
|
|
|
|
{$I ..\cxVer.inc}
|
|
|
|
interface
|
|
|
|
uses
|
|
SysUtils, cxClasses, cxStyles, cxTL, DB, Classes
|
|
{$IFDEF DELPHI6}, Variants{$ENDIF}, DBTables
|
|
{$IFNDEF DELPHI6}, Forms{$ENDIF};
|
|
|
|
type
|
|
TBandedFixedDemoDataDM = class(TDataModule)
|
|
DataBase: TDataBase;
|
|
tblSheduler: TTable;
|
|
dsSheduler: TDataSource;
|
|
dsPersons: TDataSource;
|
|
tblPersons: TTable;
|
|
tblPersonsID: TIntegerField;
|
|
tblPersonsName: TStringField;
|
|
tblPersonsAddress: TStringField;
|
|
tblPersonsPhone: TStringField;
|
|
tblPersonsFax: TStringField;
|
|
tblPersonsEMAIL: TStringField;
|
|
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;
|
|
TreeListStyleSheetDevExpress: TcxTreeListStyleSheet;
|
|
tblShedulerID: TAutoIncField;
|
|
tblShedulerPROJECTID: TIntegerField;
|
|
tblShedulerUSERID: TIntegerField;
|
|
tblShedulerSUNDAY: TSmallintField;
|
|
tblShedulerMONDAY: TSmallintField;
|
|
tblShedulerTUESDAY: TSmallintField;
|
|
tblShedulerWEDNESDAY: TSmallintField;
|
|
tblShedulerTHURSDAY: TSmallintField;
|
|
tblShedulerFRIDAY: TSmallintField;
|
|
tblShedulerSATURDAY: TSmallintField;
|
|
dsProjects: TDataSource;
|
|
tblProjects: TTable;
|
|
tblProjectsID: TAutoIncField;
|
|
tblProjectsNAME: TStringField;
|
|
tblProjectsMANAGERID: TIntegerField;
|
|
tblShedulerProjectManagerID: TIntegerField;
|
|
stlGroupNode: TcxStyle;
|
|
tblShedulerWeekSum: TIntegerField;
|
|
tblShedulerWeekAVG: TFloatField;
|
|
stlFixedBand: TcxStyle;
|
|
procedure tblShedulerCalcFields(DataSet: TDataSet);
|
|
public
|
|
{ Public declarations }
|
|
function GetProjectNameByID(AProjectID: Integer): string;
|
|
function GetPersonNameByID(APersonID: Integer): string;
|
|
end;
|
|
|
|
var
|
|
BandedFixedDemoDataDM: TBandedFixedDemoDataDM;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
{ TBandedFixedDemoDataDM }
|
|
|
|
function TBandedFixedDemoDataDM.GetPersonNameByID(APersonID: Integer): string;
|
|
begin
|
|
Result := tblPersons.Lookup('ID', APersonID, 'Name');
|
|
end;
|
|
|
|
function TBandedFixedDemoDataDM.GetProjectNameByID(AProjectID: Integer): string;
|
|
begin
|
|
Result := tblProjects.Lookup('ID', AProjectID, 'Name');
|
|
end;
|
|
|
|
procedure TBandedFixedDemoDataDM.tblShedulerCalcFields(DataSet: TDataSet);
|
|
begin
|
|
tblShedulerWeekSum.Value := tblShedulerSUNDAY.Value + tblShedulerMONDAY.Value +
|
|
tblShedulerTUESDAY.Value + tblShedulerWEDNESDAY.Value + tblShedulerTHURSDAY.Value +
|
|
tblShedulerFRIDAY.Value + tblShedulerSATURDAY.Value;
|
|
tblShedulerWeekAVG.Value := tblShedulerWeekSum.Value/7;
|
|
end;
|
|
|
|
end.
|