Диплом: Автоматизация учета посещений клиентов в ООО "Палестра", страницы 97-106

TADODataSet *ADODataSetVidTehniki;

TStringField *ADODataSetComputerTehnikaNameVidTehniki; 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

*ADODataSetComputerTehnikaCodVidTehniki; 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

*ADODataSetComputerTehnikaCodVidTehniki; TADODataSet

*ADODataSetVidTehniki;

TDataSource *DataSourceVidTehniki; TAutoIncField *ADODataSetVidTehnikiCod;

TWideStringField *ADODataSetVidTehnikiName;

TStringField *ADODataSetComputerTehnikaNameVidTehniki; 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;

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 *ADODataSetComputerTehnikaCodVidTehniki; TADODataSet

*ADODataSetVidTehniki;

TDataSource *DataSourceVidTehniki; TAutoIncField *ADODataSetVidTehnikiCod;

TWideStringField *ADODataSetVidTehnikiName;

TStringField *ADODataSetComputerTehnikaNameVidTehniki; 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

*ADODataSetComputerTehnikaCodVidTehniki; 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

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

#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

*ADODataSetComputerTehnikaCodVidTehniki; TDataSource

*DataSourceVidTehniki;

TADODataSet *ADODataSetVidTehniki;

TStringField *ADODataSetComputerTehnikaNameVidTehniki; 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::TFormComputerTehnika(TComponent* Owner)

: TForm(Owner)

{

}

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

void fastcall TFormComputerTehnika::ButtonFotoClick(TObject *Sender)

{ char *s;

OpenDialogFoto->InitialDir= ExtractFileDir(Application->ExeName);

if(OpenDialogFoto->Execute()==true) //вызов диалога выбора файла

{DBImageFoto->Visible=true;

100

s= OpenDialogFoto->FileName.c_str(); //получить наименование выбранного

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

DBImageFoto->Picture->LoadFromFile(s);

}

else

{if(ADODataSetComputerTehnikaPicture->Value=="") DBImageFoto-

>Visible=false;

}

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

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