Class

TfrmConsultsView

Module

fConsultsView

Last Modified

7/15/2014 3:26:34 PM

Scope

Interfaced

Inherits from

TfrmBase508Form

Declaration


TfrmConsultsView = class(TfrmBase508Form)
  pnlBase: TORAutoPanel;
  lblBeginDate: TLabel;
  calBeginDate: TORDateBox;
  lblEndDate: TLabel;
  calEndDate: TORDateBox;
  radSort: TRadioGroup;
  lblStatus: TLabel;
  lstStatus: TORListBox;
  lblService: TLabel;
  cmdOK: TButton;
  cmdCancel: TButton;
  treService: TORTreeView;
  cboService: TORComboBox;
  cboGroupBy: TORComboBox;
  Label1: TLabel;
  popStatus: TPopupMenu;
  popStatusSelectNone: TMenuItem;
  procedure cmdOKClick(Sender: TObject);
  procedure cmdCancelClick(Sender: TObject);
  procedure treServiceChange(Sender: TObject; Node: TTreeNode);
  procedure cboServiceSelect(Sender: TObject);
  procedure popStatusSelectNoneClick(Sender: TObject);
private
  FChanged: Boolean;
  FBeginDate: string;
  FEndDate: string;
  FGroupBy: string;
  FAscending: Boolean;
  FService: string;
  FServiceName: string;
  FConsultUser: boolean ;
  FStatus: string;
  FStatusName: string;
end;

DFM Objects


frmConsultsView : TfrmConsultsView
 ├pnlBase : TORAutoPanel
 │ ├lblBeginDate : TLabel
 │ ├lblEndDate : TLabel
 │ ├lblService : TLabel
 │ ├lblStatus : TLabel
 │ ├Label1 : TLabel
 │ ├calBeginDate : TORDateBox
 │ ├calEndDate : TORDateBox
 │ ├lstStatus : TORListBox
 │ ├radSort : TRadioGroup
 │ ├cmdOK : TButton
 │ ├cmdCancel : TButton
 │ ├treService : TORTreeView
 │ ├cboService : TORComboBox
 │ └cboGroupBy : TORComboBox
 ├amgrMain : TVA508AccessibilityManager
 └popStatus : TPopupMenu
   └popStatusSelectNone : TMenuItem

Class Hierarchy


Class Fields

Name Type Scope Comments
calBeginDate TORDateBox Public/Published -
calEndDate TORDateBox Public/Published -
cboGroupBy TORComboBox Public/Published -
cboService TORComboBox Public/Published -
cmdCancel TButton Public/Published -
cmdOK TButton Public/Published -
FAscending Boolean Private -
FBeginDate UnicodeString Private -
FChanged Boolean Private -
FConsultUser Boolean Private -
FEndDate UnicodeString Private -
FGroupBy UnicodeString Private -
FService UnicodeString Private -
FServiceName UnicodeString Private -
FStatus UnicodeString Private -
FStatusName UnicodeString Private -
Label1 TLabel Public/Published -
lblBeginDate TLabel Public/Published -
lblEndDate TLabel Public/Published -
lblService TLabel Public/Published -
lblStatus TLabel Public/Published -
lstStatus TORListBox Public/Published -
pnlBase TORAutoPanel Public/Published -
popStatus TPopupMenu Public/Published -
popStatusSelectNone TMenuItem Public/Published -
radSort TRadioGroup Public/Published -
treService TORTreeView Public/Published -

Methods

Name Declaration Scope Comments
cboServiceSelect procedure cboServiceSelect(Sender: TObject); Public/Published -
cmdCancelClick procedure cmdCancelClick(Sender: TObject); Public/Published -
cmdOKClick procedure cmdOKClick(Sender: TObject); Public/Published -
popStatusSelectNoneClick procedure popStatusSelectNoneClick(Sender: TObject); Public/Published -
treServiceChange procedure treServiceChange(Sender: TObject; Node: TTreeNode); Public/Published -

Referenced By (2)

Module (line) Referrer Type
fConsultsView (69) - Read
fConsultsView (73) - Read