| Class TMDIChild (unit ChildWin) |
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);
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);
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);
procedure TabSet1Change(Sender: TObject; NewTab: Integer;
var AllowChange: Boolean);
procedure CheckAndRepairParadoxTable(AllTables: Boolean);
function CheckStandard: Boolean;
procedure CloseDatabase;
procedure Commit(ASession: TTransSession);
function CurrentTable: TTable;
procedure ExportCurrentTable;
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);
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;
procedure InternalOpenCurrent(const TabName: string);
procedure QueryThreadDone(Sender: TObject);
procedure SetDatabaseName(const Value: string);
procedure StartWatch;
procedure StopWatch;
procedure UpdateFieldFormats(DataSet: TDataSet);
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;
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;