Автоматизация движения готовой продукции на складе ООО "Амазон-колорит"
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
#pragma resource "*.dfm"*Form31;
__fastcall TForm31::TForm31(TComponent* Owner)
: TForm(Owner)
{
}__fastcall TForm31::Button1Click(TObject *Sender)
SQL->Text="createtableosv(idcounterprimarykey,id_gpint,id_skladint,n_ostint,prihint,rashint,ostint,id_ostint,cenaint,ndsint,foreignkey(id_ost)referencesostatki)";->ExecSQL();->SQL->Clear();->SQL->Text="select*fromosv";->Active=true;_p->Close();_p->SQL->Clear();(rb3->Checked){_p->SQL->Text="selectid_prihoda,id_gp,sum(kolvo)assumm,id_sklad,cena,ndsfromgp_pwheredataDate);
}_p->Open();_p->First();(int i=0; iNext();
Close();_p->SQL->Clear();(rb3->Checked){_p->SQL->Text="selectid_prihoda,id_gp,sum(kolvo)assumm,id_sklad,cena,ndsfromgp_pwhere(dataDate);
SQL->Text="selectid_prihoda,id_gp,sum(kolvo)assumm,id_sklad,cena,ndsfromgp_pwhere(databetween:Dand:DD)andshownotlike0groupbyid_prihoda,id_gp,id_sklad,cena,ndsorderbyid_sklad";_p->Parameters->ParamByName("D")->Value=FormatDateTime("dd.mm.yyyy",dtp4->Date);_p->Parameters->ParamByName("DD")->Value=FormatDateTime("dd.mm.yyyy",dtp7->Date);">}{_p->SQL->Text="select id_prihoda, id_gp, sum(kolvo) as summ, id_sklad, cena, nds from gp_p where (data between :D and :DD) and show not like 0 group by id_prihoda, id_gp, id_sklad, cena, nds order by id_sklad";_p->Parameters->ParamByName("D")->Value = FormatDateTime("dd.mm.yyyy",dtp4->Date);_p->Parameters->ParamByName("DD")->Value = FormatDateTime("dd.mm.yyyy",dtp7->Date);
}_p->Open();_p->First();(int i=0; iFiltered=false;
}{->Filtered=false;->Insert();id_gp->Value=mat_p->FieldByName("id_gp")->Value;id_sklad->Value=mat_p->FieldByName("id_sklad")->Value;cena->Value=mat_p->FieldByName("cena")->Value;nds->Value=mat_p->FieldByName("nds")->Value;prih->Value=mat_p->FieldByName("summ")->Value;->Post();sk=qry9->FieldByName("id_sklad")->Value;>Filter="id_sklada like "+IntToStr(sk)+"";>Filtered=True;->Edit();->FieldByName("id_ost")->Value=ostatki->FieldByName("id_ost")->Value;->Post();>Filtered=false;
}_p->Next();
SQL->Clear();(rb3->Checked){_s->SQL->Text="selectid_rashoda,id_gp,sum(kolvo)assumm,id_sklada,cena,ndsfromgp_rwheredataDate);
}_s->Active=true;_s->First();(int i=0; iFiltered=false;
}_s->Next();
}->First();(int i=0; iValue=0