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

Скачать

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

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
141
{
}
void __fastcall TForm7::FormShow(TObject *Sender)
{
ComboBox1->Items->Clear();
DataModule2->ADOQuery1->Close();
DataModule2->ADOQuery1->SQL->Clear();
DataModule2->ADOQuery1->SQL->Add("SELECT PInv_num FROM
Printer;");
DataModule2->ADOQuery1->Open();
DataModule2->ADOQuery1->First();
for(int i=0;i<DataModule2->ADOQuery1->RecordCount;i++)
{ComboBox1->Items->Add(DataModule2->ADOQuery1-
>FieldValues["PInv_num"]);
DataModule2->ADOQuery1->Next(); }
}
void __fastcall TForm7::ComboBox1Change(TObject *Sender)
{
if(!(ComboBox1->Text.IsEmpty()))
{
DataModule2->ADOQuery2->Close();
DataModule2->ADOQuery2->SQL->Clear();
DataModule2->ADOQuery2->SQL->Add("SELECT POtdel FROM Printer
WHERE PInv_num="+ComboBox1->Text+";");
DataModule2->ADOQuery2->Open();
DataModule2->ADOQuery2->First();
Edit1->Text=DataModule2->ADOQuery2->FieldValues["POtdel"];
Edit2->Enabled=true;
if(!(Edit2->Text.IsEmpty()))
{Button2->Enabled=true;}
else{Button2->Enabled=false;}
}
else{
Edit1->Text="";
Edit2->Text="";
142
Edit2->Enabled=false;}
}
void __fastcall TForm7::FormClose(TObject *Sender,
TCloseAction &Action)
{
Form1->Show();
}
void __fastcall TForm7::Button1Click(TObject *Sender)
{
Edit1->Text="";
Edit2->Text="";
Form7->Close();
}
void __fastcall TForm7::Edit2Change(TObject *Sender)
{
if(!(Edit2->Text.IsEmpty()))
{Button2->Enabled=true;}
else{Button2->Enabled=false;}
}
void __fastcall TForm7::Button2Click(TObject *Sender)
{
DataModule2->ADOQuery2->Close();
DataModule2->ADOQuery2->SQL->Clear();
DataModule2->ADOQuery2->SQL->Add("UPDATE Printer SET
POtdel='"+Edit2->Text+"' WHERE PInv_num="+ComboBox1-
>Text+";");
DataModule2->ADOQuery2->ExecSQL();
DataModule2->ADOQuery2->Close();
DataModule2->ADOQuery2->SQL->Clear();
DataModule2->ADOQuery2->SQL->Add("INSERT INTO Movement VALUES
("+ComboBox1->Text+", '"+Edit1->Text+"', '"+Edit2-
>Text+"');");
DataModule2->ADOQuery2->ExecSQL();
ComboBox1Change(NULL);
}TForm8 *Form8;
143
__fastcall TForm8::TForm8(TComponent* Owner)
: TForm(Owner)
{
}
void __fastcall TForm8::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 TForm8::DBGrid1CellClick(TColumn *Column)
{
if (DBGrid1->DataSource->DataSet->RecordCount>0) {
Button4->Enabled=true;
Button3->Enabled=true;
}
else
{
Button4->Enabled=false;
Button3->Enabled=false;
}
}
void __fastcall TForm8::FormClose(TObject *Sender,
TCloseAction &Action)
{
Form1->Show();
}
void __fastcall TForm8::Button1Click(TObject *Sender)
{
Form8->Close();
}
void __fastcall TForm8::FormShow(TObject *Sender)
144
{
DataModule2->ADOQuery1->Close();
DataModule2->ADOQuery1->SQL->Clear();
DataModule2->ADOQuery1->SQL->Add("SELECT * FROM Admiss;");
DataModule2->ADOQuery1->Open();
}
void __fastcall TForm8::Button2Click(TObject *Sender)
{
Form8->Hide();
Form9->Caption="ƒобавление нового поступившего принтера";
Form9->Show();
}
void __fastcall TForm8::Button4Click(TObject *Sender)
{
Form8->Hide();
Form9->Caption="»зменение выбранного поступившего принтера";
Form9->Edit1->Text=DBGrid1->DataSource->DataSet-
>FieldByName("AInv_num")->Text;
Form9->DateTimePicker1->DateTime=DBGrid1->DataSource->DataSet-
>FieldByName("ADate")->AsDateTime;
Form9->Edit2->Text=DBGrid1->DataSource->DataSet-
>FieldByName("AFrom")->Text;
Form9->Edit3->Text=DBGrid1->DataSource->DataSet-
>FieldByName("ACost")->Text;
Form9->Edit4->Text=DBGrid1->DataSource->DataSet-
>FieldByName("AName")->Text;
Form9->Edit5->Text=DBGrid1->DataSource->DataSet-
>FieldByName("AOtdel")->Text;
Form9->Edit6->Text=DBGrid1->DataSource->DataSet-
>FieldByName("AInv_num")->Text;
Form9->Edit7->Text=DBGrid1->DataSource->DataSet-
>FieldByName("ADate")->Text;
Form9->Edit8->Text=DBGrid1->DataSource->DataSet-
>FieldByName("AFrom")->Text;
145
Form9->Edit9->Text=DBGrid1->DataSource->DataSet-
>FieldByName("ACost")->Text;
Form9->Edit10->Text=DBGrid1->DataSource->DataSet-
>FieldByName("AName")->Text;
Form9->Edit11->Text=DBGrid1->DataSource->DataSet-
>FieldByName("AOtdel")->Text;
DBGrid1->DataSource->DataSet->Delete();
Form9->Show();
}
TForm9 *Form9;
bool otmena=true;
__fastcall TForm9::TForm9(TComponent* Owner)
: TForm(Owner)
{
}
void __fastcall TForm9::FormShow(TObject *Sender)
{
if(Form9->Caption=="Изменение выбранного принтера")
{Button2->Caption="Изменить";
CheckBox1->Visible=false;
CheckBox1->Checked=false;}
else{Button2->Caption="Добавить";
CheckBox1->Visible=true;
CheckBox1->Checked=true;}
}
void __fastcall TForm9::Button1Click(TObject *Sender)
{
Form9->Close();
}
void __fastcall TForm9::Button2Click(TObject *Sender)
{
int d=1;
if(Edit1->Text.IsEmpty() || Edit2->Text.IsEmpty() || Edit3-
>Text.IsEmpty() || isalpha(Edit1->Text[1]) || isalpha(Edit3-
>Text[1]) || Edit4->Text.IsEmpty() || Edit5->Text.IsEmpty() )
Источник: https://baza.diplomsite.ru/previewfile/2041

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

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