Class TTableSetHelper (unit TableSet) |
Inherits from
TObject
Operations on Table Set's (e.g., DataModules
constructor Create;
- ********************************************************************** TTableSetHelper
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
DataGroup : TComponent;
ErrLog : TStringList;
IdxProc : TSpecialIdxProc;
ShowErrors : boolean;
StatusProc : TStatusProc;
BackStream : TStream;
constructor Create;
********************************************************************** TTableSetHelper
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
DataGroup : TComponent;
ErrLog : TStringList;
IdxProc : TSpecialIdxProc;
ShowErrors : boolean;
StatusProc : TStatusProc;
BackStream : TStream;