Class TFormHilfsprogramm (unit Mainunit)

Inherits from

TForm

Constructors



Functions

procedure BitBtnAbbruchClick(Sender: TObject);

'In dieser Version können nur Ref.

procedure BitBtnOkClick(Sender: TObject);


procedure ButtonFileSaveClick(Sender: TObject);


procedure ComboBoxAliasChange(Sender: TObject);


procedure FormCreate(Sender: TObject);


procedure CheckRefInt;


procedure CheckThisRefInt(aTableSource : TTable; aDataNr : longint; aTableMaster : TTable; aFieldnameSource : string);

'Das Hilfsprogramm konnte nicht korrekt durchgeführt werden.

procedure ErmittleRefIntWerte(const aTableName : string);


procedure Protokolliere(aString : string);


Properties

Events

Variables

BitBtnAbbruch : TBitBtn;


BitBtnOk : TBitBtn;


ButtonFileSave : TButton;


ComboBoxAlias : TComboBox;


DirectoryListBox1 : TDirectoryListBox;


EditLogFile : TEdit;


FileListBox1 : TFileListBox;


Label1 : TLabel;


LabelLogDatei : TLabel;


MemoErklaerung : TMemo;


PanelButton : TPanel;


SaveDialog1 : TSaveDialog;


TableSource : TTable;


Win95Gauge : TWin95Gauge;


FieldnameSource1 : string;

Private declarations

FieldnameSource2 : string;


FieldnameSource3 : string;


FieldnameSource4 : string;


FieldnameSource5 : string;


MyMasterList : TList;


RefIntFehler : integer;


TheAlias : string;


txt : TextFile;



Constructors


Functions


procedure BitBtnAbbruchClick(Sender: TObject);

'In dieser Version können nur Ref.Int. auf einem Feld überprüft werden.'


procedure BitBtnOkClick(Sender: TObject);


procedure ButtonFileSaveClick(Sender: TObject);


procedure ComboBoxAliasChange(Sender: TObject);


procedure FormCreate(Sender: TObject);


procedure CheckRefInt;


procedure CheckThisRefInt(aTableSource : TTable; aDataNr : longint; aTableMaster : TTable; aFieldnameSource : string);

'Das Hilfsprogramm konnte nicht korrekt durchgeführt werden.'


procedure ErmittleRefIntWerte(const aTableName : string);


procedure Protokolliere(aString : string);


Properties


Events


Variables


BitBtnAbbruch : TBitBtn;


BitBtnOk : TBitBtn;


ButtonFileSave : TButton;


ComboBoxAlias : TComboBox;


DirectoryListBox1 : TDirectoryListBox;


EditLogFile : TEdit;


FileListBox1 : TFileListBox;


Label1 : TLabel;


LabelLogDatei : TLabel;


MemoErklaerung : TMemo;


PanelButton : TPanel;


SaveDialog1 : TSaveDialog;


TableSource : TTable;


Win95Gauge : TWin95Gauge;


FieldnameSource1 : string;

Private declarations


FieldnameSource2 : string;


FieldnameSource3 : string;


FieldnameSource4 : string;


FieldnameSource5 : string;


MyMasterList : TList;


RefIntFehler : integer;


TheAlias : string;


txt : TextFile;