Class TDataWinForm (unit DataWin) |
Inherits from
TForm
procedure AssignTable(Table: TTable);
procedure ClearButClick(Sender: TObject);
procedure CloseTransLog1Click(Sender: TObject);
procedure CreateIndex1Click(Sender: TObject);
procedure CreateTransLog1Click(Sender: TObject);
procedure DBGrid1ColumnMoved(Sender: TObject; FromIndex,
ToIndex: Integer);
procedure DBGrid1DblClick(Sender: TObject);
procedure DBGrid1TitleClick(Column: TColumn);
procedure DeleteIndex1Click(Sender: TObject);
procedure EmptyTable1Click(Sender: TObject);
procedure Exclusive1Click(Sender: TObject);
If there is an error try to reopen without exclusive mode
procedure ExpandButClick(Sender: TObject);
Twice incase scrollbar appears
procedure ExporttoAscii1Click(Sender: TObject);
We have a single filter
procedure ExporttoExcel1Click(Sender: TObject);
procedure FilterButClick(Sender: TObject);
This is used to avoid a fake click when the user just wants to move a column.
procedure FilteronRange1Click(Sender: TObject);
procedure FilterPanelResize(Sender: TObject);
procedure Find1Click(Sender: TObject);
FindDialog1.
procedure FindDialog1Find(Sender: TObject);
procedure FindFilter1Click(Sender: TObject);
procedure FindNext1Click(Sender: TObject);
procedure Font1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
function GetColSetName: string;
This really makes everything before this useless.
function GetFilterDesc: TStringList;
cb.
procedure ImportAscii1Click(Sender: TObject);
Apply the User's Defaults
procedure ImportTransLog1Click(Sender: TObject);
procedure IndexComboChange(Sender: TObject);
procedure MultFilt1Click(Sender: TObject);
procedure RebuildIndexes1Click(Sender: TObject);
procedure RefreshCurTable;
procedure RefreshFilterCombos1Click(Sender: TObject);
procedure RefreshTable1Click(Sender: TObject);
procedure Refresh_Filter_Combos;
procedure RegenerateIndexes1Click(Sender: TObject);
Delete the index
procedure ResetTableViewtoDefault1Click(Sender: TObject);
procedure RestoreColumnSettings;
procedure SaveColumnSettings;
procedure SaveDefaultColumnSettings;
Check if new database fields have been added.
procedure ScrollBox1Resize(Sender: TObject);
procedure Splitter1Moved(Sender: TObject);
procedure StatPanel1DblClick(Sender: TObject);
Create the new indexes
procedure TableDefaults1Click(Sender: TObject);
procedure TablePopupMenuPopup(Sender: TObject);
function TextInRecord: boolean;
procedure UpdateVersion1Click(Sender: TObject);
procedure ViewStatusBar1Click(Sender: TObject);
procedure ViewTableStructure1Click(Sender: TObject);
procedure ViewTransLog1Click(Sender: TObject);
procedure AddDateFilter(f: TField; FilterNum: integer);
procedure AddLookupFilter(f: TField; FilterNum: integer);
procedure AddNumFilter(f: TField; FilterNum: integer);
procedure AddStrFilter(f: TField; FilterNum: integer);
function CreateRegIni: TRegIniFile;
procedure DateFilterLabelClick(Sender: TObject);
procedure DoFind;
procedure Empty_CurTable;
procedure Fill_Filter_Combo(cb: TFilterCombo);
procedure FilterComboChange(Sender: TObject);
procedure FilterLabelClick(Sender: TObject);
procedure FindFilterFunc(DataSet: TDataSet; var Accept: Boolean);
procedure FormHint(Sender: TObject);
Create the Index
procedure InitFilterControls;
procedure InitIndexCombo;
Set to the new value
procedure LayoutFilterPanel;
Clear out any old controls
procedure LoadDefaults;
procedure LoadTransactionSettings;
procedure NumKeyPress(Sender: TObject; var Key: char);
procedure NumLabelClick(Sender: TObject);
Get rid of invisible columns
function NumVisibleFields: integer;
procedure Refresh_Lookup_Cache;
Regenerate Indexes
procedure RestoreCurrentIndex;
procedure SaveCurrentIndex;
procedure SaveDefaults;
procedure SaveTransactionSettings;
function SetExclusiveMode(Mode: boolean): boolean;
procedure Set_IndexCombo_To_Current;
procedure StatCallback(RecordNum: integer; const Msg: string; DS: TDataSet);
procedure StringFilterLabelClick(Sender: TObject);
procedure TableFilterRecord(DataSet: TDataSet; var Accept: Boolean);
procedure TableNewRecord(DataSet: TDataSet);
procedure UpdateNumRecords;
Admin1 : TMenuItem;
Advanced1 : TMenuItem;
ClearBut : TButton;
CloseTransLog1 : TMenuItem;
CreateIndex1 : TMenuItem;
CreateTransLog1 : TMenuItem;
CurTable : TTable;
DataSource1 : TDataSource;
DBGrid1 : TDBGrid;
DBNavigator1 : TAppendNavigator;
DefColList : TStringList;
DeleteIndex1 : TMenuItem;
EmptyTable1 : TMenuItem;
Exclusive1 : TMenuItem;
ExpandBut : TButton;
ExporttoAscii1 : TMenuItem;
ExporttoExcel1 : TMenuItem;
FilterBut : TButton;
FilteronRange1 : TMenuItem;
FilterPanel : TPanel;
FilterPanelTop : TPanel;
FiltList : TStringList;
Find1 : TMenuItem;
FindDialog1 : TFindDialog;
FindFilter1 : TMenuItem;
FindNext1 : TMenuItem;
Font1 : TMenuItem;
FontDialog1 : TFontDialog;
IgnoreTitleClick : boolean;
ImportTablefromAscii1 : TMenuItem;
ImportTransDialog : TOpenDialog;
ImportTransLog1 : TMenuItem;
IndexCombo : TComboBox;
Label1 : TLabel;
LookupFilterPopup : TPopupMenu;
MultFilt1 : TMenuItem;
N1 : TMenuItem;
N2 : TMenuItem;
N3 : TMenuItem;
N4 : TMenuItem;
N5 : TMenuItem;
N6 : TMenuItem;
NumFilterPopup : TPopupMenu;
OpenDialog1 : TOpenDialog;
Panel1 : TPanel;
RebuildIndexes1 : TMenuItem;
RefreshFilterCombos1 : TMenuItem;
RefreshTable1 : TMenuItem;
RegenerateIndexes1 : TMenuItem;
ResetTableViewtoDefault1 : TMenuItem;
SaveDialog1 : TSaveDialog;
SaveTransDialog : TSaveDialog;
ScrollBox1 : TScrollBox;
Splitter1 : TSplitter;
StatPanel1 : TPanel;
StatPanel2 : TPanel;
StatusPanel : TPanel;
TableDefaults1 : TMenuItem;
TablePopupMenu : TPopupMenu;
UpdateVersion1 : TMenuItem;
View1 : TMenuItem;
ViewStatusBar1 : TMenuItem;
ViewTableStructure1 : TMenuItem;
ViewTransLog1 : TMenuItem;
DoFirst : boolean;
FindFilt : boolean;
Keywords : string;
MemoForm : TForm;
NumFilter : integer;
OldOnNewRec : TDataSetNotifyEvent;
TableDefs : TStringList;
TotRec : integer;
procedure AssignTable(Table: TTable);
procedure ClearButClick(Sender: TObject);
procedure CloseTransLog1Click(Sender: TObject);
procedure CreateIndex1Click(Sender: TObject);
procedure CreateTransLog1Click(Sender: TObject);
procedure DBGrid1ColumnMoved(Sender: TObject; FromIndex,
ToIndex: Integer);
procedure DBGrid1DblClick(Sender: TObject);
procedure DBGrid1TitleClick(Column: TColumn);
procedure DeleteIndex1Click(Sender: TObject);
procedure EmptyTable1Click(Sender: TObject);
procedure Exclusive1Click(Sender: TObject);
If there is an error try to reopen without exclusive mode
procedure ExpandButClick(Sender: TObject);
Twice incase scrollbar appears
procedure ExporttoAscii1Click(Sender: TObject);
We have a single filter
procedure ExporttoExcel1Click(Sender: TObject);
procedure FilterButClick(Sender: TObject);
This is used to avoid a fake click when the user just wants to move a column.
procedure FilteronRange1Click(Sender: TObject);
procedure FilterPanelResize(Sender: TObject);
procedure Find1Click(Sender: TObject);
FindDialog1.CloseDialog;
procedure FindDialog1Find(Sender: TObject);
procedure FindFilter1Click(Sender: TObject);
procedure FindNext1Click(Sender: TObject);
procedure Font1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
function GetColSetName: string;
This really makes everything before this useless.
function GetFilterDesc: TStringList;
cb.Text := 'MULTIPLE: ';
procedure ImportAscii1Click(Sender: TObject);
Apply the User's Defaults
procedure ImportTransLog1Click(Sender: TObject);
procedure IndexComboChange(Sender: TObject);
procedure MultFilt1Click(Sender: TObject);
procedure RebuildIndexes1Click(Sender: TObject);
procedure RefreshCurTable;
procedure RefreshFilterCombos1Click(Sender: TObject);
procedure RefreshTable1Click(Sender: TObject);
procedure Refresh_Filter_Combos;
procedure RegenerateIndexes1Click(Sender: TObject);
Delete the index
procedure ResetTableViewtoDefault1Click(Sender: TObject);
procedure RestoreColumnSettings;
procedure SaveColumnSettings;
procedure SaveDefaultColumnSettings;
Check if new database fields have been added. If they have, Reset the column view (because the new fields will be missiing
procedure ScrollBox1Resize(Sender: TObject);
procedure Splitter1Moved(Sender: TObject);
procedure StatPanel1DblClick(Sender: TObject);
Create the new indexes
procedure TableDefaults1Click(Sender: TObject);
procedure TablePopupMenuPopup(Sender: TObject);
function TextInRecord: boolean;
procedure UpdateVersion1Click(Sender: TObject);
procedure ViewStatusBar1Click(Sender: TObject);
procedure ViewTableStructure1Click(Sender: TObject);
procedure ViewTransLog1Click(Sender: TObject);
procedure AddDateFilter(f: TField; FilterNum: integer);
procedure AddLookupFilter(f: TField; FilterNum: integer);
procedure AddNumFilter(f: TField; FilterNum: integer);
procedure AddStrFilter(f: TField; FilterNum: integer);
function CreateRegIni: TRegIniFile;
procedure DateFilterLabelClick(Sender: TObject);
procedure DoFind;
procedure Empty_CurTable;
procedure Fill_Filter_Combo(cb: TFilterCombo);
procedure FilterComboChange(Sender: TObject);
procedure FilterLabelClick(Sender: TObject);
procedure FindFilterFunc(DataSet: TDataSet; var Accept: Boolean);
procedure FormHint(Sender: TObject);
Create the Index
procedure InitFilterControls;
procedure InitIndexCombo;
Set to the new value
procedure LayoutFilterPanel;
Clear out any old controls
procedure LoadDefaults;
procedure LoadTransactionSettings;
procedure NumKeyPress(Sender: TObject; var Key: char);
procedure NumLabelClick(Sender: TObject);
Get rid of invisible columns
function NumVisibleFields: integer;
procedure Refresh_Lookup_Cache;
Regenerate Indexes
procedure RestoreCurrentIndex;
procedure SaveCurrentIndex;
procedure SaveDefaults;
procedure SaveTransactionSettings;
function SetExclusiveMode(Mode: boolean): boolean;
procedure Set_IndexCombo_To_Current;
procedure StatCallback(RecordNum: integer; const Msg: string; DS: TDataSet);
procedure StringFilterLabelClick(Sender: TObject);
procedure TableFilterRecord(DataSet: TDataSet; var Accept: Boolean);
procedure TableNewRecord(DataSet: TDataSet);
procedure UpdateNumRecords;
Admin1 : TMenuItem;
Advanced1 : TMenuItem;
ClearBut : TButton;
CloseTransLog1 : TMenuItem;
CreateIndex1 : TMenuItem;
CreateTransLog1 : TMenuItem;
CurTable : TTable;
DataSource1 : TDataSource;
DBGrid1 : TDBGrid;
DBNavigator1 : TAppendNavigator;
DefColList : TStringList;
DeleteIndex1 : TMenuItem;
EmptyTable1 : TMenuItem;
Exclusive1 : TMenuItem;
ExpandBut : TButton;
ExporttoAscii1 : TMenuItem;
ExporttoExcel1 : TMenuItem;
FilterBut : TButton;
FilteronRange1 : TMenuItem;
FilterPanel : TPanel;
FilterPanelTop : TPanel;
FiltList : TStringList;
Find1 : TMenuItem;
FindDialog1 : TFindDialog;
FindFilter1 : TMenuItem;
FindNext1 : TMenuItem;
Font1 : TMenuItem;
FontDialog1 : TFontDialog;
IgnoreTitleClick : boolean;
ImportTablefromAscii1 : TMenuItem;
ImportTransDialog : TOpenDialog;
ImportTransLog1 : TMenuItem;
IndexCombo : TComboBox;
Label1 : TLabel;
LookupFilterPopup : TPopupMenu;
MultFilt1 : TMenuItem;
N1 : TMenuItem;
N2 : TMenuItem;
N3 : TMenuItem;
N4 : TMenuItem;
N5 : TMenuItem;
N6 : TMenuItem;
NumFilterPopup : TPopupMenu;
OpenDialog1 : TOpenDialog;
Panel1 : TPanel;
RebuildIndexes1 : TMenuItem;
RefreshFilterCombos1 : TMenuItem;
RefreshTable1 : TMenuItem;
RegenerateIndexes1 : TMenuItem;
ResetTableViewtoDefault1 : TMenuItem;
SaveDialog1 : TSaveDialog;
SaveTransDialog : TSaveDialog;
ScrollBox1 : TScrollBox;
Splitter1 : TSplitter;
StatPanel1 : TPanel;
StatPanel2 : TPanel;
StatusPanel : TPanel;
TableDefaults1 : TMenuItem;
TablePopupMenu : TPopupMenu;
UpdateVersion1 : TMenuItem;
View1 : TMenuItem;
ViewStatusBar1 : TMenuItem;
ViewTableStructure1 : TMenuItem;
ViewTransLog1 : TMenuItem;
DoFirst : boolean;
FindFilt : boolean;
Keywords : string;
MemoForm : TForm;
NumFilter : integer;
OldOnNewRec : TDataSetNotifyEvent;
TableDefs : TStringList;
TotRec : integer;