Создание автоматизированной системы управления торгового предприятия

DataModule2->IBQuery4_1->Open();

DataModule2->IBTransaction1->Commit();

DataModule2->IBQuery4_1->Active=true;

//DataModule2->IBQuery3->Active=true;

DataModule2->IBQuery4_1->First();

float d,f;

int d1,f1;

float d2,d3,f2,f3;

while(!DataModule2->IBQuery4_1->Eof)

{

d=DataModule2->IBQuery4_1->Fields->Fields[3]->AsFloat; f=DataModule2->IBQuery4_1->Fields->Fields[4]->AsFloat;

d=d*100;f=f*100;

d1=d;f1=f;

d2=d1/100;f2=f1/100;

d3=d1%100;f3=f1%100;

//-----------------------------------------

DataModule2->IBQuery5->SQL->Clear();

s="Insert Into PRODAJA(PRODAJA_ID,PRODAJA_TOVAR_NO,KLIENT_NO,PRODAVETS_NO,PRODAJA_DATE,PRODAJA_TIME,PR_SDELKA_NO,PR_KOL_VO,PR_PRICE,PR_SUMMA) Values('"+K+"','"+IntToStr(DataModule2->IBQuery4_1->Fields->Fields[1]->AsInteger)+"','"+IntToStr(1)+"','"+IntToStr(DataModule2->IBQuery4_1->Fields->Fields[5]->AsInteger)+"','"+Label4->Caption+"','"+Label3->Caption+"','"+IntToStr(1)+"','"+IntToStr(DataModule2->IBQuery4_1->Fields->Fields[2]->AsInteger)+"','"+d2+"."+d3+"','"+f2+"."+f3+"')";//,'"+d2+"."+d3+"','"+k.ToInt()+"','"+IntToStr(Form1->e)+"')"; //,'"++"'

DataModule2->IBQuery5->SQL->Add(s);

DataModule2->IBQuery5->ExecSQL();

//-----------------------------------------

DataModule2->IBQuery4_1->Next();

}

DataModule2->IBQuery4_1->First();

DataModule2->IBTransaction1->Commit();

while(I!=0)

{

DataModule2->IBQuery4->SQL->Clear();

AnsiString s="Delete from ZAKAZ where (ZAKAZ_NO='"+IntToStr(I)+"')AND(Z_USER_NO='"+IntToStr(Form1->e)+"')";

DataModule2->IBQuery4->SQL->Add(s);

DataModule2->IBQuery4->ExecSQL();

DataModule2->IBTransaction1->Commit();

I--;

}

//-------------------------------------

DataModule2->IBQuery4->SQL->Clear();

DataModule2->IBQuery4->SQL->Add("select ZAKAZ_NO, NAZVANIE,SOKR_NAME_ED_IZM, SKLAD_NAME, Z_KOL_VO,Z_TSENA,Z_SUMMA,Z_SKLAD_NO,Z_USER_NO,Z_TOVAR_NO from ZAKAZ,TOVAR,EDIN_IZMER,SPISOK_SKLAD,SKLAD,USER_PROG where (Z_TOVAR_NO=TOVAR.TOVAR_NO)and(EDIN_IZMER.EDIN_IZMER_NO=TOVAR.T_EDIN_IZMER_NO)and(SKLAD.S_SKLAD_NO=SPISOK_SKLAD.SKLAD_NO)and(SKLAD.S_TOVAR_NO=TOVAR.TOVAR_NO)and(ZAKAZ.Z_SKLAD_NO=SKLAD.S_SKLAD_NO)and(ZAKAZ.Z_USER_NO=USER_PROG.USER_NO)and(ZAKAZ.Z_USER_NO='"+IntToStr(Form1->e)+"')");

DataModule2->IBQuery4->Open();

DataModule2->IBQuery3->SQL->Clear();

DataModule2->IBQuery3->SQL->Add("Select NOMBER, NAZVANIE, SOKR_NAME_ED_IZM, S_KOL_VO, T_TSENA_POKUPKA, K_KOEF_PRICE,SKLAD_NAME,TOVAR_NO,S_SKLAD_NO from TOVAR,EDIN_IZMER,SKLAD,SPISOK_SKLAD,KATEG_KLIENT,KLIENT where (EDIN_IZMER.EDIN_IZMER_NO=TOVAR.T_EDIN_IZMER_NO)and(SKLAD.S_SKLAD_NO=SPISOK_SKLAD.SKLAD_NO)and(TOVAR.TOVAR_NO=SKLAD.S_TOVAR_NO)and(KLIENT.KLIENT_KATEG_NO= KATEG_KLIENT.KATEG_NO)and(KLIENT.KLIENT_NAME='-') ORDER BY NOMBER");

DataModule2->IBQuery3->Open();

DataModule2->IBQuery4_1->SQL->Clear();

DataModule2->IBQuery4_1->SQL->Add("Select UPDATE_DB,U_USER_PROG_NO FROM UPDATE_DB");

DataModule2->IBQuery4_1->Open();

//--------------------------------

DataModule2->IBQuery3_1->Active=true;

d=summa+DataModule2->IBQuery3_1->Fields->Fields[1]->AsFloat;

d=d*100;

d1=d;

d2=d1/100;

d3=d1%100;

DataModule2->IBQuery3_1->SQL->Clear();

s="Update KASSA SET K_SUMMA='"+FloatToStr(d2)+"."+FloatToStr(d3)+"' where K_USER_PROG_NO='"+IntToStr(Form1->e)+"'";

DataModule2->IBQuery3_1->SQL->Add(s);

DataModule2->IBQuery3_1->ExecSQL();

//---------------------------------

DataModule2->IBQuery3_1->SQL->Clear();

DataModule2->IBQuery3_1->SQL->Add("Select KASSA_NO,K_SUMMA FROM KASSA WHERE K_USER_PROG_NO='"+IntToStr(Form1->e)+"'");

DataModule2->IBQuery3_1->Open();

DataModule2->IBTransaction1->Commit();

DataModule2->IBQuery3->Active=true;

DataModule2->IBQuery4->Active=true;

DataModule2->IBQuery3_1->Active=true;

Label9->Left=DBText2->Left+DBText2->Width+8;

}

//---------------------------------------------------------------------------

void __fastcall TForm9::Timer1Timer(TObject *Sender)

{

StatusBar1->SimpleText=Time().FormatString("hh:mm:ss");

Form3->StatusBar1->SimpleText=Time().FormatString("hh:mm:ss");

Form10->StatusBar1->SimpleText=Time().FormatString("hh:mm:ss");

Form18->StatusBar1->SimpleText=Time().FormatString("hh:mm:ss");

Form19->StatusBar1->SimpleText=Time().FormatString("hh:mm:ss");

Timer1->Interval=1000;

}

//---------------------------------------------------------------------------

void __fastcall TForm9::Button3Click(TObject *Sender)

{

DataModule2->IBQuery3->Active=true;

DataModule2->IBQuery4->Active=true;

if(DataModule2->IBQuery4->IsEmpty()){

return ;

}

DataModule2->IBQuery5->SQL->Clear();

DataModule2->IBQuery5->SQL->Add("Select S_KOL_VO FROM SKLAD where S_TOVAR_NO='"+IntToStr(z2[DataModule2->IBQuery4ZAKAZ_NO->AsInteger])+"'");

DataModule2->IBQuery5->Open();

DataModule2->IBQuery5->Active=true;

z2[DataModule2->IBQuery4ZAKAZ_NO->AsInteger]=0;

z3[DataModule2->IBQuery4ZAKAZ_NO->AsInteger]=0;

int z=DataModule2->IBQuery4Z_KOL_VO->AsInteger+DataModule2->IBQuery5->Fields->Fields[0]->AsInteger;

int z1=DataModule2->IBQuery4Z_TOVAR_NO->AsInteger;

AnsiString s1=DataModule2->IBQuery4ZAKAZ_NO->AsString;

DataModule2->IBQuery4->SQL->Clear();

AnsiString s="Delete from ZAKAZ where ZAKAZ_NO='"+s1+"'"; //,'"++"'

DataModule2->IBQuery4->SQL->Add(s);

DataModule2->IBQuery4->ExecSQL();

DataModule2->IBQuery2->SQL->Clear();

s="Update SKLAD SET S_KOL_VO='"+IntToStr(z)+"' where S_TOVAR_NO='"+IntToStr(z1)+"'";

DataModule2->IBQuery2->SQL->Add(s);

DataModule2->IBQuery2->ExecSQL();

DataModule2->IBQuery4->SQL->Clear();

DataModule2->IBQuery4->SQL->Add("select ZAKAZ_NO, NAZVANIE,SOKR_NAME_ED_IZM, SKLAD_NAME, Z_KOL_VO,Z_TSENA,Z_SUMMA,Z_SKLAD_NO,Z_USER_NO,Z_TOVAR_NO from ZAKAZ,TOVAR,EDIN_IZMER,SPISOK_SKLAD,SKLAD,USER_PROG where (Z_TOVAR_NO=TOVAR.TOVAR_NO)and(EDIN_IZMER.EDIN_IZMER_NO=TOVAR.T_EDIN_IZMER_NO)and(SKLAD.S_SKLAD_NO=SPISOK_SKLAD.SKLAD_NO)and(SKLAD.S_TOVAR_NO=TOVAR.TOVAR_NO)and(ZAKAZ.Z_SKLAD_NO=SKLAD.S_SKLAD_NO)and(ZAKAZ.Z_USER_NO=USER_PROG.USER_NO)and(ZAKAZ.Z_USER_NO='"+IntToStr(Form1->e)+"')");

DataModule2->IBQuery4->Open();

DataModule2->IBQuery3->SQL->Clear();

DataModule2->IBQuery3->SQL->Add("Select NOMBER, NAZVANIE, SOKR_NAME_ED_IZM, S_KOL_VO, T_TSENA_POKUPKA, K_KOEF_PRICE,SKLAD_NAME,TOVAR_NO,S_SKLAD_NO from TOVAR,EDIN_IZMER,SKLAD,SPISOK_SKLAD,KATEG_KLIENT,KLIENT where (EDIN_IZMER.EDIN_IZMER_NO=TOVAR.T_EDIN_IZMER_NO)and(SKLAD.S_SKLAD_NO=SPISOK_SKLAD.SKLAD_NO)and(TOVAR.TOVAR_NO=SKLAD.S_TOVAR_NO)and(KLIENT.KLIENT_KATEG_NO= KATEG_KLIENT.KATEG_NO)and(KLIENT.KLIENT_NAME='-') ORDER BY NOMBER");

DataModule2->IBQuery3->Open();

DataModule2->IBQuery5->SQL->Clear();

DataModule2->IBQuery5->SQL->Add("Select ZAKAZ_NO FROM ZAKAZ ORDER BY ZAKAZ_NO");

DataModule2->IBQuery5->Open();

DataModule2->IBTransaction1->Commit();

DataModule2->IBQuery3->Active=true;

DataModule2->IBQuery4->Active=true;

DataModule2->IBQuery3_1->Active=true;

DataModule2->IBQuery5->Active=true;

float itogo=0.0,d,d2,d3;

int d1;

while(!DataModule2->IBQuery4->Eof){

d=itogo+DataModule2->IBQuery4Z_SUMMA->AsFloat;

itogo=d;

d=d*100;

d1=d;

d2=d1/100;

d3=d1%100;

DataModule2->IBQuery4->Next();

}

Label6->Caption=d2;

Label6->Caption=Label6->Caption+"."+d3+" л.";

summa=itogo;

if(DataModule2->IBQuery4->IsEmpty()){

Label6->Visible=false;

Label5->Visible=false;

}

else{

Label6->Visible=true;

Label5->Visible=true;

}

}

//---------------------------------------------------------------------------

1. Размещено на www.allbest.ru