Дипломная работа: Автоматизация процесса ведения документации и отчетности в ОАО «Бобруйсктранс»
Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
131
ПРИЛОЖЕНИЕ 4
МАКЕТ АКТА ВЫПОЛНЕННЫХ РАБОТ
Акт выполненных работ № ___
от «____» _________________ 20__ г.
Исполнитель
___________________________________________________________________________
Заказчик
__________________________________________________________________________
№
Наименование работы (услуги)
Ед. изм.
Количество
Цена
Сумма
Итого:
Без налога (НДС)
Всего (с учетом НДС)
Всего оказано услуг на сумму: ___________________________ рублей ___ коп.,
в т.ч. НДС – _______________________ рублей___ копеек.
Вышеперечисленные работы (услуги) выполнены полностью и в срок. Заказчик
претензий по объему, качеству и срокам оказания услуг претензий не имеет.
Исполнитель ______________________ Заказчик ___________________________
М.П.
132
ПРИЛОЖЕНИЕ 5
ЛИСТИНГ
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Form1->Hide();
Form3->Show();
}
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Form1->Hide();
Form5->Show();
}
void __fastcall TForm1::Button3Click(TObject *Sender)
{
Form1->Hide();
Form7->Show();
}
//------------------------------------------------------------
---------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
Form1->Hide();
Form8->Show();
}
void __fastcall TForm1::Button5Click(TObject *Sender)
{
133
Form1->Close();
}
void __fastcall TForm1::Button6Click(TObject *Sender)
{
Form1->Hide();
Form10->Show();
}
__fastcall TDataModule2::TDataModule2(TComponent* Owner)
: TDataModule(Owner)
TForm3 *Form3;
__fastcall TForm3::TForm3(TComponent* Owner)
: TForm(Owner)
{
}
void __fastcall TForm3::FormClose(TObject *Sender,
TCloseAction &Action)
{
Form1->Show();
}
void __fastcall TForm3::Button1Click(TObject *Sender)
{
Form3->Close();
}
void __fastcall TForm3::Button3Click(TObject *Sender)
{
int result=Application->MessageBox(L"Вы уверены что хотите
удалить выбранный принтер?",L"Подтверждение", MB_YESNO);
if(result == IDYES)
{DBGrid1->DataSource->DataSet->Delete();}
Button4->Enabled=false;
Button3->Enabled=false;
}
void __fastcall TForm3::Button2Click(TObject *Sender)
{
Form3->Hide();
134
Form4->Caption="Добавление нового принтера";
Form4->Show();
}
void __fastcall TForm3::FormShow(TObject *Sender)
{
DataModule2->ADOQuery1->Close();
DataModule2->ADOQuery1->SQL->Clear();
DataModule2->ADOQuery1->SQL->Add("SELECT * FROM Printer;");
DataModule2->ADOQuery1->Open();
}
void __fastcall TForm3::Button4Click(TObject *Sender)
{
Form3->Hide();
Form4->Caption="Изменение выбранного принтера";
Form4->Edit1->Text=DBGrid1->DataSource->DataSet-
>FieldByName("PInv_num")->Text;
Form4->Edit2->Text=DBGrid1->DataSource->DataSet-
>FieldByName("PName")->Text;
Form4->Edit3->Text=DBGrid1->DataSource->DataSet-
>FieldByName("POtdel")->Text;
Form4->Edit4->Text=DBGrid1->DataSource->DataSet-
>FieldByName("PInv_num")->Text;
Form4->Edit5->Text=DBGrid1->DataSource->DataSet-
>FieldByName("PName")->Text;
Form4->Edit6->Text=DBGrid1->DataSource->DataSet-
>FieldByName("POtdel")->Text;
DBGrid1->DataSource->DataSet->Delete();
Form4->Show();
}
void __fastcall TForm3::DBGrid1CellClick(TColumn *Column)
{
if (DBGrid1->DataSource->DataSet->RecordCount>0) {
Button4->Enabled=true;
Button3->Enabled=true;
}
135
else
{
Button4->Enabled=false;
Button3->Enabled=false;
}
}
TForm4 *Form4;
__fastcall TForm4::TForm4(TComponent* Owner)
: TForm(Owner)
{
}
void __fastcall TForm4::Button1Click(TObject *Sender)
{
if(Button2->Caption=="Изменить")
{DataModule2->ADOQuery2->Close();
DataModule2->ADOQuery2->SQL->Clear();
DataModule2->ADOQuery2->SQL->Add("INSERT INTO Printer VALUES
("+Edit4->Text+", '"+Edit5->Text+"', '"+Edit6->Text+"');");
DataModule2->ADOQuery2->ExecSQL();}
Form4->Close();
}
void __fastcall TForm4::Button2Click(TObject *Sender)
{
int num=0;
int d=1;
if(Edit1->Text.IsEmpty() || Edit2->Text.IsEmpty() || Edit3-
>Text.IsEmpty() || isalpha(Edit1->Text[1]))
{Application->MessageBox(L"Не все поля заполнены либо
заполнены не верно!",L"Ошибка!", MB_OK);}
else{
DataModule2->ADOQuery2->Close();
DataModule2->ADOQuery2->SQL->Clear();
DataModule2->ADOQuery2->SQL->Add("SELECT COUNT(*) AS Pole FROM
Printer WHERE PInv_num ="+Edit1->Text+";");
DataModule2->ADOQuery2->Open();
Источник: https://baza.diplomsite.ru/previewfile/2041