| Class TClientAssistant (unit PageDemo) |
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;| 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;| 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