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();
136
d = DataModule2->ADOQuery2->FieldByName("Pole")->AsInteger;
if(d==0)
{
DataModule2->ADOQuery2->Close();
DataModule2->ADOQuery2->SQL->Clear();
DataModule2->ADOQuery2->SQL->Add("INSERT INTO Printer VALUES
("+Edit1->Text+", '"+Edit2->Text+"', '"+Edit3->Text+"');");
DataModule2->ADOQuery2->ExecSQL();
Form4->Close();
Form3->Show();}
else{Application->MessageBox(L"Данный инвентарный номер уже
существует!",L"Ошибка!", MB_OK);}
}
}
void __fastcall TForm4::FormClose(TObject *Sender,
TCloseAction &Action)
{
Edit1->Clear();
Edit2->Clear();
Edit3->Clear();
Form3->Show();
}
void __fastcall TForm4::FormShow(TObject *Sender)
{
if(Form4->Caption=="Изменение выбранного принтера")
{Button2->Caption="Изменить";}
else{Button2->Caption="Добавить";}
}
TForm5 *Form5;
__fastcall TForm5::TForm5(TComponent* Owner)
: TForm(Owner)
{
}
void __fastcall TForm5::Button1Click(TObject *Sender)
{
137
Form5->Close();
}
void __fastcall TForm5::FormShow(TObject *Sender)
{
DataModule2->ADOQuery1->Close();
DataModule2->ADOQuery1->SQL->Clear();
DataModule2->ADOQuery1->SQL->Add("SELECT * FROM Remont;");
DataModule2->ADOQuery1->Open();
}
void __fastcall TForm5::FormClose(TObject *Sender,
TCloseAction &Action)
{
Form1->Show();
}
void __fastcall TForm5::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 TForm5::Button2Click(TObject *Sender)
{
Form5->Hide();
Form6->Caption="Добавление нового принтера для ремонта";
Form6->Show();
}
void __fastcall TForm5::Button4Click(TObject *Sender)
{
Form5->Hide();
Form6->Caption="Изменение выбранного принтера";
Form6->ComboBox1->Text=DBGrid1->DataSource->DataSet-
>FieldByName("RInv_num")->Text;
138
Form6->DateTimePicker1->DateTime=DBGrid1->DataSource->DataSet-
>FieldByName("RDate_otpr")->AsDateTime;
Form6->DateTimePicker1->DateTime=DBGrid1->DataSource->DataSet-
>FieldByName("RDate_pol")->AsDateTime;
Form6->Edit2->Text=DBGrid1->DataSource->DataSet-
>FieldByName("RCause")->Text;
Form6->Edit3->Text=DBGrid1->DataSource->DataSet-
>FieldByName("RCost")->Text;
Form6->Edit4->Text=DBGrid1->DataSource->DataSet-
>FieldByName("RInv_num")->Text;
Form6->Edit5->Text=DBGrid1->DataSource->DataSet-
>FieldByName("RDate_otpr")->Text;
Form6->Edit6->Text=DBGrid1->DataSource->DataSet-
>FieldByName("RDate_pol")->Text;
Form6->Edit7->Text=DBGrid1->DataSource->DataSet-
>FieldByName("RCause")->Text;
Form6->Edit8->Text=DBGrid1->DataSource->DataSet-
>FieldByName("RCost")->Text;
DBGrid1->DataSource->DataSet->Delete();
Form6->Show();
}
void __fastcall TForm5::DBGrid1CellClick(TColumn *Column)
{
if (DBGrid1->DataSource->DataSet->RecordCount>0) {
Button4->Enabled=true;
Button3->Enabled=true;
}
else
{
Button4->Enabled=false;
Button3->Enabled=false;
}
}
TForm6 *Form6;
bool otmena=true;
139
__fastcall TForm6::TForm6(TComponent* Owner)
: TForm(Owner)
{
}
void __fastcall TForm6::FormShow(TObject *Sender)
{
int index = 0;
ComboBox1->Items->Clear();
DataModule2->ADOQuery2->Close();
DataModule2->ADOQuery2->SQL->Clear();
DataModule2->ADOQuery2->SQL->Add("SELECT PInv_num FROM
Printer;");
DataModule2->ADOQuery2->Open();
DataModule2->ADOQuery2->First();
for(int i=0;i<DataModule2->ADOQuery2->RecordCount;i++)
{ComboBox1->Items->Add(DataModule2->ADOQuery2-
>FieldValues["PInv_num"]);
DataModule2->ADOQuery2->Next();}
if(Form6->Caption=="Изменение выбранного принтера")
{Button2->Caption="Изменить";
for(int i=0;i<ComboBox1->Items->Count;i++)
{
if(ComboBox1->Items->Strings[i]==Edit4->Text){
index = i;}
}
ComboBox1->ItemIndex=index;
}
else{Button2->Caption="Добавить";
}
}
void __fastcall TForm6::Button2Click(TObject *Sender)
{
if(ComboBox1->Text.IsEmpty() || Edit2->Text.IsEmpty() ||
Edit3->Text.IsEmpty())
140
{Application->MessageBox(L"Не все поля заполнены либо
заполнены не верно!",L"Ошибка!", MB_OK);}
else{
DataModule2->ADOQuery2->Close();
DataModule2->ADOQuery2->SQL->Clear();
DataModule2->ADOQuery2->SQL->Add("INSERT INTO Remont VALUES
("+ComboBox1->Text+", '"+DateTimePicker1->DateTime+"',
'"+DateTimePicker2->DateTime+"', '"+Edit2->Text+"', '"+Edit3-
>Text+"');");
DataModule2->ADOQuery2->ExecSQL();
otmena=false;
Form6->Close();}
}
void __fastcall TForm6::Button1Click(TObject *Sender)
{
Form6->Close();
}
void __fastcall TForm6::FormClose(TObject *Sender,
TCloseAction &Action)
{
if(Button2->Caption=="Изменить" && otmena==true){
DataModule2->ADOQuery2->Close();
DataModule2->ADOQuery2->SQL->Clear();
DataModule2->ADOQuery2->SQL->Add("INSERT INTO Remont VALUES
("+Edit4->Text+", '"+Edit5->Text+"', '"+Edit6->Text+"',
'"+Edit7->Text+"', '"+Edit8->Text+"');");
DataModule2->ADOQuery2->ExecSQL(); }
otmena=true;
Edit2->Text="";
Edit3->Text="";
Form5->Show();
}
TForm7 *Form7;
__fastcall TForm7::TForm7(TComponent* Owner)
: TForm(Owner)