Class TAddArchive (unit Aarc)
Inherits from
TForm
Constructors
Functions
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure ELevelChange(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
Properties
Events
Variables
ArchCatagoryID : TDBEdit;
ArchDate : TDBEdit;
ArchDescription : TDBMemo;
ArchImportance : TDBEdit;
ArchName : TDBEdit;
ArchSize : TDBEdit;
ArchStorage : TDBEdit;
Bevel1 : TBevel;
BitBtn1 : TBitBtn;
BitBtn2 : TBitBtn;
Button1 : TButton;
CatagoryID : TDBEdit;
CatagoryName : TDBEdit;
DataSource1 : TDataSource;
DataSource2 : TDataSource;
DataSource3 : TDataSource;
DBText1 : TDBText;
DBText2 : TDBText;
EDate : TMaskEdit;
EDescription : TMemo;
ELevel : TSpinEdit;
EName : TEdit;
ESize : TEdit;
EStorage : TEdit;
Label1 : TLabel;
Label10 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
Label6 : TLabel;
Label7 : TLabel;
Label8 : TLabel;
Label9 : TLabel;
OpenDialog1 : TOpenDialog;
RxDBGrid1 : TRxDBGrid;
RxDBGrid2 : TRxDBGrid;
Table1 : TTable;
Table1TopicID : TIntegerField;
Table1TopicName : TStringField;
Table2 : TTable;
Table2CatagoryID : TIntegerField;
Table2CatagoryName : TStringField;
Table2TopicID : TIntegerField;
Table3 : TTable;
Table3ArchiveName : TStringField;
Table3ArchiveStorage : TStringField;
Table3CatagoryID : TIntegerField;
Table3Date : TDateField;
Table3Description : TMemoField;
Table3FileID : TIntegerField;
Table3Importance : TSmallintField;
Table3Size : TIntegerField;
TopicName : TDBEdit;
Constructors
Functions
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure ELevelChange(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
Properties
Events
Variables
ArchCatagoryID : TDBEdit;
ArchDate : TDBEdit;
ArchDescription : TDBMemo;
ArchImportance : TDBEdit;
ArchName : TDBEdit;
ArchSize : TDBEdit;
ArchStorage : TDBEdit;
Bevel1 : TBevel;
BitBtn1 : TBitBtn;
BitBtn2 : TBitBtn;
Button1 : TButton;
CatagoryID : TDBEdit;
CatagoryName : TDBEdit;
DataSource1 : TDataSource;
DataSource2 : TDataSource;
DataSource3 : TDataSource;
DBText1 : TDBText;
DBText2 : TDBText;
EDate : TMaskEdit;
EDescription : TMemo;
ELevel : TSpinEdit;
EName : TEdit;
ESize : TEdit;
EStorage : TEdit;
Label1 : TLabel;
Label10 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
Label6 : TLabel;
Label7 : TLabel;
Label8 : TLabel;
Label9 : TLabel;
OpenDialog1 : TOpenDialog;
RxDBGrid1 : TRxDBGrid;
RxDBGrid2 : TRxDBGrid;
Table1 : TTable;
Table1TopicID : TIntegerField;
Table1TopicName : TStringField;
Table2 : TTable;
Table2CatagoryID : TIntegerField;
Table2CatagoryName : TStringField;
Table2TopicID : TIntegerField;
Table3 : TTable;
Table3ArchiveName : TStringField;
Table3ArchiveStorage : TStringField;
Table3CatagoryID : TIntegerField;
Table3Date : TDateField;
Table3Description : TMemoField;
Table3FileID : TIntegerField;
Table3Importance : TSmallintField;
Table3Size : TIntegerField;
TopicName : TDBEdit;