Дипломная работа: Автоматизация приема заявок на ремонт и модернизацию ПК в ООО "СЕРВИС ПК"

Скачать

Заказать новую работу

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
118
void __fastcall TFormC::FormClose(TObject *Sender, TCloseAction
&Action)
{
FormC->DBGridCA->Visible = false;
FormC->DBGridCU->Visible = false;
FormC->DBGridCAg->Visible = false;
FormC->DBGridCM->Visible = false;
FormC->DBGridCV->Visible = false;
FormC->DBGridCP->Visible = false;
FormC->DBGridCD->Visible = false;
}
//---------------------------------------------------------------------------
void __fastcall TFormC::BitBtnCClick(TObject *Sender)
{
if (DataM->Agent->Modified) DataM->Agent->Cancel();
if (DataM->Unit->Modified) DataM->Unit->Cancel();
if (DataM->Analog->Modified) DataM->Analog->Cancel();
if (DataM->Product->Modified) DataM->Product->Cancel();
if (DataM->Vacant->Modified) DataM->Vacant->Cancel();
if (DataM->Department->Modified) DataM->Department->Cancel();
if (DataM->Person->Modified) DataM->Person->Cancel();
}
//---------------------------------------------------------------------------
119
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "UnitData.h"
#include "UnitMain.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TDataM *DataM;
//---------------------------------------------------------------------------
__fastcall TDataM::TDataM(TComponent* Owner)
: TDataModule(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TDataM::DocumentTableBeforePost(TDataSet *DataSet)
{
if (!DataM->Document->FieldByName("Key")->IsNull & DataM-
>DocumentTable->FieldByName("Key")->IsNull)
DataM->DocumentTable->FieldByName("DocumentK")->Value =
DataM->Document->FieldByName("Key")->Value;
}
//---------------------------------------------------------------------------
void __fastcall TDataM::ZayvkaTableBeforePost(TDataSet *DataSet)
{
120
if (!DataM->Zayvka->FieldByName("Key")->IsNull & DataM-
>ZayvkaTable->FieldByName("Key")->IsNull)
DataM->ZayvkaTable->FieldByName("DocumentK")->Value = DataM-
>Zayvka->FieldByName("Key")->Value;
}
//---------------------------------------------------------------------------
void __fastcall TDataM::DocumentBeforeDelete(TDataSet *DataSet)
{
if (DataM->Document->FieldByName("StatusK")->AsInteger == 1)
{
DataM->Document->CancelBatch();
MessageBox(0,"Нельзя удалять проведенный документ.","Удаление
записи",0);
}
else
DataM->Document->UpdateBatch();
}
//---------------------------------------------------------------------------
void __fastcall TDataM::DocumentAfterDelete(TDataSet *DataSet)
{
if (DataM->Document->FieldByName("StatusK")->AsInteger != 1)
DataM->Document->UpdateBatch();
FormMain->DBGridM->Refresh();
}
//---------------------------------------------------------------------------
void __fastcall TDataM::ZayvkaAfterDelete(TDataSet *DataSet)
{
121
if (DataM->Zayvka->FieldByName("StatusK")->AsInteger == 5)
DataM->Zayvka->UpdateBatch();
FormMain->DBGridMZ->Refresh();
}
//---------------------------------------------------------------------------
void __fastcall TDataM::ZayvkaBeforeDelete(TDataSet *DataSet)
{
if (DataM->Zayvka->FieldByName("StatusK")->AsInteger != 5)
{
DataM->Zayvka->CancelBatch();
MessageBox(0,"Нельзя удалять выполненую заявку.","Удаление
записи",0);
}
}
//---------------------------------------------------------------------------
void __fastcall TDataM::DocumentAfterPost(TDataSet *DataSet)
{
DataM->Document->UpdateBatch();
}
//---------------------------------------------------------------------------
void __fastcall TDataM::ZayvkaAfterPost(TDataSet *DataSet)
{
DataM->Zayvka->UpdateBatch();
}
//---------------------------------------------------------------------------
122
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "UnitProgress.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormPr *FormPr;
//---------------------------------------------------------------------------
__fastcall TFormPr::TFormPr(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormPr::FormShow(TObject *Sender)
{
FormPr->ProgressBarP->Position = 0;
}
//---------------------------------------------------------------------------
Источник: https://baza.diplomsite.ru/previewfile/1940

Смотрите также:

ЦЕНОВАЯ ПОЛИТИКА ПРЕДПРИЯТИЯ НА ПРИМЕРЕ ООО «ДНС РИТЕЙЛ»
_archivetempпротивовоспалительные
- Обратный порядок следования фаз 4
- Сопротивление изоляции 25
!_Лабораторные_работы_1_сем_ОУТС
!Контрольная работа (задание)
!Фармакология препаратов для терапии заболеваний дыхательных путей
'Electronics Workbench' – алгоритм инструмента моделирования электронных схем
'Новая экономика': российская специфика