Class TDataWinForm (unit DataWin)

Inherits from

TForm

Constructors



Functions

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;


Properties

Events

Variables

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;



Constructors


Functions


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;


Properties


Events


Variables


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;