87
float kol, cena;
tovar()
{
kol=0;
}
~tovar()
{}
};
__fastcall TForm3::TForm3(TComponent* Owner)
: TForm(Owner)
{
int i,n;
n=ADOTable2->RecordCount;
ADOTable1->First();
for (i=0; i < n; i++)
{
ComboBox1->Items->Add(ADOTable2->Fields-
>FieldByName("Наименование")->AsString);
ADOTable2->Next();
}
}
void __fastcall TForm3::SpeedButton4Click(TObject *Sender)
{
Form1->Show();
Form3->Close();
}
void __fastcall TForm3::Button1Click(TObject *Sender)
{
88
int i;
float s=0,
n=ADOTable1->RecordCount;
tovar *a = new tovar[n];
ADOTable1->First();
for (i=0; i < n; i++)
{
a[i].kol=ADOTable1->Fields->FieldByName("Количество")->AsFloat;
a[i].cena=ADOTable1->Fields->FieldByName("Цена")->AsFloat;
s=s+a[i].kol*a[i].cena;
ADOTable1->Next();
}
Label1->Caption=FloatToStr(s);
ShowMessage("Итого по накладным: "+FloatToStr(s)+" руб.");
delete []a;
}
void __fastcall TForm3::Button2Click(TObject *Sender)
{
int i;
float s=0,
n=ADOTable1->RecordCount;
tovar *a = new tovar[n];
ADOTable1->First();
for (i=0; i < n; i++)
{
a[i].naz=ADOTable1->Fields->FieldByName("Наименование товара")-
>AsString;
ADOTable1->Next();
89
}
ADOTable1->First();
for (i=0; i < n; i++)
{
if (ComboBox1->Text == a[i].naz)
{
a[i].kol=ADOTable1->Fields->FieldByName("Количество")->AsFloat;
a[i].cena=ADOTable1->Fields->FieldByName("Цена")->AsFloat;
s=s+a[i].kol*a[i].cena;
}
ADOTable1->Next();
}
ShowMessage("Итого по товару "+ComboBox1->Text+" "+FloatToStr(s)+"
руб.");
delete []a;
}
void __fastcall TForm4::SpeedButton4Click(TObject *Sender)
{
Form4->ADOTable1->Filtered = false;
Form1->Show();
Form4->Close();
}
void __fastcall TForm4::SpeedButton1Click(TObject *Sender)
{
AnsiString s;
s=s+"Наименование" + "='" + Edit1->Text + "'";
Form4->ADOTable1->Filter = s;
Form4->ADOTable1->Filtered = true;
}
90
void __fastcall TForm4::SpeedButton2Click(TObject *Sender)
{
Form4->ADOTable1->Filtered = false;
Edit1->Text="";
}
class TForm3 : public TForm
{
__published: // IDE-managed Components
TSpeedButton *SpeedButton4;
TDataSource *DataSource1;
TDBGrid *DBGrid1;
TDBNavigator *DBNavigator1;
TADOConnection *ADOConnection1;
TADOTable *ADOTable1;
TLabel *Label1;
TButton *Button1;
TADOTable *ADOTable2;
TComboBox *ComboBox1;
TButton *Button2;
void __fastcall SpeedButton4Click(TObject *Sender);
void __fastcall Button1Click(TObject *Sender);
void __fastcall Button2Click(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TForm3(TComponent* Owner);
};