Дипломная работа: Автоматизация процесса ведения документации и отчетности в ОАО «Бобруйсктранс»

Скачать

Заказать новую работу

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
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)
Источник: https://baza.diplomsite.ru/previewfile/2041

Смотрите также:

17. Введение 18. Линейные программы 19. Ветвления 20. Программирование циклических алгоритмов
Сборные железобетонные ребристые плиты перекрытия
_-___-~1
_3 тема - Диффузия
_Роджерс Карл, Брак и его альтернативы
_Штерн Вильям, Дифференциальная психология и ее методические основы
- Описание типа СЭТ7009
- Программа ГПИ