Приложение, позволяющее быстро и просто анализировать содержание книжных складов

void __fastcall TFormKnRed::Edit8KeyPress(TObject *Sender, char &Key)

{

if((Key<'0')||(Key>'9')) {Key=0;Beep();}

}

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

void __fastcall TFormKnRed::ComboBox1Change(TObject *Sender)

{

ComboBox2->ItemIndex=ComboBox1->ItemIndex;

int id=StrToInt(ComboBox2->Text);

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

FormSclad->IBQuery3->SQL->Add("select * from BOOKS where id_book="+IntToStr(id));

FormSclad->IBQuery3->Open();

Edit2->Text=FormSclad->IBQuery3->FieldByName("NAME")->AsString;

Edit3->Text=FormSclad->IBQuery3->FieldByName("AUTHOR")->AsString;

Edit4->Text=FormSclad->IBQuery3->FieldByName("PUBLISHER")->AsString;

Edit5->Text=FormSclad->IBQuery3->FieldByName("YEAR")->AsInteger;

Edit6->Text=FormSclad->IBQuery3->FieldByName("CIRCUATION")->AsInteger;

Edit7->Text=FormSclad->IBQuery3->FieldByName("KNOWLEDGE")->AsString;

Edit8->Text=FormSclad->IBQuery3->FieldByName("COST")->AsInteger;

}

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

Редактирование таблицы «Продажи»(Sales.cpp)

#include <vcl.h>

#pragma hdrstop

#include "Sales.h"

#include "Sclad_unit.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TFormSales *FormSales;

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

__fastcall TFormSales::TFormSales(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall TFormSales::Button2Click(TObject *Sender)

{

Close();

}

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

void __fastcall TFormSales::Button1Click(TObject *Sender)

{

if (StrLen(Edit3->Text.c_str())>5) ShowMessage("Слишком уж, Вы, цену загибаете!!!");

if (Edit3->Text=="") ShowMessage("Бесплатно-то зачем отдавать!!!");

if ((StrLen(Edit3->Text.c_str())<=5)&&(Edit3->Text!=""))

{

bool flag_close=true;

int all=StrToInt(ComboBox1->Text)*(FormSclad->IBQuery2->FieldByName("ITEM_AMOUNT")->AsInteger)*StrToInt(Edit3->Text);

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

try {

FormSclad->IBQuery4->SQL->Add("insert into Sales (SALE_DATE, COST, AMOUNT,ALL_COST, ID_WARHOUSES, ID_BOOK) values ('" +

DateToStr(DateTimePicker1->Date)+ "', "+Edit3->Text + ", " +

ComboBox1->Text + ","+all+","+ FormSclad->IBQuery1->FieldByName("id_warhouses")->AsInteger + ","+FormSclad->IBQuery3->FieldByName("id_book")->AsInteger+ ")");

FormSclad->IBQuery4->ExecSQL();

}

catch (...) {

Application->MessageBox("Неверно введены данные", "Ошибка", MB_OK + MB_ICONSTOP);

flag_close=false;

}

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

FormSclad->IBQuery4->SQL->Add("select * from SALES");

FormSclad->IBQuery4->Open();

int pi=FormSclad->IBQuery2->FieldByName("PACK_AMOUNT")->AsInteger;

pi=pi-StrToInt(ComboBox1->Text);

if (pi==0)

{

int id=FormSclad->IBQuery2->FieldByName("id")->AsInteger;

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

FormSclad->IBQuery2->SQL->Add("delete from Presences where id="+IntToStr(id));

FormSclad->IBQuery2->ExecSQL();

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

FormSclad->IBQuery2->SQL->Add("select * from PRESENCES P where(P. ID_WARHOUSES=:ID_WARHOUSES)");

FormSclad->IBQuery2->Open();

}

else

{

int idt=FormSclad->IBQuery2->FieldByName("id")->AsInteger;

bool flag_close=true;

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

try {

FormSclad->IBQuery2->SQL->Add("update Presences Set PACK_AMOUNT=" + IntToStr(pi)+ "where id="+IntToStr(idt));

FormSclad->IBQuery2->ExecSQL();

}

catch(...) {

Application->MessageBox("Неверно введены данные", "Ошибка", MB_OK + MB_ICONSTOP);

flag_close=false;

}

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

FormSclad->IBQuery2->SQL->Add("select * from PRESENCES P where(P. ID_WARHOUSES=:ID_WARHOUSES)");

FormSclad->IBQuery2->Open();

}

if(flag_close) FormSales->Close();

}

}

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

void __fastcall TFormSales::Edit3KeyPress(TObject *Sender, char &Key)

{

if((Key<'0')||(Key>'9')) {Key=0;Beep();}

}

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

Поиск книг (FindBook.cpp)

#include <vcl.h>

#pragma hdrstop

#include "FindBook.h"

#include "Sclad_unit.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TFormFind *FormFind;

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

__fastcall TFormFind::TFormFind(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall TFormFind::Button1Click(TObject *Sender)

{

if (ComboBox1->ItemIndex==0)

{IBQuery1->SQL->Clear();

IBQuery1->SQL->Add("select * from BOOKS where AUTHOR='"+Edit1->Text+"'order by NAME");

IBQuery1->Open();

}

if (ComboBox1->ItemIndex==1)

{IBQuery1->SQL->Clear();

IBQuery1->SQL->Add("select * from BOOKS where PUBLISHER='"+Edit1->Text+"'order by NAME");

IBQuery1->Open();

}

if (ComboBox1->ItemIndex==2)

{IBQuery1->SQL->Clear();

IBQuery1->SQL->Add("select * from BOOKS where KNOWLEDGE='"+Edit1->Text+"'order by NAME");

IBQuery1->Open();

}

}

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

void __fastcall TFormFind::Button2Click(TObject *Sender)

{

IBQuery1->SQL->Clear();

IBQuery1->SQL->Add("select * from BOOKS order by NAME");

IBQuery1->Open();

}

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

void __fastcall TFormFind::Button3Click(TObject *Sender)

{

Close();

}

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

Размещено на Allbest.ru