unit TeachersReportUnit;

interface

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

type
  TfrmTeachersReport = class(TForm)
    memViewReport: TMemo;
    OpenDialog: TOpenDialog;
    btnViewReport: TButton;
    btnExit: TButton;
    procedure btnViewReportClick(Sender: TObject);
    procedure btnExitClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmTeachersReport: TfrmTeachersReport;

implementation

{$R *.dfm}

//select file to view student's results
procedure TfrmTeachersReport.btnViewReportClick(Sender: TObject);
begin
  if OpenDialog.Execute then
    begin
      memViewReport.Lines.Clear; //clears memobox
      memViewReport.Lines.LoadFromFile(OpenDialog.FileName); //loads selected file
    end;
end;

//close the form
procedure TfrmTeachersReport.btnExitClick(Sender: TObject);
begin
  frmTeachersReport.Close;
end;

end.







unit TeachersReportUnit;

interface

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

type
  TfrmTeachersReport = class(TForm)
    memViewReport: TMemo;
    btnExit: TButton;
    cboUsers: TComboBox;
    procedure btnExitClick(Sender: TObject);
    procedure cboUsersChange(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmTeachersReport: TfrmTeachersReport;
  testfile : textfile;

implementation

Uses
  LoginUnit , TeacherMenuUnit;

{$R *.dfm}

//Display the results from file into memo

procedure TfrmTeachersReport.cboUsersChange(Sender: TObject);
begin
  memViewReport.Lines.Clear; //clears memobox
  memViewReport.Lines.LoadFromFile(cboUsers.Text + '.txt'); //writes results file to memo
end;

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

//close the form - goes back to teacher's menu:
procedure TfrmTeachersReport.btnExitClick(Sender: TObject);
  Begin
    frmTeachersReport.Close;
    frmTeacherMenu.Show;
  End;

end.







//Display the results from file into memo for edit (search):
procedure TfrmTeachersReport.btnViewResultsClick(Sender: TObject);
Var
  count : Integer;
  found : Bool;
begin
  found := False;

  //search for username in array:
  for count := 1 to frmLogin.i do
    Begin
      if cboUsers.Text = frmLogin.UserArray[count].Username then
        found := True;
    End;

  if found = True then  //if username is found in array
    Begin
      memViewReport.Lines.Clear; //clears memobox
      memViewReport.Lines.LoadFromFile(cboUsers.Text + '.txt'); //writes results file to memo
    End

  Else    //if username is not found in array:
    Begin
      ShowMessage('That username does not exist - '
                  + 'make sure to type the username correctly (case sensitive)');
      cboUsers.Text; //clears current string in combo box
    End;
end;


//close the form - goes back to teacher's menu:
procedure TfrmTeachersReport.btnExitClick(Sender: TObject);
  Begin
    frmTeachersReport.Close;
    frmTeacherMenu.Show;
    memViewReport.Clear; //clear memo
    cboUsers.Items.Clear; //clear usernames in combo box
  End;

end.