unit NewUserUnit;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;

type
  TfrmNewUser = class(TForm)
    ledtNewUsername: TLabeledEdit;
    ledtNewPassword: TLabeledEdit;
    btnCreateUser: TButton;
    btnExit: TButton;
    procedure btnExitClick(Sender: TObject);
    procedure btnCreateUserClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmNewUser: TfrmNewUser;

implementation

{$R *.dfm}

procedure TfrmNewUser.btnCreateUserClick(Sender: TObject);
var
LoginFile : Textfile;

begin

  //presence check for new username
  if ledtNewUsername.Text = '' then
    showmessage('Please enter a username');

  //presence check for new password
  if ledtNewPassword.Text = '' then
    showmessage('Please enter a password');


  //Writing new username and password to file 'loginDetails.txt':
  If(ledtNewUsername.Text <> '') AND (ledtNewPassword.Text <> '') Then
    Begin
      Assignfile(LoginFile, 'loginDetails.txt');
      Rewrite(LoginFile);
      writeln(LoginFile , ledtNewUsername.Text);  //writes username
      writeln(LoginFile , ledtNewPassword.Text);  //writes password
      ShowMessage('The new user has been added to the database');
      CloseFile(LoginFile);
    End;
end;


procedure TfrmNewUser.btnExitClick(Sender: TObject);
begin
  frmNewUser.Close;
end;

end.










unit NewUserUnit;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;

type
  TfrmNewUser = class(TForm)
    ledtNewUsername: TLabeledEdit;
    ledtNewPassword: TLabeledEdit;
    btnCreateUser: TButton;
    btnExit: TButton;
    cboUserType: TComboBox;
    procedure btnExitClick(Sender: TObject);
    procedure btnCreateUserClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmNewUser: TfrmNewUser;
  StudentFile : TextFile;
implementation

uses
  LoginUnit , TeacherMenuUnit;

{$R *.dfm}

procedure TfrmNewUser.btnCreateUserClick(Sender: TObject);
var
LoginFile : Textfile;
count : integer;
Match : Boolean;
begin
  Match := False;

  //checking to see if username already exists in file of login details
  for count := 1 to frmLogin.i do
    Begin
      if ledtNewUsername.Text = frmLogin.UserArray[count].Username then
        Begin
          Match := True;  //if username is found in file
          ShowMessage('This username has already been taken, please choose another');
          ledtNewUsername.Text := '' //clears edit for new username
        End;
    End;

  //Writing new username and password to file 'loginDetails.txt':
  if Match = False then
  Begin
    Assignfile(LoginFile, 'loginDetails.txt');
    Append(LoginFile);
    writeln(LoginFile , ledtNewUsername.Text);  //writes username to file
    writeln(LoginFile , ledtNewPassword.Text);  //writes password to file
    writeln(LoginFile , cboUserType.Text);      //writes user type to file
    ShowMessage('The new user has been added to the database');
    CloseFile(LoginFile);
  End;

  //create a file for new student user to store results from tests:
  if cboUserType.Text = 'Student' then
    Begin
      //name the file as the student's username
      AssignFile(StudentFile , ledtNewUsername.Text + '.txt');
      Rewrite(StudentFile); //creates the file
      CloseFile(StudentFile)
    End;


end;


procedure TfrmNewUser.btnExitClick(Sender: TObject);
begin
  frmNewUser.Close;
  frmTeacherMenu.Show;
end;

procedure TfrmNewUser.FormCreate(Sender: TObject);
begin
  //disables close button (top-right corner):
  EnableMenuItem( GetSystemMenu( handle, False ),SC_CLOSE, MF_BYCOMMAND or MF_GRAYED );
end;

end.