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

Скачать файл

Заказать новую работу

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам

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;

Источник: https://baza.diplomsite.ru/previewfile/2405

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



17. Введение 18. Линейные программы 19. Ветвления 20. Программирование циклических алгоритмов
Анализ эффективности инвестиций предприятия на примере ООО «СпецПримСтрой»
Сборные железобетонные ребристые плиты перекрытия
_-___-~1
_3 тема - Диффузия
_Роджерс Карл, Брак и его альтернативы
_Штерн Вильям, Дифференциальная психология и ее методические основы
- Описание типа СЭТ7009