Class TTableSetHelper (unit TableSet)

Inherits from

TObject

Operations on Table Set's (e.g., DataModules

Constructors


constructor Create;

********************************************************************** TTableSetHelper


Functions

procedure BackupTables;


procedure BackupTablesToStream(Stream: TStream);

To current directory as *.

procedure CheckErrors;


procedure ClearIdxDefsTables;


procedure CloseTables;


procedure CreateTables;


procedure CreateTablesWithIdx;


procedure DeleteTables;

Add the New Ones

destructor Destroy;


procedure ForEachTable(EachProc: TEachTableProc);


procedure OpenTables;

Public functions

procedure RegenIndexes(Table: TTable);


procedure RestoreTables;


procedure RestoreTablesFromStream(Stream: TStream);


procedure AddIndexes(Table: TTable);


procedure AddPrimaryIdx(Table: TTable);

For Each functions

procedure BackupCallback(RecordNum: integer; const Msg: string; DS: TDataSet);

Load the ms Stream from the BackStream

procedure BackupTable(Table: TTable);


procedure BackupTableToStream(Table: TTable);


procedure ClearIdxDefsTable(Table: TTable);


procedure CloseTable(Table: TTable);

Not everyone will want this feature

function CreateMemStream(const TableName: string): TMemoryStream;


procedure CreateTable(Table: TTable);


procedure DeleteTable(Table: TTable);


procedure EndStatus;


procedure OpenTable(Table: TTable);


procedure RestoreCallback(RecordNum: integer; const Msg: string; DS: TDataSet);


procedure RestoreTable(Table: TTable);


procedure RestoreTableFromStream(Table: TTable);


procedure SendStatus(const StatMsg: string);

Protected Functions

Properties

Events

Variables

DataGroup : TComponent;


ErrLog : TStringList;


IdxProc : TSpecialIdxProc;


ShowErrors : boolean;


StatusProc : TStatusProc;


BackStream : TStream;



Constructors


constructor Create;

********************************************************************** TTableSetHelper


Functions


procedure BackupTables;


procedure BackupTablesToStream(Stream: TStream);

To current directory as *.txt


procedure CheckErrors;


procedure ClearIdxDefsTables;


procedure CloseTables;


procedure CreateTables;


procedure CreateTablesWithIdx;


procedure DeleteTables;

Add the New Ones


destructor Destroy;


procedure ForEachTable(EachProc: TEachTableProc);


procedure OpenTables;

Public functions


procedure RegenIndexes(Table: TTable);


procedure RestoreTables;


procedure RestoreTablesFromStream(Stream: TStream);


procedure AddIndexes(Table: TTable);


procedure AddPrimaryIdx(Table: TTable);

For Each functions


procedure BackupCallback(RecordNum: integer; const Msg: string; DS: TDataSet);

Load the ms Stream from the BackStream


procedure BackupTable(Table: TTable);


procedure BackupTableToStream(Table: TTable);


procedure ClearIdxDefsTable(Table: TTable);


procedure CloseTable(Table: TTable);

Not everyone will want this feature


function CreateMemStream(const TableName: string): TMemoryStream;


procedure CreateTable(Table: TTable);


procedure DeleteTable(Table: TTable);


procedure EndStatus;


procedure OpenTable(Table: TTable);


procedure RestoreCallback(RecordNum: integer; const Msg: string; DS: TDataSet);


procedure RestoreTable(Table: TTable);


procedure RestoreTableFromStream(Table: TTable);


procedure SendStatus(const StatMsg: string);

Protected Functions


Properties


Events


Variables


DataGroup : TComponent;


ErrLog : TStringList;


IdxProc : TSpecialIdxProc;


ShowErrors : boolean;


StatusProc : TStatusProc;


BackStream : TStream;