//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "sys.h"
#include "login.h"
#include "plan.h"
#include "cous.h"
#include "room.h"
#include "stud.h"
#include "tech.h"
#include "class.h"
#include "auto.h"
#include "qclas.h"
#include "qtech.h"
#include "sysinfo.h"
#include "help.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TMainForm *MainForm;
//---------------------------------------------------------------------------
__fastcall TMainForm::TMainForm(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::SQuitClick(TObject *Sender)
{
     Application->Terminate();
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::FormClose(TObject *Sender, TCloseAction &Action)
{
   Application->Terminate();
}
//---------------------------------------------------------------------------
TForm* TMainForm::FormExist(AnsiString szCaption)
{
    for(int i=0; i<this->MDIChildCount; i++)
    {
        TForm *pForm = this->MDIChildren[i];
        if(pForm->Caption == szCaption)
            return pForm;   // 已存在窗體,返回該窗體
    }
    return NULL;    // 不存在窗體,返回空值
}

void __fastcall TMainForm::SLoginClick(TObject *Sender)
{
    // 顯示定義窗體
    TForm *pForm = FormExist("系統(tǒng)登錄");
    // 如果已存在則激活，否則新建一個(gè)字窗體
    if(pForm)
        pForm->SetFocus();
    else
        pForm = new TLoginForm(Application);
    pForm->Show();
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::SPlanClick(TObject *Sender)
{
    // 顯示定義窗體
    TForm *pForm = FormExist("教學(xué)計(jì)劃管理");
    // 如果已存在則激活，否則新建一個(gè)字窗體
    if(pForm)
        pForm->SetFocus();
    else
        pForm = new TPlanForm(Application);
    pForm->Show();
}
//---------------------------------------------------------------------------


void __fastcall TMainForm::SCousClick(TObject *Sender)
{
     // 顯示定義窗體
    TForm *pForm = FormExist("課程信息維護(hù)");
    // 如果已存在則激活，否則新建一個(gè)字窗體
    if(pForm)
        pForm->SetFocus();
    else
        pForm = new TCousForm(Application);
    pForm->Show();
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::SRoomClick(TObject *Sender)
{
    // 顯示定義窗體
    TForm *pForm = FormExist("教室信息維護(hù)");
    // 如果已存在則激活，否則新建一個(gè)字窗體
    if(pForm)
        pForm->SetFocus();
    else
        pForm = new TRoomForm(Application);
    pForm->Show();
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::SStudClick(TObject *Sender)
{
    // 顯示定義窗體
    TForm *pForm = FormExist("學(xué)生信息維護(hù)");
    // 如果已存在則激活，否則新建一個(gè)字窗體
    if(pForm)
        pForm->SetFocus();
    else
        pForm = new TStudForm(Application);
    pForm->Show();
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::STeachClick(TObject *Sender)
{
    // 顯示定義窗體
    TForm *pForm = FormExist("教師信息維護(hù)");
    // 如果已存在則激活，否則新建一個(gè)字窗體
    if(pForm)
        pForm->SetFocus();
    else
        pForm = new TTechForm(Application);
    pForm->Show();
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::SClassClick(TObject *Sender)
{
    // 顯示定義窗體
    TForm *pForm = FormExist("班級信息維護(hù)");
    // 如果已存在則激活，否則新建一個(gè)字窗體
    if(pForm)
        pForm->SetFocus();
    else
        pForm = new TClasForm(Application);
    pForm->Show();
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::SAutoClick(TObject *Sender)
{
    // 顯示定義窗體
    TForm *pForm = FormExist("自動(dòng)排課");
    // 如果已存在則激活，否則新建一個(gè)字窗體
    if(pForm)
        pForm->SetFocus();
    else
        pForm = new TAutoForm(Application);
    pForm->Show();
}
//---------------------------------------------------------------------------


void __fastcall TMainForm::SQClasClick(TObject *Sender)
{
    // 顯示定義窗體
    TForm *pForm = FormExist("班級課表查詢");
    // 如果已存在則激活，否則新建一個(gè)字窗體
    if(pForm)
        pForm->SetFocus();
    else
        pForm = new TQClasForm(Application);
    pForm->Show();
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::SQTeachClick(TObject *Sender)
{
    // 顯示定義窗體
    TForm *pForm = FormExist("教師課表查詢");
    // 如果已存在則激活，否則新建一個(gè)字窗體
    if(pForm)
        pForm->SetFocus();
    else
        pForm = new TQTechForm(Application);
    pForm->Show();
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::SVersClick(TObject *Sender)
{
    // 顯示定義窗體
    TForm *pForm = FormExist("系統(tǒng)信息");
    // 如果已存在則激活，否則新建一個(gè)字窗體
    if(pForm)
        pForm->SetFocus();
    else
        pForm = new TSysInfoForm(Application);
    pForm->Show();
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::SHelClick(TObject *Sender)
{
    // 顯示定義窗體
    TForm *pForm = FormExist("系統(tǒng)幫助信息");
    // 如果已存在則激活，否則新建一個(gè)字窗體
    if(pForm)
        pForm->SetFocus();
    else
        pForm = new THelpForm(Application);
    pForm->Show();
}
//---------------------------------------------------------------------------