void __fastcall TFormMainModulAIS::CreateOper(TDateTime DOper, AnsiString TxtOper, int PKL_MatCen,

int PKL_VwOper, int PKL_Suppl, int PKL_SVC, int PKL_MOL)

{

ADODataSetOper->Close();

ADODataSetOper->Open();

ADODataSetOper->Insert();

ADODataSetOperDOper->Value= DOper;

ADODataSetOperTxtOper->Value= TxtOper;

ADODataSetOperPKL_MatCen->Value= PKL_MatCen;

ADODataSetOperPKL_VwOper->Value= PKL_VwOper;

ADODataSetOperPKL_Suppl->Value= PKL_Suppl;

ADODataSetOperPKL_SVC->Value= PKL_SVC;

ADODataSetOperPKL_MOL->Value= PKL_MOL;

ADODataSetOper->Post();

}

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

void __fastcall TFormMainModulAIS::FormKeyPress(TObject *Sender, char &Key)

{

if(Key==27)

{Close();

}

}

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

void __fastcall TFormMainModulAIS::TreeViewSkladDblClick(TObject *Sender)

{ int i;

TPoint xyCursor;

//получаем позицию курсора

GetCursorPos(&xyCursor);

xyCursor= TreeViewSklad->ScreenToClient(xyCursor);

TTreeNode* TreeNode = TreeViewSklad->GetNodeAt(xyCursor.x, xyCursor.y);

//обрабатываем пункты меню-дерева

if(TreeNode)

{if(TreeNode->Text=="Выход")

N1Click(Sender);

//*****************Склад

else if(TreeNode->Text=="Поступление")

{SostRegim=3; //создавать без МОЛ

Application->CreateForm(__classid(TFormMatCenData), &FormMatCenData);

FormMatCenData->ShowModal();

}

else if(TreeNode->Text=="Выдача")

{SostRegim=1;

Application->CreateForm(__classid(TFormMatCenSpis), &FormMatCenSpis);

FormMatCenSpis->ShowModal();

}

else if(TreeNode->Text=="Возврат на склад")

{Application->CreateForm(__classid(TFormVozvratMC), &FormVozvratMC);

FormVozvratMC->ShowModal();

}

else if(TreeNode->Text=="Списание МЦ")

{SostRegim=3;

Application->CreateForm(__classid(TFormMatCenSpis), &FormMatCenSpis);

FormMatCenSpis->ShowModal();

}

else if(TreeNode->Text=="Ремонт (в СВЦ)")

{SostRegim=4;

Application->CreateForm(__classid(TFormMatCenSpis), &FormMatCenSpis);

FormMatCenSpis->ShowModal();

}

else if(TreeNode->Text=="Гарантии")

{Application->CreateForm(__classid(TFormReportMCGarant), &FormReportMCGarant);

FormReportMCGarant->ShowModal();

}

//*****************Справочники

else if(TreeNode->Text=="Производители")

{Application->CreateForm(__classid(TFormProizv), &FormProizv);

FormProizv->ShowModal();

}

else if(TreeNode->Text=="Поставщики")

{Application->CreateForm(__classid(TFormSuppl), &FormSuppl);

FormSuppl->ShowModal();

}

else if(TreeNode->Text=="Сервисные центры")

{Application->CreateForm(__classid(TFormSVC), &FormSVC);

FormSVC->ShowModal();

}

else if(TreeNode->Text=="Виды матер.ценностей")

{Application->CreateForm(__classid(TFormVwMC), &FormVwMC);

FormVwMC->ShowModal();

}

else if(TreeNode->Text=="Рабочее состояние")

{Application->CreateForm(__classid(TFormRabSost), &FormRabSost);

FormRabSost->ShowModal();

}

else if(TreeNode->Text=="Материальные ценности")

{Application->CreateForm(__classid(TFormMatCen), &FormMatCen);

FormMatCen->ShowModal();

}

else if(TreeNode->Text=="Подразделения")

{Application->CreateForm(__classid(TFormDiviz), &FormDiviz);

FormDiviz->ShowModal();

}

else if(TreeNode->Text=="Должностные звания")

{Application->CreateForm(__classid(TFormRabRank), &FormRabRank);

FormRabRank->ShowModal();

}

else if(TreeNode->Text=="МОЛ")

{SostRegim2=0;

Application->CreateForm(__classid(TFormMOL), &FormMOL);

FormMOL->ShowModal();

}

else if(TreeNode->Text=="Настройка кодов")

{Application->CreateForm(__classid(TFormMestoKodir), &FormMestoKodir);

FormMestoKodir->ShowModal();

}

else if(TreeNode->Text=="Виды операций")

{Application->CreateForm(__classid(TFormVwOper), &FormVwOper);

FormVwOper->ShowModal();

}

//*****************Отчеты

else if(TreeNode->Text=="Кол-во на складе")

{Application->CreateForm(__classid(TFormReportKolSklad), &FormReportKolSklad);

FormReportKolSklad->ShowModal();

}

else if(TreeNode->Text=="Ответственный за МЦ")

{Application->CreateForm(__classid(TFormReportMOL), &FormReportMOL);

FormReportMOL->ShowModal();

}

else if(TreeNode->Text=="Движение по МЦ")

{Application->CreateForm(__classid(TFormReportMCOper), &FormReportMCOper);

FormReportMCOper->ShowModal();

}

else if(TreeNode->Text=="МЦ на складе")

{Application->CreateForm(__classid(TFormReportMestoMC), &FormReportMestoMC);

FormReportMestoMC->ShowModal();

}

else if(TreeNode->Text=="МЦ на складе (детальный)")

{Application->CreateForm(__classid(TFormReportMestoMC_2), &FormReportMestoMC_2);

FormReportMestoMC_2->ShowModal();

}

else if(TreeNode->Text=="Состояние МЦ")

{Application->CreateForm(__classid(TFormReportSostMC), &FormReportSostMC);

FormReportSostMC->ShowModal();

}

else if(TreeNode->Text=="По поставщикам")

{Application->CreateForm(__classid(TFormReportSupplMC), &FormReportSupplMC);

FormReportSupplMC->ShowModal();

}

//*****************Справка

else if(TreeNode->Text=="Разработчик")

{Application->CreateForm(__classid(TFormProger), &FormProger);

FormProger->ShowModal();

}

else if(TreeNode->Text=="Заказчик")

{AnsiString s= GetCurrentDir() + "\\MatCenSoftAlians.chm";

ShellExecuteA(0,NULL, s.c_str(), NULL, NULL,SW_SHOW);

// Application->CreateForm(__classid(TFormOrganiz), &FormOrganiz);

// FormOrganiz->ShowModal();

}

else if(TreeNode->Text=="О программе")

{Application->CreateForm(__classid(TFormProgramm), &FormProgramm);

FormProgramm->ShowModal();

}

else

ShowMessage(TreeNode->Text);

}

// ShowMessage(TreeViewSklad->Items->Item[i]->Text);

}

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

void __fastcall TFormMainModulAIS::N1Click(TObject *Sender)

{

Close();

}

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

Модуль “ UnitMatCen.cpp”

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

#include <vcl.h>

#pragma hdrstop

#include "UnitMatCen.h"

#include "UnitConnect.h"

#include "UnitMainModulAIS.h"

#include "UnitVwMC.h"

#include "UnitMatCenData.h"

#include "UnitKodir.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TFormMatCen *FormMatCen;

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

__fastcall TFormMatCen::TFormMatCen(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall TFormMatCen::BtDelClick(TObject *Sender)

{

if(ADODataSetMatCen->RecordCount==0)

{ShowMessage("МЦ не обнаружены!");

return;

}

if(ADODataSetMatCen->State==dsBrowse)

if(Application->MessageBoxA("Удалить выбранную МЦ ?","Операция удаления",MB_ICONWARNING+MB_YESNO)==IDYES)

{ADODataSetOper->Close();

ADODataSetOper->CommandText= "select * from Table_Oper where PKL_MatCen=" + ADODataSetMatCenPKL_MatCen->AsString;

ADODataSetOper->Open();

if(ADODataSetOper->RecordCount>0)

{ShowMessage("По выбранной МЦ созданы операции. Сначала удалите операции, затем МЦ.");

return;

}

ADODataSetGarant->Close();

ADODataSetGarant->CommandText= "select * from Table_Garant where PKL_MatCen=" + ADODataSetMatCenPKL_MatCen->AsString;

ADODataSetGarant->Open();

if(ADODataSetGarant->RecordCount>0)

{ShowMessage("По выбранной МЦ созданы данные в гарантиях. Сначала удалите гарантии, затем МЦ.");

return;

}

ADODataSetKodir2->Close();

ADODataSetKodir2->CommandText= "select * from Table_Kodir where PKL_MatCen=" + ADODataSetMatCenPKL_MatCen->AsString;

ADODataSetKodir2->Open();

if(ADODataSetKodir2->RecordCount>0)

{ShowMessage("По выбранной МЦ создан код местоположения. Сначала удалите код, затем МЦ.");

return;

}

ADODataSetMatCen->Delete();

}

}

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

void __fastcall TFormMatCen::BtChClick(TObject *Sender)

{

if(ADODataSetMatCen->RecordCount<=0)

{ShowMessage("МЦ не обнаружены");

return;

}

SostRegim=1; //редактировать

PKLMatCen= ADODataSetMatCenPKL_MatCen->Value;

FormMatCen->Hide();

Application->CreateForm(__classid(TFormMatCenData), &FormMatCenData);

FormMatCenData->ShowModal();

FormMatCen->Show();

//обновляем данные и позиционируемся на активной записи

ADODataSetMatCen->Close();

ADODataSetMatCen->Open();

TLocateOptions Options;

Options <<loPartialKey<<loCaseInsensitive;

ADODataSetMatCen->Locate("PKL_MatCen",PKLMatCen,Options);

}

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

void __fastcall TFormMatCen::BtExClick(TObject *Sender)

{

Close();

}

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

void __fastcall TFormMatCen::FormShow(TObject *Sender)

{

ADODataSetVwMC->Close();

ADODataSetRabSost->Close();

ADODataSetKodir->Close();

ADODataSetSuppl->Close();

ADODataSetMOL->Close();

ADODataSetProizv->Close();

ADODataSetMesto->Close();

ADODataSetMatCen->Close();

ADODataSetVwMC->Open();

ADODataSetRabSost->Open();

ADODataSetKodir->Open();

ADODataSetSuppl->Open();

ADODataSetMOL->Open();

ADODataSetProizv->Open();

ADODataSetMesto->Open();

ADODataSetMatCen->Open();

}

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

void __fastcall TFormMatCen::DBEditNazvKeyPress(TObject *Sender,

char &Key)

{

if(Key==13)

BtChClick(Sender);

if(Key==27)

BtExClick(Sender);

}

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

void __fastcall TFormMatCen::N1Click(TObject *Sender)

{

BtExClick(Sender);

}

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

void __fastcall TFormMatCen::PopupMenu1Change(TObject *Sender,

TMenuItem *Source, bool Rebuild)

{

AnsiString s;

if(ADODataSetMatCen->State == dsInactive)

return;

switch (DBGridMatCen->SelectedIndex)

{

case 0: s= ADODataSetMatCenNazvMC->Value; break;

case 1: s= ADODataSetMatCenNameVwMC->Value; break;

case 2: s= ADODataSetMatCenNameSuppl->Value; break;

case 3: s= ADODataSetMatCenNameProizv->Value; break;

case 4: s= ADODataSetMatCenNameRabSost->Value; break;

case 5: s= ADODataSetMatCenKod->Value; break;

}

N2->Caption= s;

}

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

void __fastcall TFormMatCen::DBGridMatCenDrawColumnCell(TObject *Sender,

const TRect &Rect, int DataCol, TColumn *Column,

TGridDrawState State)

{

TMainColorGrid *PerColor = static_cast<TMainColorGrid*>(Sender);

if(PerColor->DataLink->ActiveRecord == PerColor->Row-1)

{ PerColor->Canvas->Brush->Color = clCream; //цвет фона

PerColor->Canvas->Font->Color = clPurple; //свойство шрифта - цвет

PerColor->Canvas->Font->Style = PerColor->Canvas->Font->Style<<fsBold; //свойство шрифта - жирный

}

PerColor->DefaultDrawColumnCell(Rect, DataCol, Column, State);

}

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

void __fastcall TFormMatCen::BtCrClick(TObject *Sender)

{

SostRegim=0; //создавать

FormMatCen->Hide();

Application->CreateForm(__classid(TFormMatCenData), &FormMatCenData);

FormMatCenData->ShowModal();

FormMatCen->Show();

//обновляем данные и позиционируемся на активной записи

ADODataSetMatCen->Close();

ADODataSetMatCen->Open();

TLocateOptions Options;

Options <<loPartialKey<<loCaseInsensitive;

ADODataSetMatCen->Locate("PKL_MatCen",PKLMatCen,Options);

}

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

void __fastcall TFormMatCen::ADODataSetMatCenCalcFields(TDataSet *DataSet)

{ AnsiString sk="";

if(ADODataSetMatCen->State != dsInsert

&&

ADODataSetMatCen->State != dsEdit)

{ADODataSetKodir->Close();

ADODataSetKodir->CommandText= "select * from Table_Kodir where PKL_MatCen="+

ADODataSetMatCenPKL_MatCen->AsString;

ADODataSetKodir->Open();

if(ADODataSetKodir->RecordCount>0)

{ADODataSetMatCenKod->Value= IntToStr(ADODataSetKodirPKL_Mesto->Value) + "." +

IntToStr(ADODataSetKodirKod1->Value) + "." +

IntToStr(ADODataSetKodirKod2->Value) + "." +

IntToStr(ADODataSetKodirKod3->Value) + "." +

IntToStr(ADODataSetKodirKod4->Value) + "." +

IntToStr(ADODataSetKodirKod5->Value) + "." +

IntToStr(ADODataSetKodirKod6->Value);

}

else

ADODataSetMatCenKod->Value= "";

}

}

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

void __fastcall TFormMatCen::BitBtnKodirClick(TObject *Sender)

{

if(ADODataSetMatCen->RecordCount<=0)

{ShowMessage("Материальные ценности отсутствуют.");

return;

}

PKLMatCen= ADODataSetMatCenPKL_MatCen->Value;

NazvMC= ADODataSetMatCenNazvMC->Value +

"(" +

ADODataSetMatCenNameVwMC->Value +

")";

Application->CreateForm(__classid(TFormKodir), &FormKodir);

FormKodir->ShowModal();

//обновляем данные и позиционируемся на активной записи

ADODataSetMatCen->Close();

ADODataSetMatCen->Open();

TLocateOptions Options;

Options <<loPartialKey<<loCaseInsensitive;

ADODataSetMatCen->Locate("PKL_MatCen",PKLMatCen,Options);

}

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

Модуль “ UnitReportKolSklad.cpp”

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

#include <vcl.h>

#pragma hdrstop

#include "UnitReportKolSklad.h"

#include "UnitMainModulAIS.h"

#include "UnitConnect.h"

#include "UnitVwMC.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

Variant MsExc;

int txtCntr = 0xFFFFEFF4;

TFormReportKolSklad *FormReportKolSklad;

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

__fastcall TFormReportKolSklad::TFormReportKolSklad(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall TFormReportKolSklad::FormShow(TObject *Sender)

{ TColumn *Column;

ADODataSetMatCen->Close();

ADODataSetKodir->Close();

ADODataSetRabSost->Close();

ADODataSetVwMC->Close();

ADODataSetMatCen->Open();

ADODataSetKodir->Open();

ADODataSetRabSost->Open();

ADODataSetVwMC->Open();

DBGridVwMCCellClick(Column);

}

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

void __fastcall TFormReportKolSklad::DBGridVwMCCellClick(TColumn *Column)

{ AnsiString s="";

if(ADODataSetVwMC->RecordCount<=0)

return;

}

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

void __fastcall TFormReportKolSklad::BtExtClick(TObject *Sender)

{

Close();

}

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

void __fastcall TFormReportKolSklad::DBGridVwMCDrawColumnCell(

TObject *Sender, const TRect &Rect, int DataCol, TColumn *Column,

TGridDrawState State)

{

TMainColorGrid *PerColor = static_cast<TMainColorGrid*>(Sender);

if(PerColor->DataLink->ActiveRecord == PerColor->Row-1)

{ PerColor->Canvas->Brush->Color = clCream; //цвет фона

PerColor->Canvas->Font->Color = clPurple; //свойство шрифта - цвет

PerColor->Canvas->Font->Style = PerColor->Canvas->Font->Style<<fsBold; //свойство шрифта - жирный

}

PerColor->DefaultDrawColumnCell(Rect, DataCol, Column, State);

}

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

void __fastcall TFormReportKolSklad::BtPrnClick(TObject *Sender)

{ AnsiString Str1, Str2, Str3, Str4;

int i1=0, i2=0, i3=0;

//если на выбранном месте склада МЦ нет, то нет и отчета

if(ADODataSetMatCen->RecordCount<=0)

{ShowMessage("По выбранному виду '" + ADODataSetVwMCNazv->Value + "' МЦ не обнаружены !");

return;

}

MsExc= CreateOleObject("Excel.Application"); MsExc.OlePropertyGet("Workbooks").OleProcedure("Add");

MsExc.OlePropertyGet("Sheets", "Лист1").OleProcedure("Select");

//слева отступ

MsExc.OlePropertyGet("Sheets", "Лист1").OlePropertyGet("PageSetup").OlePropertySet("LeftMargin", 10);

//справа отступ

MsExc.OlePropertyGet("Sheets", "Лист1").OlePropertyGet("PageSetup").OlePropertySet("RightMargin",10);

//ориентация листа - альбом

MsExc.OlePropertyGet("Sheets", "Лист1").OlePropertyGet("PageSetup").OlePropertySet("Orientation",2);

//временно спрячем MsExcel

MsExc.OlePropertySet("Visible", false);

MsExc.OlePropertyGet("Range", "A1:C1").OleProcedure("Select");

//объединяем ячейки и по центру

MsExc.OlePropertyGet("Range", "A1:C1").OleProcedure("Merge");

//именуем отчет

Str1= "Кол-во '"+ADODataSetVwMCNazv->Value+"' МЦ на складе = " + IntToStr(ADODataSetVwMCKol->Value);

i1=1;

MsExc.OlePropertyGet("Cells", i1, 1).OlePropertySet("Value",Str1.c_str());

//ставим жирным

MsExc.OlePropertyGet("Cells", i1, 1).OlePropertyGet("Font").OlePropertySet("Bold", 1);

//ставим размер 14

MsExc.OlePropertyGet("Cells", i1, 1).OlePropertyGet("Font").OlePropertySet("Size", 14);

//если в строке не умещается - переносим на другую

MsExc.OlePropertyGet("Cells", i1, 1).OlePropertySet("WrapText", true);

//центрим по горизонтали

MsExc.OlePropertyGet("Range", "A1:C1").OlePropertySet("HorizontalAlignment", txtCntr);

//центрим по вертикали

MsExc.OlePropertyGet("Range", "A1:C1").OlePropertySet("VerticalAlignment", txtCntr);

//высота строки

MsExc.OlePropertyGet("Range", "A1:C1").OlePropertySet("RowHeight", 20);

//далее выводим через строку

i1= i1 + 2;

i2=1;

//именуем столбцы

//1-й столбец - Название МЦ

Str1= "Название МЦ";

MsExc.OlePropertyGet("Cells",i1,1).OlePropertySet("Value", Str1.c_str());

//2-й столбец - Состояние

Str1= "Состояние";

MsExc.OlePropertyGet("Cells",i1,2).OlePropertySet("Value", Str1.c_str());

//3-й столбец - Код

Str1= "Код";

MsExc.OlePropertyGet("Cells",i1,3).OlePropertySet("Value", Str1.c_str());

//настройки для названий столбцов таблицы

Str2= "A"+IntToStr(i1)+":C" + IntToStr(i1);

MsExc.OlePropertyGet("Range", Str2.c_str()).OlePropertyGet("Font").OlePropertySet("Bold", 1);

MsExc.OlePropertyGet("Range", Str2.c_str()).OlePropertyGet("Font").OlePropertySet("Size", 13);

//центрим по горизонтали

MsExc.OlePropertyGet("Range", Str2.c_str()).OlePropertySet("HorizontalAlignment", txtCntr);

//центрим по вертикали

MsExc.OlePropertyGet("Range", Str2.c_str()).OlePropertySet("VerticalAlignment", txtCntr);

//настраиваем ширину столбцов

//первый

MsExc.OlePropertyGet("Range", "A3").OlePropertySet("ColumnWidth", 60);

//второй

MsExc.OlePropertyGet("Range", "B3").OlePropertySet("ColumnWidth", 30);

//третий

MsExc.OlePropertyGet("Range", "C3").OlePropertySet("ColumnWidth", 20);

ADODataSetMatCen->First();

i3=0; i1++;

while(!ADODataSetMatCen->Eof)

{//Название МЦ

Str1= ADODataSetMatCenNazvMC->Value;

//выводим

MsExc.OlePropertyGet("Cells", i1 + i3, 1).OlePropertySet("Value", Str1.c_str());

//если в строке не умещается - переносим на другую

MsExc.OlePropertyGet("Cells", i1 + i3, 1).OlePropertySet("WrapText",true);

//Состояние МЦ

if(ADODataSetMatCenNazvRabSost->Value == NULL)

Str1="";

else

Str1= ADODataSetMatCenNazvRabSost->Value;

//выводим

MsExc.OlePropertyGet("Cells", i1 + i3, 2).OlePropertySet("Value", Str1.c_str());

//если в строке не умещается - переносим на другую

MsExc.OlePropertyGet("Cells", i1 + i3, 2).OlePropertySet("WrapText",true);

//Код

if((ADODataSetMatCenKod->Value == NULL) || (ADODataSetMatCenKod->Value == ""))

Str1=" ";

else

Str1= ADODataSetMatCenKod->Value;

//выводим

MsExc.OlePropertyGet("Cells", i1 + i3, 3).OlePropertySet("Value", Str1.c_str());

//если в строке не умещается - переносим на другую

MsExc.OlePropertyGet("Cells", i1 + i3, 3).OlePropertySet("WrapText",true);

//следующий

ADODataSetMatCen->Next(); i3+=1;;

}

//обрисовываем линии у таблички

Str1= "A3:C" + IntToStr(i3+3);

MsExc.OlePropertyGet("Range", Str1.c_str()).OlePropertyGet("Borders",1).OlePropertySet("Weight", 3);

MsExc.OlePropertyGet("Range", Str1.c_str()).OlePropertyGet("Borders",2).OlePropertySet("Weight", 3);

MsExc.OlePropertyGet("Range", Str1.c_str()).OlePropertyGet("Borders",3).OlePropertySet("Weight", 3);

MsExc.OlePropertyGet("Range", Str1.c_str()).OlePropertyGet("Borders",4).OlePropertySet("Weight", 3);

//текущую дату в строку

Str1= DateToStr(Date());

//меняем в дате точку на подчеркивание

Str1= StringReplace(Str1, ".","_", TReplaceFlags()<<rfReplaceAll<<rfIgnoreCase);

//текущее время в строку

Str2= TimeToStr(Time());

//меняем во времени двоеточие на подчеркивание

Str2= StringReplace(Str2, ":","_", TReplaceFlags()<<rfReplaceAll<<rfIgnoreCase);

//название файла

Str1= GetCurrentDir() + "\\На складе\\" + ADODataSetVwMCNazv->Value + " (Кол)_" + Str1 + "_" + Str2 + ".xls";

//сохраняем файл

MsExc.OlePropertyGet("Workbooks").OlePropertyGet("Item",1).OleProcedure("SaveAs", String(Str1).c_str());

//отчет на экран компа

MsExc.OlePropertySet("Visible", true);

}

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

void __fastcall TFormReportKolSklad::ADODataSetMatCenCalcFields(

TDataSet *DataSet)

{ AnsiString sk="";

if(ADODataSetMatCen->State != dsInsert

&&

ADODataSetMatCen->State != dsEdit)

{ADODataSetKodir->Close();

ADODataSetKodir->CommandText= "select * from Table_Kodir where PKL_MatCen="+

ADODataSetMatCenPKL_MatCen->AsString;

ADODataSetKodir->Open();

if(ADODataSetKodir->RecordCount>0)

{ADODataSetMatCenKod->Value= IntToStr(ADODataSetKodirPKL_Mesto->Value) + "." +

IntToStr(ADODataSetKodirKod1->Value) + "." +

IntToStr(ADODataSetKodirKod2->Value) + "." +

IntToStr(ADODataSetKodirKod3->Value) + "." +

IntToStr(ADODataSetKodirKod4->Value) + "." +

IntToStr(ADODataSetKodirKod5->Value) + "." +

IntToStr(ADODataSetKodirKod6->Value);

}

else

ADODataSetMatCenKod->Value= "";

}

}

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

void __fastcall TFormReportKolSklad::ADODataSetVwMCCalcFields(

TDataSet *DataSet)

{

if(ADODataSetVwMC->State != dsInsert

&&

ADODataSetVwMC->State != dsEdit)

{

ADODataSetMatCen2->Close();

ADODataSetMatCen2->CommandText="select count(PKL_VwMC) as Kol from Table_MatCen where ((PKL_RabSost in (1)))and(PKL_VwMC=" +

ADODataSetVwMCPKL_VwMC->AsString + ") group by PKL_VwMC";

ADODataSetMatCen2->Open();

if(ADODataSetMatCen2->RecordCount<=0)

ADODataSetVwMCKol->Value= 0;

else

ADODataSetVwMCKol->Value= ADODataSetMatCen2->FieldByName("Kol")->Value;//ADODataSetMatCen2->RecordCount;

}

}

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

Модуль “ UnitSuppl.cpp”

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

#include <vcl.h>

#pragma hdrstop

#include "UnitSuppl.h"

#include "UnitConnect.h"

#include "UnitMainModulAIS.h"

#include "UnitVwMC.h"

#include "UnitSupplData.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TFormSuppl *FormSuppl;

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

__fastcall TFormSuppl::TFormSuppl(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall TFormSuppl::BtDelClick(TObject *Sender)

{

if(ADODataSetSuppl->RecordCount==0)

{ShowMessage("Поставщики материальных ценностей не обнаружены!");

return;

}

if(ADODataSetSuppl->State==dsBrowse)

if(Application->MessageBoxA("Удалить выбранного поставщика МЦ ?","Операция удаления",MB_ICONWARNING+MB_YESNO)==IDYES)

{ADODataSetMatCen->Close();

ADODataSetMatCen->CommandText= "select * from Table_MatCen where PKL_Suppl=" + ADODataSetSupplPKL_Suppl->AsString;

ADODataSetMatCen->Open();

if(ADODataSetMatCen->RecordCount>0)

{ShowMessage("По выбранному поставщику МЦ заведены материальные ценности. Сначала удалите МЦ, затем поставщика МЦ.");

return;

}

ADODataSetOper->Close();

ADODataSetOper->CommandText= "select * from Table_Oper where PKL_Suppl=" + ADODataSetSupplPKL_Suppl->AsString;

ADODataSetOper->Open();

if(ADODataSetOper->RecordCount>0)

{ShowMessage("По выбранному поставщику МЦ созданы операции. Сначала удалите операции, затем поставщика МЦ.");

return;

}

ADODataSetSuppl->Delete();

}

}

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

void __fastcall TFormSuppl::BtChClick(TObject *Sender)

{

if(ADODataSetSuppl->RecordCount<=0)

{ShowMessage("Поставщики материальных ценностей не обнаружены");

return;

}

SostRegim=1; //редактировать

PKLSuppl= ADODataSetSupplPKL_Suppl->Value;

FormSuppl->Hide();

Application->CreateForm(__classid(TFormSupplData), &FormSupplData);

FormSupplData->ShowModal();

FormSuppl->Show();

//обновляем данные и позиционируемся на активной записи

ADODataSetSuppl->Close();

ADODataSetSuppl->Open();

TLocateOptions Options;

Options <<loPartialKey<<loCaseInsensitive;

ADODataSetSuppl->Locate("PKL_Suppl",PKLSuppl,Options);

}

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

void __fastcall TFormSuppl::BtExClick(TObject *Sender)

{

Close();

}

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

void __fastcall TFormSuppl::FormShow(TObject *Sender)

{

ADODataSetSuppl->Close();

ADODataSetSuppl->Open();

}

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

void __fastcall TFormSuppl::DBEditNazvKeyPress(TObject *Sender,

char &Key)

{

if(Key==13)

BtChClick(Sender);

if(Key==27)

BtExClick(Sender);

}

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

void __fastcall TFormSuppl::N1Click(TObject *Sender)

{

BtExClick(Sender);

}

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

void __fastcall TFormSuppl::PopupMenu1Change(TObject *Sender,

TMenuItem *Source, bool Rebuild)

{

AnsiString s;

if(ADODataSetSuppl->State == dsInactive)

return;

switch (DBGridSuppl->SelectedIndex)

{

case 0: s= ADODataSetSupplNazvFirma->Value; break;

case 1: s= ADODataSetSupplInn->Value; break;

case 2: s= ADODataSetSupplGenDir->Value; break;

case 3: s= ADODataSetSupplGlBuhg->Value; break;

case 4: s= ADODataSetSupplAddress->Value; break;

}

N2->Caption= s;

}

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

void __fastcall TFormSuppl::DBGridSupplDrawColumnCell(TObject *Sender,

const TRect &Rect, int DataCol, TColumn *Column,

TGridDrawState State)

{

TMainColorGrid *PerColor = static_cast<TMainColorGrid*>(Sender);

if(PerColor->DataLink->ActiveRecord == PerColor->Row-1)

{ PerColor->Canvas->Brush->Color = clCream; //цвет фона

PerColor->Canvas->Font->Color = clPurple; //свойство шрифта - цвет

PerColor->Canvas->Font->Style = PerColor->Canvas->Font->Style<<fsBold; //свойство шрифта - жирный

}

PerColor->DefaultDrawColumnCell(Rect, DataCol, Column, State);

}

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

void __fastcall TFormSuppl::BtCrClick(TObject *Sender)

{

SostRegim=0; //создавать

FormSuppl->Hide();

Application->CreateForm(__classid(TFormSupplData), &FormSupplData);

FormSupplData->ShowModal();

FormSuppl->Show();

//обновляем данные и позиционируемся на активной записи

ADODataSetSuppl->Close();

ADODataSetSuppl->Open();

TLocateOptions Options;

Options <<loPartialKey<<loCaseInsensitive;

ADODataSetSuppl->Locate("PKL_Suppl",PKLSuppl,Options);

}

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

Модуль “ UnitVozvratMC.cpp”

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

#include <vcl.h>

#pragma hdrstop

#include "UnitVozvratMC.h"

#include "UnitConnect.h"

#include "UnitMainModulAIS.h"

#include "UnitVwMC.h"

#include "UnitMatCenData.h"

#include "UnitKodir.h"

#include "UnitMOL.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TFormVozvratMC *FormVozvratMC;

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

__fastcall TFormVozvratMC::TFormVozvratMC(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall TFormVozvratMC::BtExClick(TObject *Sender)

{

Close();

}

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

void __fastcall TFormVozvratMC::FormShow(TObject *Sender)

{

ADODataSetVwMC->Close();

ADODataSetRabSost->Close();

ADODataSetKodir->Close();

ADODataSetMOL->Close();

ADODataSetProizv->Close();

ADODataSetMesto->Close();

ADODataSetMatCen->Close();

ADODataSetVwMC->Open();

ADODataSetRabSost->Open();

ADODataSetKodir->Open();

ADODataSetMOL->Open();

ADODataSetProizv->Open();

ADODataSetMesto->Open();

ADODataSetMatCen->Open();

}

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

void __fastcall TFormVozvratMC::N1Click(TObject *Sender)

{

BtExClick(Sender);

}

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

void __fastcall TFormVozvratMC::PopupMenu1Change(TObject *Sender,

TMenuItem *Source, bool Rebuild)

{

AnsiString s;

if(ADODataSetMatCen->State == dsInactive)

return;

switch (DBGridMatCen->SelectedIndex)

{

case 0: s= ADODataSetMatCenNazvMC->Value; break;

case 1: s= ADODataSetMatCenNameVwMC->Value; break;

case 2: s= ADODataSetMatCenNameProizv->Value; break;

case 3: s= ADODataSetMatCenNameRabSost->Value; break;

case 4: s= ADODataSetMatCenMOL->Value; break;

case 5: s= ADODataSetMatCenKod->Value; break;

}

N2->Caption= s;

}

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

void __fastcall TFormVozvratMC::DBGridMatCenDrawColumnCell(TObject *Sender,

const TRect &Rect, int DataCol, TColumn *Column,

TGridDrawState State)

{

TMainColorGrid *PerColor = static_cast<TMainColorGrid*>(Sender);

if(PerColor->DataLink->ActiveRecord == PerColor->Row-1)

{ PerColor->Canvas->Brush->Color = clCream; //цвет фона

PerColor->Canvas->Font->Color = clPurple; //свойство шрифта - цвет

PerColor->Canvas->Font->Style = PerColor->Canvas->Font->Style<<fsBold; //свойство шрифта - жирный

}

PerColor->DefaultDrawColumnCell(Rect, DataCol, Column, State);

}

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

void __fastcall TFormVozvratMC::BtVozvratClick(TObject *Sender)

{ AnsiString Str1;

if(ADODataSetMatCen->RecordCount<=0)

{ShowMessage("МЦ не обнаружены !");

return;

}

ADODataSetMatCen->Edit();

if(ADODataSetMatCenPKL_RabSost->Value==5) //если использовался

FormMainModulAIS->CreateOper(StrToDate(DateToStr(Date())), "Возврат МЦ:" + ADODataSetMatCenNazvMC->Value+

", МОЛ:" + ADODataSetMatCenMOL->Value,

ADODataSetMatCenPKL_MatCen->Value, 5,

ADODataSetMatCenPKL_Suppl->Value,

0, PKLWMOL);

if(ADODataSetMatCenPKL_RabSost->Value==2) //если ремонт

FormMainModulAIS->CreateOper(StrToDate(DateToStr(Date())), "Возврат из СВЦ МЦ:" + ADODataSetMatCenNazvMC->Value,

ADODataSetMatCenPKL_MatCen->Value, 5,

ADODataSetMatCenPKL_Suppl->Value,

0, PKLWMOL);

Str1= "Возврат МЦ: " + ADODataSetMatCenNazvMC->Value +

"(" + ADODataSetMatCenNameVwMC->Value + ") выполнен успешно";

ADODataSetMatCenPKL_MOL->Value=0;

ADODataSetMatCenPKL_RabSost->Value= 1;

ADODataSetMatCen->Post();

ADODataSetMatCen->Close();

ADODataSetMatCen->Open();

ShowMessage(Str1);

}

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

void __fastcall TFormVozvratMC::ADODataSetMatCenCalcFields(TDataSet *DataSet)

{ AnsiString sk="";

if(ADODataSetMatCen->State != dsInsert

&&

ADODataSetMatCen->State != dsEdit)

{ADODataSetKodir->Close();

ADODataSetKodir->CommandText= "select * from Table_Kodir where PKL_MatCen="+

ADODataSetMatCenPKL_MatCen->AsString;

ADODataSetKodir->Open();

if(ADODataSetKodir->RecordCount>0)

{ADODataSetMatCenKod->Value= IntToStr(ADODataSetKodirPKL_Mesto->Value) + "." +

IntToStr(ADODataSetKodirKod1->Value) + "." +

IntToStr(ADODataSetKodirKod2->Value) + "." +

IntToStr(ADODataSetKodirKod3->Value) + "." +

IntToStr(ADODataSetKodirKod4->Value) + "." +

IntToStr(ADODataSetKodirKod5->Value) + "." +

IntToStr(ADODataSetKodirKod6->Value);

}

else

ADODataSetMatCenKod->Value= "";

}

}

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

void __fastcall TFormVozvratMC::DBGridMatCenKeyPress(TObject *Sender,

char &Key)

{

if(Key==27)

BtExClick(Sender);

}

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

Модуль “ UnitProizv.cpp”

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

#include <vcl.h>

#pragma hdrstop

#include "UnitProizv.h"

#include "UnitConnect.h"

#include "UnitMainModulAIS.h"

#include "UnitVwMC.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TFormProizv *FormProizv;

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

__fastcall TFormProizv::TFormProizv(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall TFormProizv::BtCrClick(TObject *Sender)

{

if(ADODataSetProizv->State==dsBrowse)

{ADODataSetProizv->Insert();

PanelOper->Visible=false;

PanelPodtver->Visible=true;

GroupBox1->Visible=true;

DBGridProizv->Enabled= false;

DBEditNazv->SetFocus();

}

}

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

void __fastcall TFormProizv::BtDelClick(TObject *Sender)

{

if(ADODataSetProizv->RecordCount==0)

{BtCh->Enabled=false;

BtDel->Enabled=false;

ShowMessage("Производители материальных ценностей не обнаружены!");

return;

}

if(ADODataSetProizv->State==dsBrowse)

if(Application->MessageBoxA("Удалить выбранного производителя МЦ ?","Операция удаления",MB_ICONWARNING+MB_YESNO)==IDYES)

{ADODataSetMatCen->Close();

ADODataSetMatCen->CommandText= "select * from Table_MatCen where PKL_Proizv=" + ADODataSetProizvPKL_Proizv->AsString;

ADODataSetMatCen->Open();

if(ADODataSetMatCen->RecordCount>0)

{ShowMessage("По выбранному производителю МЦ заведены материальные ценности. Сначала удалите МЦ, затем производителя МЦ.");

return;

}

ADODataSetProizv->Delete();

}

}

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

void __fastcall TFormProizv::BtChClick(TObject *Sender)

{

if(ADODataSetProizv->RecordCount==0)

{ShowMessage("Производители материальных ценностей не обнаружены");

return;

}

if(ADODataSetProizv->State==dsBrowse)

ADODataSetProizv->Edit();

PanelOper->Visible=false;

PanelPodtver->Visible=true;

GroupBox1->Visible=true;

DBGridProizv->Enabled= false;

DBEditNazv->SetFocus();

}

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

void __fastcall TFormProizv::BtExClick(TObject *Sender)

{

Close();

}

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

void __fastcall TFormProizv::BtSvClick(TObject *Sender)

{ int Vw;

TLocateOptions Options;

Options <<loPartialKey<<loCaseInsensitive;

//------

if(DBEditNazv->Text=="" )

{ShowMessage("Введите название производителя материальной ценности!");

DBEditNazv->SetFocus();

return;

}

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

ADODataSetProizv2->Close();

ADODataSetProizv2->Open();

Vw= ADODataSetProizv2->Locate("Nazv",DBEditNazv->Text,Options);

if(ADODataSetProizv->RecordCount>0)

if(Vw>0 && ADODataSetProizv2PKL_Proizv->Value!=ADODataSetProizvPKL_Proizv->Value)

{ShowMessage("В БД уже обнаружен такой производитель МЦ '" + DBEditNazv->Text +

"'. Укажите другого производителя МЦ!");

DBEditNazv->SetFocus();

return;

}

ADODataSetProizv->Post();

Vw= ADODataSetProizvPKL_Proizv->Value;

ADODataSetProizv->Close();

ADODataSetProizv->Open();

ADODataSetProizv->Locate("PKL_Proizv", Vw, Options);

PanelOper->Visible=true;

PanelPodtver->Visible=false;

GroupBox1->Visible=false;

BtCh->Enabled=true;

BtDel->Enabled=true;

DBGridProizv->Enabled= true;

}

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

void __fastcall TFormProizv::BtOtmClick(TObject *Sender)

{

ADODataSetProizv->Cancel();

PanelOper->Visible=true;

PanelPodtver->Visible=false;

GroupBox1->Visible=false;

DBGridProizv->Enabled= true;

}

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

void __fastcall TFormProizv::FormShow(TObject *Sender)

{

ADODataSetProizv->Close();

ADODataSetProizv->Open();

ADODataSetProizv2->Close();

ADODataSetProizv2->Open();

}

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

void __fastcall TFormProizv::DBEditNazvKeyPress(TObject *Sender,

char &Key)

{

if(Key==13)

BtSvClick(Sender);

if(Key==27)

BtOtmClick(Sender);

}

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

void __fastcall TFormProizv::N1Click(TObject *Sender)

{

BtExClick(Sender);

}

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

void __fastcall TFormProizv::FormKeyPress(TObject *Sender, char &Key)

{

if(Key==27)

BtExClick(Sender);

}

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

void __fastcall TFormProizv::PopupMenu1Change(TObject *Sender,

TMenuItem *Source, bool Rebuild)

{

AnsiString s;

if(ADODataSetProizv->State == dsInactive)

return;

switch (DBGridProizv->SelectedIndex)

{

case 0: s= ADODataSetProizvNazv->Value; break;

}

N2->Caption= s;

}

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

void __fastcall TFormProizv::DBGridProizvDrawColumnCell(TObject *Sender,

const TRect &Rect, int DataCol, TColumn *Column,

TGridDrawState State)

{

TMainColorGrid *PerColor = static_cast<TMainColorGrid*>(Sender);

if(PerColor->DataLink->ActiveRecord == PerColor->Row-1)

{ PerColor->Canvas->Brush->Color = clCream; //цвет фона

PerColor->Canvas->Font->Color = clPurple; //свойство шрифта - цвет

PerColor->Canvas->Font->Style = PerColor->Canvas->Font->Style<<fsBold; //свойство шрифта - жирный

}

PerColor->DefaultDrawColumnCell(Rect, DataCol, Column, State);

}

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



Приложение Б

Презентационный материал

Размещено на Allbest.ru

...