sys.cpp

使用改进的遗传算法实现简单的高校排课

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

#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("系统登录");
    // 如果已存在则激活，否则新建一个字窗体
    if(pForm)
        pForm->SetFocus();
    else
        pForm = new TLoginForm(Application);
    pForm->Show();
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::SPlanClick(TObject *Sender)
{
    // 显示定义窗体
    TForm *pForm = FormExist("教学计划管理");
    // 如果已存在则激活，否则新建一个字窗体
    if(pForm)
        pForm->SetFocus();
    else
        pForm = new TPlanForm(Application);
    pForm->Show();
}
//---------------------------------------------------------------------------


void __fastcall TMainForm::SCousClick(TObject *Sender)
{
     // 显示定义窗体
    TForm *pForm = FormExist("课程信息维护");
    // 如果已存在则激活，否则新建一个字窗体
    if(pForm)
        pForm->SetFocus();
    else
        pForm = new TCousForm(Application);
    pForm->Show();
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::SRoomClick(TObject *Sender)
{
    // 显示定义窗体
    TForm *pForm = FormExist("教室信息维护");
    // 如果已存在则激活，否则新建一个字窗体
    if(pForm)
        pForm->SetFocus();
    else
        pForm = new TRoomForm(Application);
    pForm->Show();
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::SStudClick(TObject *Sender)
{
    // 显示定义窗体
    TForm *pForm = FormExist("学生信息维护");
    // 如果已存在则激活，否则新建一个字窗体
    if(pForm)
        pForm->SetFocus();
    else
        pForm = new TStudForm(Application);
    pForm->Show();
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::STeachClick(TObject *Sender)
{
    // 显示定义窗体
    TForm *pForm = FormExist("教师信息维护");
    // 如果已存在则激活，否则新建一个字窗体
    if(pForm)
        pForm->SetFocus();
    else
        pForm = new TTechForm(Application);
    pForm->Show();
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::SClassClick(TObject *Sender)
{
    // 显示定义窗体
    TForm *pForm = FormExist("班级信息维护");
    // 如果已存在则激活，否则新建一个字窗体
    if(pForm)
        pForm->SetFocus();
    else
        pForm = new TClasForm(Application);
    pForm->Show();
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::SAutoClick(TObject *Sender)
{
    // 显示定义窗体
    TForm *pForm = FormExist("自动排课");
    // 如果已存在则激活，否则新建一个字窗体
    if(pForm)
        pForm->SetFocus();
    else
        pForm = new TAutoForm(Application);
    pForm->Show();
}
//---------------------------------------------------------------------------


void __fastcall TMainForm::SQClasClick(TObject *Sender)
{
    // 显示定义窗体
    TForm *pForm = FormExist("班级课表查询");
    // 如果已存在则激活，否则新建一个字窗体
    if(pForm)
        pForm->SetFocus();
    else
        pForm = new TQClasForm(Application);
    pForm->Show();
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::SQTeachClick(TObject *Sender)
{
    // 显示定义窗体
    TForm *pForm = FormExist("教师课表查询");
    // 如果已存在则激活，否则新建一个字窗体
    if(pForm)
        pForm->SetFocus();
    else
        pForm = new TQTechForm(Application);
    pForm->Show();
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::SVersClick(TObject *Sender)
{
    // 显示定义窗体
    TForm *pForm = FormExist("系统信息");
    // 如果已存在则激活，否则新建一个字窗体
    if(pForm)
        pForm->SetFocus();
    else
        pForm = new TSysInfoForm(Application);
    pForm->Show();
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::SHelClick(TObject *Sender)
{
    // 显示定义窗体
    TForm *pForm = FormExist("系统帮助信息");
    // 如果已存在则激活，否则新建一个字窗体
    if(pForm)
        pForm->SetFocus();
    else
        pForm = new THelpForm(Application);
    pForm->Show();
}
//---------------------------------------------------------------------------