СПИСОК ИСПОЛЬЗУЕМЫХ ИСТОЧНИКОВ
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(); } //---------------------------------------------------------------------------
Приложение Б - диаграмма вариантов использования
Популярное: Личность ребенка как объект и субъект в образовательной технологии: В настоящее время в России идет становление новой системы образования, ориентированного на вхождение... Модели организации как закрытой, открытой, частично открытой системы: Закрытая система имеет жесткие фиксированные границы, ее действия относительно независимы... ©2015-2024 megaobuchalka.ru Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. (269)
|
Почему 1285321 студент выбрали МегаОбучалку... Система поиска информации Мобильная версия сайта Удобная навигация Нет шокирующей рекламы |