Project-Management-APP/Unit1.cpp at main · 7MaxGreen/Project-Management-APP · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include "FTASK.h"
#include "FTEAMS.h"
#include "fRECEPETION.h"
#include "F_DM.h"
#include "FAUTHENTIFICATION.h"
#include "FACC.h"
#include "FDEP.h"
#include "FFUN.h"
#include "FP_T.h"
#include "FSEARCH.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFMAIN *FMAIN;
TDateTime DT;
//---------------------------------------------------------------------------
__fastcall TFMAIN::TFMAIN(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFMAIN::SpeedButton5Click(TObject *Sender)
{
  DM->QTEAMS->Close();
  DM->QTEAMS->Open();
  TASK->ShowModal();

}
//---------------------------------------------------------------------------

void __fastcall TFMAIN::SpeedButton6Click(TObject *Sender)
{
DM->QDEP->Close();
DM->QDEP->Open();
DM->QFUN->Close();
DM->QFUN->Open();
DM->QACC->Close();
DM->QACC->Open();
DM->QTEAMS->Close();
DM->QTEAMS->Open();
F_TEAMS->ShowModal();
}
//---------------------------------------------------------------------------

void __fastcall TFMAIN::S1Click(TObject *Sender)
{
  DM->QDEP->Close();
DM->QDEP->Open();
DM->QFUN->Close();
DM->QFUN->Open();
DM->QACC->Close();
DM->QACC->Open();
DM->QTEAMS->Close();
DM->QTEAMS->Open();
F_TEAMS->ShowModal();
}
//---------------------------------------------------------------------------

void __fastcall TFMAIN::FormShow(TObject *Sender)
{
DM->QPM->Close();
DM->QPM->Open();
Form4->ShowModal();
}
//---------------------------------------------------------------------------

void __fastcall TFMAIN::SpeedButton12Click(TObject *Sender)
{
Form3->ShowModal();
}
//---------------------------------------------------------------------------

void __fastcall TFMAIN::SpeedButton1Click(TObject *Sender)
{
   Form10->ShowModal();
}
//---------------------------------------------------------------------------

void __fastcall TFMAIN::SpeedButton2Click(TObject *Sender)
{
Form3->ShowModal();
}
//---------------------------------------------------------------------------

void __fastcall TFMAIN::SpeedButton3Click(TObject *Sender)
{
Form3->ShowModal();
}
//---------------------------------------------------------------------------

void __fastcall TFMAIN::Timer1Timer(TObject *Sender)
{
Label8->Caption = DT.CurrentTime();
Label9->Caption = DT.CurrentDate();
}
//---------------------------------------------------------------------------