unit fm_Calculate_main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, Menus, ExtCtrls, ComCtrls;

type
  TfrmCalculate = class(TForm)
    MainMenu1: TMainMenu;
    File1: TMenuItem;
    Exit1: TMenuItem;
    Calculate1: TMenuItem;
    Help1: TMenuItem;
    About1: TMenuItem;
    PerformCalculation1: TMenuItem;
    Clear1: TMenuItem;
    stbrTime: TStatusBar;
    Panel1: TPanel;
    btbtnCalc: TBitBtn;
    btbtnReset: TBitBtn;
    Timer1: TTimer;
    PageControl1: TPageControl;
    Label1: TLabel;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    bttnMoreClasses1: TButton;
    tbshtCalculation: TTabSheet;
    edtClass1: TEdit;
    edtClass2: TEdit;
    edtClass3: TEdit;
    edtClass4: TEdit;
    edtClass5: TEdit;
    edtClass6: TEdit;
    GroupBox2: TGroupBox;
    edtCredits1: TEdit;
    edtCredits2: TEdit;
    edtCredits3: TEdit;
    edtCredits4: TEdit;
    edtCredits5: TEdit;
    edtCredits6: TEdit;
    Label13: TLabel;
    GroupBox3: TGroupBox;
    Label14: TLabel;
    CheckBox: TCheckBox;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    CheckBox6: TCheckBox;
    TabSheet2: TTabSheet;
    GroupBox4: TGroupBox;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    edtClass7: TEdit;
    edtClass8: TEdit;
    edtClass9: TEdit;
    edtClass10: TEdit;
    edtClass11: TEdit;
    edtClass12: TEdit;
    edtCredits7: TEdit;
    edtCredits8: TEdit;
    edtCredits9: TEdit;
    edtCredits10: TEdit;
    edtCredits11: TEdit;
    edtCredits12: TEdit;
    CheckBox7: TCheckBox;
    CheckBox12: TCheckBox;
    CheckBox11: TCheckBox;
    CheckBox10: TCheckBox;
    CheckBox9: TCheckBox;
    CheckBox8: TCheckBox;
    Label28: TLabel;
    bttnMoreClasses2: TButton;
    TabSheet3: TTabSheet;
    bttnMoreClasses3: TButton;
    Label36: TLabel;
    TabSheet4: TTabSheet;
    GroupBox6: TGroupBox;
    Label37: TLabel;
    Label38: TLabel;
    Label39: TLabel;
    Label40: TLabel;
    Label41: TLabel;
    Label42: TLabel;
    Label43: TLabel;
    Label44: TLabel;
    Label45: TLabel;
    Label46: TLabel;
    edtClass19: TEdit;
    edtClass20: TEdit;
    edtClass21: TEdit;
    edtClass22: TEdit;
    edtClass23: TEdit;
    edtClass24: TEdit;
    edtCredits19: TEdit;
    edtCredits20: TEdit;
    edtCredits21: TEdit;
    edtCredits22: TEdit;
    edtCredits23: TEdit;
    edtCredits24: TEdit;
    CheckBox19: TCheckBox;
    CheckBox24: TCheckBox;
    CheckBox23: TCheckBox;
    CheckBox22: TCheckBox;
    CheckBox21: TCheckBox;
    CheckBox20: TCheckBox;
    bttnMoreClasses4: TButton;
    Label47: TLabel;
    TabSheet5: TTabSheet;
    Label48: TLabel;
    GroupBox7: TGroupBox;
    Label49: TLabel;
    Label50: TLabel;
    Label51: TLabel;
    Label52: TLabel;
    Label53: TLabel;
    Label54: TLabel;
    Label55: TLabel;
    Label56: TLabel;
    Label57: TLabel;
    Label58: TLabel;
    edtClass25: TEdit;
    edtClass26: TEdit;
    edtClass27: TEdit;
    edtClass28: TEdit;
    edtClass29: TEdit;
    edtClass30: TEdit;
    edtCredits25: TEdit;
    edtCredits26: TEdit;
    edtCredits27: TEdit;
    edtCredits28: TEdit;
    edtCredits29: TEdit;
    edtCredits30: TEdit;
    CheckBox25: TCheckBox;
    CheckBox30: TCheckBox;
    CheckBox29: TCheckBox;
    CheckBox28: TCheckBox;
    CheckBox27: TCheckBox;
    CheckBox26: TCheckBox;
    GroupBox5: TGroupBox;
    Label19: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    Label29: TLabel;
    Label30: TLabel;
    Label31: TLabel;
    Label32: TLabel;
    Label33: TLabel;
    Label34: TLabel;
    Label35: TLabel;
    edtClass13: TEdit;
    edtClass14: TEdit;
    edtClass15: TEdit;
    edtClass16: TEdit;
    edtClass17: TEdit;
    edtClass18: TEdit;
    edtCredits13: TEdit;
    edtCredits14: TEdit;
    edtCredits15: TEdit;
    edtCredits16: TEdit;
    edtCredits17: TEdit;
    edtCredits18: TEdit;
    CheckBox13: TCheckBox;
    CheckBox18: TCheckBox;
    CheckBox17: TCheckBox;
    CheckBox16: TCheckBox;
    CheckBox15: TCheckBox;
    CheckBox14: TCheckBox;
    TabSheet6: TTabSheet;
    bttnMoreClasses5: TButton;
    GroupBox8: TGroupBox;
    Label59: TLabel;
    Label60: TLabel;
    Label61: TLabel;
    Label62: TLabel;
    Label63: TLabel;
    Label64: TLabel;
    Label65: TLabel;
    Label66: TLabel;
    Label67: TLabel;
    Label68: TLabel;
    edtClass31: TEdit;
    edtClass32: TEdit;
    edtClass33: TEdit;
    edtClass34: TEdit;
    edtClass35: TEdit;
    edtClass36: TEdit;
    edtCredits31: TEdit;
    edtCredits32: TEdit;
    edtCredits33: TEdit;
    edtCredits34: TEdit;
    edtCredits35: TEdit;
    edtCredits36: TEdit;
    CheckBox31: TCheckBox;
    CheckBox36: TCheckBox;
    CheckBox35: TCheckBox;
    CheckBox34: TCheckBox;
    CheckBox33: TCheckBox;
    CheckBox32: TCheckBox;
    bttnMoreClasses6: TButton;
    Label69: TLabel;
    TabSheet7: TTabSheet;
    GroupBox9: TGroupBox;
    Label70: TLabel;
    Label71: TLabel;
    Label72: TLabel;
    Label73: TLabel;
    Label74: TLabel;
    Label75: TLabel;
    Label76: TLabel;
    Label77: TLabel;
    Label78: TLabel;
    Label79: TLabel;
    edtClass37: TEdit;
    edtClass38: TEdit;
    edtClass39: TEdit;
    edtClass40: TEdit;
    edtClass41: TEdit;
    edtClass42: TEdit;
    edtCredits37: TEdit;
    edtCredits38: TEdit;
    edtCredits39: TEdit;
    edtCredits40: TEdit;
    edtCredits41: TEdit;
    edtCredits42: TEdit;
    CheckBox37: TCheckBox;
    CheckBox42: TCheckBox;
    CheckBox41: TCheckBox;
    CheckBox40: TCheckBox;
    CheckBox39: TCheckBox;
    CheckBox38: TCheckBox;
    bttnMoreClasses7: TButton;
    Label80: TLabel;
    TabSheet8: TTabSheet;
    GroupBox10: TGroupBox;
    Label81: TLabel;
    Label82: TLabel;
    Label83: TLabel;
    Label84: TLabel;
    Label85: TLabel;
    Label86: TLabel;
    Label87: TLabel;
    Label88: TLabel;
    Label89: TLabel;
    Label90: TLabel;
    edtClass43: TEdit;
    edtClass44: TEdit;
    edtClass45: TEdit;
    edtClass46: TEdit;
    edtClass47: TEdit;
    edtClass48: TEdit;
    edtCredits43: TEdit;
    edtCredits44: TEdit;
    edtCredits45: TEdit;
    edtCredits46: TEdit;
    edtCredits47: TEdit;
    edtCredits48: TEdit;
    CheckBox43: TCheckBox;
    CheckBox48: TCheckBox;
    CheckBox47: TCheckBox;
    CheckBox46: TCheckBox;
    CheckBox45: TCheckBox;
    CheckBox44: TCheckBox;
    Label91: TLabel;
    procedure About1Click(Sender: TObject);
    procedure Exit1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure PerformCalculation1Click(Sender: TObject);
    procedure Clear1Click(Sender: TObject);
    procedure bttnMoreClasses1Click(Sender: TObject);
    procedure bttnMoreClasses2Click(Sender: TObject);
    procedure bttnMoreClasses3Click(Sender: TObject);
    procedure bttnMoreClasses4Click(Sender: TObject);
    procedure bttnMoreClasses5Click(Sender: TObject);
    procedure bttnMoreClasses6Click(Sender: TObject);
    procedure bttnMoreClasses7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmCalculate: TfrmCalculate;

implementation

uses   fm_About, fm_Calculate_result {fm_PrintPreview};


{$R *.DFM}

procedure TfrmCalculate.About1Click(Sender: TObject);
begin
  frmAboutBox.ShowModal;
end;

procedure TfrmCalculate.Exit1Click(Sender: TObject);
begin
  Close;
end;

procedure TfrmCalculate.Timer1Timer(Sender: TObject);
begin
  stbrTime.Panels[1].text := FormatDateTime( 'mm/dd/yyyy   hh:nn:ss am/pm', now );
end;



procedure TfrmCalculate.PerformCalculation1Click(Sender: TObject);
begin
 if (edtClass1.Text = '') and (edtCredits1.Text = '') then
   MessageDlg('Please enter in data.',mtError,[mbOK],0)
 else
   frmCalculate_result.ShowModal;
end;


procedure TfrmCalculate.Clear1Click(Sender: TObject);
begin
  edtClass1.Text     := '';
  edtClass2.Text     := '';
  edtClass3.Text     := '';
  edtClass4.Text     := '';
  edtClass5.Text     := '';
  edtClass6.Text     := '';
  edtCredits1.Text   := '';
  edtCredits2.Text   := '';
  edtCredits3.Text   := '';
  edtCredits4.Text   := '';
  edtCredits5.Text   := '';
  edtCredits6.Text   := '';
  CheckBox1.Checked  := False;
  CheckBox2.Checked  := False;
  CheckBox3.Checked  := False;
  CheckBox4.Checked  := False;
  CheckBox5.Checked  := False;
  CheckBox6.Checked  := False;

  if (TabSheet2.TabVisible = True) then
  begin
    edtClass7.Text      := '';
    edtClass8.Text      := '';
    edtClass9.Text      := '';
    edtClass10.Text     := '';
    edtClass11.Text     := '';
    edtClass12.Text     := '';
    edtCredits7.Text    := '';
    edtCredits8.Text    := '';
    edtCredits9.Text    := '';
    edtCredits10.Text   := '';
    edtCredits11.Text   := '';
    edtCredits12.Text   := '';
    CheckBox7.Checked   := False;
    CheckBox8.Checked   := False;
    CheckBox9.Checked   := False;
    CheckBox10.Checked  := False;
    CheckBox11.Checked  := False;
    CheckBox12.Checked  := False;
  end;

  if (TabSheet3.TabVisible = True) then
  begin
    edtClass13.Text      := '';
    edtClass14.Text      := '';
    edtClass15.Text      := '';
    edtClass16.Text      := '';
    edtClass17.Text      := '';
    edtClass18.Text      := '';
    edtCredits13.Text    := '';
    edtCredits14.Text    := '';
    edtCredits15.Text    := '';
    edtCredits16.Text    := '';
    edtCredits17.Text    := '';
    edtCredits18.Text    := '';
    CheckBox13.Checked   := False;
    CheckBox14.Checked   := False;
    CheckBox15.Checked   := False;
    CheckBox16.Checked   := False;
    CheckBox17.Checked   := False;
    CheckBox18.Checked   := False;
  end;

  if (TabSheet4.TabVisible = True) then
  begin
    edtClass19.Text      := '';
    edtClass20.Text      := '';
    edtClass21.Text      := '';
    edtClass22.Text      := '';
    edtClass23.Text      := '';
    edtClass24.Text      := '';
    edtCredits19.Text    := '';
    edtCredits20.Text    := '';
    edtCredits21.Text    := '';
    edtCredits22.Text    := '';
    edtCredits23.Text    := '';
    edtCredits24.Text    := '';
    CheckBox19.Checked   := False;
    CheckBox20.Checked   := False;
    CheckBox21.Checked   := False;
    CheckBox22.Checked   := False;
    CheckBox23.Checked   := False;
    CheckBox24.Checked   := False;
  end;

  if (TabSheet5.TabVisible = True) then
  begin
    edtClass25.Text      := '';
    edtClass26.Text      := '';
    edtClass27.Text      := '';
    edtClass28.Text      := '';
    edtClass29.Text      := '';
    edtClass30.Text      := '';
    edtCredits25.Text    := '';
    edtCredits26.Text    := '';
    edtCredits27.Text    := '';
    edtCredits28.Text    := '';
    edtCredits29.Text    := '';
    edtCredits30.Text    := '';
    CheckBox25.Checked   := False;
    CheckBox26.Checked   := False;
    CheckBox27.Checked   := False;
    CheckBox28.Checked   := False;
    CheckBox29.Checked   := False;
    CheckBox30.Checked   := False;
  end;

  if (TabSheet6.TabVisible = True) then
  begin
    edtClass31.Text      := '';
    edtClass32.Text      := '';
    edtClass33.Text      := '';
    edtClass34.Text      := '';
    edtClass35.Text      := '';
    edtClass36.Text      := '';
    edtCredits31.Text    := '';
    edtCredits32.Text    := '';
    edtCredits33.Text    := '';
    edtCredits34.Text    := '';
    edtCredits35.Text    := '';
    edtCredits36.Text    := '';
    CheckBox31.Checked   := False;
    CheckBox32.Checked   := False;
    CheckBox33.Checked   := False;
    CheckBox34.Checked   := False;
    CheckBox35.Checked   := False;
    CheckBox36.Checked   := False;
  end;

  if (TabSheet7.TabVisible = True) then
  begin
    edtClass37.Text      := '';
    edtClass38.Text      := '';
    edtClass39.Text      := '';
    edtClass40.Text      := '';
    edtClass41.Text      := '';
    edtClass42.Text      := '';
    edtCredits37.Text    := '';
    edtCredits38.Text    := '';
    edtCredits39.Text    := '';
    edtCredits40.Text    := '';
    edtCredits41.Text    := '';
    edtCredits42.Text    := '';
    CheckBox37.Checked   := False;
    CheckBox38.Checked   := False;
    CheckBox39.Checked   := False;
    CheckBox40.Checked   := False;
    CheckBox41.Checked   := False;
    CheckBox42.Checked   := False;
  end;

  if (TabSheet8.TabVisible = True) then
  begin
    edtClass43.Text      := '';
    edtClass44.Text      := '';
    edtClass45.Text      := '';
    edtClass46.Text      := '';
    edtClass47.Text      := '';
    edtClass48.Text      := '';
    edtCredits43.Text    := '';
    edtCredits44.Text    := '';
    edtCredits45.Text    := '';
    edtCredits46.Text    := '';
    edtCredits47.Text    := '';
    edtCredits48.Text    := '';
    CheckBox43.Checked   := False;
    CheckBox44.Checked   := False;
    CheckBox45.Checked   := False;
    CheckBox46.Checked   := False;
    CheckBox47.Checked   := False;
    CheckBox48.Checked   := False;
  end;

end;



procedure TfrmCalculate.bttnMoreClasses1Click(Sender: TObject);
begin
  TabSheet2.TabVisible := True;
  PageControl1.ActivePage := TabSheet2;
end;

procedure TfrmCalculate.bttnMoreClasses2Click(Sender: TObject);
begin
  TabSheet3.TabVisible := True;
  PageControl1.ActivePage := TabSheet3;
end;

procedure TfrmCalculate.bttnMoreClasses3Click(Sender: TObject);
begin
  TabSheet4.TabVisible := True;
  PageControl1.ActivePage := TabSheet4;
end;

procedure TfrmCalculate.bttnMoreClasses4Click(Sender: TObject);
begin
  TabSheet5.TabVisible := True;
  PageControl1.ActivePage := TabSheet5;
end;

procedure TfrmCalculate.bttnMoreClasses5Click(Sender: TObject);
begin
  TabSheet6.TabVisible := True;
  PageControl1.ActivePage := TabSheet6;
end;

procedure TfrmCalculate.bttnMoreClasses6Click(Sender: TObject);
begin
  TabSheet7.TabVisible := True;
  PageControl1.ActivePage := TabSheet7;
end;

procedure TfrmCalculate.bttnMoreClasses7Click(Sender: TObject);
begin
  TabSheet8.TabVisible := True;
  PageControl1.ActivePage := TabSheet8;
end;

end.