Добавил:
korayakov
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:
//---------------------------------------------------------------------------
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ComCtrls.hpp>
#include <Menus.hpp>
#include <ExtCtrls.hpp>
#include <FileCtrl.hpp>
#include <Buttons.hpp>
#include <Mask.hpp>
#include <Graphics.hpp>
#include <DBGrids.hpp>
#include <Grids.hpp>
#include <Db.hpp>
#include <DBTables.hpp>
#include <DBCtrls.hpp>
#include <jpeg.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published: // IDE-managed Components
TStatusBar *StatusBar1;
TPanel *PGrid;
TPageControl *PageControl1;
TPageControl *PageControl2;
TTabSheet *TSVod;
TTabSheet *TSPoisk;
TTabSheet *TSRedakt;
TTabSheet *TSInfo;
TDriveComboBox *DriveComboBox1;
TDirectoryListBox *DirectoryListBox1;
TRadioGroup *RadioGroup1;
TPanel *PAvtomatVod;
TComboBox *CBTypeAvt;
TLabel *Label1;
TMaskEdit *MEObemAvt;
TLabel *Label2;
TComboBox *CBFirmaAvt;
TLabel *Label3;
TMemo *MVodKomentarAvt;
TLabel *Label4;
TComboBox *CBObemRazmAvt;
TBitBtn *BVodAvt;
TPanel *PRuchVod;
TPanel *PVspomVod;
TImage *Image1;
TEdit *ENameR;
TMaskEdit *MESizeR;
TComboBox *CBSizeRazmR;
TLabel *Label5;
TLabel *Label6;
TComboBox *CBTypeR;
TLabel *Label7;
TMaskEdit *MEObemR;
TComboBox *CBRazmR;
TLabel *Label8;
TComboBox *CBFirmaR;
TLabel *Label9;
TMemo *MKomentrR;
TLabel *Label10;
TBitBtn *BVodR;
TDBGrid *DBGrid1;
TDataSource *DataSource1;
TQuery *Query1;
TTable *Table1;
TMaskEdit *MEDataR;
TLabel *Label11;
TLabel *Label12;
TComboBox *CBUslovieSizeP;
TEdit *ESizeP;
TComboBox *CBRazmP;
TLabel *Label13;
TLabel *Label14;
TEdit *EFileNameP;
TBitBtn *BitBtn1;
TBitBtn *BitBtn2;
TComboBox *CBUslDatP;
TDBMemo *DBMemo1;
TImage *Image2;
TAutoIncField *Table1Num;
TStringField *Table1File_name;
TFloatField *Table1File_size;
TStringField *Table1File_size_razm;
TDateField *Table1File_data;
TStringField *Table1Type;
TIntegerField *Table1Type_volume;
TStringField *Table1Type_volume_razm;
TStringField *Table1Firma;
TMemoField *Table1Description;
TFloatField *Table1File_size_new;
TBitBtn *BitBtn4;
TPanel *Panel1;
TQuery *Query2;
TIntegerField *Query2Num;
TStringField *Query2File_name;
TFloatField *Query2File_size;
TStringField *Query2File_size_razm;
TDateField *Query2File_data;
TStringField *Query2Type;
TIntegerField *Query2Type_volume;
TStringField *Query2Type_volume_razm;
TStringField *Query2Firma;
TMemoField *Query2Description;
TFloatField *Query2File_size_new;
TImage *Image3;
TMaskEdit *Edit1;
TPanel *Panel2;
TMemo *Memo1;
TDBNavigator *DBNavigator1;
TDBMemo *DBMemo2;
TImage *Image4;
TBitBtn *BitBtn3;
TLabel *Label15;
TLabel *Label16;
void __fastcall RadioGroup1Click(TObject *Sender);
void __fastcall DriveComboBox1Change(TObject *Sender);
void __fastcall BVodAvtClick(TObject *Sender);
void __fastcall CBFirmaAvtEnter(TObject *Sender);
void __fastcall CBFirmaREnter(TObject *Sender);
void __fastcall BVodRClick(TObject *Sender);
void __fastcall Table1CalcFields(TDataSet *DataSet);
void __fastcall TSPoiskEnter(TObject *Sender);
void __fastcall Query2CalcFields(TDataSet *DataSet);
void __fastcall BitBtn4Click(TObject *Sender);
void __fastcall EFileNamePChange(TObject *Sender);
void __fastcall BitBtn1Click(TObject *Sender);
void __fastcall BitBtn2Click(TObject *Sender);
void __fastcall TSRedaktEnter(TObject *Sender);
void __fastcall TSRedaktShow(TObject *Sender);
void __fastcall BitBtn3Click(TObject *Sender);
void __fastcall TSVodShow(TObject *Sender);
void __fastcall TSPoiskShow(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif