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

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
81
26. Программа для фитнес клуба - управление, учет и комплексная
автоматизация фитнеса [Электронный ресурс]: // Universe фитнес [Офиц. сайт].
URL: http://www.universe-soft.ru/product/universe-fitnes.
82
ПРИЛОЖЕНИЕ
Листинг программного кода 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
//---------------------------------------------------------------------------
83
#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);
84
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;
85
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)
{
Источник: https://baza.diplomsite.ru/previewfile/2405