Автоматизированная информационная система «Малое авторемонтное предприятие»

     BOOLEAN bol;

     String a,b,f,f1,i;

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

     __fastcall TForm2::TForm2(TComponent* Owner)

             : TForm(Owner)

     {

     }

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

     void __fastcall TForm2::BitBtn1Click(TObject *Sender)

     {

     Form2->Hide();

     Form1->Show();

     }

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

     void __fastcall TForm2::Button1Click(TObject *Sender)

     {

     ADOTable1->Append();

     DBGrid1->SetFocus();

     Form3->Show();

     }

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

     void __fastcall TForm2::N1Click(TObject *Sender)

     {

     Form1->Show();

     Form2->Hide();

     }

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

     void __fastcall TForm2::N4Click(TObject *Sender)

     {

     Form2->Close();

     }

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

     void __fastcall TForm2::Button2Click(TObject *Sender)

     {

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

     ShowMessage("Ошибка");

     else {

     ADOTable1->Delete();

     ShowMessage("Данные  удалены");

     } }

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

     void __fastcall TForm2::Button3Click(TObject *Sender)

     {

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

      ShowMessage("ia?aai ?aaaeoe?iaaou");

      else{Form4->ShowModal();}

     }

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

     void __fastcall TForm2::Button4Click(TObject *Sender)

     {

     if (bol==false) {

     Memo1->Lines->Add("-----------------------------------------------------------------------------------------");

     Memo1->Lines->Add("Авто: "+ADOTable1->Fields->Fields[1]->AsString);

     Memo1->Lines->Add("Марка: "+ADOTable1->Fields->Fields[2]->AsString);

     Memo1->Lines->Add("Запчасти: "+ADOTable1->Fields->Fields[3]->AsString);

     Memo1->Lines->Add("Количество: "+Edit1->Text);

     Memo1->Lines->Add("Стоимось: "+ADOTable1->Fields->Fields[4]->AsString);

     //Memo1->Lines->Add("Общая  цена "+IntToStr(StrToInt(Edit1->Text)*StrToInt(ADOTable1->Fields->Fields[4]));

     //summa=summa+StrToInt(Edit2->Text)*ADOTable1->Fields->Fields[4]->AsInteger;

     //Edit1->Text=1;

     //Label4->Caption="Итого за покупку: "+ FloatToStr(summa)+ " рублей" ;

     }

     }

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

     void __fastcall TForm2::Button5Click(TObject *Sender)

     {

     ADOTable1->Last();

     x=ADOTable1->Fields->Fields[0]->AsInteger;

     do {

     ADOTable1->Delete();

     ADOTable1->Next();       }

     while (ADOTable1->Eof!=true);

     ADOTable1->Insert();

     x++;

     ADOTable1->Fields->Fields[0]->AsInteger=x;

     ADOTable1->Post();

     ADOTable1->Last();

     if (StrToInt(Edit2->Text)>=summa) {

     if (summa!=0) {

     if (bol==false) {

     bol=true;

     Memo1->Lines->Add("-----------------------------------------------------------------------------------------");

     Memo1->Lines->Add("Итого: "+FloatToStr(summa)+ " рублей");

     if (Edit2->Text!="") {

     Memo1->Lines->Add("Внесена  оплата: "+Edit2->Text);

     Memo1->Lines->Add("Сдача: "+FloatToStr(StrToInt(Edit2->Text)-summa));

     }

     Memo1->Lines->Add("Кассир:"+i);

     Memo1->Lines->Add("Чек  №"+ADOTable1->Fields->Fields[0]->AsString+"  "+Date());

     Memo1->Lines->Add("---------------------------Спасибо за покупку!!!-------------------------");

     }

     if (Edit2->Text!=""){

     ShowMessage("Итого: "+FloatToStr(summa)+ " рублей"+

     " Внесена оплата: "+Edit2->Text+" Сдача: "+FloatToStr(StrToInt(Edit2->Text)-summa));

     } else ShowMessage("Итого: "+FloatToStr(summa)+ " рублей");

     } else ShowMessage("Нет покупок!!!"); }

     else ShowMessage("Недостаточно денег на покупку"); }

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

     void __fastcall TForm2::Button6Click(TObject *Sender)

     {

     summa=0;

     Memo1->Clear();

     Memo1->Lines->Add("      -----------Авторемонт--------------");

     Memo1->Lines->Add("---------------Чек покупателю------------");

     bol=false;

     Edit2->Text="0";

     Label4->Caption=" ";

     }

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

     void __fastcall TForm2::N5Click(TObject *Sender)

     {

     ADOTable1->IndexFieldNames="Авто";

     }

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

     void __fastcall TForm2::N7Click(TObject *Sender)

     {

     ADOTable1->IndexFieldNames="Стоимось";

     }

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

     void __fastcall TForm2::N6Click(TObject *Sender)

     {

     ADOTable1->IndexFieldNames="Марка";       

     }

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

     void __fastcall TForm2::Button7Click(TObject *Sender)

     {

     String zapros, c1,c2,a,m;

     zapros="";

     zapros="SELECT * FROM Avtoremont.Zapchasti WHERE ";

     c1=Edit5->Text; c2=Edit7->Text;

     zapros=zapros+"Стоимось >="+c1;

     zapros=zapros+"and "+ "Стоимось <= "+c2;

     if (Edit4->Text!="")

     {a=Edit4->Text;

     zapros=zapros+" and "+ " Авто like "+"'"+a+"'";}

     if (Edit6->Text!="")

     {m=Edit6->Text;

     zapros=zapros+" and "+ " Марка like "+"'"+m+"'";}

     zapros=zapros+";";

     ADOQuery1->Close();

     ADOQuery1->SQL->Clear();

     ADOQuery1->SQL->Add(zapros);

     ADOQuery1->ExecSQL();

     ADOQuery1->Active=true;

     if (ADOQuery1->RecordCount==0)

     { ShowMessage("Ничего не найдено!");

     DataSource1->DataSet=ADOTable1; }

     else DataSource1->DataSet=ADOQuery1;

     }

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

     Unit3 

     #include <vcl.h>

     #pragma hdrstop

     #include "Unit3.h"

     #include "Unit2.h"

     # include "Unit2.h"

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

     #pragma package(smart_init)

     #pragma resource "*.dfm"

     TForm3 *Form3;

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

     __fastcall TForm3::TForm3(TComponent* Owner)

             : TForm(Owner)

     {

     }

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

     void __fastcall TForm3::Button1Click(TObject *Sender)

     {

     Form3->Close();

     }

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

     Unit4 

     #include <vcl.h>

     #pragma hdrstop

     #include "Unit4.h"

     #include "Unit2.h"

     # include "Unit2.h"

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

     #pragma package(smart_init)

     #pragma resource "*.dfm"

     TForm4 *Form4;

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

     __fastcall TForm4::TForm4(TComponent* Owner)

             : TForm(Owner)

     {

     }

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

     void __fastcall TForm4::Button1Click(TObject *Sender)

     {

     if(Form2->ADOTable1->Modified==true)

       Form2->ADOTable1->Post();

       Form2->Show();

      Form4->Close();       

     }

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

     Приложение  Б - диаграмма вариантов использования