Class

TfraVisitRelated

Module

mVisitRelated

Last Modified

7/15/2014 3:26:36 PM

Scope

Interfaced

Inherits from

TFrame

Declaration


TfraVisitRelated = class(TFrame)
  gbVisitRelatedTo: TGroupBox;
  chkSCYes: TCheckBox;
  chkAOYes: TCheckBox;
  chkIRYes: TCheckBox;
  chkECYes: TCheckBox;
  chkMSTYes: TCheckBox;
  chkMSTNo: TCheckBox;
  chkECNo: TCheckBox;
  chkIRNo: TCheckBox;
  chkAONo: TCheckBox;
  chkSCNo: TCheckBox;
  chkHNCYes: TCheckBox;
  chkHNCNo: TCheckBox;
  chkCVYes: TCheckBox;
  chkCVNo: TCheckBox;
  chkSHDYes: TCheckBox;
  chkSHDNo: TCheckBox;
  lblSCNo: TStaticText;
  lblSCYes: TStaticText;
  procedure chkClick(Sender: TObject);
private
  FSCCond: TSCConditions;
  procedure SetCheckEnable(CheckYes, CheckNo: TCheckBox; Allow: Boolean);
  procedure SetCheckState(CheckYes, CheckNo: TCheckBox; CheckState: Integer);
  function GetCheckState(CheckYes, CheckNo: TCheckBox): Integer;

public
  constructor Create(AOwner: TComponent); override;
  procedure GetRelated(PCEData: TPCEData); overload;
  procedure GetRelated(var ASCRelated, AAORelated, AIRRelated,
                              AECRelated, AMSTRelated, AHNCRelated, ACVRelated,ASHDRelated: integer); overload;
  procedure InitAllow(SCCond: TSCConditions);
  procedure InitRelated(PCEData: TPCEData); overload;
  procedure InitRelated(const ASCRelated, AAORelated, AIRRelated,
                              AECRelated, AMSTRelated, AHNCRelated, ACVRelated,ASHDRelated: integer); overload;

end;

DFM Objects


fraVisitRelated : TfraVisitRelated
 └gbVisitRelatedTo : TGroupBox
   ├chkSCYes : TCheckBox
   ├chkAOYes : TCheckBox
   ├chkIRYes : TCheckBox
   ├chkECYes : TCheckBox
   ├chkMSTYes : TCheckBox
   ├chkMSTNo : TCheckBox
   ├chkECNo : TCheckBox
   ├chkIRNo : TCheckBox
   ├chkAONo : TCheckBox
   ├chkSCNo : TCheckBox
   ├chkHNCYes : TCheckBox
   ├chkHNCNo : TCheckBox
   ├chkCVYes : TCheckBox
   ├chkCVNo : TCheckBox
   ├chkSHDYes : TCheckBox
   ├chkSHDNo : TCheckBox
   ├lblSCNo : TStaticText
   └lblSCYes : TStaticText

Class Hierarchy


Class Fields

Name Type Scope Comments
chkAONo Simple (unknown) Public/Published -
chkAOYes Simple (unknown) Public/Published -
chkCVNo Simple (unknown) Public/Published -
chkCVYes Simple (unknown) Public/Published -
chkECNo Simple (unknown) Public/Published -
chkECYes Simple (unknown) Public/Published -
chkHNCNo Simple (unknown) Public/Published -
chkHNCYes Simple (unknown) Public/Published -
chkIRNo Simple (unknown) Public/Published -
chkIRYes Simple (unknown) Public/Published -
chkMSTNo Simple (unknown) Public/Published -
chkMSTYes Simple (unknown) Public/Published -
chkSCNo Simple (unknown) Public/Published -
chkSCYes Simple (unknown) Public/Published -
chkSHDNo Simple (unknown) Public/Published -
chkSHDYes Simple (unknown) Public/Published -
FSCCond Private -
gbVisitRelatedTo Simple (unknown) Public/Published -
lblSCNo TStaticText Public/Published -
lblSCYes TStaticText Public/Published -

Constructors

Name Declaration Scope Comments
Create constructor Create(AOwner: TComponent); override; Public -

Methods

Name Declaration Scope Comments
chkClick procedure chkClick(Sender: TObject); Public/Published -
GetCheckState function GetCheckState(CheckYes, CheckNo: TCheckBox): Integer; Private -
GetRelated procedure GetRelated(var ASCRelated, AAORelated, AIRRelated, AECRelated, AMSTRelated, AHNCRelated, ACVRelated,ASHDRelated: integer); overload; Public -
GetRelated procedure GetRelated(PCEData: TPCEData); overload; Public -
InitAllow procedure InitAllow(SCCond: TSCConditions); Public -
InitRelated procedure InitRelated(const ASCRelated, AAORelated, AIRRelated, AECRelated, AMSTRelated, AHNCRelated, ACVRelated,ASHDRelated: integer); overload; Public -
InitRelated procedure InitRelated(PCEData: TPCEData); overload; Public -
SetCheckEnable procedure SetCheckEnable(CheckYes, CheckNo: TCheckBox; Allow: Boolean); Private -
SetCheckState procedure SetCheckState(CheckYes, CheckNo: TCheckBox; CheckState: Integer); Private -

Referenced By (3)

Module (line) Referrer Type
fRemVisitInfo (11) TfrmRemVisitInfo Read
fVisitType (18) TfrmVisitType Read
mVisitRelated (259) - Read