Автоматизация движения готовой продукции на складе ООО "Амазон-колорит"
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
4.h"
#include "Unit5.h"
#include "Unit6.h"
#include "Unit7.h"
#include "Unit21.h"
#include "Unit22.h"
#pragma package(smart_init)
#pragma resource "*.dfm"*Form9;
__fastcall TForm9::TForm9(TComponent* Owner)
: TForm(Owner)
{
}__fastcall TForm9::Button1Click(TObject *Sender)
{->ShowModal();
}__fastcall TForm9::ADOTable2AfterPost(TDataSet *DataSet)
{->ADOTable2->Edit();->ADOTable2kolvo->Value -=ADOTable2kolvo->Value;->ADOTable2->Post();
}__fastcall TForm9::Button3Click(TObject *Sender)
{->ShowModal();
}__fastcall TForm9::FormActivate(TObject *Sender)
{->Active=False;->Active=true;->Active=False;->Active=true;
}__fastcall TForm9::Button2Click(TObject *Sender)
{(ADOTable1->RecordCount>0)->Delete();
}__fastcall TForm9::Button4Click(TObject *Sender)
{(ADOTable2->RecordCount>0)->Delete();
}
#include
#pragma hdrstop
#include "Unit10.h"
#include "Unit1.h"
#include "Unit2.h"
#include "Unit5.h"
#include "Unit6.h"
#include "Unit18.h"
#include "Unit19.h"
#include "Unit11.h"
#pragma package(smart_init)
#pragma resource "*.dfm"*Form10;
__fastcall TForm10::TForm10(TComponent* Owner)
: TForm(Owner)
{
}__fastcall TForm10::ADOTable2CalcFields(TDataSet *DataSet)
{stoim->Value=(ADOTable2kolvo->Value*ADOTable2cena->Value)+((ADOTable2kolvo->Value*ADOTable2cena->Value)*ADOTable2nds->Value)/100;
}__fastcall TForm10::Button1Click(TObject *Sender)
{->ShowModal();
}__fastcall TForm10::Button3Click(TObject *Sender)
{->ShowModal();
}__fastcall TForm10::ADOTable2AfterPost(TDataSet *DataSet)
{(Form11->ADOTable1->Locate("id_sklada", ADOTable2id_sklad->Value, TLocateOptions()))
{->Active=false;->Active=true;->Filtered=false;->Filter="id_ost="+Form11->ADOTable1id_ost->AsString+" and id_gp="+ADOTable2id_gp->Value+" and cena="+ADOTable2cena->Value+"";->Filtered=true;(tbl1->RecordCount>0)
{
tbl1->Edit();kolvo->Value=tbl1kolvo->Value/2+tbl1kolvo->Value/2;k=ADOTable2kolvo->Value;kolvo->Value=tbl1kolvo->Value+k;cena->Value=ADOTable2cena->Value;nds->Value=ADOTable2nds->Value;->Post(); }{->Insert();id_ost->Value=Form11->ADOTable1id_ost->Value;id_gp->Value=ADOTable2id_gp->Value;kolvo->Value=ADOTable2kolvo->Value;cena->Value=ADOTable2cena->Value;nds->Value=ADOTable2nds->Value;->Post();
} }->Filtered=false;
}__fastcall TForm10::FormActivate(TObject *Sender)
{->Active=False;->Active=true;->Active=False;->Active=true;->ADOTable1->Filtered=false;->ADOTable1->Filter="show like 1";->ADOTable1->Filtered=true;
}__fastcall TForm10::Button2Click(TObject *Sender)
{(ADOTable1->RecordCount>0)->Delete();
}__fastcall TForm10::Button4Click(TObject *Sender)
{(ADOTable2->RecordCount>0)->Delete();
}__fastcall TForm10::ADOTable1AfterPost(TDataSet *DataSet)
{(!Form11->ADOTable1->Locate("id_sklada", ADOTable1id_sklada->Value, TLocateOptions())) {->ADOTable1->Insert();->ADOTable1id_sklada->Value=ADOTable1id_sklada->Value;->ADOTable1->Post();
}
}
#include
#pragma hdrstop
#include "Unit11.h"
#include "Unit1.h"
#include "Unit6.h"
#include "Unit2.h"
#include "Unit24.h"
#include "Unit25.h"
#pragma package(smart_init)
#pragma resource "*.dfm"*Form11;
__fastcall TForm11::TForm11(TComponent* Owner)
: TForm(Owner)
{
}__fastcall TForm11::Button1Click(TObject *Sender)
{->ShowModal();
}__fastcall TForm11::ADOTable2CalcFields(TDataSet *DataSet)
{stoim->Value=(ADOTable2kolvo->Value*ADOTable2cena->Value)+((ADOTable2kolvo->Value*ADOTable2cena->Value)*ADOTable2nds->Value)/100;
}__fastcall TForm11::Button3Click(TObject *Sender)
{->ShowModal();
}__fastcall TForm11::FormActivate(TObject *Sender)
{->Active=False;->Active=true;->Active=False;->Active=true;
}__fastcall TForm11::Button2Click(TObject *Sender)
{(ADOTable1->RecordCount>0)->Delete();
}__fastcall TForm11::Button4Click(TObject *Sender)
{(ADOTable2->RecordCount>0)->Delete();
}
#include
#pragma hdrstop
#include "Unit12.h"
#include "Unit1.h"
#include "Unit2.h"
#include "Unit4.h"
#include "Unit5.h"
#include "Unit6.h"
#include "Unit7.h"
#include "Unit8.h"
#pragma package(smart_init)
#pragma resource "*.dfm"*Form12;
__fastcall TForm12::TForm12(TComponent* Owner)
: TForm(Owner)
{
}__fastcall TForm12::FormActivate(TObject *Sender)
{->ADOTable1->Insert();->Enabled=true;->Enabled=true;
}__fastcall TForm12::Button1Click(TObject *Sender)
{((DBEdit1->Text!="") && (DBLookupComboBox1->Text!="")) {->ADOTable1->Post();
}{>MessageBoxA("Заполните необходимые поля!","Ошибка!");(DBEdit1->Text=="")->Color=clRed;DBLookupComboBox1->Color=clRed;
}->ADOTable1->First();(!Form2->ADOTable1->Eof) {->ADOTable1->Locate("id_ed_izm", Form2->ADOTable1id_ed_izm->Value, TLocateOptions());->ADOTable1->Edit();->ADOTable1ed_izm->AsString=Form7->ADOTable1ed_izm->AsString;->ADOTable1->Post();->ADOTable1->Next();
}->Close();
}__fastcall TForm12::Button2Click(TObject *Sender)
{->ADOTable1->Cancel();->Close();
}
#include
#pragma hdrstop
#include "Unit13.h"
#include "Unit1.h"
#include "Unit12.h"
#include "Unit2.h"
#include "Unit3.h"
#pragma package(smart_init)
#pragma resource "*.dfm"*Form13;
__fastcall TForm13::TForm13(TComponent* Owner)
: TForm(Owner)
{
}__fastcall TForm13::FormActivate(TObject *Sender)
{->ADOTable1->Insert();
}__fastcall TForm13::Button2Click(TObject *Sender)
{->ADOTable1->Cancel();->Close();
}__fastcall TForm13::Button1Click(TObject *Sender)
{((DBEdit1->Text!="") && (DBEdit2->Text!="") &&
(DBEdit3->Text!="") && (DBEdit4->Text!="")) {->ADOTable1->Post();
}{>MessageBoxA("Заполните необходимые поля!","Ошибка!");(DBEdit1->Text=="") DBEdit1->Color=clRed;if (DBEdit2->Text=="") DBEdit2->Color=clRed;if (DBEdit3->Text=="") DBEdit3->Color=clRed;DBEdit4->Color=clRed;
}
}
#include
#pragma hdrstop
#include "Unit14.h"
#include "Unit1.h"
#include "Unit12.h"
#include "Unit13.h"
#include "Unit2.h"
#include "Unit3.h"
#include "Unit4.h"
#pragma package(smart_init)
#pragma resource "*.dfm"*Form14;
__fastcall TForm14::TForm14(TComponent* Owner)
: TForm(Owner)
{
}__fastcall TForm14::Button2Click(TObject *Sender)
{->ADOTable1->Cancel();->Close();
}__fastcall TForm14::Button1Click(TObject *Sender)
{((DBEdit1->Text!="") && (DBEdit2->Text!="") && (DBEdit3->Text!=""))
{->ADOTable1->Post();
}{>MessageBoxA("Заполните необходимые поля!","Ошибка!");(DBEdit1->Text=="")->Color=clRed;(DBEdit2->Text=="")->Color=clRed;->Color=clRed;
}->Close();
}__fastcall TForm14::FormActivate(TObject *Sender)
{->ADOTable1->Insert();
}
#include
#pragma hdrstop
#include "Unit15.h"
#include "Unit1.h"
#include "Unit12.h"
#include "Unit13.h"
#include "Unit14.h"
#include "Unit2.h"
#include "Unit3.h"
#include "Unit4.h"
#include "Unit5.h"
#pragma package(smart_init)
#pragma resource "*.dfm"*Form15;
__fastcall TForm15::TForm15(TComponent* Owner)
: TForm(Owner)
{
}__fastcall TForm15::FormActivate(TObject *Sender)
{->ADOTable1->Insert();
}__fastcall TForm15::Button2Click(TObject *Sender)
{->ADOTable1->Cancel();->Close();
}__fastcall TForm15::Button1Click(TObject *Sender)
{((DBEdit1->Text!="") && (DBEdit2->Text!="")) {->ADOTable1->Post();
}{>Mes