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

Скачать файл

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

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам

Form4->Show();

}

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include «Unit9.h»

#include «Unit1.h»

#include «Unit10.h»

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource «*.dfm»

TForm9 *Form9;

//---------------------------------------------------------------------------

__fastcall TForm9::TForm9(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TForm9::SpeedButton1Click(TObject *Sender)

{

Form9->Hide();

Form10->Show();

}

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include «Unit10.h»

#include «Unit1.h»

#include «Unit3.h»

#include «Unit4.h»

#include «Unit9.h»

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource «*.dfm»

TForm10 *Form10;

//---------------------------------------------------------------------------

__fastcall TForm10::TForm10(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TForm10::N1Click(TObject *Sender)

{

Form10->Hide();

Form3->Show();

Form3->TabSheet1->Show();

if (Form1->DataSource1->DataSet->Active==false) Form1->DataSource1->DataSet-

>Active=true;

if (Form1->DataSource2->DataSet->Active==false) Form1->DataSource2->DataSet-

>Active=true;

if (Form1->DataSource3->DataSet->Active==false) Form1->DataSource3->DataSet-

>Active=true;

if (Form1->DataSource4->DataSet->Active==false) Form1->DataSource4->DataSet-

>Active=true;

if (Form1->DataSource5->DataSet->Active==false) Form1->DataSource5->DataSet-

>Active=true;

if (Form1->DataSource6->DataSet->Active==false) Form1->DataSource6->DataSet-

>Active=true;

}

//---------------------------------------------------------------------------

void __fastcall TForm10::N2Click(TObject *Sender)

{

Form10->Hide();

Form4->Show();

}

//---------------------------------------------------------------------------

void __fastcall TForm10::N3Click(TObject *Sender)

{

Form10->Hide();

Form9->Show();

Form9->TabSheet1->Show();

if (Form1->DataSource9->DataSet->Active==false) Form1->DataSource9->DataSet-

>Active=true;

if (Form1->DataSource10->DataSet->Active==false) Form1->DataSource10->DataSet-

>Active=true;

if (Form1->DataSource11->DataSet->Active==false) Form1->DataSource11->DataSet-

>Active=true;

if (Form1->DataSource12->DataSet->Active==false) Form1->DataSource12->DataSet-

>Active=true;

if (Form1->DataSource13->DataSet->Active==false) Form1->DataSource13->DataSet-

>Active=true;

if (Form1->DataSource14->DataSet->Active==false) Form1->DataSource14->DataSet-

>Active=true;

if (Form1->DataSource15->DataSet->Active==false) Form1->DataSource15->DataSet-

>Active=true;

}

//---------------------------------------------------------------------------

void __fastcall TForm10::N4Click(TObject *Sender)

{

Close();

}

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include «Unit11.h»

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource «*.dfm»

TForm11 *Form11;

//---------------------------------------------------------------------------

__fastcall TForm11::TForm11(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

Источник: https://baza.diplomsite.ru/previewfile/1697

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

_3 тема - Диффузия
'Заповит' Рейнгольда Глиэра: стилистические особенности
'Создание и продвижение интернет - платформы реферальной системы' на примере компании Бартер–кард
[БИЛЕТЫ] IMK №3
[ТЕСТЫ] Спланхнология
00601
01. Концепция БД
02_ЛР
02. РСЧС_ВСМК_Таблица
04