PAT-2020/uAccountDetails.pas at main · ryanbasiltrickett/PAT-2020 · 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
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
unit uAccountDetails;

interface

uses
  uLibrary, Dialogs, Forms, SysUtils;

Type
  TAccountDetails = class
  private
    fLoginForm: TForm;
    fIsClient: boolean;

  public
    constructor Create(LoginForm: TForm; IsClient: boolean);
    procedure ChangePassword(OldPass, NewPass, RetypedNewPass, PersonsPass,
    ID, Name, Email: string; var Completed : boolean);
    procedure DeactivateAcc(ID: string; Form: TForm);
    procedure LogOut(Form: TForm);
  end;

implementation

//-------------------------------------CHANGES A USERS PASSWORD
procedure TAccountDetails.ChangePassword(OldPass, NewPass, RetypedNewPass,
  PersonsPass, ID, Name, Email: string; var Completed : boolean);
var
  sSQL: string;
begin
  Completed := false;

  //-------------------------------------CHECKS THAT ALL FIELDS HAVE
  //-------------------------------------BEEN ENTERED
  if (OldPass = '') OR (NewPass = '') OR (RetypedNewPass = '') then
    MessageDlg('None of the field for changing your password may be empty',
      mtError, mbOKCancel, 0)
  else if OldPass = PersonsPass then
  begin
    if PasswordCriteriaMet(NewPass) then
    begin
      if NewPass = RetypedNewPass then
      begin
        Completed := true;

        if fIsClient = true then
          sSQL := 'Update Users '
                + 'Set [Password] = "' + NewPass + '" '
                + 'where [UserID] = ' + ID
        else
          sSQL := 'Update Staff '
                + 'Set [Password] = "' + NewPass + '" '
                + 'where [StaffID] = ' + ID;

        objDB.DoSQL(sSQL);

        MessageDlg('Email Sending Please Wait...', mtInformation, mbOKCancel,
        0);

        //-------------------------------------SENDS EMAIL CONFIRMING
        //-------------------------------------PASSWORD CHANGE
        objEmails.SendEmail(Name, Email, 'Your Password Has Been Changed',
        'Dear ' + Name + ',' + #13 + #13 + 'Your password has ' +
        'been changed to "' + NewPass + '", this change happened at ' +
        TimeToStr(Now()) + ' on the ' + DateToStr(Date()) + #13 +
        'If this was NOT you please log in and ensure that you change' +
        ' your password back and secure your account!' + #13 + #13 +
        'Regards,' + #13 + 'Birds Eye Security');

        MessageDlg('You password has been changed', mtInformation, mbOKCancel,
          0);
      end
      else
        MessageDlg('The new password that you entered if different to' +
            ' the retyped new password. Please ensure you entered your new ' +
            'desired password correctly', mtError, mbOKCancel, 0);
    end;
  end
  else
    MessageDlg('The current password that you entered if different to' +
        ' the password that is connected to this account. Please ensure you ' +
        'entered the password correctly', mtError, mbOKCancel, 0);
end;

//-------------------------------------CREATES ACCOUNT DETAILS OBJECT
constructor TAccountDetails.Create(LoginForm: TForm; IsClient: boolean);
begin
  fLoginForm := LoginForm;
  fIsClient := IsClient;
end;

//-------------------------------------DEACTIVATES A USERS ACCOUNT
procedure TAccountDetails.DeactivateAcc(ID: string; Form: TForm);
var
  sSQL: string;
begin
  if fIsClient = true then
    sSQL := 'Update Users ' + 'Set [Inactive User] = True ' +
      'where [UserID] = ' + ID
  else
    sSQL := 'Update Staff ' + 'Set [Inactive Staff] = True ' +
      'where [StaffID] = ' + ID;

  objDB.DoSQL(sSQL);

  MessageDlg('Your account has been successfully deactivated!', mtConfirmation,
    mbOKCancel, 0);

  LogOut(Form);
end;

//-------------------------------------LOGS A USER OUT OF THEIR ACCOUNT
procedure TAccountDetails.LogOut(Form: TForm);
begin
  MessageDlg('You have been Logged Out', mtInformation, mbOKCancel, 0);
  Pointer((@Application.MainForm)^) := fLoginForm;
  Form.Destroy;
  fLoginForm.Show;
end;

end.