Дипломная работа: Автоматизация делопроизводства на ООО "Руф монтаж сервис"

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
66
{
}
//---------------------------------------------------------------------------
void __fastcall TForm3::SpeedButton4Click(TObject *Sender)
{
Form3->Hide();
Form10->Show();
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include «Unit4.h»
#include «Unit1.h»
#include «Unit10.h»
#include «Unit8.h»
#include «Unit6.h»
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource «*.dfm»
TForm4 *Form4;
//---------------------------------------------------------------------------
__fastcall TForm4::TForm4(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm4::SpeedButton2Click(TObject *Sender)
{
Form4->Hide();
Form6->Show();
67
if (Form1->DataSource7->DataSet->Active==false) Form1->DataSource7->DataSet-
>Active=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm4::SpeedButton3Click(TObject *Sender)
{
Form4->Hide();
Form8->Show();
if (Form1->DataSource8->DataSet->Active==false) Form1->DataSource8->DataSet-
>Active=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm4::SpeedButton4Click(TObject *Sender)
{
Form4->Hide();
Form10->Show();
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include «Unit5.h»
#include «Unit1.h»
#include «Unit10.h»
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource «*.dfm»
TForm5 *Form5;
//---------------------------------------------------------------------------
__fastcall TForm5::TForm5(TComponent* Owner)
: TForm(Owner)
{
}
68
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include «Unit6.h»
#include «Unit1.h»
#include «Unit10.h»
#include «Unit5.h»
#include «Unit7.h»
#include «Unit11.h»
#include «Unit4.h»
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource «*.dfm»
TForm6 *Form6;
//---------------------------------------------------------------------------
__fastcall TForm6::TForm6(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm6::BitBtn1Click(TObject *Sender)
{
Form5->Show();
}
//---------------------------------------------------------------------------
void __fastcall TForm6::BitBtn2Click(TObject *Sender)
{
Form11->Show();
}
69
//---------------------------------------------------------------------------
void __fastcall TForm6::SpeedButton4Click(TObject *Sender)
{
Form6->Hide();
Form4->Show();
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include «Unit7.h»
#include «Unit1.h»
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource «*.dfm»
TForm7 *Form7;
//---------------------------------------------------------------------------
__fastcall TForm7::TForm7(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include «Unit8.h»
#include «Unit1.h»
70
#include «Unit2.h»
#include «Unit10.h»
#include «Unit11.h»
#include «Unit7.h»
#include «Unit4.h»
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource «*.dfm»
TForm8 *Form8;
//---------------------------------------------------------------------------
__fastcall TForm8::TForm8(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm8::BitBtn1Click(TObject *Sender)
{
Form7->Show();
}
//---------------------------------------------------------------------------
void __fastcall TForm8::BitBtn4Click(TObject *Sender)
{
Form11->Show();
}
//---------------------------------------------------------------------------
void __fastcall TForm8::BitBtn3Click(TObject *Sender)
{
if (OpenDialog1->Execute())
OleContainer1->CreateObjectFromFile(OpenDialog1->FileName, false);
}
//---------------------------------------------------------------------------
void __fastcall TForm8::SpeedButton4Click(TObject *Sender)
{
Form8->Hide();
Источник: https://baza.diplomsite.ru/previewfile/1697