Class TMDIChild (unit ChildWin)

Inherits from

TForm

Constructors



Functions

procedure AfterOpen(DataSet: TDataset);


procedure AfterPost(DataSet: TDataset);


procedure CancelQueryClick(Sender: TObject);


procedure CloseItemClick(Sender: TObject);


procedure CloseTableItemClick(Sender: TObject);


procedure DataSource1DataChange(Sender: TObject; Field: TField);


procedure DataSource2StateChange(Sender: TObject);


procedure DBQryProgress(Sender: TObject; var Abort: Boolean);


procedure DBQueryProgressTrace(Sender: TObject; Flag: TTraceFlag; const Msg: string);


procedure FieldListCalcFields(DataSet: TDataset);


procedure FilterItemClick(Sender: TObject);


procedure FormActivate(Sender: TObject);


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


procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);


procedure FormCreate(Sender: TObject);


procedure FormDestroy(Sender: TObject);


procedure FormStorageRestorePlacement(Sender: TObject);


procedure FormStorageSavePlacement(Sender: TObject);


procedure GridCheckButton(Sender: TObject; ACol: Longint; Field: TField; var Enabled: Boolean);


procedure GridDblClick(Sender: TObject);

and not AutoActivate

procedure GridGetBtnParams(Sender: TObject; Field: TField; AFont: TFont; var Background: TColor; IsDown: Boolean);


procedure GridGetCellParams(Sender: TObject; Field: TField; AFont: TFont; var Background: TColor; Highlight: Boolean);


procedure GridTitleBtnClick(Sender: TObject; ACol: Longint; Field: TField);


procedure NavigateSQLClick(Sender: TObject);


procedure OpenTableClick(Sender: TObject);


procedure PopupSQLMenuClick(Sender: TObject);


procedure PopupSQLMenuPopup(Sender: TObject);


procedure PopupTablesMenuPopup(Sender: TObject);


procedure QueryAborting(DataSet: TDataSet; var AbortQuery: Boolean);


procedure RefIntListTYPEGetText(Sender: TField; var Text: string; DisplayText: Boolean);


procedure RunSQLClick(Sender: TObject);

for 32-bit only

procedure ShowDeletedItemClick(Sender: TObject);


procedure SQLMemoChange(Sender: TObject);


procedure TabAfterClose(DataSet: TDataSet);


procedure TabBeforeDelete(DataSet: TDataSet);


procedure TableChange(Sender: TObject; Field: TField);


procedure TableListCalcFields(DataSet: TDataset);


procedure TablesGridDrawDataCell(Sender: TObject; const Rect: TRect; Field: TField; State: TGridDrawState);


procedure TablesGridKeyPress(Sender: TObject; var Key: Char);

if not AutoActivate then

procedure TabSet1Change(Sender: TObject; NewTab: Integer; var AllowChange: Boolean);


procedure CheckAndRepairParadoxTable(AllTables: Boolean);


function CheckStandard: Boolean;


procedure CloseDatabase;

Public declarations

procedure Commit(ASession: TTransSession);


function CurrentTable: TTable;

mark current table as deleted

procedure ExportCurrentTable;

ignore exceptions

procedure ImportToCurrentTable;


procedure MarkAsDeleted(const TabName: string);


procedure PackCurrentTable;


procedure RefreshData;


procedure ReindexTable;


procedure Rollback(ASession: TTransSession);


function SessionDB(ASession: TTransSession): TDatabase;


procedure SetToCurrentTable;


procedure SetTrace(Value: Boolean);


procedure StartTransaction(ASession: TTransSession);

Read property Database.

function TransOperEnabled(ASession: TTransSession; Operation: TTransOperation): Boolean;


procedure UpdateDataFieldFormats;


procedure UpdateSystemTables;


procedure UpdateThreadOptions;


procedure CloseCurrent;


procedure EnableSQLHistoryItems;


procedure ExecSQL;


function GetActiveDataSource: TDataSource;


function GetDatabaseName: string;

for TUTIL32.

procedure InternalOpenCurrent(const TabName: string);


procedure QueryThreadDone(Sender: TObject);


procedure SetDatabaseName(const Value: string);


procedure StartWatch;


procedure StopWatch;


procedure UpdateFieldFormats(DataSet: TDataSet);

default session

procedure UpdateSQLHistory;


Properties

property DatabaseName : string


property DataSource : TDataSource


Events

Variables

AbortQueryMenu : TPopupMenu;


CancelItem : TMenuItem;


CloseItem : TMenuItem;


CloseTableItem : TMenuItem;


Copy1 : TMenuItem;


Cut1 : TMenuItem;


DataSource1 : TDataSource;


DataSource2 : TDataSource;


DbImages : TPicClip;


DBIndexCombo1 : TDBIndexCombo;


DBQueryProgress : TDBProgress;


FieldList1 : TTableItems;


FieldList1FIELDNUM : TWordField;


FieldList1LENGTH : TWordField;


FieldList1NAME : TStringField;


FieldList1Required : TBooleanField;


FieldList1SUBTYPE : TWordField;


FieldList1SubTypeName : TStringField;


FieldList1TYPE : TWordField;


FieldList1TypeName : TStringField;


FieldList1UNITS1 : TWordField;


FieldList1UNITS2 : TWordField;


FilterItem : TMenuItem;


FormStorage : TFormStorage;


IndexList1 : TTableItems;


IndexList1FORMAT : TStringField;


IndexList1NAME : TStringField;


IndexList1PRIMARY : TBooleanField;


IndexList1TAGNAME : TStringField;


IndexList1UNIQUE : TBooleanField;


Label1 : TLabel;


Label2 : TLabel;


Load1 : TMenuItem;


N1 : TMenuItem;


N2 : TMenuItem;


N3 : TMenuItem;


N4 : TMenuItem;


N5 : TMenuItem;


NextSQL : TRxSpeedButton;


NextSQLItem : TMenuItem;


Notebook1 : TNotebook;


OpenDialog1 : TOpenDialog;


OpenTableItem : TMenuItem;


Panel1 : TPanel;


Panel2 : TPanel;


Panel3 : TPanel;


Panel4 : TPanel;


Panel5 : TPanel;


Panel6 : TPanel;


Panel7 : TPanel;


Panel9 : TPanel;


Paste1 : TMenuItem;


PopupSQLMenu : TPopupMenu;


PopupTablesMenu : TPopupMenu;


PriorSQL : TRxSpeedButton;


PriorSQLItem : TMenuItem;


Query1 : TrxQuery;


QueryAnimation : TAnimatedImage;


Querybuilder1 : TMenuItem;


QueryDB : TDatabase;


QuerySession : TSession;


RefIntList : TTableItems;


RefIntListFIELDCOUNT : TWordField;


RefIntListNAME : TStringField;


RefIntListOTHERTABLE : TStringField;


RefIntListTYPE : TIntegerField;


Runquery1 : TMenuItem;


RunSQL : TRxSpeedButton;


rxDBGrid2 : TrxDBGrid;


rxDBGrid3 : TrxDBGrid;


rxSplitter1 : TrxSplitter;


rxSplitter2 : TrxSplitter;


Saveas1 : TMenuItem;


SaveDialog1 : TSaveDialog;


SelectAll1 : TMenuItem;


ShowDeletedItem : TMenuItem;


SQLMemo : TMemo;


Table1 : TTable;


TableList : TDatabaseItems;


TableListDELETED : TBooleanField;


TableListEXTENSION : TStringField;


TableListNAME : TStringField;


TableListPict : TBooleanField;


TableListSYNONYM : TBooleanField;


TableListTABNAME : TStringField;


TableListTYPE : TStringField;


TableListVIEW : TBooleanField;


TablesGrid : TrxDBGrid;


TabSet1 : TTabSet;


Undo1 : TMenuItem;


FAbortQuery : Boolean;


FCurDeleted : Boolean;


FDeletedList : TStrings;


FQueryRunning : Boolean;


FQueryStartTime : Longint;


FShowDeleted : Boolean;


FSQLHistory : TStrings;


FSQLHistoryIndex : Integer;

Private declarations

FTryOpenTable : Boolean;



Constructors


Functions


procedure AfterOpen(DataSet: TDataset);


procedure AfterPost(DataSet: TDataset);


procedure CancelQueryClick(Sender: TObject);


procedure CloseItemClick(Sender: TObject);


procedure CloseTableItemClick(Sender: TObject);


procedure DataSource1DataChange(Sender: TObject; Field: TField);


procedure DataSource2StateChange(Sender: TObject);


procedure DBQryProgress(Sender: TObject; var Abort: Boolean);


procedure DBQueryProgressTrace(Sender: TObject; Flag: TTraceFlag; const Msg: string);


procedure FieldListCalcFields(DataSet: TDataset);


procedure FilterItemClick(Sender: TObject);


procedure FormActivate(Sender: TObject);


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


procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);


procedure FormCreate(Sender: TObject);


procedure FormDestroy(Sender: TObject);


procedure FormStorageRestorePlacement(Sender: TObject);


procedure FormStorageSavePlacement(Sender: TObject);


procedure GridCheckButton(Sender: TObject; ACol: Longint; Field: TField; var Enabled: Boolean);


procedure GridDblClick(Sender: TObject);

and not AutoActivate


procedure GridGetBtnParams(Sender: TObject; Field: TField; AFont: TFont; var Background: TColor; IsDown: Boolean);


procedure GridGetCellParams(Sender: TObject; Field: TField; AFont: TFont; var Background: TColor; Highlight: Boolean);


procedure GridTitleBtnClick(Sender: TObject; ACol: Longint; Field: TField);


procedure NavigateSQLClick(Sender: TObject);


procedure OpenTableClick(Sender: TObject);


procedure PopupSQLMenuClick(Sender: TObject);


procedure PopupSQLMenuPopup(Sender: TObject);


procedure PopupTablesMenuPopup(Sender: TObject);


procedure QueryAborting(DataSet: TDataSet; var AbortQuery: Boolean);


procedure RefIntListTYPEGetText(Sender: TField; var Text: string; DisplayText: Boolean);


procedure RunSQLClick(Sender: TObject);

for 32-bit only


procedure ShowDeletedItemClick(Sender: TObject);


procedure SQLMemoChange(Sender: TObject);


procedure TabAfterClose(DataSet: TDataSet);


procedure TabBeforeDelete(DataSet: TDataSet);


procedure TableChange(Sender: TObject; Field: TField);


procedure TableListCalcFields(DataSet: TDataset);


procedure TablesGridDrawDataCell(Sender: TObject; const Rect: TRect; Field: TField; State: TGridDrawState);


procedure TablesGridKeyPress(Sender: TObject; var Key: Char);

if not AutoActivate then


procedure TabSet1Change(Sender: TObject; NewTab: Integer; var AllowChange: Boolean);


procedure CheckAndRepairParadoxTable(AllTables: Boolean);


function CheckStandard: Boolean;


procedure CloseDatabase;

Public declarations


procedure Commit(ASession: TTransSession);


function CurrentTable: TTable;

mark current table as deleted


procedure ExportCurrentTable;

ignore exceptions


procedure ImportToCurrentTable;


procedure MarkAsDeleted(const TabName: string);


procedure PackCurrentTable;


procedure RefreshData;


procedure ReindexTable;


procedure Rollback(ASession: TTransSession);


function SessionDB(ASession: TTransSession): TDatabase;


procedure SetToCurrentTable;


procedure SetTrace(Value: Boolean);


procedure StartTransaction(ASession: TTransSession);

Read property Database.InTransaction caused change of current BDE session


function TransOperEnabled(ASession: TTransSession; Operation: TTransOperation): Boolean;


procedure UpdateDataFieldFormats;


procedure UpdateSystemTables;


procedure UpdateThreadOptions;


procedure CloseCurrent;


procedure EnableSQLHistoryItems;


procedure ExecSQL;


function GetActiveDataSource: TDataSource;


function GetDatabaseName: string;

for TUTIL32.DLL

TMDIChild


procedure InternalOpenCurrent(const TabName: string);


procedure QueryThreadDone(Sender: TObject);


procedure SetDatabaseName(const Value: string);


procedure StartWatch;


procedure StopWatch;


procedure UpdateFieldFormats(DataSet: TDataSet);

default session


procedure UpdateSQLHistory;


Properties


property DatabaseName : string


property DataSource : TDataSource


Events


Variables


AbortQueryMenu : TPopupMenu;


CancelItem : TMenuItem;


CloseItem : TMenuItem;


CloseTableItem : TMenuItem;


Copy1 : TMenuItem;


Cut1 : TMenuItem;


DataSource1 : TDataSource;


DataSource2 : TDataSource;


DbImages : TPicClip;


DBIndexCombo1 : TDBIndexCombo;


DBQueryProgress : TDBProgress;


FieldList1 : TTableItems;


FieldList1FIELDNUM : TWordField;


FieldList1LENGTH : TWordField;


FieldList1NAME : TStringField;


FieldList1Required : TBooleanField;


FieldList1SUBTYPE : TWordField;


FieldList1SubTypeName : TStringField;


FieldList1TYPE : TWordField;


FieldList1TypeName : TStringField;


FieldList1UNITS1 : TWordField;


FieldList1UNITS2 : TWordField;


FilterItem : TMenuItem;


FormStorage : TFormStorage;


IndexList1 : TTableItems;


IndexList1FORMAT : TStringField;


IndexList1NAME : TStringField;


IndexList1PRIMARY : TBooleanField;


IndexList1TAGNAME : TStringField;


IndexList1UNIQUE : TBooleanField;


Label1 : TLabel;


Label2 : TLabel;


Load1 : TMenuItem;


N1 : TMenuItem;


N2 : TMenuItem;


N3 : TMenuItem;


N4 : TMenuItem;


N5 : TMenuItem;


NextSQL : TRxSpeedButton;


NextSQLItem : TMenuItem;


Notebook1 : TNotebook;


OpenDialog1 : TOpenDialog;


OpenTableItem : TMenuItem;


Panel1 : TPanel;


Panel2 : TPanel;


Panel3 : TPanel;


Panel4 : TPanel;


Panel5 : TPanel;


Panel6 : TPanel;


Panel7 : TPanel;


Panel9 : TPanel;


Paste1 : TMenuItem;


PopupSQLMenu : TPopupMenu;


PopupTablesMenu : TPopupMenu;


PriorSQL : TRxSpeedButton;


PriorSQLItem : TMenuItem;


Query1 : TrxQuery;


QueryAnimation : TAnimatedImage;


Querybuilder1 : TMenuItem;


QueryDB : TDatabase;


QuerySession : TSession;


RefIntList : TTableItems;


RefIntListFIELDCOUNT : TWordField;


RefIntListNAME : TStringField;


RefIntListOTHERTABLE : TStringField;


RefIntListTYPE : TIntegerField;


Runquery1 : TMenuItem;


RunSQL : TRxSpeedButton;


rxDBGrid2 : TrxDBGrid;


rxDBGrid3 : TrxDBGrid;


rxSplitter1 : TrxSplitter;


rxSplitter2 : TrxSplitter;


Saveas1 : TMenuItem;


SaveDialog1 : TSaveDialog;


SelectAll1 : TMenuItem;


ShowDeletedItem : TMenuItem;


SQLMemo : TMemo;


Table1 : TTable;


TableList : TDatabaseItems;


TableListDELETED : TBooleanField;


TableListEXTENSION : TStringField;


TableListNAME : TStringField;


TableListPict : TBooleanField;


TableListSYNONYM : TBooleanField;


TableListTABNAME : TStringField;


TableListTYPE : TStringField;


TableListVIEW : TBooleanField;


TablesGrid : TrxDBGrid;


TabSet1 : TTabSet;


Undo1 : TMenuItem;


FAbortQuery : Boolean;


FCurDeleted : Boolean;


FDeletedList : TStrings;


FQueryRunning : Boolean;


FQueryStartTime : Longint;


FShowDeleted : Boolean;


FSQLHistory : TStrings;


FSQLHistoryIndex : Integer;

Private declarations


FTryOpenTable : Boolean;