Class TClientAssistant (unit PageDemo)

Inherits from

TForm

Constructors



Functions

procedure ClientDataChange(Sender: TField);


procedure ClientEditEnter(Next: Boolean);


procedure ClientEditLeave(Next: Boolean);


procedure ClientEditShow(Next: Boolean);


procedure ClientsBrowseLeave(Next: Boolean);


procedure ClientsBrowseShow(Next: Boolean);


procedure CloseBtnClick(Sender: TObject);


procedure EditChange(Sender: TObject);


procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);


procedure FormCreate(Sender: TObject);


procedure PageManagerGetNextPage(CurrentPage: Integer; var NewPage: Integer);


procedure PageManagerGetPriorPage(CurrentPage: Integer; var NewPage: Integer);


procedure SaveBtnClick(Sender: TObject);


procedure SearchParamsLeave(Next: Boolean);


procedure ToDoLeave(Next: Boolean);


procedure DoSearch;

Private declarations

Properties

Events

Variables

BackBtn : TButton;


Bevel1 : TBevel;


BtnPanel : TPanel;


ClientEdit : TPageProxy;


Clients : TTable;


ClientsACCT_NBR : TFloatField;


ClientsADDRESS_1 : TStringField;


ClientsBIRTH_DATE : TDateField;


ClientsBrowse : TPageProxy;


ClientsCITY : TStringField;


ClientsDATE_OPEN : TDateField;


ClientsDS : TDataSource;


ClientsFIRST_NAME : TStringField;


ClientsIMAGE : TBlobField;


ClientsINTERESTS : TStringField;


ClientsLAST_NAME : TStringField;


ClientsOBJECTIVES : TStringField;


ClientsOCCUPATION : TStringField;


ClientsPICTURE : TStringField;


ClientsRISK_LEVEL : TStringField;


ClientsSS_NUMBER : TFloatField;


ClientsSTATE : TStringField;


ClientsTELEPHONE : TStringField;


ClientsZIP : TStringField;


CloseBtn : TButton;


ComboRISK_LEVEL : TRxDBComboBox;


DeleteBtn : TRadioButton;


DoSearchBtn : TRadioButton;


EditACCT_NBR : TDBEdit;


EditADDRESS_ : TDBEdit;


EditBIRTH_DATE : TDBDateEdit;


EditBtn : TRadioButton;


EditCITY : TDBEdit;


EditDATE_OPEN : TDBDateEdit;


EditFIRST_NAME : TDBEdit;


EditIMAGE : TDBImage;


EditINTERESTS : TDBEdit;


EditLAST_NAME : TDBEdit;


EditOBJECTIVES : TDBEdit;


EditOCCUPATION : TDBEdit;


EditSS_NUMBER : TDBEdit;


EditSTATE : TDBEdit;


EditTELEPHONE : TDBEdit;


EditZIP : TDBEdit;


ExactBtn : TCheckBox;


FormStorage : TFormStorage;


Grid : TrxDBGrid;


Image1 : TImage;


Image2 : TImage;


Image3 : TImage;


Image4 : TImage;


Image5 : TImage;


Label1 : TLabel;


Label10 : TLabel;


Label11 : TLabel;


Label12 : TLabel;


Label13 : TLabel;


Label14 : TLabel;


Label15 : TLabel;


Label16 : TLabel;


Label17 : TLabel;


Label19 : TLabel;


Label2 : TLabel;


Label20 : TLabel;


Label21 : TLabel;


Label23 : TLabel;


Label24 : TLabel;


Label25 : TLabel;


Label27 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


Label8 : TLabel;


Label9 : TLabel;


NewBtn : TRadioButton;


NewSearchHint : TLabel;


NextBtn : TButton;


Notebook : TNotebook;


PageManager : TPageManager;


RxLabel1 : TRxLabel;


SaveBtn : TButton;


SearchConfirm : TPageProxy;


SearchParams : TPageProxy;


SearchQuery : TRxQuery;


SearchQueryACCT_NBR : TFloatField;


SearchQueryADDRESS_1 : TStringField;


SearchQueryBIRTH_DATE : TDateField;


SearchQueryCITY : TStringField;


SearchQueryDATE_OPEN : TDateField;


SearchQueryDS : TDataSource;


SearchQueryFIRST_NAME : TStringField;


SearchQueryINTERESTS : TStringField;


SearchQueryLAST_NAME : TStringField;


SearchQueryOBJECTIVES : TStringField;


SearchQueryOCCUPATION : TStringField;


SearchQueryRISK_LEVEL : TStringField;


SearchQuerySS_NUMBER : TFloatField;


SearchQuerySTATE : TStringField;


SearchQueryTELEPHONE : TStringField;


SearchQueryZIP : TStringField;


SkipSearchBtn : TRadioButton;


SrchCity : TEdit;


SrchFirstName : TEdit;


SrchName : TEdit;


SrchOccupation : TEdit;


SrchState : TEdit;


ToDo : TPageProxy;


ViewBtn : TRadioButton;


Mode : TClientAssistanceMode;

Public declarations


Constructors


Functions


procedure ClientDataChange(Sender: TField);


procedure ClientEditEnter(Next: Boolean);


procedure ClientEditLeave(Next: Boolean);


procedure ClientEditShow(Next: Boolean);


procedure ClientsBrowseLeave(Next: Boolean);


procedure ClientsBrowseShow(Next: Boolean);


procedure CloseBtnClick(Sender: TObject);


procedure EditChange(Sender: TObject);


procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);


procedure FormCreate(Sender: TObject);


procedure PageManagerGetNextPage(CurrentPage: Integer; var NewPage: Integer);


procedure PageManagerGetPriorPage(CurrentPage: Integer; var NewPage: Integer);


procedure SaveBtnClick(Sender: TObject);


procedure SearchParamsLeave(Next: Boolean);


procedure ToDoLeave(Next: Boolean);


procedure DoSearch;

Private declarations


Properties


Events


Variables


BackBtn : TButton;


Bevel1 : TBevel;


BtnPanel : TPanel;


ClientEdit : TPageProxy;


Clients : TTable;


ClientsACCT_NBR : TFloatField;


ClientsADDRESS_1 : TStringField;


ClientsBIRTH_DATE : TDateField;


ClientsBrowse : TPageProxy;


ClientsCITY : TStringField;


ClientsDATE_OPEN : TDateField;


ClientsDS : TDataSource;


ClientsFIRST_NAME : TStringField;


ClientsIMAGE : TBlobField;


ClientsINTERESTS : TStringField;


ClientsLAST_NAME : TStringField;


ClientsOBJECTIVES : TStringField;


ClientsOCCUPATION : TStringField;


ClientsPICTURE : TStringField;


ClientsRISK_LEVEL : TStringField;


ClientsSS_NUMBER : TFloatField;


ClientsSTATE : TStringField;


ClientsTELEPHONE : TStringField;


ClientsZIP : TStringField;


CloseBtn : TButton;


ComboRISK_LEVEL : TRxDBComboBox;


DeleteBtn : TRadioButton;


DoSearchBtn : TRadioButton;


EditACCT_NBR : TDBEdit;


EditADDRESS_ : TDBEdit;


EditBIRTH_DATE : TDBDateEdit;


EditBtn : TRadioButton;


EditCITY : TDBEdit;


EditDATE_OPEN : TDBDateEdit;


EditFIRST_NAME : TDBEdit;


EditIMAGE : TDBImage;


EditINTERESTS : TDBEdit;


EditLAST_NAME : TDBEdit;


EditOBJECTIVES : TDBEdit;


EditOCCUPATION : TDBEdit;


EditSS_NUMBER : TDBEdit;


EditSTATE : TDBEdit;


EditTELEPHONE : TDBEdit;


EditZIP : TDBEdit;


ExactBtn : TCheckBox;


FormStorage : TFormStorage;


Grid : TrxDBGrid;


Image1 : TImage;


Image2 : TImage;


Image3 : TImage;


Image4 : TImage;


Image5 : TImage;


Label1 : TLabel;


Label10 : TLabel;


Label11 : TLabel;


Label12 : TLabel;


Label13 : TLabel;


Label14 : TLabel;


Label15 : TLabel;


Label16 : TLabel;


Label17 : TLabel;


Label19 : TLabel;


Label2 : TLabel;


Label20 : TLabel;


Label21 : TLabel;


Label23 : TLabel;


Label24 : TLabel;


Label25 : TLabel;


Label27 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


Label8 : TLabel;


Label9 : TLabel;


NewBtn : TRadioButton;


NewSearchHint : TLabel;


NextBtn : TButton;


Notebook : TNotebook;


PageManager : TPageManager;


RxLabel1 : TRxLabel;


SaveBtn : TButton;


SearchConfirm : TPageProxy;


SearchParams : TPageProxy;


SearchQuery : TRxQuery;


SearchQueryACCT_NBR : TFloatField;


SearchQueryADDRESS_1 : TStringField;


SearchQueryBIRTH_DATE : TDateField;


SearchQueryCITY : TStringField;


SearchQueryDATE_OPEN : TDateField;


SearchQueryDS : TDataSource;


SearchQueryFIRST_NAME : TStringField;


SearchQueryINTERESTS : TStringField;


SearchQueryLAST_NAME : TStringField;


SearchQueryOBJECTIVES : TStringField;


SearchQueryOCCUPATION : TStringField;


SearchQueryRISK_LEVEL : TStringField;


SearchQuerySS_NUMBER : TFloatField;


SearchQuerySTATE : TStringField;


SearchQueryTELEPHONE : TStringField;


SearchQueryZIP : TStringField;


SkipSearchBtn : TRadioButton;


SrchCity : TEdit;


SrchFirstName : TEdit;


SrchName : TEdit;


SrchOccupation : TEdit;


SrchState : TEdit;


ToDo : TPageProxy;


ViewBtn : TRadioButton;


Mode : TClientAssistanceMode;

Public declarations