Project-Management-APP/FAUTHENTIFICATION.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
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "FAUTHENTIFICATION.h"
#include "F_DM.h"
#include "Unit1.h"
#include "FTASK.h"
#include "FTEAMS.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm4 *Form4;
//---------------------------------------------------------------------------
__fastcall TForm4::TForm4(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm4::SpeedButton1Click(TObject *Sender)
{
  if((!Edit1->Text.IsEmpty()) && (!Edit2->Text.IsEmpty()))
  {
		DM->QLIBER->Close();
		DM->QLIBER->SQL->Clear();
		DM->QLIBER->SQL->Add("SELECT * FROM EMPLOYMENT WHERE USERNAME=:USERNAME AND PASS=:PASS");
		DM->QLIBER->ParamByName("USERNAME")->AsString=Edit1->Text;
		DM->QLIBER->ParamByName("PASS")->AsString=Edit2->Text;
		DM->QLIBER->Open();


   if(!DM->QLIBER->IsEmpty())
   {

     FMAIN->Label1->Caption=DM->QLIBER->FieldByName("name")->AsString;
	  FMAIN->Label2->Caption=DM->QLIBER->FieldByName("surname")->AsString;
	  TASK->Label1->Caption=DM->QLIBER->FieldByName("name")->AsString;
      TASK->Label2->Caption=DM->QLIBER->FieldByName("surname")->AsString;
	 // FMAIN->Label8->Caption=DM->QFUN->FieldByName("NAME")->AsString;
	  USER=DM->QLIBER->FieldByName("employment_id")->AsInteger;
   switch(DM->QLIBER->FieldByName("ACCESS_TYPE")->AsInteger)
   {
		case 2:   {
		Close();
		TASK->ShowModal();
					break;


	   }

		case 3:   {  Close();
		F_TEAMS->ShowModal();

				   break;
	   }

	   default:
	   {
        Close();
		FMAIN->AlphaBlend=false;   break;
       }
   }
	}
	else
	{
		ShowMessage(" WRONG CREDENTIALS");
		Edit2->Clear();
	}
  }
  else
  {
	  ShowMessage("FILL THE EMPTY SPACES IN ODER TO LOG IN");
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm4::SpeedButton2Click(TObject *Sender)
{
Application->Terminate();
}
//---------------------------------------------------------------------------