СПИСОК ИСПОЛЬЗУЕМЫХ ИСТОЧНИКОВ

1. Архангельский, А. Я. Язык C++ в C++Builder : справочное и методическое пособие / А. Я. Архангельский .-- М. : Бином, 2008 .-- 942 с.

2. Боб Сворт, Джэйми Оллсоп C++Builder . Руководство разработчика.

3. Джарод Холингвэрт, Дэн Баттерфилд, Боб Сворт, Джэйми Оллсоп C++Builder 5. Руководство разработчика.

4. Елманова Н.З., Кошель С.П. Введение в Borland C++ Builder-М.:Диалог–МИФИ, 1997. 272 с.

5. Керниган Б, Ритчи Д. Язык программирования Си / Пер. с англ. Изд. 3-е испр. СПб.: Невский Диалект, 2001. 352 с.: ил.

6. Крячков А.В., Сухинина И.В., Томшин В.К. Программирование на С и С++. Практикум: Учеб. пособие для вузов/ Под ред. В.К.Томшина. Изд. 2-е испр. М.: Горячая линия – Телеком, 2000. 344с.:ил.

7. Методические указания по выполнению курсовой работы по дисциплине «Конструирование программ и языки программирования»./М.В Курешова – Витебск: УО «Витебский государственный технологический колледж», 2009. – с.50

8. Подбельский В.В., Фомин С.С. Программирование на языке Си: Учеб. пособие. Изд. 2-е доп. М.: Финансы и статистика, 2000. 600с.: ил.

9. Романов, В.Ю. Программирование на языке C++: Практ. подход .-- М. : Компьютер, 1993 .-- 157с.

10. Скляров В.А. Программирование на языках Си и Си++: Учеб. пособие. М.: Высш. школа, 1999. 288с.

11. Теллес, М. BORLAND C++ BUILDER: библиотека программиста . СПб : Питер, 1998 .-- 512с.

12. Технологии разработки программного обеспечения: Учебник/ С. Орлов. – СПб.: Питер, 2002. – 464 с.: ил.

13. Томшин В.К. Программирование на С и С++. Практикум: Учеб. пособие для вузов/ Под ред. В.К.Томшина. Изд. 2-е испр. М.: Горячая линия – Телеком, 2000. 344с.:ил.

14. C++ Builder 6. Справочное пособие. Книга 2. Классы и компоненты. – М.: Бином-Пресс, 2002г. – 528 с.: ил.

15. Borland C++ Builder 5. Энциклопедия программиста. Калверт Ч., Рейсдорф К., "ДиаСофт" - 2001, 944 стр.

 

 

ПРИЛОЖЕНИЕ А – листинг программы

Unit1

#include <vcl.h>

#pragma hdrstop

#include "Unit1.h"

#include "Unit2.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

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

__fastcall TForm1::TForm1(TComponent* Owner)

   : TForm(Owner)

{

}

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

 

void __fastcall TForm1::N1Click(TObject *Sender)

{

Form2->Show();

Form1->Hide();

}

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

void __fastcall TForm1::N4Click(TObject *Sender)

{

Form1->Close();

}

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

void __fastcall TForm1::Timer1Timer(TObject *Sender)

{

Label1->Caption=DateToStr(Date()) + " " +TimeToStr(Time());       

}

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

Unit2

#include <vcl.h>

#pragma hdrstop

#include "Unit2.h"

# include "Unit1.h"

# include "Unit3.h"

# include "Unit4.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm2 *Form2;

int summa,x;

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();       

}

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

 

 

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