Class TGenericTableSetForm (unit GenericTableSet)

Inherits from

TForm

Constructors



Functions

procedure BackupExportAllTables1Click(Sender: TObject);


procedure BackuptoFile1Click(Sender: TObject);


procedure DeleteAllTablesDangerous1Click(Sender: TObject);


procedure Exit1Click(Sender: TObject);


procedure ExportTabletoAscii1Click(Sender: TObject);


procedure ExportTableToExcel1Click(Sender: TObject);


procedure FormClose(Sender: TObject; var Action: TCloseAction);

Table1.

procedure FormCreate(Sender: TObject);


procedure FormDestroy(Sender: TObject);

For the original DataGroup (global DataModule1

procedure FormShow(Sender: TObject);


procedure Panel1Resize(Sender: TObject);


procedure PrinterSetup1Click(Sender: TObject);


procedure RecreateTablesDangerous1Click(Sender: TObject);


procedure RestoreFromFile1Click(Sender: TObject);


procedure RestoreImportAllTables1Click(Sender: TObject);


procedure SelectDatabase1Click(Sender: TObject);


procedure SQLQuery1Click(Sender: TObject);


procedure StartupTimerTimer(Sender: TObject);


procedure Synchronize1Click(Sender: TObject);


procedure TableComboChange(Sender: TObject);


procedure TableTools1Click(Sender: TObject);


procedure ToolPanelResize(Sender: TObject);


procedure WWWImageDblClick(Sender: TObject);


procedure WWWServer1Click(Sender: TObject);


function Create_WABD_SesMgr: TWABD_SessionMgr;


procedure DoIntervalBackup;


procedure Show_MOTD(const Path: string; ShowEmpty: boolean);

Show the MOTD - Message of the Day

procedure AfterAdd(var Msg: TMessage);


procedure AppendTablePopup;


function BackupDays: integer;


function CreateBackup: boolean;


procedure DataTableDblClick(Sender: TObject);


procedure Delete_Old_Backups;


procedure FillComboTable(Table: TTable);


function GetAlias: string;


procedure GetAliasFromINI;


function GetDataModule: TDataModule;


function GetIniName: string;


function GetLastBackup: TDateTime;

Backup

procedure InitTableCombo;


procedure NavOnClick(Sender: TObject; Button: TNavigateBtn);


function NumBackupFiles: integer;


procedure OpenTables;

Virtual

DataModule1.


procedure SetAlias(const Alias: string);

Virtual & Abstract

procedure SetAliasCaption;


procedure SetDefaultExtension(const Desc, Ext: string);


procedure SetLastBackup(d: TDateTime);


procedure ShowWWWServer;


procedure TableStatus(Sender: TObject; const Msg: string; LastOperation: boolean);


Properties

property LastBackup : TDateTime


Events

Variables

AdminOnly1 : TMenuItem;


BackupExportAllTables1 : TMenuItem;


BackuptoFile1 : TMenuItem;


ButPanel : TPanel;


DeleteAllTablesDangerous1 : TMenuItem;


Exit1 : TMenuItem;


ExportTabletoAscii1 : TMenuItem;


ExportTableToExcel1 : TMenuItem;


File1 : TMenuItem;


Label1 : TLabel;


MainMenu1 : TMainMenu;


N1 : TMenuItem;


N100 : TMenuItem;


N105 : TMenuItem;


N2 : TMenuItem;


N2000 : TMenuItem;


N3000 : TMenuItem;


N4 : TMenuItem;


OpenDialog1 : TOpenDialog;


Panel1 : TPanel;


PrinterSetup1 : TMenuItem;


PrinterSetupDialog1 : TPrinterSetupDialog;


RecreateTablesDangerous1 : TMenuItem;


RestoreFromFile1 : TMenuItem;


RestoreImportAllTables1 : TMenuItem;


SaveDialog1 : TSaveDialog;


SelectDatabase1 : TMenuItem;


SQLQuery1 : TMenuItem;


StartupTimer : TTimer;


Synchronize1 : TMenuItem;


TableCombo : TComboBox;


TableTools1 : TMenuItem;


ToolPanel : TPanel;


Tools1 : TMenuItem;


WWWImage : TImage;


WWWServer1 : TMenuItem;


dw : TDataWinForm;


MainTable : string;


OldNavClk : ENavClick;


TableSet : TTableSetHelper;



Constructors


Functions


procedure BackupExportAllTables1Click(Sender: TObject);


procedure BackuptoFile1Click(Sender: TObject);


procedure DeleteAllTablesDangerous1Click(Sender: TObject);


procedure Exit1Click(Sender: TObject);


procedure ExportTabletoAscii1Click(Sender: TObject);


procedure ExportTableToExcel1Click(Sender: TObject);


procedure FormClose(Sender: TObject; var Action: TCloseAction);

Table1.OnClick := DataWinForm.TablePopupMenu.OnPopup; CopySubMenus(DataWinForm.TablePopupMenu.Items, Table1);


procedure FormCreate(Sender: TObject);


procedure FormDestroy(Sender: TObject);

For the original DataGroup (global DataModule1


procedure FormShow(Sender: TObject);


procedure Panel1Resize(Sender: TObject);


procedure PrinterSetup1Click(Sender: TObject);


procedure RecreateTablesDangerous1Click(Sender: TObject);


procedure RestoreFromFile1Click(Sender: TObject);


procedure RestoreImportAllTables1Click(Sender: TObject);


procedure SelectDatabase1Click(Sender: TObject);


procedure SQLQuery1Click(Sender: TObject);


procedure StartupTimerTimer(Sender: TObject);


procedure Synchronize1Click(Sender: TObject);


procedure TableComboChange(Sender: TObject);


procedure TableTools1Click(Sender: TObject);


procedure ToolPanelResize(Sender: TObject);


procedure WWWImageDblClick(Sender: TObject);


procedure WWWServer1Click(Sender: TObject);


function Create_WABD_SesMgr: TWABD_SessionMgr;


procedure DoIntervalBackup;


procedure Show_MOTD(const Path: string; ShowEmpty: boolean);

Show the MOTD - Message of the Day


procedure AfterAdd(var Msg: TMessage);


procedure AppendTablePopup;


function BackupDays: integer;


function CreateBackup: boolean;


procedure DataTableDblClick(Sender: TObject);


procedure Delete_Old_Backups;


procedure FillComboTable(Table: TTable);


function GetAlias: string;


procedure GetAliasFromINI;


function GetDataModule: TDataModule;


function GetIniName: string;


function GetLastBackup: TDateTime;

Backup


procedure InitTableCombo;


procedure NavOnClick(Sender: TObject; Button: TNavigateBtn);


function NumBackupFiles: integer;


procedure OpenTables;

Virtual

DataModule1.SetAlias(Alias);


procedure SetAlias(const Alias: string);

Virtual & Abstract


procedure SetAliasCaption;


procedure SetDefaultExtension(const Desc, Ext: string);


procedure SetLastBackup(d: TDateTime);


procedure ShowWWWServer;


procedure TableStatus(Sender: TObject; const Msg: string; LastOperation: boolean);


Properties


property LastBackup : TDateTime


Events


Variables


AdminOnly1 : TMenuItem;


BackupExportAllTables1 : TMenuItem;


BackuptoFile1 : TMenuItem;


ButPanel : TPanel;


DeleteAllTablesDangerous1 : TMenuItem;


Exit1 : TMenuItem;


ExportTabletoAscii1 : TMenuItem;


ExportTableToExcel1 : TMenuItem;


File1 : TMenuItem;


Label1 : TLabel;


MainMenu1 : TMainMenu;


N1 : TMenuItem;


N100 : TMenuItem;


N105 : TMenuItem;


N2 : TMenuItem;


N2000 : TMenuItem;


N3000 : TMenuItem;


N4 : TMenuItem;


OpenDialog1 : TOpenDialog;


Panel1 : TPanel;


PrinterSetup1 : TMenuItem;


PrinterSetupDialog1 : TPrinterSetupDialog;


RecreateTablesDangerous1 : TMenuItem;


RestoreFromFile1 : TMenuItem;


RestoreImportAllTables1 : TMenuItem;


SaveDialog1 : TSaveDialog;


SelectDatabase1 : TMenuItem;


SQLQuery1 : TMenuItem;


StartupTimer : TTimer;


Synchronize1 : TMenuItem;


TableCombo : TComboBox;


TableTools1 : TMenuItem;


ToolPanel : TPanel;


Tools1 : TMenuItem;


WWWImage : TImage;


WWWServer1 : TMenuItem;


dw : TDataWinForm;


MainTable : string;


OldNavClk : ENavClick;


TableSet : TTableSetHelper;