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

#pragma resource "*.dfm"

TFormComputerTehnika *FormComputerTehnika;

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

__fastcall TFormComputerTehnika::TFormComputerTehnika(TComponent* Owner)

: TForm(Owner)

{

}

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

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;

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)

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

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

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

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

DateTimePickerDataPostup->Date= ADODataSetComputerTehnikaDataPostup->Value;

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

}

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

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

void __fastcall TFormComputerTehnika::ButtonExitClick(TObject *Sender)

{

Close();

}

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

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

void __fastcall TFormComputerTehnika::ButtonPostClick(TObject *Sender)

{

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

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

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

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

}

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

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

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

}

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

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

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

}

if(ADODataSetComputerTehnikaCodVidTehniki->Value==0 )//проверка введенных данных

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

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

}

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

ADODataSetComputerTehnikaDataPostup->Value= DateTimePickerDataPostup->Date;

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

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

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

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

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

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

}

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

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

void __fastcall TFormComputerTehnika::ButtonOtmenClick(TObject *Sender)

{

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

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

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

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

}

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

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

#include <vcl.h>

#pragma hdrstop

#include "DiagrammaOklad.h"

#include "DM.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TFormDiagrammaOklad *FormDiagrammaOklad;

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

__fastcall TFormDiagrammaOklad::TFormDiagrammaOklad(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall TFormDiagrammaOklad::FormShow(TObject *Sender)

{

ADODataSetManager->Close();

ADODataSetManager->Open();

}

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

void __fastcall TFormDiagrammaOklad::ADODataSetManagerCalcFields(

TDataSet *DataSet)

{

ADODataSetManagerFIO2->Value= ADODataSetManagerFIO->Value;

}

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

void __fastcall TFormDiagrammaOklad::ButtonExitClick(TObject *Sender)

{

Close();

}

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

void __fastcall TFormDiagrammaOklad::N1Click(TObject *Sender)

{

ButtonExitClick(Sender);

}

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

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

#include <vcl.h>

#pragma hdrstop

#include "DM.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TDM1 *DM1;

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

__fastcall TDM1::TDM1(TComponent* Owner)

: TDataModule(Owner)

{

}

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

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

#include <vcl.h>

#pragma hdrstop

#include "Dolgnost.h"

#include "DM.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TFormDolgnost *FormDolgnost;

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

__fastcall TFormDolgnost::TFormDolgnost(TComponent* Owner)

: TForm(Owner)

{

}

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

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

void __fastcall TFormDolgnost::ButtonAddClick(TObject *Sender)

{

if(ADODataSetDolgnost->State==dsBrowse)

{ADODataSetDolgnost->Insert();

Panel1->Visible=false;

Panel2->Visible=true;

GroupBox1->Visible=true;

DBEditName->SetFocus();

}

}

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

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

void __fastcall TFormDolgnost::ButtonDeleteClick(TObject *Sender)

{

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

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

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

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

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

}

if(ADODataSetDolgnost->State==dsBrowse)

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

{ADODataSetManager->Close();

ADODataSetManager->CommandText= "select * from TablManager where CodDolgnost="+IntToStr(ADODataSetDolgnostCod->Value);

ADODataSetManager->Open();

if(ADODataSetManager->RecordCount>0)

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

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

}

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

}

}

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

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

void __fastcall TFormDolgnost::ButtonChangeClick(TObject *Sender)

{

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

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

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

}

if(ADODataSetDolgnost->State==dsBrowse)

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

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

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

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

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

}

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

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

void __fastcall TFormDolgnost::ButtonExitClick(TObject *Sender)

{

Close();

}

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

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

void __fastcall TFormDolgnost::ButtonPostClick(TObject *Sender)

{

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

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

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

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

}

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

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

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

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

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

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

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

}

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

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

void __fastcall TFormDolgnost::ButtonOtmenClick(TObject *Sender)

{

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

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

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

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

}

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

void __fastcall TFormDolgnost::FormShow(TObject *Sender)

{

ADODataSetDolgnost->Close();

ADODataSetDolgnost->Open();

ADODataSetManager->Close();

ADODataSetManager->Open();

}

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

void __fastcall TFormDolgnost::DBEditNameKeyPress(TObject *Sender,

char &Key)

{

if(Key==13)

ButtonPostClick(Sender);

}

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

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

#include <vcl.h>

#pragma hdrstop

#include "MainAIS.h"

#include "Dolgnost.h"

#include "VidTehniki.h"

#include "Manager.h"

#include "ComputerTehnika.h"

#include "Prodazha.h"

#include "Vnalichii.h"

#include "Prodano.h"

#include "OtchetManager.h"

#include "DiagrammaOklad.h"

#include "Spravka.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TFormMainAIS *FormMainAIS;

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

__fastcall TFormMainAIS::TFormMainAIS(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall TFormMainAIS::N8Click(TObject *Sender)

{

Close();

}

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

void __fastcall TFormMainAIS::N4Click(TObject *Sender)

{

Application->CreateForm(__classid(TFormDolgnost), &FormDolgnost);

FormDolgnost->ShowModal();

}

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

void __fastcall TFormMainAIS::N5Click(TObject *Sender)

{

Application->CreateForm(__classid(TFormVidTehniki), &FormVidTehniki);

FormVidTehniki->ShowModal();

}

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

void __fastcall TFormMainAIS::N3Click(TObject *Sender)

{

Application->CreateForm(__classid(TFormManager), &FormManager);

FormManager->ShowModal();

}

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

void __fastcall TFormMainAIS::N6Click(TObject *Sender)

{

Application->CreateForm(__classid(TFormComputerTehnika), &FormComputerTehnika);

FormComputerTehnika->ShowModal();

}

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

void __fastcall TFormMainAIS::N9Click(TObject *Sender)

{

N8Click(Sender);

}

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

void __fastcall TFormMainAIS::N10Click(TObject *Sender)

{

Application->CreateForm(__classid(TFormProdazha), &FormProdazha);

FormProdazha->ShowModal();

}

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

void __fastcall TFormMainAIS::N12Click(TObject *Sender)

{

Application->CreateForm(__classid(TFormVnalichii), &FormVnalichii);

FormVnalichii->ShowModal();

}

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

void __fastcall TFormMainAIS::N13Click(TObject *Sender)

{

Application->CreateForm(__classid(TFormProdano), &FormProdano);

FormProdano->ShowModal();

}

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

void __fastcall TFormMainAIS::N14Click(TObject *Sender)

{

Application->CreateForm(__classid(TFormOtchetManager), &FormOtchetManager);

FormOtchetManager->ShowModal();

}

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

void __fastcall TFormMainAIS::N11Click(TObject *Sender)

{

Application->CreateForm(__classid(TFormDiagrammaOklad), &FormDiagrammaOklad);

FormDiagrammaOklad->ShowModal();

}

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

//Вызовсправки

void __fastcall TFormMainAIS::N15Click(TObject *Sender)

{

Application->CreateForm(__classid(TFormSpravka), &FormSpravka);

FormSpravka->ShowModal();

}

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

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

#include <vcl.h>

#pragma hdrstop

#include "MainComputer.h"

#include "DM.h"

#include "MainAIS.h"

#include "string.h"

#include "stdio.h"

#include <algorithm>

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TFormVxod *FormVxod;

int TekManager;

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

__fastcall TFormVxod::TFormVxod(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall TFormVxod::FormShow(TObject *Sender)

{

ComboBoxManager->Clear();

ADODataSetManager->Close();

ADODataSetManager->Open();

ADODataSetManager->First();

while(!ADODataSetManager->Eof)

{ComboBoxManager->Items->Add(ADODataSetManagerFIO->Value);

ADODataSetManager->Next();

}

}

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

void __fastcall TFormVxod::BitBtnExitClick(TObject *Sender)

{

Close();

}

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

void __fastcall TFormVxod::ButtonVxodClick(TObject *Sender)

{

ADODataSetManager->Close();

ADODataSetManager->CommandText= "select * from TablManager where FIO="+QuotedStr(ComboBoxManager->Text);

ADODataSetManager->Open();

if(ADODataSetManagerPassword->Value==EditPassword->Text)

{TekManager= ADODataSetManagerCod->Value;

Application->CreateForm(__classid(TFormMainAIS), &FormMainAIS);

FormMainAIS->ShowModal();

Close();

}

else ShowMessage("Неверныйпароль!");

}

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

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

{

if(Key==13)

ButtonVxodClick(Sender);

}

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

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