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;