Диплом: Автоматизация рабочего места менеджера по связям с контрагентами ООО "ГЕОСЕРВИС", страницы 102-109

101

TAutoIncField

*ADODataSetComputerTehnikaCod;

TWideStringField

*ADODataSetComputerTehnikaName;

TBCDField

*ADODataSetComputerTehnikaCena;

TBooleanField

*ADODataSetComputerTehnikaProdan;

TDateTimeField

*ADODataSetComputerTehnikaDataPostup;

TMemoField

*ADODataSetComputerTehnikaOpisanie;

TBlobField

*ADODataSetComputerTehnikaPicture;

TIntegerField

*ADODataSetComputerTehnikaCodVidTehni

ki;

TDataSource *DataSourceVidTehniki;

TADODataSet *ADODataSetVidTehniki;

TStringField

*ADODataSetComputerTehnikaNameVidTeh

niki;

TDBImage *DBImageFoto;

TDBMemo *DBMemoOpisanie;

TButton *ButtonExit;

TButton *ButtonPrint;

TPopupMenu *PopupMenu1;

TMenuItem *N1;

TMenuItem *N2;

TDataSource *DataSourceHistory;

TADODataSet *ADODataSetHistory;

TAutoIncField *ADODataSetHistoryCod;

TIntegerField

*ADODataSetHistoryCodComputerTehnika;

TIntegerField

*ADODataSetHistoryCodManager;

TDateTimeField

*ADODataSetHistoryDataProdazhi;

TBCDField *ADODataSetHistoryCena;

TDateField

*ADODataSetComputerTehnikaDataProdazhi;

void __fastcall ButtonExitClick(TObject

*Sender);

void __fastcall

DBGridComputerTehnikaCellClick(TColumn

*Column);

void __fastcall FormShow(TObject *Sender);

void __fastcall ButtonPrintClick(TObject

*Sender);

void __fastcall N1Click(TObject *Sender);

void __fastcall N2Click(TObject *Sender);

private: // User declarations

public: // User declarations

__fastcall TFormProdano(TComponent*

Owner);

};

//-------------------------------------------------------

--------------------

extern PACKAGE TFormProdano

*FormProdano;

//-------------------------------------------------------

--------------------

#endif

//-------------------------------------------------------

--------------------

#ifndef ProdazhaH

#define ProdazhaH

//-------------------------------------------------------

--------------------

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <ComCtrls.hpp>

#include <ADODB.hpp>

#include <DB.hpp>

#include <DBCtrls.hpp>

#include <DBGrids.hpp>

#include <Grids.hpp>

#include <Menus.hpp>

//-------------------------------------------------------

--------------------

class TFormProdazha : public TForm

{

__published: // IDE-managed

Components

TLabel *Label1;

TDateTimePicker

*DateTimePickerDataProdazhi;

TGroupBox *GroupBox1;

TDBGrid *DBGridComputerTehnika;

TADODataSet

*ADODataSetComputerTehnika;

TDataSource *DataSourceComputerTehnika;

TAutoIncField

*ADODataSetComputerTehnikaCod;

TWideStringField

*ADODataSetComputerTehnikaName;

TBCDField

*ADODataSetComputerTehnikaCena;

TBooleanField

*ADODataSetComputerTehnikaProdan;

TDateTimeField

*ADODataSetComputerTehnikaDataPostup;

TMemoField

*ADODataSetComputerTehnikaOpisanie;

TBlobField

*ADODataSetComputerTehnikaPicture;

TIntegerField

*ADODataSetComputerTehnikaCodVidTehni

ki;

TButton *ButtonProdat;

TGroupBox *GroupBoxOpisanie;

TDBMemo *DBMemoOpisanie;

TDBImage *DBImageFoto;

TButton *ButtonExit;

TADODataSet *ADODataSetHistory;

TDataSource *DataSourceHistory;

TAutoIncField *ADODataSetHistoryCod;

TIntegerField

*ADODataSetHistoryCodComputerTehnika;

TIntegerField

*ADODataSetHistoryCodManager;

TDateTimeField

*ADODataSetHistoryDataProdazhi;

TBCDField *ADODataSetHistoryCena;

TPopupMenu *PopupMenu1;

TMenuItem *N1;

TMenuItem *N2;

void __fastcall FormShow(TObject *Sender);

void __fastcall

DBGridComputerTehnikaCellClick(TColumn

*Column);

void __fastcall ButtonProdatClick(TObject

*Sender);

void __fastcall ButtonExitClick(TObject

*Sender);

void __fastcall N1Click(TObject *Sender);

void __fastcall N2Click(TObject *Sender);

private: // User declarations

public: // User declarations

__fastcall TFormProdazha(TComponent*

Owner);

};

//-------------------------------------------------------

--------------------

extern PACKAGE TFormProdazha

*FormProdazha;

//-------------------------------------------------------

--------------------

#endif

102

//-------------------------------------------------------

--------------------

#ifndef SpravkaH

#define SpravkaH

//-------------------------------------------------------

--------------------

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

//-------------------------------------------------------

--------------------

class TFormSpravka : public TForm

{

__published: // IDE-managed

Components

TMemo *MemoSpravka;

TMemo *Memo1;

TButton *ButtonExit;

void __fastcall ButtonExitClick(TObject

*Sender);

private: // User declarations

public: // User declarations

__fastcall TFormSpravka(TComponent*

Owner);

};

//-------------------------------------------------------

--------------------

extern PACKAGE TFormSpravka

*FormSpravka;

//-------------------------------------------------------

--------------------

#endif

//-------------------------------------------------------

--------------------

#ifndef UnitReportH

#define UnitReportH

//-------------------------------------------------------

--------------------

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <DB.hpp>

#include <DBTables.hpp>

#include <ExtCtrls.hpp>

#include <QRCtrls.hpp>

#include <QuickRpt.hpp>

#include <ADODB.hpp>

//-------------------------------------------------------

--------------------

class TFormReport : public TForm

{

__published: // IDE-managed

Components

TQuickRep *QuickRep1;

TQRBand *QRBand1;

TQRLabel *QRLabel1;

TQRBand *QRBand2;

TQRBand *QRBand3;

TQRLabel *QRLabel2;

TQRLabel *QRLabel3;

TQRLabel *QRLabel4;

TDataSource *DataSourceComputerTehnika;

TQRLabel *QRLabel5;

TQRBand *QRBand4;

TQRDBText *QRDBText1;

TQRDBText *QRDBText2;

TQRDBText *QRDBText3;

TQRDBText *QRDBText4;

TADODataSet

*ADODataSetComputerTehnika;

TAutoIncField

*ADODataSetComputerTehnikaCod;

TWideStringField

*ADODataSetComputerTehnikaName;

TBCDField

*ADODataSetComputerTehnikaCena;

TBooleanField

*ADODataSetComputerTehnikaProdan;

TDateTimeField

*ADODataSetComputerTehnikaDataPostup;

TMemoField

*ADODataSetComputerTehnikaOpisanie;

TBlobField

*ADODataSetComputerTehnikaPicture;

TIntegerField

*ADODataSetComputerTehnikaCodVidTehni

ki;

TADODataSet *ADODataSetVidTehniki;

TDataSource *DataSourceVidTehniki;

TAutoIncField *ADODataSetVidTehnikiCod;

TWideStringField

*ADODataSetVidTehnikiName;

TStringField

*ADODataSetComputerTehnikaNameVidTeh

niki;

void __fastcall

QuickRep1AfterPreview(TObject *Sender);

void __fastcall FormActivate(TObject

*Sender);

void __fastcall FormShow(TObject *Sender);

private: // User declarations

public: // User declarations

__fastcall TFormReport(TComponent*

Owner);

};

//-------------------------------------------------------

--------------------

extern PACKAGE TFormReport

*FormReport;

//-------------------------------------------------------

--------------------

#endif

//-------------------------------------------------------

--------------------

#ifndef UnitReport2H

#define UnitReport2H

//-------------------------------------------------------

--------------------

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <DB.hpp>

#include <DBTables.hpp>

#include <ExtCtrls.hpp>

#include <QRCtrls.hpp>

#include <QuickRpt.hpp>

#include <ADODB.hpp>

//-------------------------------------------------------

--------------------

class TFormReport2 : public TForm

{

__published: // IDE-managed

Components

TQuickRep *QuickRep1;

TQRBand *QRBand1;

TQRLabel *QRLabel1;

TQRBand *QRBand2;

TQRBand *QRBand3;

TQRLabel *QRLabel2;

TQRLabel *QRLabel3;

TQRLabel *QRLabel4;

103

TDataSource *DataSourceComputerTehnika;

TQRLabel *QRLabel5;

TQRBand *QRBand4;

TQRDBText *QRDBText1;

TQRDBText *QRDBText2;

TQRDBText *QRDBText3;

TQRDBText *QRDBText4;

TADODataSet

*ADODataSetComputerTehnika;

TAutoIncField

*ADODataSetComputerTehnikaCod;

TWideStringField

*ADODataSetComputerTehnikaName;

TBCDField

*ADODataSetComputerTehnikaCena;

TBooleanField

*ADODataSetComputerTehnikaProdan;

TDateTimeField

*ADODataSetComputerTehnikaDataPostup;

TMemoField

*ADODataSetComputerTehnikaOpisanie;

TBlobField

*ADODataSetComputerTehnikaPicture;

TIntegerField

*ADODataSetComputerTehnikaCodVidTehni

ki;

TADODataSet *ADODataSetVidTehniki;

TDataSource *DataSourceVidTehniki;

TAutoIncField *ADODataSetVidTehnikiCod;

TWideStringField

*ADODataSetVidTehnikiName;

TStringField

*ADODataSetComputerTehnikaNameVidTeh

niki;

TDataSource *DataSourceHistory;

TADODataSet *ADODataSetHistory;

TAutoIncField *ADODataSetHistoryCod;

TIntegerField

*ADODataSetHistoryCodComputerTehnika;

TIntegerField

*ADODataSetHistoryCodManager;

TDateTimeField

*ADODataSetHistoryDataProdazhi;

TBCDField *ADODataSetHistoryCena;

TDateField

*ADODataSetComputerTehnikaDataProdazhi;

void __fastcall

QuickRep1AfterPreview(TObject *Sender);

void __fastcall FormActivate(TObject

*Sender);

void __fastcall FormShow(TObject *Sender);

private: // User declarations

public: // User declarations

__fastcall TFormReport2(TComponent*

Owner);

};

//-------------------------------------------------------

--------------------

extern PACKAGE TFormReport2

*FormReport2;

//-------------------------------------------------------

--------------------

#endif

//-------------------------------------------------------

--------------------

#ifndef VidTehnikiH

#define VidTehnikiH

//-------------------------------------------------------

--------------------

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <ADODB.hpp>

#include <DB.hpp>

#include <DBGrids.hpp>

#include <Grids.hpp>

#include <DBCtrls.hpp>

#include <ExtCtrls.hpp>

#include <Mask.hpp>

//-------------------------------------------------------

--------------------

class TFormVidTehniki : public TForm

{

__published: // IDE-managed

Components

TDBGrid *DBGridVidTehniki;

TADODataSet *ADODataSetVidTehniki;

TDataSource *DataSourceVidTehniki;

TDataSource *DataSourceManager;

TADODataSet

*ADODataSetComputerTehnika;

TGroupBox *GroupBox1;

TDBEdit *DBEditName;

TPanel *Panel1;

TButton *ButtonAdd;

TButton *ButtonDelete;

TButton *ButtonChange;

TButton *ButtonExit;

TPanel *Panel2;

TButton *ButtonPost;

TButton *ButtonOtmen;

TAutoIncField *ADODataSetVidTehnikiCod;

TWideStringField

*ADODataSetVidTehnikiName;

TAutoIncField

*ADODataSetComputerTehnikaCod;

TWideStringField

*ADODataSetComputerTehnikaName;

TBCDField

*ADODataSetComputerTehnikaCena;

TDateTimeField

*ADODataSetComputerTehnikaDataPostup;

TMemoField

*ADODataSetComputerTehnikaOpisanie;

TBlobField

*ADODataSetComputerTehnikaPicture;

TIntegerField

*ADODataSetComputerTehnikaCodVidTehni

ki;

TBooleanField

*ADODataSetComputerTehnikaProdan;

void __fastcall ButtonAddClick(TObject

*Sender);

void __fastcall ButtonDeleteClick(TObject

*Sender);

void __fastcall ButtonChangeClick(TObject

*Sender);

void __fastcall ButtonExitClick(TObject

*Sender);

void __fastcall ButtonPostClick(TObject

*Sender);

void __fastcall ButtonOtmenClick(TObject

*Sender);

void __fastcall FormShow(TObject *Sender);

void __fastcall

DBEditNameKeyPress(TObject *Sender, char

&Key);

private: // User declarations

public: // User declarations

__fastcall TFormVidTehniki(TComponent*

Owner);

};

//-------------------------------------------------------

--------------------

extern PACKAGE TFormVidTehniki

*FormVidTehniki;

//-------------------------------------------------------

--------------------

#endif

//-------------------------------------------------------

--------------------

104

#ifndef VnalichiiH

#define VnalichiiH

//-------------------------------------------------------

--------------------

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <ADODB.hpp>

#include <DB.hpp>

#include <DBGrids.hpp>

#include <Grids.hpp>

#include <DBCtrls.hpp>

#include <Menus.hpp>

//-------------------------------------------------------

--------------------

class TFormVnalichii : public TForm

{

__published: // IDE-managed

Components

TDBGrid *DBGridComputerTehnika;

TADODataSet

*ADODataSetComputerTehnika;

TDataSource *DataSourceComputerTehnika;

TAutoIncField

*ADODataSetComputerTehnikaCod;

TWideStringField

*ADODataSetComputerTehnikaName;

TBCDField

*ADODataSetComputerTehnikaCena;

TBooleanField

*ADODataSetComputerTehnikaProdan;

TDateTimeField

*ADODataSetComputerTehnikaDataPostup;

TMemoField

*ADODataSetComputerTehnikaOpisanie;

TBlobField

*ADODataSetComputerTehnikaPicture;

TIntegerField

*ADODataSetComputerTehnikaCodVidTehni

ki;

TDataSource *DataSourceVidTehniki;

TADODataSet *ADODataSetVidTehniki;

TStringField

*ADODataSetComputerTehnikaNameVidTeh

niki;

TDBImage *DBImageFoto;

TDBMemo *DBMemoOpisanie;

TButton *ButtonExit;

TButton *ButtonPrint;

TPopupMenu *PopupMenu1;

TMenuItem *N1;

TMenuItem *N2;

void __fastcall ButtonExitClick(TObject

*Sender);

void __fastcall

DBGridComputerTehnikaCellClick(TColumn

*Column);

void __fastcall FormShow(TObject *Sender);

void __fastcall ButtonPrintClick(TObject

*Sender);

void __fastcall N1Click(TObject *Sender);

void __fastcall N2Click(TObject *Sender);

private: // User declarations

public: // User declarations

__fastcall TFormVnalichii(TComponent*

Owner);

};

//-------------------------------------------------------

--------------------

extern PACKAGE TFormVnalichii

*FormVnalichii;

//-------------------------------------------------------

--------------------

#endif

//-------------------------------------------------------

--------------------

#include <vcl.h>

#pragma hdrstop

#include "ComputerTehnika.h"

#include "DM.h"

//-------------------------------------------------------

--------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TFormComputerTehnika

*FormComputerTehnika;

//-------------------------------------------------------

--------------------

__fastcall

TFormComputerTehnika::TFormComputerTe

hnika(TComponent* Owner)

: TForm(Owner)

{

}

//-------------------------------------------------------

--------------------

void __fastcall

TFormComputerTehnika::ButtonFotoClick(T

Object *Sender)

{ char *s;

OpenDialogFoto->InitialDir=

ExtractFileDir(Application->ExeName);

if(OpenDialogFoto->Execute()==true) //вызов

диалога выбора файла

{DBImageFoto->Visible=true;

s= OpenDialogFoto->FileName.c_str();

//получить наименование выбранного

файла с полным путем

DBImageFoto->Picture->LoadFromFile(s);

}

else

{if(ADODataSetComputerTehnikaPicture-

>Value=="")

DBImageFoto->Visible=false;

}

//-------------------------------------------------------

--------------------

void __fastcall

TFormComputerTehnika::FormShow(TObject

*Sender)

{

ADODataSetComputerTehnika->Close();

ADODataSetComputerTehnika->Open();

ADODataSetVidTehniki->Close();

ADODataSetVidTehniki->Open();

}

//-------------------------------------------------------

--------------------

//Выполняется при нажатии кнопки

Добавить

void __fastcall

TFormComputerTehnika::ButtonAddClick(TO

bject *Sender)

{

if(ADODataSetComputerTehnika-

>State==dsBrowse)

{ADODataSetComputerTehnika->Insert();

Panel1->Visible=false;

Panel2->Visible=true;

GroupBox1->Visible=true;

DateTimePickerDataPostup->Date= Date();

DBEditName->SetFocus();

}

//-------------------------------------------------------

--------------------

//Выполняется при нажатии кнопки

Удалить

105

void __fastcall

TFormComputerTehnika::ButtonDeleteClick(

TObject *Sender)

{

if(ADODataSetComputerTehnika-

>RecordCount==0) //есть ли данные в БД

{ButtonChange->Enabled=false;//сделать

кнопку Изменить недоступной

ButtonDelete->Enabled=false;//сделать

кнопку Удалить недоступной

ShowMessage("Данные отсутствуют в

БД!"); //вывести сообщение в виде окошка

return;//выход из формы

}

if(ADODataSetComputerTehnika-

>State==dsBrowse)

if(Application->MessageBoxA("Подтвердите

удаление записи

!","Внимание",MB_ICONWARNING+MB_

YESNO)==IDYES)

ADODataSetComputerTehnika-

>Delete();//удалить запись из таблицы БД

}

//-------------------------------------------------------

--------------------

//Выполняется при нажатии кнопки

Изменить

void __fastcall

TFormComputerTehnika::ButtonChangeClick(

TObject *Sender)

{

if(ADODataSetComputerTehnika-

>RecordCount==0) //есть ли данные в БД -

кол-во записей в таблице БД

{ShowMessage("Данные отсутствуют в

БД!");//вывести сообщение в виде окошка

return;//выход из формы

}

if(ADODataSetComputerTehnika-

>State==dsBrowse)

ADODataSetComputerTehnika-

>Edit();//перевести таблицу БД в режим

редактирования

Panel1->Visible=false;//сделать панель

невидимой

Panel2->Visible=true;//сделать панель

видимой

GroupBox1->Visible=true;//сделать панель

видимой

DateTimePickerDataPostup->Date=

ADODataSetComputerTehnikaDataPostup-

>Value;

DBEditName->SetFocus(); //установить

фокус в поле для ввода

}

//-------------------------------------------------------

--------------------

//Выполняется при нажатии кнопки Выход

void __fastcall

TFormComputerTehnika::ButtonExitClick(TO

bject *Sender)

{

Close();

TWideStringField

*ADODataSetManagerPassword;

TIntegerField

*ADODataSetManagerCodDolgnost;

TADODataSet *ADODataSetDolgnost;

TAutoIncField *ADODataSetDolgnostCod;

TWideStringField

*ADODataSetDolgnostName;

TStringField

*ADODataSetManagerNameDolgnost;

TGroupBox *GroupBox1;

TLabel *Label1;

TDBEdit *DBEditFIO;

TLabel *Label2;

TDBLookupComboBox

*DBLookupComboBoxDolgnost;

TDataSource *DataSourceDolgnost;

TLabel *Label3;

TDBEdit *DBEditOklad;

TLabel *Label4;

TDBEdit *DBEditPasport;

TLabel *Label5;

TDBEdit *DBEditPassword;

TLabel *Label6;

TDateTimePicker *DateTimePicker1;

TPanel *Panel1;

TButton *ButtonAdd;

TButton *ButtonDelete;

TButton *ButtonChange;

TButton *ButtonExit;

TPanel *Panel2;

TButton *ButtonPost;

TButton *ButtonOtmen;

TPopupMenu *PopupMenu1;

TMenuItem *N1;

void __fastcall FormShow(TObject *Sender);

void __fastcall ButtonAddClick(TObject

*Sender);

void __fastcall ButtonDeleteClick(TObject

*Sender);

void __fastcall ButtonChangeClick(TObject

*Sender);

void __fastcall ButtonExitClick(TObject

*Sender);

void __fastcall ButtonPostClick(TObject

*Sender);

void __fastcall ButtonOtmenClick(TObject

*Sender);

void __fastcall N1Click(TObject *Sender);

private: // User declarations

public: // User declarations

__fastcall TFormManager(TComponent*

Owner);

};

//-------------------------------------------------------

--------------------

extern PACKAGE TFormManager

*FormManager;

//-------------------------------------------------------

--------------------

#endif

//-------------------------------------------------------

--------------------

#ifndef OtchetManagerH

#define OtchetManagerH

//-------------------------------------------------------

--------------------

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <ADODB.hpp>

#include <DB.hpp>

#include <DBGrids.hpp>

#include <Grids.hpp>

#include <Menus.hpp>

//-------------------------------------------------------

--------------------

class TFormOtchetManager : public TForm

{

__published: // IDE-managed

Components

TDBGrid *DBGridManager;

TADODataSet *ADODataSetManager;

TDataSource *DataSourceManager;

TADODataSet *ADODataSetDolgnost;

TDataSource *DataSourceDolgnost;

TADODataSet

*ADODataSetComputerTehnika;

106

TDataSource *DataSourceComputerTehnika;

TADODataSet *ADODataSetHistory;

TDataSource *DataSourceHistory;

TPopupMenu *PopupMenu1;

TMenuItem *N1;

TButton *ButtonExit;

void __fastcall FormShow(TObject *Sender);

void __fastcall N1Click(TObject *Sender);

void __fastcall ButtonExitClick(TObject

*Sender);

private: // User declarations

public: // User declarations

__fastcall

TFormOtchetManager(TComponent* Owner);

};

//-------------------------------------------------------

--------------------

extern PACKAGE TFormOtchetManager

*FormOtchetManager;

//-------------------------------------------------------

--------------------

#endif

//-------------------------------------------------------

--------------------

#ifndef ProdanoH

#define ProdanoH

//-------------------------------------------------------

--------------------

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <ADODB.hpp>

#include <DB.hpp>

#include <DBGrids.hpp>

#include <Grids.hpp>

#include <DBCtrls.hpp>

#include <Menus.hpp>

//-------------------------------------------------------

--------------------

class TFormProdano : public TForm

{

__published: // IDE-managed

Components

TDBGrid *DBGridComputerTehnika;

TADODataSet

*ADODataSetComputerTehnika;

TDataSource *DataSourceComputerTehnika;

TAutoIncField

*ADODataSetComputerTehnikaCod;

TWideStringField

*ADODataSetComputerTehnikaName;

TBCDField

*ADODataSetComputerTehnikaCena;

TBooleanField

*ADODataSetComputerTehnikaProdan;

TDateTimeField

*ADODataSetComputerTehnikaDataPostup;

TMemoField

*ADODataSetComputerTehnikaOpisanie;

TBlobField

*ADODataSetComputerTehnikaPicture;

TIntegerField

*ADODataSetComputerTehnikaCodVidTehni

ki;

TDataSource *DataSourceVidTehniki;

TADODataSet *ADODataSetVidTehniki;

TStringField

*ADODataSetComputerTehnikaNameVidTeh

niki;

TDBImage *DBImageFoto;

TDBMemo *DBMemoOpisanie;

TButton *ButtonExit;

TButton *ButtonPrint;

TPopupMenu *PopupMenu1;

TMenuItem *N1;

TMenuItem *N2;

TDataSource *DataSourceHistory;

TADODataSet *ADODataSetHistory;

TAutoIncField *ADODataSetHistoryCod;

TIntegerField

*ADODataSetHistoryCodComputerTehnika;

TIntegerField

*ADODataSetHistoryCodManager;

TDateTimeField

*ADODataSetHistoryDataProdazhi;

TBCDField *ADODataSetHistoryCena;

TDateField

*ADODataSetComputerTehnikaDataProdazhi;

void __fastcall ButtonExitClick(TObject

*Sender);

void __fastcall

DBGridComputerTehnikaCellClick(TColumn

*Column);

void __fastcall FormShow(TObject *Sender);

void __fastcall ButtonPrintClick(TObject

*Sender);

void __fastcall N1Click(TObject *Sender);

void __fastcall N2Click(TObject *Sender);

private: // User declarations

public: // User declarations

__fastcall TFormProdano(TComponent*

Owner);

};

//-------------------------------------------------------

--------------------

extern PACKAGE TFormProdano

*FormProdano;

//-------------------------------------------------------

--------------------

#endif

//-------------------------------------------------------

--------------------

#ifndef ProdazhaH

#define ProdazhaH

//-------------------------------------------------------

--------------------

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <ComCtrls.hpp>

#include <ADODB.hpp>

#include <DB.hpp>

#include <DBCtrls.hpp>

#include <DBGrids.hpp>

#include <Grids.hpp>

#include <Menus.hpp>

//-------------------------------------------------------

--------------------

class TFormProdazha : public TForm

{

__published: // IDE-managed

Components

TLabel *Label1;

TDateTimePicker

*DateTimePickerDataProdazhi;

TGroupBox *GroupBox1;

TDBGrid *DBGridComputerTehnika;

TADODataSet

*ADODataSetComputerTehnika;

TDataSource *DataSourceComputerTehnika;

TAutoIncField

*ADODataSetComputerTehnikaCod;

TWideStringField

*ADODataSetComputerTehnikaName;

TBCDField

*ADODataSetComputerTehnikaCena;

107

TBooleanField

*ADODataSetComputerTehnikaProdan;

TDateTimeField

*ADODataSetComputerTehnikaDataPostup;

TMemoField

*ADODataSetComputerTehnikaOpisanie;

TBlobField

*ADODataSetComputerTehnikaPicture;

TIntegerField

*ADODataSetComputerTehnikaCodVidTehni

ki;

TButton *ButtonProdat;

TGroupBox *GroupBoxOpisanie;

TDBMemo *DBMemoOpisanie;

TDBImage *DBImageFoto;

TButton *ButtonExit;

TADODataSet *ADODataSetHistory;

TDataSource *DataSourceHistory;

TAutoIncField *ADODataSetHistoryCod;

TIntegerField

*ADODataSetHistoryCodComputerTehnika;

TIntegerField

*ADODataSetHistoryCodManager;

TDateTimeField

*ADODataSetHistoryDataProdazhi;

TBCDField *ADODataSetHistoryCena;

TPopupMenu *PopupMenu1;

TMenuItem *N1;

TMenuItem *N2;

void __fastcall FormShow(TObject *Sender);

void __fastcall

DBGridComputerTehnikaCellClick(TColumn

*Column);

void __fastcall ButtonProdatClick(TObject

*Sender);

void __fastcall ButtonExitClick(TObject

*Sender);

void __fastcall N1Click(TObject *Sender);

void __fastcall N2Click(TObject *Sender);

private: // User declarations

public: // User declarations

__fastcall TFormProdazha(TComponent*

Owner);

};

//-------------------------------------------------------

--------------------

extern PACKAGE TFormProdazha

*FormProdazha;

//-------------------------------------------------------

--------------------

#endif

//-------------------------------------------------------

--------------------

#ifndef SpravkaH

#define SpravkaH

//-------------------------------------------------------

--------------------

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

//-------------------------------------------------------

--------------------

class TFormSpravka : public TForm

{

__published: // IDE-managed

Components

TMemo *MemoSpravka;

TMemo *Memo1;

TButton *ButtonExit;

void __fastcall ButtonExitClick(TObject

*Sender);

private: // User declarations

public: // User declarations

__fastcall TFormSpravka(TComponent*

Owner);

};

//-------------------------------------------------------

--------------------

extern PACKAGE TFormSpravka

*FormSpravka;

//-------------------------------------------------------

--------------------

#endif

//-------------------------------------------------------

--------------------

#ifndef UnitReportH

#define UnitReportH

//-------------------------------------------------------

--------------------

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <DB.hpp>

#include <DBTables.hpp>

#include <ExtCtrls.hpp>

#include <QRCtrls.hpp>

#include <QuickRpt.hpp>

#include <ADODB.hpp>

//-------------------------------------------------------

--------------------

class TFormReport : public TForm

{

__published: // IDE-managed

Components

TQuickRep *QuickRep1;

TQRBand *QRBand1;

TQRLabel *QRLabel1;

TQRBand *QRBand2;

TQRBand *QRBand3;

TQRLabel *QRLabel2;

TQRLabel *QRLabel3;

TQRLabel *QRLabel4;

TDataSource *DataSourceComputerTehnika;

TQRLabel *QRLabel5;

TQRBand *QRBand4;

TQRDBText *QRDBText1;

TQRDBText *QRDBText2;

TQRDBText *QRDBText3;

TQRDBText *QRDBText4;

TADODataSet

*ADODataSetComputerTehnika;

TAutoIncField

*ADODataSetComputerTehnikaCod;

TWideStringField

*ADODataSetComputerTehnikaName;

TBCDField

*ADODataSetComputerTehnikaCena;

TBooleanField

*ADODataSetComputerTehnikaProdan;

TDateTimeField

*ADODataSetComputerTehnikaDataPostup;

TMemoField

*ADODataSetComputerTehnikaOpisanie;

TBlobField

*ADODataSetComputerTehnikaPicture;

TIntegerField

*ADODataSetComputerTehnikaCodVidTehni

ki;

TADODataSet *ADODataSetVidTehniki;

TDataSource *DataSourceVidTehniki;

TAutoIncField *ADODataSetVidTehnikiCod;

TWideStringField

*ADODataSetVidTehnikiName;

TStringField

*ADODataSetComputerTehnikaNameVidTeh

niki;

108

void __fastcall

QuickRep1AfterPreview(TObject *Sender);

void __fastcall FormActivate(TObject

*Sender);

void __fastcall FormShow(TObject *Sender);

private: // User declarations

public: // User declarations

__fastcall TFormReport(TComponent*

Owner);

};

//-------------------------------------------------------

--------------------

extern PACKAGE TFormReport

*FormReport;

//-------------------------------------------------------

--------------------

#endif

//-------------------------------------------------------

--------------------

#ifndef UnitReport2H

#define UnitReport2H

//-------------------------------------------------------

--------------------

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <DB.hpp>

#include <DBTables.hpp>

#include <ExtCtrls.hpp>

#include <QRCtrls.hpp>

#include <QuickRpt.hpp>

#include <ADODB.hpp>

//-------------------------------------------------------

-------------------

class TFormReport2 : public TForm

Смотрите также:

"Автоматизация обработки заявок ООО "Проектно-Строительная Компания"
"Автоматизация процесса аттестации персонала для ООО "Нэт Бай Нэт Холдинг"
"Анализ интернет-активности конкурентов ( на примере конкурентов "Газпром нефть")
"Бухгалтерский учёт и аудит расчётов с подотчётними лицами в организации на примере ООО "ЛОЦ 10""
«Психологическое сопровождение персонала в организации на примере ООО «Крокус»
Cовершенствование деловой оценки персонала в организации (на примере ООО "Даймонд кейтеринг развитие")
IPO - инструмент финансирования деятельности организации. На примере ПАО «Нефтяная компания «Лукойл»
PR как средство продвижения организации (на примере ПАО "Тамбовский завод "Комсомолец им. Н.С. Артемова")
PR-коммуникации в сфере общественного питания (на примере кафе-кондитерской «Cream Cheese»)
SMM как средство повышения эффективности работы учреждений социокультурной сферы (на примере Малого театра)