Розроблена програма зберігає дані у файл. Крім цього, у програмі організований пошук.
Також були придбанні навички застосування основних концепцій об’єктно-орієнтованого програмування, написання програми із застосуванням компонентів для роботи з даними, створення програми, передбачаючи можливі виняткові ситуації, застосування стандартних діалогів, виконавши всі попередні настроювання даних компонентів, написання програми із застосуванням компонентів для створення головного й контекстного меню, застосування графічних компонентів у програмах, збереження й зчитування даних з файлів із застосуванням процедур і функцій, компонентів для роботи з файлами й каталогами.
Створений додаток дозволяє автоматизувати роботу співробітників ДАІ.
Список використаної літератури:
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();
}
//---------------------------------------------------------------------------