Автор: Пользователь скрыл имя, 04 Марта 2013 в 20:39, курсовая работа
Сучасний стан розвитку автоматизації виробництва привів до появи якісно нової системи технологічних машин з керуючими засобами, що базуються на застосуванні електронних обчислювальних машин, програмованих логічних контролерів, інтелектуальних засобів вимірювання і контролю, інформаційно об'єднаних промисловими мережами. Автоматизація виробництва — один з головних напрямів науково-технічного прогресу.
Система автоматизації ведення обліку прокату автомобілів полягає у спрощенні роботи персоналу, скорочення часу для обробки даних, а також робота з самою базою даних.
Дана робота написана на мові програмування C++ Builder з використанням бази даних Microsoft Access
Вступ 3
1. Теоретична частина 4
1.1. Система автоматизації 4
1.2. Об’єктно-орієнтоване програмування 6
1.3. Мова програмування C++ Builder 8
1.4. Опис предметної області та постановка задачі 16
2. Практична частина 17
2.1. Інформаційна структура моделі та алгоритму 17
2.2. Опис вхідних та вихідних даних 18
2.3. Інтерфейс та керівництво користувача, тестування проекту 20
Висновок 23
Список використаної літератури
Додаток 1. Лістинг програми
ADOQuery1->Last();
}
//----------------------------
void __fastcall TForm3::N11Click(TObject *Sender)
{
ADOQuery1->Insert();
}
//----------------------------
void __fastcall TForm3::N12Click(TObject *Sender)
{
ADOQuery1->Delete();
}
//----------------------------
void __fastcall TForm3::N13Click(TObject *Sender)
{
ADOQuery1->Edit();
}
//----------------------------
void __fastcall TForm3::N14Click(TObject *Sender)
{
ADOQuery1->Post();
}
//----------------------------
void __fastcall TForm3::N15Click(TObject *Sender)
{
ADOQuery1-> Cancel();
}
//----------------------------
void __fastcall TForm3::N16Click(TObject *Sender)
{
ADOQuery1->Refresh();
}
//----------------------------
void __fastcall TForm3::DBGrid1DrawColumnCell(
const TRect &Rect, int DataCol, TColumn *Column,
TGridDrawState State)
{
TColor ColCol[]={ clSilver, clTeal };
int ind=ADOQuery1->RecNo & 1;
DBGrid1->Canvas->Brush->Color=
DBGrid1->Canvas->FillRect(
DBGrid1->
if(State.Contains(Grids::
DBGrid1->Canvas->Brush->Color=
DBGrid1->
}
//----------------------------
void __fastcall TForm3::DBGrid1TitleClick(
{
if (ADOQuery1->Active)
if ((ADOQuery1->Sort.Pos(Column->
ADOQuery1->Sort = Column->FieldName + " DESC";
else ADOQuery1->Sort = Column->FieldName + " ASC";
}
//----------------------------
void __fastcall TForm3::FormCreate(TObject *Sender)
{
}
#include <vcl.h>
#pragma hdrstop
#include "Unit4.h"
//----------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm4 *Form4;
//----------------------------
__fastcall TForm4::TForm4(TComponent* Owner)
: TForm(Owner)
{
}
//----------------------------
void __fastcall TForm4::Button1Click(TObject *Sender)
{
DataSource1->DataSet = ADOQuery1;
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("Select * from Vydacha WHERE "+ComboBox1->Text+" LIKE '"+Edit1->Text+"%'");
ADOQuery1->Open();
if(ADOQuery1->RecordCount == 0 )
ShowMessage("В таблиці немає
}
//----------------------------
void __fastcall TForm4::Button2Click(TObject *Sender)
{
ADOQuery1->Close();
Edit1->Text="";
ADOQuery1->SQL->Text = "SELECT * FROM Vydacha";
ADOQuery1->Active = true;
}
//----------------------------
void __fastcall TForm4::N6Click(TObject *Sender)
{
Form4->Close();
}
//----------------------------
void __fastcall TForm4::N10Click(TObject *Sender)
{
ADOQuery1->First();
}
//----------------------------
void __fastcall TForm4::N11Click(TObject *Sender)
{
ADOQuery1->Prior();
}
//----------------------------
void __fastcall TForm4::N12Click(TObject *Sender)
{
ADOQuery1->Next();
}
//----------------------------
void __fastcall TForm4::N13Click(TObject *Sender)
{
ADOQuery1->Last();
}
//----------------------------
void __fastcall TForm4::N14Click(TObject *Sender)
{
ADOQuery1->Insert();
}
//----------------------------
void __fastcall TForm4::N15Click(TObject *Sender)
{
ADOQuery1->Delete();
}
//----------------------------
void __fastcall TForm4::N16Click(TObject *Sender)
{
ADOQuery1->Post();
}
//----------------------------
void __fastcall TForm4::N17Click(TObject *Sender)
{
ADOQuery1-> Cancel();
}
//----------------------------
void __fastcall TForm4::N18Click(TObject *Sender)
{
ADOQuery1->Refresh();
}
//----------------------------
void __fastcall TForm4::DBGrid1DrawColumnCell(
const TRect &Rect, int DataCol, TColumn *Column,
TGridDrawState State)
{
TColor ColCol[]={ clSilver, clTeal };
int ind=ADOQuery1->RecNo & 1;
DBGrid1->Canvas->Brush->Color=
DBGrid1->Canvas->FillRect(
DBGrid1->
if(State.Contains(Grids::
DBGrid1->Canvas->Brush->Color=
DBGrid1->
}
//----------------------------
void __fastcall TForm4::Button3Click(TObject *Sender)
{
ADOQuery1->Insert();
{
}
}
//----------------------------
void __fastcall TForm4::DBGrid1TitleClick(
{
if (ADOQuery1->Active)
if ((ADOQuery1->Sort.Pos(Column->
ADOQuery1->Sort = Column->FieldName + " DESC";
else ADOQuery1->Sort = Column->FieldName + " ASC";
}
//----------------------------
void __fastcall TForm4::FormCreate(TObject *Sender)
{
}
#include <vcl.h>
#pragma hdrstop
#include "Unit5.h"
//----------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm5 *Form5;
//----------------------------
__fastcall TForm5::TForm5(TComponent* Owner)
: TForm(Owner)
{
}
//----------------------------
void __fastcall TForm5::Button2Click(TObject *Sender)
{
ADOQuery1->Close();
Edit1->Text="";
ADOQuery1->SQL->Text = "SELECT * FROM Misce";
ADOQuery1->Active = true;
}
//----------------------------
void __fastcall TForm5::Button1Click(TObject *Sender)
{
DataSource1->DataSet = ADOQuery1;
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("Select * from Misce WHERE "+ComboBox1->Text+" LIKE '"+Edit1->Text+"%'");
ADOQuery1->Open();
if(ADOQuery1->RecordCount == 0 )
ShowMessage("В таблиці немає
}
//----------------------------
void __fastcall TForm5::N10Click(TObject *Sender)
{
ADOQuery1->First();
}
//----------------------------
void __fastcall TForm5::N11Click(TObject *Sender)
{
ADOQuery1->Prior();
}
//----------------------------
void __fastcall TForm5::N12Click(TObject *Sender)
{
ADOQuery1->Next();
}
//----------------------------
void __fastcall TForm5::N13Click(TObject *Sender)
{
ADOQuery1->Last();
}
//----------------------------
void __fastcall TForm5::N14Click(TObject *Sender)
{
ADOQuery1->Insert();
}
//----------------------------
void __fastcall TForm5::N15Click(TObject *Sender)
{
ADOQuery1->Delete();
}
//----------------------------
void __fastcall TForm5::N16Click(TObject *Sender)
{
ADOQuery1->Edit();
}
//----------------------------
void __fastcall TForm5::N17Click(TObject *Sender)
{
ADOQuery1->Post();
}
//----------------------------
void __fastcall TForm5::N18Click(TObject *Sender)
{
ADOQuery1-> Cancel();
}
//----------------------------
void __fastcall TForm5::N19Click(TObject *Sender)
{
ADOQuery1->Refresh();
}
//----------------------------
void __fastcall TForm5::DBGrid1DrawColumnCell(
const TRect &Rect, int DataCol, TColumn *Column,
TGridDrawState State)
{
TColor ColCol[]={ clSilver, clTeal };
int ind=ADOQuery1->RecNo & 1;
DBGrid1->Canvas->Brush->Color=
DBGrid1->Canvas->FillRect(
DBGrid1->
if(State.Contains(Grids::
DBGrid1->Canvas->Brush->Color=
DBGrid1->
}
//----------------------------
void __fastcall TForm5::DBGrid1TitleClick(
{
if (ADOQuery1->Active)
if ((ADOQuery1->Sort.Pos(Column->
ADOQuery1->Sort = Column->FieldName + " DESC";
else ADOQuery1->Sort = Column->FieldName + " ASC";
}
//----------------------------
void __fastcall TForm5::N3Click(TObject *Sender)
{
Form5->Close();
}
//----------------------------
void __fastcall TForm5::FormCreate(TObject *Sender)
{
}
Информация о работе Автоматизація ведення обліку прокату автомобілей