Автоматизація ведення обліку прокату автомобілей

У локальній базі файли  даних зазвичай знаходяться на диску  того ж комп’ютера, на якому працює програма маніпулювання даними. Локальні бази даних не забезпечують одночасний доступ до інформації декільком користувачам. Безсумнівним достоїнством локальних баз являється висока швидкість доступу до інформації. Microsoft Access - це типова локальна база даних.

У віддалених базах дані розміщують на окремому комп'ютері (сервері). Програми, що забезпечують роботу з  віддаленими базами, будують за технологією "клієнт-сервер".

База даних - це набір  однорідної, як правило, упорядкованої  по деякому критерію інформація (або, іншими словами, записи).

На практиці найбільш широко використовуються реляційні  бази даних. Реляційні бази даних - це сукупність таблиць даних. В проекті використовується саме така база даних.

Існує досить багато технологій доступу до даних: BDE, ADO, dbExpress.

В даній програмі використовується технологія ADO.

Доступ до даних при  використанні технології ADO забезпечують компоненти ADOConnection, ADODataSet, ADOTable і ADOQuery, які знаходяться на вкладці ADO.

Компонент ADOConnection забезпечує з'єднання з базою даних.

Компонент ADODataSet представляє  дані, отримані від джерела даних  в результаті виконання SQL-запиту.

Компонент ADOTable також представляє дані, отримані з бази даних, але, на відміну від компонента ADODataSet, який може бути заповнений інформацією з різних таблиць, цей компонент представляє дані, отримані з однієї таблиці.

Компонент ADOQuery являє  собою дані, отримані з бази даних в результаті виконання SQL-команди.

Для зв'язку між даними, в якості яких може виступати компонент ADODataSet, ADOTable або ADOQuery, і компонентом, що забезпечує відображення даних (наприклад, DBGrid), використовується компонент DataSource.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

2.3. Інтерфейс та керівництво користувача, тестування проекту

Створення програми можна  розділити декілька етапів:

1. Створення бази даних «Автомобілі».
2. Розробка інтерфейсу програми.
3. Підключення БД «автомобілі» за допомогою технології ADO.
4. Реаліізацію пошуку, сортування та редагування даних.
5. Тестування програми.

Розглянемо інтерфейс:

Головне вікно програми:

Рис.2.2. Головна форма програми

 Форма «Автомобілі» дозволяє передивлятися дані по клієнтам, автомобілям, сортувати дані та редагувати:

Рис.2.3. Форма «Автомобілі»

При нажатті на кнопку «Клієнти» відображається форма  яка містить дані клієнта:

Форма клієнти «Пошук»:

Рис.2.4. Огранізація пошуку по клієнтах

Форма «Прокат» містить  дані про прокат автомобілів дату оформлення прокату та дату завершення.

Рис.2.5. Оформлення прокату, перегляд прокату

 

Висновок

Дана практика реалізована за допомогою об’єктно-орієнтовної мови програмування Borland C++ Builder, яка дозволяє програмісту моделювати об’єкти певної області шляхом програмування їх змісту і поведінки в межах класу. Середовище Borland C++ Builder є одним з самих популярних в світі, віно є зручним у використанні.

Система автоматизації  обліку прокату автомобілів полягала у :

- більш раціонально  використовувався час працівників  та клієнтів;

- покращити якість  обслуговування ;

- зменшити час для  роботи з базою даних;

- підвищити показники  продуктивності праці.

Програма реалізована  на мові С++ Builder з підключенням Бази Даних MS Access, яка дозволяє переглядати, додавати, сортувати, редагувати і видаляти дані із бази даних .

 

 

 

Список використаної літератури

1. Беспалько В.П. «Образование и обучение с участием компьютера (педагогика третьего тысячелетия)». М.: Изд-во Моск. психол. — соц. Ин-та; Воронеж: Изд-во НПО "МОДЭК", 2002. 352 с.
2. Гуревич Р.С., Кадемія М.Ю. Інформаційно-телекомунікаційні технології в навчальному процесі та наукових дослідженнях: навчальний посібник для студентів педагогічних ВНЗ і слухачів післядипломної освіти. – Вінниця: ООО “Планер”, 2005.-366с.
3. Гуревич Р.С., Кадемія М.Ю., Шевченко Л.С. Навчання у телекомунікаційних освітніх проектах (з досвіду роботи). За редакцією професора Р.С. Гуревича. Навчально-методичний посібник, для педагогічних працівників ПТНЗ, загальноосвітніх шкіл, ВНЗ і слухачів інститутів післядипломної освіти – Вінниця, 2007. – 138 с.
4. Захарова И. Г. Информационные технологии в образовании: Учеб. пособие для  студ. высш.  пед.  учеб.  заведений.  — М.:  Издательский центр "Академия", 2003. —  192 с.
5. Басюк Т.М. Європейські освітні стандарти з підготовки ІТ-фахівців / Т.М. Басюк, Н.О. Думанський  // Проблеми  освіти: Наук.  зб.  – К.:  Інститут  інноваційних технологій  і  змісту  освіти МОН України, 2009. – Вип. 60. – С. 66–71. 2. Веретенников М.В. Автоматизация проверки знаний и навыков студентов в области прикладной математики и информатики. – СПб.: БХВ, 2003. – 804  с.
6. Челишкова М.Б.  Разработка  педагогических  тестов  на  основе  современных математических моделей. – М:ЦИТ, 2001 – 342 c. 4. Галузинський Г.П., Гордієнко І.В. Сучасні технологічні  засоби обробки  інформації: Навч. посібник. – К.: КНЕУ, 1998. – 224  с. 5. Блюменау Д.И. Информация и информационный  сервис.  –  Л.:  Наука,  1989.  –  420  с. 
7. Гайдуков  С.Р.  Система  тестирования знаний Open Test // Программирование. – 2003. – № 8. – С. 24–32. 7.Басюк Т.М. Основні підходи до побудови  програмних  засобів візуалізації  даних /  Т.М.

 

Додаток 1. Лістинг програми

#include <vcl.h>

#pragma hdrstop

 

#include "Unit1.h"

#include "Unit2.h"

#include "Unit3.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

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

__fastcall TForm1::TForm1(TComponent* Owner)

        : TForm(Owner)

{

}

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

 

void __fastcall TForm1::Button3Click(TObject *Sender)

{

Close();

}

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

 

void __fastcall TForm1::Button1Click(TObject *Sender)

{

Form2->ShowModal();

}

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

 

void __fastcall TForm1::Button2Click(TObject *Sender)

{

Form3->ShowModal();

}

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

 

void __fastcall TForm1::Image1Click(TObject *Sender)

{

 

}

#include <vcl.h>

#pragma hdrstop

 

#include "Unit2.h"

#include "Unit4.h"

#include "Unit5.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm2 *Form2;

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

__fastcall TForm2::TForm2(TComponent* Owner)

        : TForm(Owner)

{

}

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

 

 

 

void __fastcall TForm2::N3Click(TObject *Sender)

{

Form2->Close();

}

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

void __fastcall TForm2::Button3Click(TObject *Sender)

{

Form4->ShowModal();

}

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

void __fastcall TForm2::Button4Click(TObject *Sender)

{

Form5->ShowModal();

}

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

void __fastcall TForm2::Button1Click(TObject *Sender)

{

DataSource1->DataSet = ADOQuery1;

ADOQuery1->SQL->Clear();

ADOQuery1->SQL->Add("Select * from InfKnyha WHERE "+ComboBox1->Text+" LIKE '"+Edit1->Text+"%'");

ADOQuery1->Open();

if(ADOQuery1->RecordCount == 0 )

ShowMessage("В таблиці немає таких  записів, які задовільняли б  критерій пошуку!!!");

 

}

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

 

void __fastcall TForm2::Button2Click(TObject *Sender)

{

ADOQuery1->Close();

  Edit1->Text="";

   ADOQuery1->SQL->Text = "SELECT * FROM InfKnyha";

   ADOQuery1->Active = true;       

}

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

 

void __fastcall TForm2::N12Click(TObject *Sender)

{

ADOQuery1->Insert();       

}

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

 

void __fastcall TForm2::N13Click(TObject *Sender)

{

ADOQuery1->Delete();       

}

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

 

void __fastcall TForm2::N8Click(TObject *Sender)

{

ADOQuery1->First();       

}

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

 

void __fastcall TForm2::N9Click(TObject *Sender)

{

ADOQuery1->Prior();       

}

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

 

void __fastcall TForm2::N10Click(TObject *Sender)

{

ADOQuery1->Next();        

}

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

 

void __fastcall TForm2::N11Click(TObject *Sender)

{

ADOQuery1->Last();       

}

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

 

void __fastcall TForm2::N15Click(TObject *Sender)

{

ADOQuery1->Post();       

}

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

 

void __fastcall TForm2::N14Click(TObject *Sender)

{

ADOQuery1->Edit();       

}

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

 

void __fastcall TForm2::N17Click(TObject *Sender)

{

ADOQuery1->Refresh();       

}

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

 

void __fastcall TForm2::N16Click(TObject *Sender)

{

ADOQuery1-> Cancel();       

}

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

 

void __fastcall TForm2::DBGrid1TitleClick(TColumn *Column)

{

if (ADOQuery1->Active)

  if ((ADOQuery1->Sort.Pos(Column->FieldName) > 0) && (ADOQuery1->Sort.Pos("ASC") > 0))

     ADOQuery1->Sort = Column->FieldName + " DESC";

   else ADOQuery1->Sort = Column->FieldName + " ASC";

}

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

 

void __fastcall TForm2::FormCreate(TObject *Sender)

{

 

}

 

#include <vcl.h>

#pragma hdrstop

 

#include "Unit3.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm3 *Form3;

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

__fastcall TForm3::TForm3(TComponent* Owner)

        : TForm(Owner)

{

}

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

 

void __fastcall TForm3::N6Click(TObject *Sender)

{

Form3->Close();

}

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

void __fastcall TForm3::Button1Click(TObject *Sender)

{

DataSource1->DataSet = ADOQuery1;

ADOQuery1->SQL->Clear();

ADOQuery1->SQL->Add("Select * from InfKor WHERE "+ComboBox1->Text+" LIKE '"+Edit1->Text+"%'");

ADOQuery1->Open();

if(ADOQuery1->RecordCount == 0 )

ShowMessage("В таблиці немає таких записів, які задовільняли б критерій пошуку!!!");

}

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

void __fastcall TForm3::Button2Click(TObject *Sender)

{

ADOQuery1->Close();

  Edit1->Text="";

   ADOQuery1->SQL->Text = "SELECT * FROM InfKor";

   ADOQuery1->Active = true;

}

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

 

void __fastcall TForm3::N7Click(TObject *Sender)

{

ADOQuery1->First();       

}

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

 

void __fastcall TForm3::N8Click(TObject *Sender)

{

ADOQuery1->Prior();       

}

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

 

void __fastcall TForm3::N9Click(TObject *Sender)

{

ADOQuery1->Next();        

}

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

 

void __fastcall TForm3::N10Click(TObject *Sender)

{