• Дисциплины
• Виды работ

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

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

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

sageBoxA("Заполните необходимые поля!","Ошибка!");(DBEdit1->Text=="")->Color=clRed;DBEdit2->Color=clRed;

}->Close();

}

#include

#pragma hdrstop

#include "Unit16.h"

#include "Unit1.h"

#include "Unit12.h"

#include "Unit13.h"

#include "Unit14.h"

#include "Unit15.h"

#include "Unit2.h"

#include "Unit3.h"

#include "Unit4.h"

#include "Unit5.h"

#include "Unit6.h"

#pragma package(smart_init)

#pragma resource "*.dfm"*Form16;

__fastcall TForm16::TForm16(TComponent* Owner)

: TForm(Owner)

{

}__fastcall TForm16::Button1Click(TObject *Sender)

{->ADOTable1->Post();();

}__fastcall TForm16::Button2Click(TObject *Sender)

{->ADOTable1->Cancel();();

}__fastcall TForm16::FormActivate(TObject *Sender)

{->ADOTable1->Insert();

}

#include

#pragma hdrstop

#include "Unit17.h"

#include "Unit1.h"

#include "Unit12.h"

#include "Unit13.h"

#include "Unit14.h"

#include "Unit15.h"

#include "Unit16.h"

#include "Unit2.h"

#include "Unit3.h"

#include "Unit4.h"

#include "Unit5.h"

#include "Unit6.h"

#include "Unit7.h"

#pragma package(smart_init)

#pragma resource "*.dfm"*Form17;

__fastcall TForm17::TForm17(TComponent* Owner)

: TForm(Owner)

{

}__fastcall TForm17::FormActivate(TObject *Sender)

{->ADOTable1->Insert();

}__fastcall TForm17::Button2Click(TObject *Sender)

{->ADOTable1->Cancel();->Close();

}__fastcall TForm17::Button1Click(TObject *Sender)

{->ADOTable1->Post();->Close();

}

#include

#pragma hdrstop

#include "Unit18.h"

#include "Unit10.h"

#include "Unit11.h"

#include "Unit6.h"

#include "Unit5.h"

#pragma package(smart_init)

#pragma resource "*.dfm"*Form18;

__fastcall TForm18::TForm18(TComponent* Owner)

: TForm(Owner)

{

}__fastcall TForm18::FormActivate(TObject *Sender)

{->ADOTable1->Insert();

}__fastcall TForm18::btn2Click(TObject *Sender)

{->ADOTable1->Cancel();();

}__fastcall TForm18::btn1Click(TObject *Sender)

ADOTable1show->Value=1;->ADOTable1data_prihoda->Value=FormatDateTime("dd.mm.yyyy",dtp1->Date);->ADOTable1->Post();();">{->ADOTable1show->Value=1;->ADOTable1data_prihoda->Value=FormatDateTime("dd.mm.yyyy",dtp1->Date);->ADOTable1->Post();();

}

#include

#pragma hdrstop

#include "Unit19.h"

#include "Unit10.h"

#include "Unit11.h"

#include "Unit2.h"

#pragma package(smart_init)

#pragma resource "*.dfm"*Form19;

__fastcall TForm19::TForm19(TComponent* Owner)

: TForm(Owner)

{

}__fastcall TForm19::FormActivate(TObject *Sender)

{->ADOTable2->Insert();

}__fastcall TForm19::btn1Click(TObject *Sender)

{->ADOTable2show->Value=1;->ADOTable2id_sklad->Value=Form10->ADOTable1id_sklada->Value;->ADOTable2data->Value=Form10->ADOTable1data_prihoda->Value;->ADOTable2->Post();();

}__fastcall TForm19::btn2Click(TObject *Sender)

{->ADOTable2->Cancel();();

}

#include

#pragma hdrstop

#include "Unit20.h"

#include "Unit8.h"

#include "Unit6.h"

#include "Unit11.h"

#include "Unit3.h"

#pragma package(smart_init)

#pragma resource "*.dfm"*Form20;

__fastcall TForm20::TForm20(TComponent* Owner)

: TForm(Owner)

{

}__fastcall TForm20::FormActivate(TObject *Sender)

{->ADOTable1->Insert();

}__fastcall TForm20::btn1Click(TObject *Sender)

ADOTable1data_ttn->Value=FormatDateTime("dd.mm.yyyy",dtp1->Date);->ADOTable1->Post();();">{->ADOTable1data_ttn->Value=FormatDateTime("dd.mm.yyyy",dtp1->Date);->ADOTable1->Post();();

}

#include

#pragma hdrstop

#include "Unit21.h"

#include "Unit9.h"

#include "Unit3.h"

#include "Unit6.h"

#pragma package(smart_init)

#pragma resource "*.dfm"*Form21;

__fastcall TForm21::TForm21(TComponent* Owner)

: TForm(Owner)

{

}__fastcall TForm21::btn1Click(TObject *Sender)

ADOTable1data->Value=FormatDateTime("dd.mm.yyyy",dtp1->Date);->ADOTable1->Post();();">{->ADOTable1data->Value=FormatDateTime("dd.mm.yyyy", dtp1->Date);->ADOTable1->Post();();

}__fastcall TForm21::btn2Click(TObject *Sender)

{->ADOTable1->Cancel();();

}__fastcall TForm21::FormActivate(TObject *Sender)

{->ADOTable1->Insert();

}

#include

#pragma hdrstop

#include "Unit22.h"

#include "Unit2.h"

#include "Unit9.h"

#include "Unit11.h"

#pragma package(smart_init)

#pragma resource "*.dfm"*Form22;

__fastcall TForm22::TForm22(TComponent* Owner)

: TForm(Owner)

{

}__fastcall TForm22::FormActivate(TObject *Sender)

{->ADOTable2->Insert();

}__fastcall TForm22::btn1Click(TObject *Sender)

{->ADOTable2data->Value=Form9->ADOTable1data->Value;->ADOTable2id_sklada->Value=Form9->ADOTable1id_sklada->Value;->ADOTable2cena->Value= Form11->ADOTable2cena->Value;->ADOTable2nds->Value= Form11->ADOTable2nds->Value;->ADOTable2->Post();();

}__fastcall TForm22::Button1Click(TObject *Sender)

{->ADOTable2->Cancel();();

}

#include

#pragma hdrstop

#include "Unit23.h"

#include "Unit8.h"

#include "Unit2.h"

#include "Unit11.h"

#pragma package(smart_init)

#pragma resource "*.dfm"*Form23;

__fastcall TForm23::TForm23(TComponent* Owner)

: TForm(Owner)

{

}__fastcall TForm23::btn1Click(TObject *Sender)

{->ADOTable2cena->Value=Form11->ADOTable2cena->Value;->ADOTable2nds->Value=Form11->ADOTable2nds->Value;->ADOTable2->Post();();

}__fastcall TForm23::FormActivate(TObject *Sender)

{->ADOTable2->Insert();

}

#include

#pragma hdrstop

#include "Unit24.h"

#include "Unit11.h"

#include "Unit6.h"

#pragma package(smart_init)

#pragma resource "*.dfm"*Form24;

__fastcall TForm24::TForm24(TComponent* Owner)

: TForm(Owner)

{

}__fastcall TForm24::FormActivate(TObject *Sender)

{->ADOTable1->Insert();

}__fastcall TForm24::Button1Click(TObject *Sender)

{->ADOTable1->Post();();

}__fastcall TForm24::Button2Click(TObject *Sender)

{->ADOTable1->Cancel();();

}

#include

#pragma hdrstop

#include "Unit25.h"

#include "Unit11.h"

#include "Unit2.h"

#include "Unit10.h"

#pragma package(smart_init)

#pragma resource "*.dfm"*Form25;

__fastcall TForm25::TForm25(TComponent* Owner)

: TForm(Owner)

{

}__fastcall TForm25::FormActivate(TObject *Sender)

{->ADOTable2->Insert();

}__fastcall TForm25::btn1Click(TObject *Sender)

{->ADOTable2->Post();();

}__fastcall TForm25::btn2Click(TObject *Sender)

{->ADOTable2->Cancel();();

}

#include

#pragma hdrstop

#include "Unit26.h"

#pragma package(smart_init)

#pragma resource "*.dfm"*Form26;

__fastcall TForm26::TForm26(TComponent* Owner)

: TForm(Owner)

{

}__fastcall TForm26::RadioButton1Click(TObject *Sender)

{->Enabled=false;

}__fastcall TForm26::RadioButton2Click(TObject *Sender)

{->Enabled=true;

}__fastcall TForm26::Button2Click(TObject *Sender)

{();

}

#include

#pragma hdrstop

#include "Unit27.h"

#include "Unit28.h"

#include "Unit1.h"

#include "Unit11.h"

#include "Unit6.h"

#include "Unit2.h"

#include "Unit7.h"

#pragma package(smart_init)

#pragma resource "*.dfm"*Form27;

__fastcall TForm27::TForm27(TComponent* Owner)

: TForm(Owner)

{

}__fastcall TForm27::Button2Click(TObject *Sender)

{();

}__fastcall TForm27::FormActivate(TObject *Sender)

{->Active=false;->Active=true;

}__fastcall TForm27::Button1Click(TObject *Sender)

{->QuickRep5->Preview();

}

• На первую страницу
• Назад
• 11
• 12
• 13
• 14
• 15
• 16
• 17
• 18
• 19
• 20
• 21
• 22
• 23
• 24
• Далее