Навигация
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();
}
//---------------------------------------------------------------------------
Похожие работы
... виникнення доходу, а не при його використанні, то за економічним змістом об’єкта оподаткування він відноситься до податків на доходи. Він поєднує ознаки прямого і непрямого оподаткування. 8.1. Податковий облік та звітність суб’єктів малого підприємництва – юридичних осіб Перехід на спрощену систему оподаткування для юридичних осіб – суб’єктів підприємницької діяльності – можливий з будь- ...
... буквою R у колі. Фірмові імена, фірмові знаки і товарні образи являють собою маркетингові позначення і не забезпечують юридичного захисту від використання конкурентами, якщо не зареєстровані як товарні знаки. Варто мати на увазі, що товарний знак є складовою частиною більш широкого поняття — «фірмового стилю», займаючи в ньому провідне місце. Фірмовий стиль — сукупність прийомів (графічних, колі ...
... підписує документ. У цьому випадку всю повноту відповідальності за незаконність операції несе керівник підприємства. Висновки і пропозиції Досліджуючи тему «Удосконалення організації обліку на підприємстві», базою написання курсової роботи є підприємство Відкрите Акціонерне Товариство «Промінь», яке розміщене в Лісостеповій природно-кліматичній зоні України, на Черкащині, в селі Білашки, ...
... нараховується; визначення орендної плати - за фінансовою включає відсотки банку за кредит, плату за страхування об'єкта і т.п. Тому ці особливості доводиться враховувати також в управлінському обліку, коригуючи витрати центрів відповідальності у залежності від власності на основні засоби. Хоч це в більшій мірі стосується планування бюджетів центрів відповідальності, однак враховується і в управлі ...
0 комментариев