Автоматизация движения готовой продукции на складе ООО "Амазон-колорит"
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
#include
#pragma hdrstop
#include "Unit28.h"
#include "Unit27.h"
#include "Unit29.h"
#include "Unit30.h"
#include "Unit31.h"
#pragma package(smart_init)
#pragma resource "*.dfm"*Form28;
__fastcall TForm28::TForm28(TComponent* Owner)
: TForm(Owner)
{
}
#include
#pragma hdrstop
#include "Unit29.h"
#include "Unit28.h"
#include "Unit1.h"
#include "Unit7.h"
#include "Unit2.h"
#pragma package(smart_init)
#pragma resource "*.dfm"*Form29;
__fastcall TForm29::TForm29(TComponent* Owner)
: TForm(Owner)
{
}__fastcall TForm29::Button1Click(TObject *Sender)
SQL->Text="createtablemati(idcounterprimarykey,id_gpint,kolvoint,id_skladint,id_ostint,cenaint,ndsint,foreignkey(id_ost)referencesostatki)";_query->ExecSQL();_query->SQL->Text="select*frommati";_query->Active=true;(inti=0;i=new_query->RecordCount;i++)_query->Delete();_p->Close();_p->SQL->Clear();(rb1->Checked){_p->SQL->Text="selectid_prihoda,id_gp,sum(kolvo)assumm,id_sklad,cena,ndsfromgp_pwheredataDate);
}_p->Open();_p->First();(mat_p->RecordCount>0)(int i=0; iNext();
}->TableName="mati";->Active=false;->Active=true;->QuickRep9->Preview();_query->Active=false;_query->SQL->Text="drop table mati";_query->ExecSQL();
}__fastcall TForm29::tbl1CalcFields(TDataSet *DataSet)
{stoim->Value=(tbl1kolvo->Value*tbl1cena->Value)+((tbl1kolvo->Value*tbl1cena->Value)*tbl1nds->Value)/100;
}__fastcall TForm29::rb1Click(TObject *Sender)
{->Enabled=false;
}__fastcall TForm29::rb2Click(TObject *Sender)
{->Enabled=true;
}__fastcall TForm29::Button2Click(TObject *Sender)
{();
}__fastcall TForm29::FormActivate(TObject *Sender)
{>Active=false;>Active=true;_p->Active=false;_p->Active=true;_s->Active=false;_s->Active=true;
}
#include
#pragma hdrstop
#include "Unit30.h"
#include "Unit28.h"
#include "Unit7.h"
#include "Unit1.h"
#pragma package(smart_init)
#pragma resource "*.dfm"*Form30;
__fastcall TForm30::TForm30(TComponent* Owner)
: TForm(Owner)
{
}__fastcall TForm30::Button1Click(TObject *Sender)
SQL->Text="createtablemati(idcounterprimarykey,id_gpint,kolvoint,id_skladint,id_ostint,cenaint,ndsint,foreignkey(id_ost)referencesostatki)";_query->ExecSQL();_query->SQL->Text="select*frommati";_query->Active=true;(inti=0;i=new_query->RecordCount;i++)_query->Delete();_s->Close();_s->SQL->Clear();(rb7->Checked){_s->SQL->Text="selectid_rashoda,id_gp,sum(kolvo)assumm,id_sklada,cena,ndsfromgp_rwheredataDate);
}_s->Open();_s->First();(mat_s->RecordCount>0)(int i=0; iNext();
}->TableName="mati";->Active=false;->Active=true;->QuickRep11->Preview();_query->Active=false;_query->SQL->Text="drop table mati";_query->ExecSQL();
}__fastcall TForm30::Button2Click(TObject *Sender)
{();
}__fastcall TForm30::tbl1CalcFields(TDataSet *DataSet)
{stoim->Value=(tbl1kolvo->Value*tbl1cena->Value)+((tbl1kolvo->Value*tbl1cena->Value)*tbl1nds->Value)/100;
}__fastcall TForm30::rb7Click(TObject *Sender)
{->Enabled=false;
}__fastcall TForm30::rb8Click(TObject *Sender)
{->Enabled=true;
}__fastcall TForm30::FormActivate(TObject *Sender)
{>Active=false;>Active=true;_p->Active=false;_p->Active=true;_s->Active=false;_s->Active=true;
}
#include
#pragma hdrstop
#include "Unit31.h"
#include "Unit28.h"
#include "Unit7.h"
#include "Unit1.h"
#include "Unit2.h"
#pragma package(smart_init)