Class TMain (unit Phnmain)

Inherits from

TForm

Constructors



Functions

procedure About1Click(Sender: TObject);


procedure ArrangeIcons1Click(Sender: TObject);


procedure btnAddClick(Sender: TObject);


procedure btnCheckedClick(Sender: TObject);


procedure btnCopyClick(Sender: TObject);

Unmark record.

procedure btnDeleteClick(Sender: TObject);


procedure btnFirstClick(Sender: TObject);

procedure FormResize(Sender: TObject);

procedure btnLastClick(Sender: TObject);


procedure btnMoveClick(Sender: TObject);


procedure btnNextClick(Sender: TObject);


procedure btnOpenBookClick(Sender: TObject);


procedure btnPreviousClick(Sender: TObject);


procedure btnSearchClick(Sender: TObject);


procedure Cascade1Click(Sender: TObject);


procedure Close1Click(Sender: TObject);

This statement is not needed because the above statement already frees up the same object.

procedure CloseAll1Click(Sender: TObject);

Open a table within the Access Phone Book database

procedure Contents1Click(Sender: TObject);


procedure DeletePBTableClick(Sender: TObject);


procedure Exit1Click(Sender: TObject);

with PhoneReport do begin InitialValues.

procedure FormCreate(Sender: TObject);


procedure FormDestroy(Sender: TObject);

Add data.

procedure HowtoUseHelp1Click(Sender: TObject);

Application.

procedure New1Click(Sender: TObject);


procedure PackDatabase1Click(Sender: TObject);


procedure Print1Click(Sender: TObject);


procedure PrintSetup1Click(Sender: TObject);


procedure Rename1Click(Sender: TObject);


procedure RepairDatabase1Click(Sender: TObject);


procedure Tile1Click(Sender: TObject);


procedure Undo1Click(Sender: TObject);

Utilities should only be available if no Phone Books are open.

procedure UntagAll1Click(Sender: TObject);


procedure ChangeButtonStatus( TurnOn: Boolean );

Public declarations

function BuildPhoneBookDB: Boolean;

PhoneChildren := TStringList.

procedure WMGetMinMaxInfo(var Msg: TWMGetMinMaxInfo);

Private declarations

iCheckBtnLeft: Smallint; iHelpBtnLeft: Smallint;


Properties

Events

Variables

About1 : TMenuItem;


Add1 : TMenuItem;


ArrangeIcons1 : TMenuItem;


btnAdd : TBitBtn;


btnChecked : TBitBtn;


btnCloseBook : TBitBtn;


btnCopy : TBitBtn;


btnDelete : TBitBtn;


btnFirst : TBitBtn;


btnHelp : TBitBtn;


btnLast : TBitBtn;


btnMove : TBitBtn;


btnNext : TBitBtn;


btnOpenBook : TBitBtn;


btnPrevious : TBitBtn;


btnPrint : TBitBtn;


btnSearch : TSpeedButton;


Cascade1 : TMenuItem;


Close1 : TMenuItem;


CloseAll1 : TMenuItem;


Contents1 : TMenuItem;


Copy1 : TMenuItem;


Copy2 : TMenuItem;


Cut1 : TMenuItem;


Delete1 : TMenuItem;


DeletePBTable : TMenuItem;


dlgPrinterSetup : TPrinterSetupDialog;


Edit1 : TMenuItem;


Exit1 : TMenuItem;


File2 : TMenuItem;


First1 : TMenuItem;


Help1 : TMenuItem;


HowtoUseHelp1 : TMenuItem;


Last1 : TMenuItem;


MainMenu1 : TMainMenu;


Move1 : TMenuItem;


N1 : TMenuItem;


N2 : TMenuItem;


N3 : TMenuItem;


N5 : TMenuItem;


N6 : TMenuItem;


N7 : TMenuItem;


New1 : TMenuItem;


Next1 : TMenuItem;


Open1 : TMenuItem;


PackDatabase1 : TMenuItem;


Panel1 : TPanel;


Panel2 : TPanel;


Paste1 : TMenuItem;


PhoneReport : TReport;


Previous1 : TMenuItem;


Print1 : TMenuItem;


PrintSetup1 : TMenuItem;


Rename1 : TMenuItem;


RepairDatabase1 : TMenuItem;


Tag1 : TMenuItem;


Tile1 : TMenuItem;


Undo1 : TMenuItem;


UntagAll1 : TMenuItem;


Utilities1 : TMenuItem;


Window1 : TMenuItem;



Constructors


Functions


procedure About1Click(Sender: TObject);


procedure ArrangeIcons1Click(Sender: TObject);


procedure btnAddClick(Sender: TObject);


procedure btnCheckedClick(Sender: TObject);


procedure btnCopyClick(Sender: TObject);

Unmark record.


procedure btnDeleteClick(Sender: TObject);


procedure btnFirstClick(Sender: TObject);

procedure FormResize(Sender: TObject);


procedure btnLastClick(Sender: TObject);


procedure btnMoveClick(Sender: TObject);


procedure btnNextClick(Sender: TObject);


procedure btnOpenBookClick(Sender: TObject);


procedure btnPreviousClick(Sender: TObject);


procedure btnSearchClick(Sender: TObject);


procedure Cascade1Click(Sender: TObject);


procedure Close1Click(Sender: TObject);

This statement is not needed because the above statement already frees up the same object. TPhoneTypeInfo(PhoneTypeDesc.Objects[i]).Free;


procedure CloseAll1Click(Sender: TObject);

Open a table within the Access Phone Book database


procedure Contents1Click(Sender: TObject);


procedure DeletePBTableClick(Sender: TObject);


procedure Exit1Click(Sender: TObject);

with PhoneReport do begin InitialValues.Clear; InitialValues.Add( '@ReportOwner = <' + CurrPhoneBook.TableName + '>' ); //InitialValues.Add( '@PhoneBookName = <' + MainTablePrefix + OwnerName + '>' ); //InitialValues.Add( '@PhoneNumbersName = <' + NumbersTablePrefix + OwnerName + '>' ); //RunMacro( '"RunMacro", "SetPhoneBook", " "' ); ReCalcReport; PhoneReport.Run; end;


procedure FormCreate(Sender: TObject);


procedure FormDestroy(Sender: TObject);

Add data.


procedure HowtoUseHelp1Click(Sender: TObject);

Application.HelpCommand(HELP_CONTENTS,0);


procedure New1Click(Sender: TObject);


procedure PackDatabase1Click(Sender: TObject);


procedure Print1Click(Sender: TObject);


procedure PrintSetup1Click(Sender: TObject);


procedure Rename1Click(Sender: TObject);


procedure RepairDatabase1Click(Sender: TObject);


procedure Tile1Click(Sender: TObject);


procedure Undo1Click(Sender: TObject);

Utilities should only be available if no Phone Books are open.


procedure UntagAll1Click(Sender: TObject);


procedure ChangeButtonStatus( TurnOn: Boolean );

Public declarations


function BuildPhoneBookDB: Boolean;

PhoneChildren := TStringList.Create;


procedure WMGetMinMaxInfo(var Msg: TWMGetMinMaxInfo);

Private declarations

iCheckBtnLeft: Smallint; iHelpBtnLeft: Smallint;


Properties


Events


Variables


About1 : TMenuItem;


Add1 : TMenuItem;


ArrangeIcons1 : TMenuItem;


btnAdd : TBitBtn;


btnChecked : TBitBtn;


btnCloseBook : TBitBtn;


btnCopy : TBitBtn;


btnDelete : TBitBtn;


btnFirst : TBitBtn;


btnHelp : TBitBtn;


btnLast : TBitBtn;


btnMove : TBitBtn;


btnNext : TBitBtn;


btnOpenBook : TBitBtn;


btnPrevious : TBitBtn;


btnPrint : TBitBtn;


btnSearch : TSpeedButton;


Cascade1 : TMenuItem;


Close1 : TMenuItem;


CloseAll1 : TMenuItem;


Contents1 : TMenuItem;


Copy1 : TMenuItem;


Copy2 : TMenuItem;


Cut1 : TMenuItem;


Delete1 : TMenuItem;


DeletePBTable : TMenuItem;


dlgPrinterSetup : TPrinterSetupDialog;


Edit1 : TMenuItem;


Exit1 : TMenuItem;


File2 : TMenuItem;


First1 : TMenuItem;


Help1 : TMenuItem;


HowtoUseHelp1 : TMenuItem;


Last1 : TMenuItem;


MainMenu1 : TMainMenu;


Move1 : TMenuItem;


N1 : TMenuItem;


N2 : TMenuItem;


N3 : TMenuItem;


N5 : TMenuItem;


N6 : TMenuItem;


N7 : TMenuItem;


New1 : TMenuItem;


Next1 : TMenuItem;


Open1 : TMenuItem;


PackDatabase1 : TMenuItem;


Panel1 : TPanel;


Panel2 : TPanel;


Paste1 : TMenuItem;


PhoneReport : TReport;


Previous1 : TMenuItem;


Print1 : TMenuItem;


PrintSetup1 : TMenuItem;


Rename1 : TMenuItem;


RepairDatabase1 : TMenuItem;


Tag1 : TMenuItem;


Tile1 : TMenuItem;


Undo1 : TMenuItem;


UntagAll1 : TMenuItem;


Utilities1 : TMenuItem;


Window1 : TMenuItem;