#include <vcl. h>

#pragma hdrstop

#include "Shop. h"

#pragma package

(smart_init)

#pragma resource "*. dfm"

TForm1 *Form1;

TComboBox *Combo;

_fastcall TForm1:: TForm1 (TComponent* Owner)

: TForm (Owner)

{ Label5->Caption="";

Label6->Caption="";

Label7->Caption="";

}

void __fastcall TForm1:: zapK ()

{

ADOTable1->First ();

Combo->Clear ();

while (! ADOTable1->Eof)

{

Combo->Items->Add (ADOTable1->FieldValues ["NameKat"]);

ADOTable1->Next ();

}

}

void __fastcall TForm1:: zapF ()

{

ADOTable3->First ();

Combo->Clear ();

while (! ADOTable3->Eof)

{

Combo->Items->Add (ADOTable3->FieldValues ["NameF"]);

ADOTable3->Next ();

}

}

void __fastcall TForm1:: zap4 ()

{

int n;

TLocateOptionsSearchOptions;

ComboBox5->Clear ();

ADOTable1->Locate ("NameKat",ComboBox4->Text,SearchOptions);

n=ADOTable1->FieldByName ("CodeKat") - >AsInteger;

ADOTable2->First ();

while (! ADOTable2->Eof)

if (ADOTable2->FieldByName ("CodeKat") - >AsInteger==n)

{

ComboBox5->Items->Add (ADOTable2->FieldValues ["NameTov"]);

ADOTable2->Next ();

}

else

ADOTable2->Next ();

}

void __fastcall TForm1:: colvo ()

{

TLocateOptionsSearchOptions;

int n, S1=0,S2=0,S3=0;

ADOTable2->Locate ("NameTov",ComboBox5->Text,SearchOptions);

n=ADOTable2->FieldByName ("CodeTov") - >AsInteger;

ADOTable4->First ();

while (! ADOTable4->Eof)

{

if ( (ADOTable4->FieldByName ("CodeTov") - >AsInteger==n) && (ADOTable4->FieldByName ("Code_op") - >AsInteger==0))

S1+=ADOTable4->FieldByName ("Colvo") - >AsInteger;

ADOTable4->Next ();

}

ADOTable4->First ();

while (! ADOTable4->Eof)

{

if ( (ADOTable4->FieldByName ("CodeTov") - >AsInteger==n) && (ADOTable4->FieldByName ("Code_op") - >AsInteger==1))

S2+=ADOTable4->FieldByName ("Colvo") - >AsInteger;

ADOTable4->Next ();

}

ADOTable4->First ();

while (! ADOTable4->Eof)

{

if ( (ADOTable4->FieldByName ("CodeTov") - >AsInteger==n) && (ADOTable4->FieldByName ("Code_op") - >AsInteger==2))

S3+=ADOTable4->FieldByName ("Colvo") - >AsInteger;

ADOTable4->Next ();

}

LabeledEdit1->Text=IntToStr (S1);

LabeledEdit2->Text=IntToStr (S2);

LabeledEdit3->Text=IntToStr (S3);

LabeledEdit4->Text=IntToStr (S1-S2-S3);

}

/*void __fastcall TForm1:: zap6 ()

{

Table1->First ();

ComboBox6->Clear ();

while (! Table1->Eof)

{

ComboBox6->Items->Add (Table1->FieldValues ["NameKat"]);

Table1->Next ();

}

} */

void __fastcall TForm1:: zap7 ()

{

int n;

TLocateOptionsSearchOptions;

ComboBox7->Clear ();

ADOTable1->Locate ("NameKat",ComboBox6->Text,SearchOptions);

n=ADOTable1->FieldByName ("CodeKat") - >AsInteger;

ADOTable2->First ();

while (! ADOTable2->Eof)

if (ADOTable2->FieldByName ("CodeKat") - >AsInteger==n)

{

ComboBox7->Items->Add (ADOTable2->FieldValues ["NameTov"]);

ADOTable2->Next ();

}

else

ADOTable2->Next ();

}

/*void __fastcall TForm1:: zap8 ()

{

Table1->First ();

ComboBox8->Clear ();

while (! Table1->Eof)

{

ComboBox8->Items->Add (Table1->FieldValues ["NameKat"]);

Table1->Next ();

}

} */

void __fastcall TForm1:: zap9 ()

{

int n;

TLocateOptionsSearchOptions;

ComboBox9->Clear ();

ADOTable1->Locate ("NameKat",ComboBox8->Text,SearchOptions);

n=ADOTable1->FieldByName ("CodeKat") - >AsInteger;

ADOTable2->First ();

while (! ADOTable2->Eof)

if (ADOTable2->FieldByName ("CodeKat") - >AsInteger==n)

{

ComboBox9->Items->Add (ADOTable2->FieldValues ["NameTov"]);

ADOTable2->Next ();

}

else

ADOTable2->Next ();

}

/*void __fastcall TForm1:: zap10 ()

{

Table3->First ();

ComboBox10->Clear ();

while (! Table3->Eof)

{

ComboBox10->Items->Add (Table3->FieldValues ["NameF"]);

Table3->Next ();

}

} */

void __fastcall TForm1:: Prihod ()

{

ADOQuery1->Close ();

ADOQuery1->SQL->Clear ();

ADOQuery1->SQL->Add ("Select p1. Code_op,p2. NameTov, p1. Data, p1. Colvo, p1. Price,p1. Summa, p3. NameF from Prihod_Rashod p1, tovar p2, firm p3 where (p1. CodeTov=p2. CodeTov) and (p1. kodef=p3. codef) and (p1. Code_op=0)");

ADOQuery1->Open ();

}

void __fastcall TForm1:: Rashod ()

{

ADOQuery1->Close ();

ADOQuery1->SQL->Clear ();

ADOQuery1->SQL->Add ("Select p1. Code_op,p2. NameTov,p1. Data, p1. Colvo, p1. Price, p1. Summa, p3. NameF from Prihod_Rashod p1, tovar p2, firm p3 where (p1. CodeTov=p2. CodeTov) and (p1. Code_op=1) and (p1. kodef=p3. codef)");

ADOQuery1->Open ();

}

void __fastcall TForm1:: Sp ()

{

ADOQuery1->Close ();

ADOQuery1->SQL->Clear ();

ADOQuery1->SQL->Add ("Select p1. Code_op,p2. NameTov,p1. Data, p1. Colvo, p1. Price, p1. Summa,p3. NameF from Prihod_Rashod p1, tovar p2, firm p3 where (p1. CodeTov=p2. CodeTov) and (p1. kodef=p3. codef) and (p1. Code_op=2)");

ADOQuery1->Open ();

}

void __fastcall TForm1:: Button1Click (TObject *Sender)

{

int n;

if (RadioButton1->Checked)

{

ADOTable1->Last ();

if (ADOTable1->IsEmpty () ==true)

n=0;

else

n=ADOTable1->FieldValues ["CodeKat"];

ADOTable1->Append ();

ADOTable1->FieldValues ["CodeKat"] =n+1;

ADOTable1->FieldValues ["NameKat"] =ComboBox1->Text;

ADOTable1->Post ();

ComboBox1->Items->Add (ComboBox1->Text);

Text=Edit1->Text;

ComboBox1->Text=" ";

Combo=ComboBox1;

zapK ();

Combo=ComboBox4;

zapK ();

Combo=ComboBox6;

zapK ();

Combo=ComboBox8;

zapK ();

}

if (RadioButton2->Checked)

{

ADOTable2->Last ();

ADOTable1->Last ();

if (ADOTable2->IsEmpty () ==true)

n=0;

else

n=ADOTable2->FieldValues ["CodeTov"];

ADOTable2->Append ();

ADOTable2->FieldValues ["CodeTov"] =n+1;

ADOTable2->FieldValues ["NameTov"] =Edit1->Text;

ADOTable1->First ();

while (! ADOTable1->Eof)

if (ADOTable1->FieldByName ("NameKat") - >AsString==ComboBox1->Text)

{

ADOTable2->FieldValues ["CodeKat"] =ADOTable1->FieldValues ["CodeKat"];

break;

}

else

ADOTable1->Next ();

ADOTable2->Post ();

Edit1->Clear (); zap4 ();

}

if (RadioButton3->Checked)

{

zapF ();

ADOTable3->Last ();

ADOTable1->Last ();

if (ADOTable3->IsEmpty () ==true)

n=0;

else

n=ADOTable3->FieldByName ("codef") - >AsInteger;

ADOTable3->Append ();

ADOTable3->FieldByName ("codef") - >AsInteger=n+1;

ADOTable3->FieldValues ["NameF"] =Edit1->Text;

ADOTable3->FieldValues ["Address"] =Edit2->Text;

ADOTable3->FieldValues ["Tel"] =Edit3->Text;

ADOTable3->FieldValues ["Manager"] =Edit4->Text;

ADOTable3->Post ();

Edit1->Clear ();

Edit2->Clear ();

Edit3->Clear ();

Edit4->Clear ();

Combo=ComboBox3; zapF ();

Combo=ComboBox10; zapF ();

}

Label5->Caption="";

Label6->Caption="";

}

void __fastcall TForm1:: Button4Click (TObject *Sender)

{

Close ();

}

void __fastcall TForm1:: RadioButton1Click (TObject *Sender)

{

ComboBox1->Visible=true;

Edit1->Visible=false;

Edit2->Visible=false;

Edit3->Visible=false;

Edit4->Visible=false;

DBGrid1->Visible=true;

DBGrid2->Visible=false;

DBGrid3->Visible=false;

Label10->Visible=true;

Label10->Caption="Названиекатегорий";

Label11->Visible=false;

Label12->Visible=false;

Label13->Visible=false;

Label14->Visible=false;

}

void __fastcall TForm1:: RadioButton2Click (TObject *Sender)

{

ComboBox1->Visible=true;

Edit1->Visible=true;

Edit2->Visible=false;

Edit3->Visible=false;

Edit4->Visible=false;

DBGrid2->Visible=true;

DBGrid1->Visible=false;

DBGrid3->Visible=false;

Label10->Visible=true;

Label10->Caption="Названиекатегорий";

Label11->Visible=true;

Label11->Caption="Названиетовара";

Label12->Visible=false;

Label13->Visible=false;

Label14->Visible=false;

}

void __fastcall TForm1:: RadioButton3Click (TObject *Sender)

{

ComboBox1->Visible=false;

Edit1->Visible=true;

Edit2->Visible=true;

Edit3->Visible=true;

Edit4->Visible=true;

DBGrid3->Visible=true;

DBGrid2->Visible=false;

DBGrid1->Visible=false;

Label10->Visible=false;

Label11->Visible=true;

Label12->Visible=true;

Label13->Visible=true;

Label14->Visible=true;

Label11->Caption="Названиефирмы";

Label12->Caption="Названиеадреса";

Label13->Caption="Телефон";

Label14->Caption="ответственноелицо";

}

void __fastcall TForm1:: Button2Click (TObject *Sender)

{

int i;

if (RadioButton1->Checked)

{

i=MessageDlg ("Выдействительнохотитеудалить?",mtConfirmation,TMsgDlgButtons () <<mbYes<<mbNo,0);

if (i==mrYes)

ADOTable1->Delete ();

ComboBox1->Text=" ";

Combo=ComboBox1;

zapK ();

Combo=ComboBox4;

zapK ();

Combo=ComboBox6;

zapK ();

Combo=ComboBox8;

zapK ();

}

if (RadioButton2->Checked)

{

i=MessageDlg ("Выдействительнохотитеудалить?",mtConfirmation,TMsgDlgButtons () <<mbYes<<mbNo,0);

if (i==mrYes)

ADOTable2->Delete ();

Edit1->Clear ();

}

if (RadioButton3->Checked)

{

i=MessageDlg ("Выдействительнохотитеудалить?",mtConfirmation,TMsgDlgButtons () <<mbYes<<mbNo,0);

if (i==mrYes)

ADOTable3->Delete ();

Edit1->Clear ();

Edit2->Clear ();

Edit3->Clear ();

Edit4->Clear ();

Combo=ComboBox3; zapF ();

Combo=ComboBox10; zapF ();

}

}

void __fastcall TForm1:: Button3Click (TObject *Sender)

{

if (RadioButton1->Checked)

{

ADOTable1->Edit ();

ADOTable1->FieldValues ["NameKat"] =ComboBox1->Text;

ADOTable1->Post ();

Edit1->Clear ();

Combo=ComboBox1;

zapK ();

Combo=ComboBox4;

zapK ();

Combo=ComboBox6;

zapK ();

Combo=ComboBox8;

zapK ();

}

if (RadioButton2->Checked)

{

ADOTable2->Edit ();

ADOTable2->FieldValues ["NameTov"] =ComboBox1->Text;

ADOTable2->FieldValues ["NameTov"] =Edit1->Text;

ADOTable2->Post ();

Edit1->Clear ();

}

if (RadioButton3->Checked)

{

ADOTable3->Edit ();

ADOTable3->FieldValues ["NameF"] =Edit1->Text;

ADOTable3->FieldValues ["Address"] =Edit2->Text;

ADOTable3->FieldValues ["Tel"] =Edit3->Text;

ADOTable3->FieldValues ["Manager"] =Edit4->Text;

ADOTable3->Post ();

Edit1->Clear ();

Edit2->Clear ();

Edit3->Clear ();

Edit4->Clear ();

Combo=ComboBox3; zapF ();

Combo=ComboBox10; zapF ();

}

}

void __fastcall TForm1:: FormCreate (TObject *Sender)

{

Combo=ComboBox1;

zapK ();

Combo=ComboBox4;

zapK ();

Combo=ComboBox6;

zapK ();

Combo=ComboBox8;

zapK ();

Combo=ComboBox3;

zapF ();

Combo=ComboBox10; zapF ();

if (RadioButton1->Checked)

Edit1->Text=ADOTable1->FieldValues ["NameKat"];

if (RadioButton2->Checked)

Edit1->Text=ADOTable2->FieldValues ["NameTov"];

if (RadioButton3->Checked)

{

Edit1->Text=ADOTable3->FieldValues ["NameF"];

Edit2->Text=ADOTable3->FieldValues ["Address"];

Edit3->Text=ADOTable3->FieldValues ["Tel"];

Edit4->Text=ADOTable3->FieldValues ["Manager"];

}

ComboBox2->Items->Add ("Учет");

ComboBox2->Items->Add ("Списание");

ComboBox2->Items->Add ("Возвратбрака");

}

void __fastcall TForm1:: DBGrid1CellClick (TColumn *Column)

{

ComboBox1->Text=ADOTable1->FieldValues ["NameKat"];

}

void __fastcall TForm1:: DBGrid2CellClick (TColumn *Column)

{

ComboBox1->Text=ADOTable1->FieldValues ["NameKat"];

Edit1->Text=ADOTable2->FieldValues ["NameTov"];

}

void __fastcall TForm1:: DBGrid3CellClick (TColumn *Column)

{

Edit1->Text=ADOTable3->FieldValues ["NameF"];

Edit2->Text=ADOTable3->FieldValues ["Address"];

Edit3->Text=IntToStr (ADOTable3->FieldByName ("Tel") - >AsInteger);

Edit4->Text=ADOTable3->FieldValues ["Manager"];

}

void __fastcall TForm1:: ComboBox4Change (TObject *Sender)

{

zap4 ();

}

void __fastcall TForm1:: ComboBox2Change (TObject *Sender)

{

Label5->Caption="";

Label6->Caption="";

if (ComboBox2->Text=="Учет")

{

Prihod ();

Label5->Caption="Количество учетного товара";

Label6->Caption="Дата поступления";

Label7->Caption="Стоимость";

}

if (ComboBox2->Text=="Списание")

{

Rashod ();

Label5->Caption="Количество списанного товара";

Label6->Caption="Датапоступления";

Label7->Caption="Стоимость";

}

if (ComboBox2->Text=="Возвратбрака")

{

Sp ();

Label5->Caption="Количество бракованного товара";

Label6->Caption=" Дата поступления ";

Label7->Caption=" Стоимость ";

}

}

void __fastcall TForm1:: Button5Click (TObject *Sender)

{

if (ComboBox2->Text=="Учет ")

{

ADOTable4->Append ();

ADOTable4->FieldByName ("Code_op") - >AsInteger=0;

ADOTable4->FieldByName ("Colvo") - >AsInteger=StrToInt (Edit5->Text);

ADOTable4->FieldValues ["Data"] =DateTimePicker1->Date;

ADOTable4->FieldValues ["Price"] =StrToInt (Edit6->Text);

ADOTable4->FieldValues ["Summa"] = (StrToInt (Edit5->Text)) * (StrToInt (Edit6->Text));

ADOTable3->First ();

while (! ADOTable3->Eof)

if (ADOTable3->FieldByName ("NameF") - >AsString==ComboBox3->Text)

{

ADOTable4->FieldValues ["kodef"] =ADOTable3->FieldValues ["codef"];

break;

}

else ADOTable3->Next ();

ADOTable2->First ();

while (! ADOTable2->Eof)

if (ADOTable2->FieldByName ("NameTov") - >AsString==ComboBox5->Text)

{

ADOTable4->FieldValues ["CodeTov"] =ADOTable2->FieldValues ["CodeTov"];

break;

}

else ADOTable2->Next ();

ADOTable4->Post ();

Prihod ();

}

if (ComboBox2->Text=="Списание")

{

ADOTable4->Append ();

ADOTable4->FieldByName ("Code_op") - >AsInteger=1;

ADOTable4->FieldByName ("Colvo") - >AsInteger=StrToInt (Edit5->Text);

ADOTable4->FieldValues ["Data"] =DateTimePicker1->Date;

ADOTable4->FieldValues ["Price"] =StrToInt (Edit6->Text);

ADOTable4->FieldValues ["Summa"] = (StrToInt (Edit5->Text)) * (StrToInt (Edit6->Text));

ADOTable3->First ();

while (! ADOTable3->Eof)

if (ADOTable3->FieldByName ("NameF") - >AsString==ComboBox3->Text)

{

ADOTable4->FieldValues ["kodef"] =ADOTable3->FieldValues ["codef"];

break;

}

else ADOTable3->Next ();

ADOTable2->First ();

while (! ADOTable2->Eof)

if (ADOTable2->FieldByName ("NameTov") - >AsString==ComboBox5->Text)

{

ADOTable4->FieldValues ["CodeTov"] =ADOTable2->FieldValues ["CodeTov"];

break;

}

else ADOTable2->Next ();

ADOTable4->Post ();

Rashod ();

}

if (ComboBox2->Text=="Возвратбрака")

{

ADOTable4->Append ();

ADOTable4->FieldByName ("Code_op") - >AsInteger=2;

ADOTable4->FieldByName ("Colvo") - >AsInteger=StrToInt (Edit5->Text);

ADOTable4->FieldValues ["Data"] =DateTimePicker1->Date;

ADOTable4->FieldValues ["Price"] =StrToInt (Edit6->Text);

ADOTable4->FieldValues ["Summa"] = (StrToInt (Edit5->Text)) * (StrToInt (Edit6->Text));

ADOTable3->First ();

while (! ADOTable3->Eof)

if (ADOTable3->FieldByName ("NameF") - >AsString==ComboBox3->Text)

{

ADOTable4->FieldValues ["kodef"] =ADOTable3->FieldValues ["codef"];

break;

}

else ADOTable3->Next ();

ADOTable2->First ();

while (! ADOTable2->Eof)

if (ADOTable2->FieldByName ("NameTov") - >AsString==ComboBox5->Text)

{

ADOTable4->FieldValues ["CodeTov"] =ADOTable2->FieldValues ["CodeTov"];

break;

}

else ADOTable2->Next ();

ADOTable4->Post ();

Sp ();

}

colvo ();

}

void __fastcall TForm1:: ComboBox5Change (TObject *Sender)

{

colvo ();

}

void __fastcall TForm1:: RadioButton4Click (TObject *Sender)

{

ComboBox7->Visible=false;

Combo=ComboBox6; zapK ();

DBGrid6->Visible=false;

ComboBox10->Visible=false;

Button9->Visible=false;

ComboBox6->Visible=true;

DateTimePicker2->Visible=true;

DateTimePicker3->Visible=true;

Button8->Visible=true;

DBGrid5->Visible=true;

Label8->Visible=true;

Label9->Visible=true;

}

void __fastcall TForm1:: RadioButton5Click (TObject *Sender)

{

ComboBox7->Visible=true;

Combo=ComboBox6; zapK ();

zap7 ();

DBGrid6->Visible=false;

ComboBox10->Visible=false;

Button9->Visible=false;

ComboBox6->Visible=true;

DateTimePicker2->Visible=true;

DateTimePicker3->Visible=true;

Button8->Visible=true;

DBGrid5->Visible=true;

Label8->Visible=true;

Label9->Visible=true;

}

void __fastcall TForm1:: Button8Click (TObject *Sender)

{

if (RadioButton4->Checked)

{

ADOQuery2->Close ();

ADOQuery2->SQL->Clear ();

ADOQuery2->SQL->Add ("Select p1. Code_op,p4. NameKat,p1. Colvo,p1. Price,p1. Data, p3. NameF from Prihod_Rashod p1, tovar p2, firm p3, Kategory p4 where (p1. CodeTov=p2. CodeTov) and (p1. kodef=p3. codef) and (p4. CodeKat=p2. CodeKat) and (p1. Data>=: d) and (p1. Data<=: t) and (p4. NameKat=: r)");

ADOQuery2->Parameters->Items [0] - >Value=DateTimePicker2->Date;

ADOQuery2->Parameters->Items [1] - >Value=DateTimePicker3->Date;

ADOQuery2->Parameters->Items [2] - >Value=ComboBox6->Text;

ADOQuery2->Open ();

}

if (RadioButton5->Checked)

{

ADOQuery2->Close ();

ADOQuery2->SQL->Clear ();

ADOQuery2->SQL->Add ("Select p1. Code_op,p2. NameTov, p1. Colvo,p1. Price, p1. Data, p3. NameF from Prihod_Rashod p1, tovar p2, firm p3, Kategory p4 where (p1. CodeTov=p2. CodeTov) and (p1. kodef=p3. codef) and (p2. CodeKat=p4. CodeKat) and (p1. Data>=: d) and (p1. Data<=: t) and (p4. NameKat=: p) and (p2. NameTov=: r)");

ADOQuery2->Parameters->Items [0] - >Value=DateTimePicker2->Date;

ADOQuery2->Parameters->Items [1] - >Value=DateTimePicker3->Date;

ADOQuery2->Parameters->Items [2] - >Value=ComboBox6->Text;

ADOQuery2->Parameters->Items [3] - >Value=ComboBox7->Text;

ADOQuery2->Open ();

}

}

void __fastcall TForm1:: ComboBox6Change (TObject *Sender)

{

zap7 ();

}

void __fastcall TForm1:: Button10Click (TObject *Sender)

{

ADOQuery4->Close ();

ADOQuery4->SQL->Clear ();

ADOQuery4->SQL->Add ("Select p3. NameF, p1. Price from Prihod_Rashod p1, tovar p2, firm p3, Kategory p4 where (p1. CodeTov=p2. CodeTov) and (p1. kodef=p3. codef) and (p4. CodeKat=p2. CodeKat) and (p4. NameKat=: d) and (p2. NameTov=: t) and (p1. Code_op=0)");

ADOQuery4->Parameters->Items [0] - >Value=ComboBox8->Text;

ADOQuery4->Parameters->Items [1] - >Value=ComboBox9->Text;

ADOQuery4->Open ();

}

void __fastcall TForm1:: Button9Click (TObject *Sender)

{

ADOQuery3->Close ();

ADOQuery3->SQL->Clear ();

ADOQuery3->SQL->Add ("Select p4. NameKat,p2. NameTov, p1. Price from Prihod_Rashod p1, tovar p2, firm p3, Kategory p4 where (p1. CodeTov=p2. CodeTov) and (p1. kodef=p3. codef) and (p4. CodeKat=p2. CodeKat) and (p1. Code_op=0) and (p3. NameF=: d)");

ADOQuery3->Parameters->Items [0] - >Value=ComboBox10->Text;

ADOQuery3->Open ();

}

void __fastcall TForm1:: RadioButton6Click (TObject *Sender)

{

Combo=ComboBox10;

zapF ();

DBGrid6->Visible=true;

ComboBox10->Visible=true;

Button9->Visible=true;

ComboBox6->Visible=false;

ComboBox7->Visible=false;

DateTimePicker2->Visible=false;

DateTimePicker3->Visible=false;

Button8->Visible=false;

DBGrid5->Visible=false;

Label8->Visible=false;

Label9->Visible=false;

}

void __fastcall TForm1:: ComboBox8Change (TObject *Sender)

{

zap9 ();

}

void __fastcall TForm1:: Button12Click (TObject *Sender)

{

int S1=0,S2=0;

ADOTable4->First ();

while (! ADOTable4->Eof)

{

if ( (ADOTable4->FieldByName ("Code_op") - >AsInteger==0))

S1+=ADOTable4->FieldByName ("Summa") - >AsInteger;

if ( (ADOTable4->FieldByName ("Code_op") - >AsInteger==1))

S2+=ADOTable4->FieldByName ("Summa") - >AsInteger;

ADOTable4->Next ();

}

LabeledEdit5->Text=IntToStr (S1);

LabeledEdit6->Text=IntToStr (S2);

}

void __fastcall TForm1:: Button13Click (TObject *Sender)

{

int S3=0;

ADOTable4->First ();

while (! ADOTable4->Eof)

{

if ( (ADOTable4->FieldByName ("Code_op") - >AsInteger==2))

S3+=ADOTable4->FieldByName ("Summa") - >AsInteger;

ADOTable4->Next ();

}

LabeledEdit7->Text=IntToStr (S3);

}

void __fastcall TForm1:: Button11Click (TObject *Sender)

{

TLocateOptionsSearchOptions;

int n,col,S1=0,S2=0,S3=0, i=1,c;

String f;

StringGrid1->Cells [0] [0] ="NameTov";

StringGrid1->Cells [1] [0] ="Colvo";

ADOTable2->First ();

while (! ADOTable2->Eof)

{

n=ADOTable2->FieldByName ("CodeTov") - >AsInteger;

ADOTable4->Locate ("CodeTov", n, SearchOptions);

c=ADOTable4->FieldByName ("Kodef") - >AsInteger;

ADOTable3->Locate ("codef", c, SearchOptions);

f=ADOTable3->FieldByName ("NameF") - >AsString;

ADOTable4->First ();

while (! ADOTable4->Eof)

{

if ( (ADOTable4->FieldByName ("CodeTov") - >AsInteger==n) && (ADOTable4->FieldByName ("Code_op") - >AsInteger==0))

S1+=ADOTable4->FieldByName ("Colvo") - >AsInteger;

ADOTable4->Next ();

}

ADOTable4->First ();

while (! ADOTable4->Eof)

{

if ( (ADOTable4->FieldByName ("CodeTov") - >AsInteger==n) && (ADOTable4->FieldByName ("Code_op") - >AsInteger==1))

S2+=ADOTable4->FieldByName ("Colvo") - >AsInteger;

ADOTable4->Next ();

}

ADOTable4->First ();

while (! ADOTable4->Eof)

{

if ( (ADOTable4->FieldByName ("CodeTov") - >AsInteger==n) && (ADOTable4->FieldByName ("Code_op") - >AsInteger==2))

S3+=ADOTable4->FieldByName ("Colvo") - >AsInteger;

ADOTable4->Next ();

}

col=S1-S2-S3;

if (col<=StrToInt (Edit7->Text))

{

StringGrid1->Cells [0] [i] =ADOTable2->FieldByName ("NameTov") - >AsString;

StringGrid1->Cells [1] [i] =IntToStr (col);

i+=1;

ADOTable2->Next ();

}

else

ADOTable2->Next ();

S1=S2=S3=0;

}

}

void __fastcall TForm1:: DBGrid10CellClick (TColumn *Column)

{

TLocateOptionsSearchOptions;

intn,c;

n=DBGrid10->Fields [0] - >AsInteger;

if (n==0)

{

ComboBox2->Text="Приход";

Label1->Caption=" Количество поступившего товара ";

Label2->Caption=" Дата поступления ";

Label3->Caption=" Цена поступления ";

}

if (n==1)

{

ComboBox2->Text="Списание";

Label1->Caption="Количество списанного товара";

Label2->Caption="Дата списания";

Label3->Caption="Стоимость";

}

if (n==2)

{

ComboBox2->Text="Возвратбрака";

Label1->Caption="Количество бракованного товара";

Label2->Caption="Дата возврата";

Label3->Caption="Стоимость";

}

ComboBox3->Text=DBGrid10->Fields [6] - >AsString;

ComboBox5->Text=DBGrid10->Fields [1] - >AsString;

ADOTable2->Locate ("NameTov",ComboBox5->Text,SearchOptions);

c=ADOTable2->FieldByName ("CodeKat") - >AsInteger;

ADOTable1->Locate ("CodeKat",c,SearchOptions);

ComboBox4->Text=ADOTable1->FieldByName ("NameKat") - >AsString;

Edit5->Text=DBGrid10->Fields [3] - >AsInteger;

Edit6->Text=DBGrid10->Fields [4] - >AsString;

DateTimePicker1->Date=DBGrid10->Fields [2] - >AsDateTime;

}

void __fastcall TForm1:: Button6Click (TObject *Sender)

{

if (ComboBox2->Text=="Учет")

{

ADOTable4->Edit ();

ADOTable4->FieldByName ("Code_op") - >AsInteger=0;

ADOTable4->FieldByName ("Colvo") - >AsInteger=StrToInt (Edit5->Text);

ADOTable4->FieldValues ["Data"] =DateTimePicker1->Date;

ADOTable4->FieldValues ["Price"] =StrToInt (Edit6->Text);

ADOTable4->FieldValues ["Summa"] = (StrToInt (Edit5->Text)) * (StrToInt (Edit6->Text));

ADOTable3->First ();

while (! ADOTable3->Eof)

if (ADOTable3->FieldByName ("NameF") - >AsString==ComboBox3->Text)

{

ADOTable4->FieldValues ["kodef"] =ADOTable3->FieldValues ["codef"];

break;

}

else ADOTable3->Next ();

ADOTable2->First ();

while (! ADOTable2->Eof)

if (ADOTable2->FieldByName ("NameTov") - >AsString==ComboBox5->Text)

{

ADOTable4->FieldValues ["CodeTov"] =ADOTable2->FieldValues ["CodeTov"];

break;

}

else ADOTable2->Next ();

ADOTable4->Post ();

Prihod ();

}

if (ComboBox2->Text=="Списание")

{

ADOTable4->Edit ();

ADOTable4->FieldByName ("Code_op") - >AsInteger=1;

ADOTable4->FieldByName ("Colvo") - >AsInteger=StrToInt (Edit5->Text);

ADOTable4->FieldValues ["Data"] =DateTimePicker1->Date;

ADOTable4->FieldValues ["Price"] =StrToInt (Edit6->Text);

ADOTable4->FieldValues ["Summa"] = (StrToInt (Edit5->Text)) * (StrToInt (Edit6->Text));

ADOTable3->First ();

while (! ADOTable3->Eof)

if (ADOTable3->FieldByName ("NameF") - >AsString==ComboBox3->Text)

{

ADOTable4->FieldValues ["codef"] =ADOTable3->FieldValues ["codef"];

break;

}

else ADOTable3->Next ();

ADOTable2->First ();

while (! ADOTable2->Eof)

if (ADOTable2->FieldByName ("NameTov") - >AsString==ComboBox5->Text)

{

ADOTable4->FieldValues ["CodeTov"] =ADOTable2->FieldValues ["CodeTov"];

break;

}

else ADOTable2->Next ();

ADOTable4->Post ();

Rashod ();

}

if (ComboBox2->Text=="Списание")

{

ADOTable4->Edit ();

ADOTable4->FieldByName ("Code_op") - >AsInteger=2;

ADOTable4->FieldByName ("Colvo") - >AsInteger=StrToInt (Edit5->Text);

ADOTable4->FieldValues ["Data"] =DateTimePicker1->Date;

ADOTable4->FieldValues ["Price"] =StrToInt (Edit6->Text);

ADOTable4->FieldValues ["Summa"] = (StrToInt (Edit5->Text)) * (StrToInt (Edit6->Text));

ADOTable3->First ();

while (! ADOTable3->Eof)

if (ADOTable3->FieldByName ("NameF") - >AsString==ComboBox3->Text)

{

ADOTable4->FieldValues ["kodef"] =ADOTable3->FieldValues ["codef"];

break;

}

else ADOTable3->Next ();

ADOTable2->First ();

while (! ADOTable2->Eof)

if (ADOTable2->FieldByName ("NameTov") - >AsString==ComboBox5->Text)

{

ADOTable4->FieldValues ["CodeTov"] =ADOTable2->FieldValues ["CodeTov"];

break;

}

else ADOTable2->Next ();

ADOTable4->Post ();

Sp ();

}

colvo ();

}

void __fastcall TForm1:: Button7Click (TObject *Sender)

{

int i;

if (ComboBox2->Text=="Учет")

{

i=MessageDlg ("Выдействительнохотитиеудалить?",mtConfirmation,TMsgDlgButtons () <<mbYes<<mbNo,0);

if (i==mrYes)

ADOTable4->Delete ();

Prihod ();

}

if (ComboBox2->Text=="Списание")

{

i=MessageDlg ("Выдействительнохотитиеудалить?",mtConfirmation,TMsgDlgButtons () <<mbYes<<mbNo,0);

if (i==mrYes)

ADOTable4->Delete ();

Rashod ();

}

if (ComboBox2->Text=="Возвратбрака")

{

i=MessageDlg ("Выдействительнохотитиеудалить?",mtConfirmation,TMsgDlgButtons () <<mbYes<<mbNo,0);

if (i==mrYes)

ADOTable4->Delete ();

Sp ();

}

colvo ();

}

void __fastcall TForm1:: Button14Click (TObject *Sender)

{

int S1=0,S2=0,S3=0;

ADOTable4->First ();

while (! ADOTable4->Eof)

{

if ( (ADOTable4->FieldByName ("Code_op") - >AsInteger==0))

S1+=ADOTable4->FieldByName ("Summa") - >AsInteger;

if ( (ADOTable4->FieldByName ("Code_op") - >AsInteger==1))

S2+=ADOTable4->FieldByName ("Summa") - >AsInteger;

if ( (ADOTable4->FieldByName ("Code_op") - >AsInteger==2))

S3+=ADOTable4->FieldByName ("Summa") - >AsInteger;

ADOTable4->Next ();

}

Form1->QRLabel1->Caption="Сумманабалансепоинвентаризаций "+Date ();

// Form1->QRLabe2->Caption="Суммаучета";

// Form1->QRLabe3->Caption="Сумма списания";

Form1->QRLabel5->Caption=IntToStr (S1);

Form1->QRLabel6->Caption=IntToStr (S2);

Form1->QRLabel7->Caption=IntToStr (S3);

// Form1->ADODataSet1->Active=True;

Form1->QuickRep1->Preview ();

}

// DBChart1->Visible=true;

// DBChart2->Visible=false;

// DBChart3->Visible=false;

void __fastcall TForm1:: Button16Click (TObject *Sender)

{

Form1->QRLabel15->Caption="Отчетпоинвентарнымномерамотфирмы"+ComboBox10->Text+"На балансе предприятия на дату"+Date ();

Form1->QRLabel16->Caption="Инвентарный номер";

Form1->QRLabel17->Caption="Категория";

Form1->QRLabel18->Caption="Инвентарь";

Form1->QRLabel19->Caption="Стоимость";

Form1->QRDBText7->DataSet=Form1->ADODataSet2;

Form1->QRDBText7->DataField="Codetov";

Form1->QRDBText8->DataSet=Form1->ADODataSet2;

Form1->QRDBText8->DataField="NameKat";

Form1->QRDBText9->DataSet=Form1->ADODataSet2;

Form1->QRDBText9->DataField="NameTov";

Form1->QRDBText10->DataSet=Form1->ADODataSet2;

Form1->QRDBText10->DataField="Price";

ADOQuery3->Close ();

ADOQuery3->SQL->Clear ();

ADOQuery3->SQL->Add ("Select p4. NameKat,p2. Codetov,p2. NameTov, p1. Price from Prihod_Rashod p1, tovar p2, firm p3, Kategory p4 where (p1. CodeTov=p2. CodeTov) and (p1. kodef=p3. codef) and (p4. CodeKat=p2. CodeKat) and (p1. Code_op=1) and (p3. NameF=: d)");

ADOQuery3->Parameters->Items [0] - >Value=ComboBox10->Text;

ADOQuery3->Open ();

// ADOQuery2->Open ();

// Form1->ADODataSet2->Active=True;

Form1->QuickRep3->Preview ();

}

void __fastcall TForm1:: Button17Click (TObject *Sender)

{

// DBChart1->Visible=false;

// DBChart2->Visible=false;

// DBChart3->Visible=true;

}

void __fastcall TForm1:: ComboBox11Click (TObject *Sender)

{

TLocateOptionss; int fc;

// ADOTable1->Locate ("namekat",ComboBox11->Text,s);

// fc=ADOTable1->FieldByName ("codekat") - >AsInteger;

// DBChart1->Visible=false;

// DBChart2->Visible=true;

// DBChart3->Visible=false;

}

void __fastcall TForm1:: TabSheet8Show (TObject *Sender)

{

// Combo=ComboBox11;

zapK ();

}

void __fastcall TForm1:: Button15Click (TObject *Sender)

{

Form1->QRLabel9->Caption="Инвентарь";

Form1->QRLabel10->Caption="Количество";

Form1->QRLabel11->Caption="Цена";

Form1->QRLabel12->Caption="Дата";

Form1->QRLabel14->Caption="Учет/списание";

Form1->QRLabel13->Caption="Фирма";

Form1->QRDBText1->DataSet=Form1->ADODataSet1;

Form1->QRDBText1->DataField="NameKat";

Form1->QRDBText2->DataSet=Form1->ADODataSet1;

Form1->QRDBText2->DataField="Colvo";

Form1->QRDBText3->DataSet=Form1->ADODataSet1;

Form1->QRDBText3->DataField="Price";

Form1->QRDBText4->DataSet=Form1->ADODataSet1;

Form1->QRDBText4->DataField="Data";

Form1->QRDBText5->DataSet=Form1->ADODataSet1;

Form1->QRDBText5->DataField="NameF";

Form1->QRDBText6->DataSet=Form1->ADODataSet1;

Form1->QRDBText6->DataField="Code_op";

ADOQuery2->Close ();

if (RadioButton4->Checked)

{

// ADOQuery2->Close ();

Form1->QRLabel8->Caption="Отчетпокатегорий"+ComboBox6->Text+" надату "+Date ();

ADOQuery2->SQL->Clear ();