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)
{
86
}
//---------------------------------------------------------------------------
void fastcall TFormComputerTehnika::ButtonFotoClick(TObject *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(TObject *Sender)
{
if(ADODataSetComputerTehnika->State==dsBrowse)
{ADODataSetComputerTehnika->Insert(); Panel1->Visible=false;
Panel2->Visible=true;
87
GroupBox1->Visible=true; DateTimePickerDataPostup->Date= Date();
DBEditName->SetFocus();
}
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Удалить
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)
88
ADODataSetComputerTehnika->Edit();//перевести таблицу БД в режим
редактирования
Panel1->Visible=false;//сделать панель невидимой Panel2->Visible=true;//сделать
панель видимой GroupBox1->Visible=true;//сделать панель видимой
DateTimePickerDataPostup->Date= ADODataSetComputerTehnikaDataPostup-
>Value;
DBEditName->SetFocus(); //установить фокус в поле для ввода
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Выход
void fastcall TFormComputerTehnika::ButtonExitClick(TObject *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);
89
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; TDataSource
*DataSourceComputerTehnika; TADODataSet *ADODataSetHistory; TDataSource
*DataSourceHistory; TPopupMenu *PopupMenu1;
TMenuItem *N1;
TButton *ButtonExit;
void fastcall FormShow(TObject *Sender); void fastcall N1Click(TObject *Sender);
90
void fastcall ButtonExitClick(TObject *Sender); private: // User declarations
public: // User declarations
astcall 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
*ADODataSetComputerTehnikaCodVidTehniki; TDataSource
*DataSourceVidTehniki;