Файл: Проектирование реализации операций бизнес-процесса «Продажи» ( ООО «Бизнеском»).pdf

TColumn *Column)

{

if(ADODataSetComputerTehnikaPicture->Value=="")

DBImageFoto->Visible=false;

else DBImageFoto->Visible=true;

if(ADODataSetComputerTehnika->RecordCount==0)

{DBImageFoto->Visible=false;

DBMemoOpisanie->Visible=false;

}

}

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

void __fastcall TFormProdano::FormShow(TObject *Sender)

{ TColumn *Column;

ADODataSetComputerTehnika->Close();

ADODataSetComputerTehnika->Open();

ADODataSetVidTehniki->Close();

ADODataSetVidTehniki->Open();

DBGridComputerTehnikaCellClick(Column);

}

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

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

void __fastcall TFormProdano::ButtonPrintClick(TObject *Sender)

{

Application->CreateForm(__classid(TFormReport2), &FormReport2);

FormReport2->ShowModal();

}

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

void __fastcall TFormProdano::N1Click(TObject *Sender)

{

ButtonPrintClick(Sender);

}

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

void __fastcall TFormProdano::N2Click(TObject *Sender)

{

ButtonExitClick(Sender);

}

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

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

#include <vcl.h>

#pragma hdrstop

#include "Prodazha.h"

#include "DM.h"

#include "MainComputer.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TFormProdazha *FormProdazha;

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

__fastcall TFormProdazha::TFormProdazha(TComponent* Owner)

: TForm(Owner)

{

}

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

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

void __fastcall TFormProdazha::FormShow(TObject *Sender)

{ TColumn *Column;

DateTimePickerDataProdazhi->Date= Date();

ADODataSetComputerTehnika->Close();

ADODataSetComputerTehnika->Open();

ADODataSetHistory->Close();

ADODataSetHistory->Open();

DBGridComputerTehnikaCellClick(Column);

}

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

void __fastcall TFormProdazha::DBGridComputerTehnikaCellClick(

TColumn *Column)

{

if(ADODataSetComputerTehnikaPicture->Value=="")

DBImageFoto->Visible=false;

else DBImageFoto->Visible=true;

if(ADODataSetComputerTehnika->RecordCount==0)

{DBImageFoto->Visible=false;

GroupBoxOpisanie->Visible= false;

}

else

GroupBoxOpisanie->Visible=true;

}

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

void __fastcall TFormProdazha::ButtonProdatClick(TObject *Sender)

{TColumn *Column;

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

{if(ADODataSetComputerTehnika->RecordCount==0)

{ShowMessage("Товар отсутствует в продаже!");

return;

}

ADODataSetComputerTehnika->Edit();

ADODataSetComputerTehnikaProdan->Value=1;

ADODataSetComputerTehnika->Post();

ADODataSetComputerTehnika->Refresh();

ADODataSetHistory->Insert();

ADODataSetHistoryCodComputerTehnika->Value= ADODataSetComputerTehnikaCod->Value;

ADODataSetHistoryCodManager->Value= TekManager;

ADODataSetHistoryDataProdazhi->Value= DateTimePickerDataProdazhi->Date;

ADODataSetHistoryCena->Value= ADODataSetComputerTehnikaCena->Value;

ADODataSetHistory->Post();

ADODataSetComputerTehnika->Close();

ADODataSetComputerTehnika->Open();

DBGridComputerTehnikaCellClick(Column);

}

}

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

void __fastcall TFormProdazha::ButtonExitClick(TObject *Sender)

{

Close();

}

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

void __fastcall TFormProdazha::N1Click(TObject *Sender)

{

ButtonProdatClick(Sender);

}

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

void __fastcall TFormProdazha::N2Click(TObject *Sender)

{

ButtonExitClick(Sender);

}

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

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

#include <vcl.h>

#pragma hdrstop

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

USEFORM("MainComputer.cpp", FormVxod);

USEFORM("DM.cpp", DM1); /* TDataModule: File Type */

USEFORM("Dolgnost.cpp", FormDolgnost);

USEFORM("MainAIS.cpp", FormMainAIS);

USEFORM("VidTehniki.cpp", FormVidTehniki);

USEFORM("Manager.cpp", FormManager);

USEFORM("ComputerTehnika.cpp", FormComputerTehnika);

USEFORM("Prodazha.cpp", FormProdazha);

USEFORM("Vnalichii.cpp", FormVnalichii);

USEFORM("UnitReport.cpp", FormReport);

USEFORM("Prodano.cpp", FormProdano);

USEFORM("UnitReport2.cpp", FormReport2);

USEFORM("OtchetManager.cpp", FormOtchetManager);

USEFORM("DiagrammaOklad.cpp", FormDiagrammaOklad);

USEFORM("Spravka.cpp", FormSpravka);

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

WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)

{

try

{

Application->Initialize();

Application->CreateForm(__classid(TFormVxod), &FormVxod);

Application->CreateForm(__classid(TDM1), &DM1);

Application->Run();

}

catch (Exception &exception)

{

Application->ShowException(&exception);

}

catch (...)

{

try

{

throw Exception("");

}

catch (Exception &exception)

{

Application->ShowException(&exception);

}

}

return 0;

}

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

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

#include <vcl.h>

#pragma hdrstop

#include "Spravka.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TFormSpravka *FormSpravka;

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

__fastcall TFormSpravka::TFormSpravka(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall TFormSpravka::ButtonExitClick(TObject *Sender)

{

Close();

}

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

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

#include <vcl.h>

#pragma hdrstop

#include "UnitReport.h"

#include "DM.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TFormReport *FormReport;

bool Pr;

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

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