|
p align="left">Рис. 4.2.1 Вікно «Открыть файл». Рис.4.2.2 Додавання даних. 4.3 Пошук даних Для пошуку даних необхідно внести шукану інформацію в по шукачі (Рис. 4.3.1). Рис. 4.3.1 Пошук даних 4.4 Збереження даних Зберегти дані можна за допомогою кнопки «Сохранить» (Рис. 4.4.1). Рис. 4.4.1 Збереження даних Висновок У результаті виконання курсової роботи були придбані й удосконалені навички оволодіння методикою зборів, систематизації й узагальнення вихідної інформації, обробки теоретичних і практичних матеріалів, обґрунтовуючи висновки й пропозиції, написання й оформлення курсової роботи відповідно до існуючих вимог, логічно викладаючи результати своїх досліджень, розробки програмних додатків обраною мовою програмування відповідно до поставленого завдання, оформлення своїх програмних продуктів відповідно до сучасних вимог подання інтерфейсів. При створенні цього програмного забезпечення була виконана наступна мета: створити додаток, що дозволяє істотно спростити введення обліку зареєстрованих автомобілів в ДАІ. Розроблена програма зберігає дані у файл. Крім цього, у програмі організований пошук. Також були придбанні навички застосування основних концепцій об'єктно-орієнтованого програмування, написання програми із застосуванням компонентів для роботи з даними, створення програми, передбачаючи можливі виняткові ситуації, застосування стандартних діалогів, виконавши всі попередні настроювання даних компонентів, написання програми із застосуванням компонентів для створення головного й контекстного меню, застосування графічних компонентів у програмах, збереження й зчитування даних з файлів із застосуванням процедур і функцій, компонентів для роботи з файлами й каталогами. Створений додаток дозволяє автоматизувати роботу співробітників ДАІ. Список використаної літератури: 1. Архангельський А.С. Borland C builder. 2. Джаррод Холінгворт, Боб Сворт, Марк Кешмен, Поль Густавсон Borland C + + Builder 6. Керівництво розробника = Borland C + + Builder 6 Developer's Guide. - М.: «Вільямс», 2004. - С. 976. - ISBN 0-672-32480-6 3. Джерод Холлінгворс, Ден Баттерфілд, Боб свот C + + Builder 5. Керівництво розробника = C + + Builder 5 Developer's Guide. - М.: «Діалектика», 2001. - С. 884. - ISBN 0-672-31972-1 4. Краснов М. Графіка в проектах Borland C builder. - Санкт-Петербург: БХВ, 1998. - 356 с. 5. Проценко С. С., Чаленко П. Й., Ставровській А. Б. Техніка програмування на мові Сі. - До: Лебідь, 1993 - 224 с. 6. Шелест С. Д. Програмування: материал технічної інформації. Санкт-Петербург: БХВ, 2002. - 592 с. 7. http://www.compdoc.ru/prog/builder/builder/3.shtml 8. http://citforum.ru/programming/application/cb2.shtml 9. http://cbuilder.ru/ Додаток Лістинг програми: //--------------------------------------------------------------------------- #include <vcl.h> #pragma hdrstop #include "Unit1.h" #include "Unit3.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; float p=1,b=1,l,g,m,x,a,c,d,e,buff,Find,z=1,w=0.3,k; int i; AnsiString aFileName; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { aFileName = ""; } //--------------------------------------------------------------------------- // Кнопка закрыть void __fastcall TForm1::BitBtn1Click(TObject *Sender) { Form1->Close(); } //--------------------------------------------------------------------------- void __fastcall TForm1::StringGrid1Click(TObject *Sender) { StringGrid1->Options = StringGrid1->Options >> goEditing; } //--------------------------------------------------------------------------- void __fastcall TForm1::BitBtn2Click(TObject *Sender) { if (p>=1) { StringGrid1->RowCount = StringGrid1->RowCount+1; StringGrid1->Cells[0][b]=p; p=p+1; } if ( Edit1->Text =="") { ShowMessage("Введите Номер телефона"); } else { StringGrid1->Cells[1][b]=Edit1->Text; } if ( Edit4->Text =="") { ShowMessage("Введите Ф.И.О. аб."); } else { StringGrid1->Cells[2][b]=Edit4->Text; } if ( ComboBox1->Text=="" ) { ShowMessage("Выберите Вашего Оператор"); } else { StringGrid1->Cells[3][b]= ComboBox1->Text; } if ( ComboBox2->Text=="" ) { ShowMessage("Выберите Оператора вызываемого абонента"); } else { StringGrid1->Cells[4][b]= ComboBox2->Text; } if ( Edit2->Text=="" ) { ShowMessage("Введите продолжительность звонка"); } else { StringGrid1->Cells[5][b]=Edit2->Text; } //Для МТСа if (ComboBox1->Text =="МТС" && ComboBox2->Text == "МТС" ) { StringGrid1->Cells[6][b]= w; } if (ComboBox1->Text =="МТС" && ComboBox2->Text == "Киевстар" ) { StringGrid1->Cells[6][b]= z; } if (ComboBox1->Text =="МТС" && ComboBox2->Text == "Life :)" ) { StringGrid1->Cells[6][b]= z; } if (ComboBox1->Text =="МТС" && ComboBox2->Text == "Билайн" ) { StringGrid1->Cells[6][b]= z; } if (ComboBox1->Text =="МТС" && ComboBox2->Text == "Городской телефон" ) { StringGrid1->Cells[6][b]= z; } //Для Киевстара if (ComboBox1->Text =="Киевстар" && ComboBox2->Text == "Киевстар" ) { StringGrid1->Cells[6][b]= w; } if (ComboBox1->Text =="Киевстар" && ComboBox2->Text == "МТС" ) { StringGrid1->Cells[6][b]= z; } if (ComboBox1->Text =="Киевстар" && ComboBox2->Text == "Life :)" ) { StringGrid1->Cells[6][b]= z; } if (ComboBox1->Text =="Киевстар" && ComboBox2->Text == "Билайн" ) { StringGrid1->Cells[6][b]= z; } if (ComboBox1->Text =="Киевстар" && ComboBox2->Text == "Городской телефон" ) { StringGrid1->Cells[6][b]= z; } //Для Life :) if (ComboBox1->Text =="Life :)" && ComboBox2->Text == "Life :)" ) { StringGrid1->Cells[6][b]= w; } if (ComboBox1->Text =="Life :)" && ComboBox2->Text == "МТС" ) { StringGrid1->Cells[6][b]= z; } if (ComboBox1->Text =="Life :)" && ComboBox2->Text == "Киевстар" ) { StringGrid1->Cells[6][b]= z; } if (ComboBox1->Text =="Life :)" && ComboBox2->Text == "Билайн" ) { StringGrid1->Cells[6][b]= z; } if (ComboBox1->Text =="Life :)" && ComboBox2->Text == "Городской телефон" ) { StringGrid1->Cells[6][b]= z; } //Для Билайна if (ComboBox1->Text =="Билайн" && ComboBox2->Text == "Билайн" ) { StringGrid1->Cells[6][b]= w; } if (ComboBox1->Text =="Билайн" && ComboBox2->Text == "МТС" ) { StringGrid1->Cells[6][b]= z; } if (ComboBox1->Text =="Билайн" && ComboBox2->Text == "Киевстар" ) { StringGrid1->Cells[6][b]= z; } if (ComboBox1->Text =="Билайн" && ComboBox2->Text == "Life :)" ) { StringGrid1->Cells[6][b]= z; } if (ComboBox1->Text =="Билайн" && ComboBox2->Text == "Городской телефон" ) { StringGrid1->Cells[6][b]= z; } //Для Городского телефона if (ComboBox1->Text =="Городской телефон" && ComboBox2->Text == "Городской телефон" ) { StringGrid1->Cells[6][b]= w; } if (ComboBox1->Text =="Городской телефон" && ComboBox2->Text == "МТС" ) { StringGrid1->Cells[6][b]= z; } if (ComboBox1->Text =="Городской телефон" && ComboBox2->Text == "Киевстар" ) { StringGrid1->Cells[6][b]= z; } if (ComboBox1->Text =="Городской телефон" && ComboBox2->Text == "Life :)" ) { StringGrid1->Cells[6][b]= z; } if (ComboBox1->Text =="Городской телефон" && ComboBox2->Text == "Билайн" ) { StringGrid1->Cells[6][b]= z; } else { x= StrToFloat(StringGrid1->Cells[5][b]); l= StrToFloat(StringGrid1->Cells[6][b]); m= StrToFloat(x*l); StringGrid1->Cells[7][b] = m; } b=b+1; } //--------------------------------------------------------------------------- void __fastcall TForm1::FormCreate(TObject *Sender) { StringGrid1->Options << goEditing << goTabs; StringGrid1->FixedCols = 0; StringGrid1->Cells[0][0]="№"; StringGrid1->Cells[1][0]="Номер телефона"; StringGrid1->Cells[2][0]="Ф.И.О выз. аб."; StringGrid1->Cells[3][0]="Оператор выз. аб."; StringGrid1->Cells[4][0]="Оператор наб. аб."; StringGrid1->Cells[5][0]="Продолж звонка"; StringGrid1->Cells[6][0]="Стоимость 1 минуты (в грн.)"; StringGrid1->Cells[7][0]="Сумма к оплате"; StringGrid1->RowCount = 2; } //--------------------------------------------------------------------------- void __fastcall TForm1::BitBtn3Click(TObject *Sender) { int DeleteIndex = i; if(StringGrid1->RowCount > 2) { for ( int q = DeleteIndex,MaxRowIndex=StringGrid1->RowCount-1;q<MaxRowIndex;q++) StringGrid1->Rows[q]->Assign(StringGrid1->Rows[q+1]); StringGrid1->RowCount = StringGrid1->RowCount-1; b=b-1; int q=1; for(int x=1;x<=b;x++) { StringGrid1->Cells[0][x]=q; q=q+1; } p=p-1; } else { StringGrid1->Cells[1][1] = ""; StringGrid1->Cells[2][1] = ""; StringGrid1->Cells[3][1] = ""; StringGrid1->Cells[4][1] = ""; StringGrid1->Cells[5][1] = ""; StringGrid1->Cells[6][1] = ""; StringGrid1->Cells[7][1] = ""; } } //--------------------------------------------------------------------------- bool draw_it; void __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int ACol, int ARow, TRect &Rect, TGridDrawState State) { i=ARow; if (Find && Edit3->Text == StringGrid1->Cells[ACol][ARow]) { StringGrid1->Canvas->Brush->Color = clRed; //цвет StringGrid1->Canvas->FillRect(Rect); StringGrid1->Canvas->Font->Color = clWhite; StringGrid1->Canvas->TextOut(Rect.Left, Rect.Top, StringGrid1->Cells[ACol][ARow]); //Find = false; - раз комментировать если надо найти только первый экземпляр } } //--------------------------------------------------------------------------- void __fastcall TForm1::BitBtn4Click(TObject *Sender) { if(OpenDialog1->Execute()) { TStringList *pStrings = new TStringList; pStrings->LoadFromFile(OpenDialog1->FileName); StringGrid1->RowCount = pStrings->Count+1; for(int i=0; i < pStrings->Count; i++) { StringGrid1->Rows[i+1]->Delimiter = wchar_t(" "); StringGrid1->Rows[i+1]->DelimitedText = pStrings->Strings[i]; } delete pStrings; } } //--------------------------------------------------------------------------- void __fastcall TForm1::BitBtn5Click(TObject *Sender) { if(SaveDialog1->Execute()){TStringList *pStrings = new TStringList; for(int i=1; i <= StringGrid1->RowCount; i++) { pStrings->Add(StringGrid1->Cells[0][i] + " " + StringGrid1->Cells[1][i] + " " + StringGrid1->Cells[2][i]+ " " + StringGrid1->Cells[3][i]+ " " + StringGrid1->Cells[4][i]+ " " + StringGrid1->Cells[5][i]+ " " + StringGrid1->Cells[6][i]+ " " + StringGrid1->Cells[7][i]+ " " + StringGrid1->Cells[8][i]+ " " + StringGrid1->Cells[9][i]+ " " + StringGrid1->Cells[10][i]+ " " + StringGrid1->Cells[11][i]); } pStrings->SaveToFile(SaveDialog1->FileName); delete pStrings; } } //--------------------------------------------------------------------------- void __fastcall TForm1::BitBtn6Click(TObject *Sender) { Find = true; StringGrid1->Repaint(); } //--------------------------------------------------------------------------- void __fastcall TForm1::BitBtn7Click(TObject *Sender) { AboutBox->Show(); } //--------------------------------------------------------------------- #include <vcl.h> #pragma hdrstop #include "Unit3.h" //--------------------------------------------------------------------- #pragma resource "*.dfm" TAboutBox *AboutBox; //--------------------------------------------------------------------- __fastcall TAboutBox::TAboutBox(TComponent* AOwner) : TForm(AOwner) { } //--------------------------------------------------------------------- void __fastcall TAboutBox::OKButtonClick(TObject *Sender) { AboutBox->Close(); } //---------------------------------------------------------------------------
Страницы: 1, 2, 3, 4
| 
