Class TMain (unit Phnmain) |
Inherits from
TForm
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;
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;
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;
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;