Class TEditForm (unit Earc)

Inherits from

TForm

Constructors



Functions

procedure BitBtn1Click(Sender: TObject);

table3.

procedure BitBtn2Click(Sender: TObject);


procedure ELevelChange(Sender: TObject);


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


procedure FormCreate(Sender: TObject);


Properties

Events

Variables

ArchDate : TDBEdit;


ArchDescription : TDBMemo;


ArchImportance : TDBEdit;


ArchName : TDBEdit;


ArchSize : TDBEdit;


ArchStorage : TDBEdit;


Bevel1 : TBevel;


BitBtn1 : TBitBtn;


BitBtn2 : TBitBtn;


DataSource3 : TDataSource;


EDate : TMaskEdit;


EDescription : TMemo;


ELevel : TSpinEdit;


EName : TEdit;


ESize : TEdit;


EStorage : TEdit;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


Label6 : TLabel;


Label7 : TLabel;


Label8 : TLabel;


OpenDialog1 : TOpenDialog;


Table3 : TTable;


Table3ArchiveName : TStringField;


Table3ArchiveStorage : TStringField;


Table3CatagoryID : TIntegerField;


Table3Date : TDateField;


Table3Description : TMemoField;


Table3FileID : TIntegerField;


Table3Importance : TSmallintField;


Table3Size : TIntegerField;



Constructors


Functions


procedure BitBtn1Click(Sender: TObject);

table3.close;


procedure BitBtn2Click(Sender: TObject);


procedure ELevelChange(Sender: TObject);


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


procedure FormCreate(Sender: TObject);


Properties


Events


Variables


ArchDate : TDBEdit;


ArchDescription : TDBMemo;


ArchImportance : TDBEdit;


ArchName : TDBEdit;


ArchSize : TDBEdit;


ArchStorage : TDBEdit;


Bevel1 : TBevel;


BitBtn1 : TBitBtn;


BitBtn2 : TBitBtn;


DataSource3 : TDataSource;


EDate : TMaskEdit;


EDescription : TMemo;


ELevel : TSpinEdit;


EName : TEdit;


ESize : TEdit;


EStorage : TEdit;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


Label6 : TLabel;


Label7 : TLabel;


Label8 : TLabel;


OpenDialog1 : TOpenDialog;


Table3 : TTable;


Table3ArchiveName : TStringField;


Table3ArchiveStorage : TStringField;


Table3CatagoryID : TIntegerField;


Table3Date : TDateField;


Table3Description : TMemoField;


Table3FileID : TIntegerField;


Table3Importance : TSmallintField;


Table3Size : TIntegerField;