Файл: Проектирование реализации операций бизнес-процесса «Предоставление рекламных услуг».pdf

__fastcall TFormReport::TFormReport(TComponent* Owner)

: TForm(Owner)

{

}

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

//выполняется после закрытия окна просмотра отчета

void __fastcall TFormReport::QuickRep1AfterPreview(TObject *Sender)

{

FormReport->Close(); //закрыть форму

}

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

//выполняется при активации формы

void __fastcall TFormReport::FormActivate(TObject *Sender)

{

if(Pr==false)

Pr=true;

else

{Pr=false;

FormReport->Close();

return;

}

QuickRep1->Visible=false;

QuickRep1->Preview();//показатьокнопредварительногопросмотраотчета

}

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

//выполняетсяприотображенииформы

void __fastcall TFormReport::FormShow(TObject *Sender)

{

ADODataSetComputerTehnika->Close();

ADODataSetComputerTehnika->Open();

}

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

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

#include <vcl.h>

#pragma hdrstop

#include "UnitReport2.h"

#include "DM.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TFormReport2 *FormReport2;

bool Pr;

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

__fastcall TFormReport2::TFormReport2(TComponent* Owner)

: TForm(Owner)

{

}

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

//выполняется после закрытия окна просмотра отчета

void __fastcall TFormReport2::QuickRep1AfterPreview(TObject *Sender)

{

FormReport2->Close(); //закрыть форму

}

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

//выполняется при активации формы

void __fastcall TFormReport2::FormActivate(TObject *Sender)

{

if(Pr==false)

Pr=true;

else

{Pr=false;

FormReport2->Close();

return;

}

QuickRep1->Visible=false;

QuickRep1->Preview();//показатьокнопредварительногопросмотраотчета

}

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

//выполняетсяприотображенииформы

void __fastcall TFormReport2::FormShow(TObject *Sender)

{

ADODataSetComputerTehnika->Close();

ADODataSetComputerTehnika->Open();

ADODataSetVidTehniki->Close();

ADODataSetVidTehniki->Open();

ADODataSetHistory->Close();

ADODataSetHistory->Open();

}

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

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

#include <vcl.h>

#pragma hdrstop

#include "VidTehniki.h"

#include "DM.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TFormVidTehniki *FormVidTehniki;

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

__fastcall TFormVidTehniki::TFormVidTehniki(TComponent* Owner)

: TForm(Owner)

{

}

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

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

void __fastcall TFormVidTehniki::ButtonAddClick(TObject *Sender)

{

if(ADODataSetVidTehniki->State==dsBrowse)

{ADODataSetVidTehniki->Insert();

Panel1->Visible=false;

Panel2->Visible=true;

GroupBox1->Visible=true;

DBEditName->SetFocus();

}

}

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

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

void __fastcall TFormVidTehniki::ButtonDeleteClick(TObject *Sender)

{

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

{ButtonChange->Enabled=false;//сделать кнопку Изменить недоступной

ButtonDelete->Enabled=false;//сделать кнопку Удалить недоступной

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

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

}

if(ADODataSetVidTehniki->State==dsBrowse)

if(Application->MessageBoxA("Подтвердите удаление записи !","Внимание",MB_ICONWARNING+MB_YESNO)==IDYES)

{ADODataSetComputerTehnika->Close();

ADODataSetComputerTehnika->CommandText= "select * from TablComputerTehnika where CodVidTehniki="+ADODataSetVidTehnikiCod->AsString;

ADODataSetComputerTehnika->Open();

if(ADODataSetComputerTehnika->RecordCount>0)

{ShowMessage("Ошибка при удалении! В таблице 'TablComputerTehnika' имеются связанные записи!"); //вывести сообщение в виде окошка

return;//выход из процедуры

}

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

}

}

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

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

void __fastcall TFormVidTehniki::ButtonChangeClick(TObject *Sender)

{

if(ADODataSetVidTehniki->RecordCount==0) //есть ли данные в БД - кол-во записей в таблице БД

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

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

}

if(ADODataSetVidTehniki->State==dsBrowse)

ADODataSetVidTehniki->Edit();//перевести таблицу БД в режим редактирования

Panel1->Visible=false;//сделать панель невидимой

Panel2->Visible=true;//сделать панель видимой

GroupBox1->Visible=true;//сделать панель видимой

DBEditName->SetFocus(); //установить фокус в поле для ввода

}

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

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

void __fastcall TFormVidTehniki::ButtonExitClick(TObject *Sender)

{

Close();

}

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

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

void __fastcallTFormVidTehniki::ButtonPostClick(TObject *Sender)

{

//------проверка всех введенных данных

if(DBEditName->Text=="" )//проверка введенных данных

{ShowMessage("Введите название!");//вывод диалогового окна с сообщением

return;//выход из процедуры

}

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

ADODataSetVidTehniki->Post();//запомнить все изменения в таблице БД

Panel1->Visible=true;//сделать панель видимой

Panel2->Visible=false;//сделать панель невидимой

GroupBox1->Visible=false;//сделать панель невидимой

ButtonChange->Enabled=true;//сделать кнопку Изменить доступной

ButtonDelete->Enabled=true;//сделать кнопку Удалить доступной

}

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

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

void __fastcall TFormVidTehniki::ButtonOtmenClick(TObject *Sender)

{

ADODataSetVidTehniki->Cancel();//отменить все изменения - данные в таблице БД не сохраняются

Panel1->Visible=true;//сделать панель видимой

Panel2->Visible=false;//сделать панель невидимой

GroupBox1->Visible=false;//сделать панель невидимой

}

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

void __fastcall TFormVidTehniki::FormShow(TObject *Sender)

{

ADODataSetVidTehniki->Close();

ADODataSetVidTehniki->Open();

ADODataSetComputerTehnika->Close();

ADODataSetComputerTehnika->Open();

}

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

void __fastcall TFormVidTehniki::DBEditNameKeyPress(TObject *Sender,

char &Key)

{

if(Key==13)

ButtonPostClick(Sender);

}

//--------------------------------------------------------------------------- class TFormComputerTehnika : public TForm

{

__published: // IDE-managed Components

TDBGrid *DBGridComputerTehnika;

TDataSource *DataSourceComputerTehnika;

TADODataSet *ADODataSetComputerTehnika;

TAutoIncField *ADODataSetComputerTehnikaCod;

TWideStringField *ADODataSetComputerTehnikaName;

TBCDField *ADODataSetComputerTehnikaCena;

TDateTimeField *ADODataSetComputerTehnikaDataPostup;

TMemoField *ADODataSetComputerTehnikaOpisanie;

TBlobField *ADODataSetComputerTehnikaPicture;

TIntegerField *ADODataSetComputerTehnikaCodVidTehniki;

TADODataSet *ADODataSetVidTehniki;

TDataSource *DataSourceVidTehniki;

TAutoIncField *ADODataSetVidTehnikiCod;

TWideStringField *ADODataSetVidTehnikiName;

TStringField *ADODataSetComputerTehnikaNameVidTehniki;

TBooleanField *ADODataSetComputerTehnikaProdan;

TGroupBox *GroupBox1;

TLabel *Label1;

TDBEdit *DBEditName;

TLabel *Label2;

TDBEdit *DBEditCena;

TLabel *Label3;

TDateTimePicker *DateTimePickerDataPostup;

TLabel *Label4;

TDBMemo *DBMemoOpisanie;

TLabel *Label5;

TDBLookupComboBox *DBLookupComboBoxVidTehniki;

TButton *ButtonFoto;

TDBImage *DBImageFoto;

TOpenDialog *OpenDialogFoto;

TPanel *Panel1;

TButton *ButtonAdd;

TButton *ButtonDelete;

TButton *ButtonChange;

TButton *ButtonExit;

TPanel *Panel2;

TButton *ButtonPost;

TButton *ButtonOtmen;

void __fastcall ButtonFotoClick(TObject *Sender);

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);

private: // User declarations

public: // User declarations

__fastcall TFormComputerTehnika(TComponent* Owner);

};

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

extern PACKAGE TFormComputerTehnika *FormComputerTehnika;

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

#endif

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

#ifndef DiagrammaOkladH

#define DiagrammaOkladH

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

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <ADODB.hpp>

#include <Chart.hpp>

#include <DB.hpp>

#include <DbChart.hpp>

#include <DBGrids.hpp>

#include <ExtCtrls.hpp>

#include <Grids.hpp>

#include <TeEngine.hpp>

#include <TeeProcs.hpp>

#include <Series.hpp>

#include <Menus.hpp>

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

class TFormDiagrammaOklad : public TForm

{

__published: // IDE-managed Components

TDBGrid *DBGridManager;

TADODataSet *ADODataSetManager;

TDataSource *DataSourceManager;

TAutoIncField *ADODataSetManagerCod;

TWideStringField *ADODataSetManagerFIO;

TBCDField *ADODataSetManagerOklad;

TDateTimeField *ADODataSetManagerDataRozhd;

TWideStringField *ADODataSetManagerPasport;

TWideStringField *ADODataSetManagerPassword;

TIntegerField *ADODataSetManagerCodDolgnost;

TDBChart *DBChartManager;

TPieSeries *Series1;

TStringField *ADODataSetManagerFIO2;

TButton *ButtonExit;

TPopupMenu *PopupMenu1;

TMenuItem *N1;

void __fastcall FormShow(TObject *Sender);

void __fastcall ADODataSetManagerCalcFields(TDataSet *DataSet);

void __fastcall ButtonExitClick(TObject *Sender);

void __fastcall N1Click(TObject *Sender);

private: // User declarations

public: // User declarations

__fastcall TFormDiagrammaOklad(TComponent* Owner);

};

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

extern PACKAGE TFormDiagrammaOklad *FormDiagrammaOklad;

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

#endif

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

#ifndef DMH

#define DMH

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

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <ADODB.hpp>

#include <DB.hpp>

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

class TDM1 : public TDataModule

{

__published: // IDE-managed Components

TADOConnection *ADOConnection1;

private: // User declarations

public: // User declarations

__fastcall TDM1(TComponent* Owner);

};

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

extern PACKAGE TDM1 *DM1;

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

#endif

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

#ifndef DolgnostH

#define DolgnostH

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

#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 TFormDolgnost : public TForm

{

__published: // IDE-managed Components

TDBGrid *DBGridDolgnost;

TADODataSet *ADODataSetDolgnost;

TDataSource *DataSourceDolgnost;

TAutoIncField *ADODataSetDolgnostCod;

TWideStringField *ADODataSetDolgnostName;

TDataSource *DataSourceManager;

TADODataSet *ADODataSetManager;

TGroupBox *GroupBox1;

TDBEdit *DBEditName;

TPanel *Panel1;

TButton *ButtonAdd;

TButton *ButtonDelete;

TButton *ButtonChange;

TButton *ButtonExit;

TPanel *Panel2;

TButton *ButtonPost;

TButton *ButtonOtmen;

TAutoIncField *ADODataSetManagerCod;

TWideStringField *ADODataSetManagerFIO;

TBCDField *ADODataSetManagerOklad;

TDateTimeField *ADODataSetManagerDataRozhd;

TWideStringField *ADODataSetManagerPasport;

TWideStringField *ADODataSetManagerPassword;

TIntegerField *ADODataSetManagerCodDolgnost;

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 TFormDolgnost(TComponent* Owner);

};

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

extern PACKAGE TFormDolgnost *FormDolgnost;

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

#endif

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

#ifndef MainAISH

#define MainAISH

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

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <Menus.hpp>

#include <ExtCtrls.hpp>

#include <jpeg.hpp>

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

class TFormMainAIS : public TForm

{

__published: // IDE-managed Components

TMainMenu *MainMenu1;

TMenuItem *N1;

TMenuItem *N2;

TMenuItem *N3;

TMenuItem *N4;

TMenuItem *N5;

TMenuItem *N6;

TMenuItem *N7;

TMenuItem *N8;

TPopupMenu *PopupMenu1;

TMenuItem *N9;

TMenuItem *N10;

TMenuItem *N12;

TMenuItem *N13;

TMenuItem *N14;

TMenuItem *N11;

TMenuItem *N15;

TImage *Image1;

void __fastcall N8Click(TObject *Sender);

void __fastcall N4Click(TObject *Sender);

void __fastcall N5Click(TObject *Sender);

void __fastcall N3Click(TObject *Sender);

void __fastcall N6Click(TObject *Sender);

void __fastcall N9Click(TObject *Sender);

void __fastcall N10Click(TObject *Sender);

void __fastcall N12Click(TObject *Sender);

void __fastcall N13Click(TObject *Sender);

void __fastcall N14Click(TObject *Sender);

void __fastcall N11Click(TObject *Sender);

void __fastcall N15Click(TObject *Sender);

private: // User declarations

public: // User declarations

__fastcall TFormMainAIS(TComponent* Owner);

};

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

extern PACKAGE TFormMainAIS *FormMainAIS;

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

#endif

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

#ifndef MainComputerH

#define MainComputerH

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

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <ADODB.hpp>

#include <DB.hpp>

#include <Buttons.hpp>

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

class TFormVxod : public TForm

{

__published: // IDE-managed Components

TLabel *Label1;

TComboBox *ComboBoxManager;

TLabel *Label2;

TEdit *EditPassword;

TBitBtn *BitBtnExit;

TButton *ButtonVxod;

TADODataSet *ADODataSetManager;

TAutoIncField *ADODataSetManagerCod;

TWideStringField *ADODataSetManagerFIO;

TBCDField *ADODataSetManagerOklad;

TDateTimeField *ADODataSetManagerDataRozhd;

TWideStringField *ADODataSetManagerPasport;

TWideStringField *ADODataSetManagerPassword;

TIntegerField *ADODataSetManagerCodDolgnost;

void __fastcall FormShow(TObject *Sender);

void __fastcall BitBtnExitClick(TObject *Sender);

void __fastcall ButtonVxodClick(TObject *Sender);

void __fastcall EditPasswordKeyPress(TObject *Sender, char &Key);

private: // User declarations

public: // User declarations

__fastcall TFormVxod(TComponent* Owner);

};

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

extern PACKAGE TFormVxod *FormVxod;

extern int TekManager;

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

#endif

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

#ifndef ManagerH

#define ManagerH

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

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <ADODB.hpp>

#include <ComCtrls.hpp>

#include <DB.hpp>

#include <DBCtrls.hpp>

#include <DBGrids.hpp>

#include <ExtCtrls.hpp>

#include <Grids.hpp>

#include <Mask.hpp>

#include <Menus.hpp>

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