2.2.2 Проектування методів та функцій пз

На розрахунковій формі використовувались такі методи та функції:

void __fastcall TForm1::Button1Click(TObject *Sender) – створює новий рядок, перевіряє чи введені всі дані, та додає запис до БД.

ADOQuery1->Append();

ADOQuery1->Edit();

ADOQuery1->FieldByName("viezd")->AsFloat=StrToFloat(Edit5->Text);

ADOQuery1->FieldByName("data")->AsString=DateToStr(DateTimePicker1->Date);

ADOQuery1->FieldByName("nomer")->AsString=ComboBox1->Items->Strings[ComboBox1->ItemIndex];

ADOQuery1->FieldByName("vodit")->AsString=ComboBox2->Items->Strings[ComboBox2->ItemIndex];

ADOQuery1->FieldByName("ob_proezd")->AsFloat=StrToFloat(Edit1->Text);

ADOQuery1->FieldByName("bal_viezda")->AsFloat=StrToFloat(Edit4->Text);

ADOQuery1->FieldByName("vidano")->AsFloat=StrToFloat(Edit2->Text);

norm=ADOQuery1->FieldByName("norm")->AsFloat;

ADOQuery1->FieldByName("norm")->AsFloat=

ADOQuery1->FieldByName("ob_proezd")->AsFloat*ras/100;

ADOQuery1->FieldByName("bal_zaizd")->AsFloat=

ADOQuery1->FieldByName("bal_viezda")->AsFloat+

ADOQuery1->FieldByName("vidano")->AsFloat-

ADOQuery1->FieldByName("norm")->AsFloat;

Edit6->Text=RoundTo(ADOQuery1->FieldByName("bal_zaizd")->AsFloat,-2);

ADOQuery1->FieldByName("bal_zaizd")->AsFloat=StrToFloat(Edit6->Text);

ADOQuery1->FieldByName("vozvrat")->AsFloat=

ADOQuery1->FieldByName("ob_proezd")->AsFloat+

ADOQuery1->FieldByName("viezd")->AsFloat;

Edit4->Text=RoundTo(ADOQuery1->FieldByName("bal_zaizd")->AsFloat,-2);

Edit5->Text=ADOQuery1->FieldByName("vozvrat")->AsFloat;

void __fastcall TForm1::Button2Click(TObject *Sender) – видаляє рядок із БД ADOQuery1->Edit();

ADOQuery1->Last();

void __fastcall TForm1::FormCreate(TObject *Sender) – загружає файли, та встановлює сьогоднішню дату та відповідний час. , дата та час пов'язаний із датою на комп’ютері.

ComboBox1->Items->LoadFromFile("CBn.txt");

ComboBox2->Items->LoadFromFile("CBv.txt");

DateTimePicker1->Time = Time();

DateTimePicker1->Date = Date();

DateTimePicker1->DateTime=Now();

void __fastcall TForm1::Timer1Timer(TObject *Sender) – за допомогою цієї функції час показаний в лівій нижній частині форми.

void __fastcall TForm1::N2Click(TObject *Sender) – закриває дану форму

void __fastcall TForm1::N5Click(TObject *Sender) – на формі стають видимі два поля ведення, що перевірити або редагувати початкові дані

void __fastcall TForm1::N7Click(TObject *Sender) – відкриває форму «вся база даних»

void __fastcall TForm1::N11Click(TObject *Sender) – відкриває форму редагування, додавання в базу.

void __fastcall TForm1::N12Click(TObject *Sender) – відкриває форму редагування, видалення з бази

void __fastcall TForm1::Button3Click(TObject *Sender) – фільтрує дані зі всієї БД та показує ту інформацію яку ми вибрали. Фільтрація виконується по таким даним : період та номер машини. Також закриває форму «фільтрація»

Void __fastcall tForm1::n5Click(tObject *Sender) – показує початкові дані для розрахунку, які можна редагувати.

void __fastcall TForm4::FormClose(TObject *Sender, TCloseAction &Action) –

при закриті форми скидаються всі вибрані параметри на початкові.

На формі «Редагування» використовувались такі методи та функції:

void __fastcall TForm3::N1Click(TObject *Sender) – закриває форму

Form3->Close();

void __fastcall TForm3::Button3Click(TObject *Sender) – додає в базу (файл CBn.txt) номер машини

Form4->ComboBox1->Items->Add(Edit8->Text);

Form1->ComboBox1->Items->Add(Edit8->Text);

void __fastcall TForm3::Button2Click(TObject *Sender) - додає в базу (файл CBv.txt) фамілію водія

Form4->ComboBox2->Items->Add(Edit7->Text);

Form1->ComboBox2->Items->Add(Edit7->Text);

ShowMessage("Фамілію водія добавлено");

void __fastcall TForm3::FormClose(TObject *Sender, TCloseAction &Action) – при закриті форми, зберігаються всі виконані дії на зміни в программі.

void __fastcall TForm3::FormActivate(TObject *Sender) – загружає в програму дані з бази (файли CBn.txt та CBv.txt)

void __fastcall TForm3::Button4Click(TObject *Sender) – видаляє з бази номер машини

ComboBox2->Items->Delete(ComboBox2->ItemIndex);

Form1->ComboBox2->Items->Delete(ComboBox2->ItemIndex);

void __fastcall TForm3::Button1Click(TObject *Sender) – видаляє з бази фамілію водія

ComboBox1->Items->Delete(ComboBox1->ItemIndex);

Form4->ComboBox1->Items->SaveToFile("CBn.txt");

На формі «Повна база даних» використовувались такі методи та функції:

void __fastcall TForm5::FormCreate(TObject *Sender) – виводить інформацію в порядку зростання дати

ADOQuery1->Close();

ADOQuery1->SQL->Clear();

ADOQuery1->SQL->Add("SELECT * FROM baza ORDER BY data");

ADOQuery1->Active=true;

ADOQuery1->Open();

void __fastcall TForm5::Button1Click(TObject *Sender) – створює звіт таблиці Excel

void __fastcall TForm5::FormClose(TObject *Sender, TCloseAction &Action) – закриває сервер Excel та скидаються параметри створення

if(fStart) vVarApp.OleProcedure("Quit");

vVarApp=0;

vVarBooks=0;

vVarBook=0;

vVarSheets=0;

vVarSheet=0;

vVarCells=0;

vVarCell=0;

vAsCurDir=0;

fStart=0;