Geum.ru

Автоматизация движения готовой продукции на складе ООО "Амазон-колорит"

Дипломная работа - Компьютеры, программирование

Другие дипломы по предмету Компьютеры, программирование

p>}__fastcall TForm1::N18Click(TObject *Sender)

{->ShowModal();

}__fastcall TForm1::N17Click(TObject *Sender)

{->ShowModal();

}

#include

#pragma hdrstop

#include "Unit2.h"

#include "Unit1.h"

#include "Unit12.h"

#include "Unit10.h"

#include "Unit11.h"

#include "Unit13.h"

#include "Unit14.h"

#include "Unit15.h"

#include "Unit16.h"

#include "Unit17.h"

#include "Unit3.h"

#include "Unit4.h"

#include "Unit5.h"

#include "Unit6.h"

#include "Unit7.h"

#include "Unit8.h"

#include "Unit9.h"

#pragma package(smart_init)

#pragma resource "*.dfm"*Form2;

__fastcall TForm2::TForm2(TComponent* Owner)

: TForm(Owner)

{

}__fastcall TForm2::Button1Click(TObject *Sender)

{->ShowModal();

}__fastcall TForm2::Button2Click(TObject *Sender)

{(MessageBox(Handle, PChar("Вы уверены что хотите удалить запись?"), PChar("Подтверждение удаления"), MB_YESNOCANCEL)==mrYes)(ADOTable1->RecordCount>0) ADOTable1->Delete();

else Application->MessageBoxA("В таблице отсутствуют записи!","Ошибка!");

}__fastcall TForm2::FormActivate(TObject *Sender)

{(!ADOTable1->Eof) {->ADOTable1->Locate("id_ed_izm", ADOTable1id_ed_izm->Value, TLocateOptions());->Edit();ed_izm->AsString=Form7->ADOTable1ed_izm->AsString;->Post();->Next();

}->First();

}

#include

#pragma hdrstop

#include "Unit3.h"

#include "Unit1.h"

#include "Unit2.h"

#include "Unit12.h"

#include "Unit13.h"

#pragma package(smart_init)

#pragma resource "*.dfm"*Form3;

__fastcall TForm3::TForm3(TComponent* Owner)

: TForm(Owner)

{

}__fastcall TForm3::Button1Click(TObject *Sender)

{->ShowModal();

}__fastcall TForm3::Button2Click(TObject *Sender)

{(MessageBox(Handle, PChar("Вы уверены что хотите удалить запись?"), PChar("Подтверждение удаления"), MB_YESNOCANCEL)==mrYes)(ADOTable1->RecordCount>0) ADOTable1->Delete();

else Application->MessageBoxA("В таблице отсутствуют записи!","Ошибка!");

}

#include

#pragma hdrstop

#include "Unit4.h"

#include "Unit1.h"

#include "Unit2.h"

#include "Unit3.h"

#include "Unit12.h"

#include "Unit13.h"

#include "Unit14.h"

#pragma package(smart_init)

#pragma resource "*.dfm"*Form4;

__fastcall TForm4::TForm4(TComponent* Owner)

: TForm(Owner)

{

}__fastcall TForm4::Button1Click(TObject *Sender)

{->ShowModal();

}__fastcall TForm4::Button2Click(TObject *Sender)

{(MessageBox(Handle, PChar("Вы уверены что хотите удалить запись?"), PChar("Подтверждение удаления"), MB_YESNOCANCEL)==mrYes)(ADOTable1->RecordCount>0) ADOTable1->Delete();

else Application->MessageBoxA("В таблице отсутствуют записи!","Ошибка!");

}

#include

#pragma hdrstop

#include "Unit5.h"

#include "Unit1.h"

#include "Unit2.h"

#include "Unit3.h"

#include "Unit4.h"

#include "Unit6.h"

#include "Unit7.h"

#include "Unit12.h"

#include "Unit13.h"

#include "Unit14.h"

#include "Unit15.h"

#pragma package(smart_init)

#pragma resource "*.dfm"*Form5;

__fastcall TForm5::TForm5(TComponent* Owner)

: TForm(Owner)

{

}__fastcall TForm5::Button1Click(TObject *Sender)

{->ShowModal();

}__fastcall TForm5::Button2Click(TObject *Sender)

{(MessageBox(Handle, PChar("Вы уверены что хотите удалить запись?"), PChar("Подтверждение удаления"), MB_YESNOCANCEL)==mrYes)(ADOTable1->RecordCount>0) ADOTable1->Delete();

else Application->MessageBoxA("В таблице отсутствуют записи!","Ошибка!");

}

#include

#pragma hdrstop

#include "Unit6.h"

#include "Unit1.h"

#include "Unit2.h"

#include "Unit3.h"

#include "Unit4.h"

#include "Unit5.h"

#include "Unit12.h"

#include "Unit13.h"

#include "Unit14.h"

#include "Unit15.h"

#include "Unit16.h"

#pragma package(smart_init)

#pragma resource "*.dfm"*Form6;

__fastcall TForm6::TForm6(TComponent* Owner)

: TForm(Owner)

{

}__fastcall TForm6::Button1Click(TObject *Sender)

{->ShowModal();

}__fastcall TForm6::Button2Click(TObject *Sender)

{(ADOTable1->RecordCount>0)->Delete();

}

#include

#pragma hdrstop

#include "Unit7.h"

#include "Unit1.h"

#include "Unit2.h"

#include "Unit3.h"

#include "Unit4.h"

#include "Unit5.h"

#include "Unit6.h"

#include "Unit12.h"

#include "Unit13.h"

#include "Unit14.h"

#include "Unit15.h"

#include "Unit16.h"

#include "Unit17.h"

#include "Unit8.h"

#pragma package(smart_init)

#pragma resource "*.dfm"*Form7;

__fastcall TForm7::TForm7(TComponent* Owner)

: TForm(Owner)

{

}__fastcall TForm7::Button1Click(TObject *Sender)

{->ShowModal();

}__fastcall TForm7::Button2Click(TObject *Sender)

{(MessageBox(Handle, PChar("Вы уверены что хотите удалить запись?"), PChar("Подтверждение удаления"), MB_YESNOCANCEL)==mrYes)(ADOTable1->RecordCount>0) ADOTable1->Delete();

else Application->MessageBoxA("В таблице отсутствуют записи!","Ошибка!");

}

#include

#pragma hdrstop

#include "Unit8.h"

#include "Unit1.h"

#include "Unit2.h"

#include "Unit20.h"

#include "Unit23.h"

#include "Unit11.h"

#include "Unit6.h"

#include "Unit9.h"

#pragma package(smart_init)

#pragma resource "*.dfm"*Form8;

__fastcall TForm8::TForm8(TComponent* Owner)

: TForm(Owner)

{

}__fastcall TForm8::ADOTable2CalcFields(TDataSet *DataSet)

{stoim->Value=(ADOTable2kolvo->Value*ADOTable2cena->Value)+((ADOTable2kolvo->Value*ADOTable2cena->Value)*ADOTable2nds->Value)/100;

}__fastcall TForm8::Button1Click(TObject *Sender)

{->ShowModal();

}__fastcall TForm8::ADOTable2AfterPost(TDataSet *DataSet)

{->ADOTable2->Locate("data",ADOTable1data_ttn->Value, TLocateOptions());->ADOTable2->Insert();->ADOTable2data->Value=ADOTable1data_ttn->Value;->ADOTable2id_sklada->Value=ADOTable1id_sklada->Value;->ADOTable2cena->Value=ADOTable2cena->Value;->ADOTable2kolvo->Value=ADOTable2kolvo->Value;->ADOTable2nds->Value=ADOTable2nds->Value;->ADOTable2id_gp->Value=ADOTable2id_gp->Value;->ADOTable2->Post();

}__fastcall TForm8::Button3Click(TObject *Sender)

{->ShowModal();

}__fastcall TForm8::FormActivate(TObject *Sender)

{->Active=False;->Active=true;->Active=False;->Active=true;

}__fastcall TForm8::Button2Click(TObject *Sender)

{(ADOTable1->RecordCount>0)->Delete();

}__fastcall TForm8::Button4Click(TObject *Sender)

{(ADOTable2->RecordCount>0)->Delete();

}__fastcall TForm8::ADOTable1AfterPost(TDataSet *DataSet)

{->ADOTable1->Insert();->ADOTable1data->Value=Form8->ADOTable1data_ttn->Value;->ADOTable1id_sklada->Value=Form8->ADOTable1id_sklada->Value;->ADOTable1unp_pokup->Value=Form8->ADOTable1unp_pokup->Value;->ADOTable1->Post();

}

#include

#pragma hdrstop

#include "Unit9.h"

#include "Unit1.h"

#include "Unit8.h"

#include "Unit10.h"

#include "Unit11.h"

#include "Unit12.h"

#include "Unit13.h"

#include "Unit14.h"

#include "Unit15.h"

#include "Unit16.h"

#include "Unit17.h"

#include "Unit2.h"

#include "Unit3.h"

#include "Unit