main.cpp

来自「C++ Builder数据库开发经典案例解析 示例程序都是在C++ Build」· C++ 代码 · 共 140 行

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

#include <vcl.h>
#pragma hdrstop

#include "Main.h"
#include "class.h"
#include "student.h"
#include "course.h"
#include "selcourse.h"
#include "showcourse.h"
#include "inputgrade.h"
#include "printgrade.h"

//---------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TfmMain *fmMain;

// 数据库开发经典实例解析  清华大学出版社
//---------------------------------------------------------
__fastcall TfmMain::TfmMain(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------
TForm* TfmMain::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 TfmMain::mnuExitClick(TObject *Sender)
{
    Application->Terminate();
}
//-------------------------------------------------------------
void __fastcall TfmMain::Label1Click(TObject *Sender)
{
    // 查找相应按钮对应的菜单，通过菜单执行相应的操作
    for(int i = 0; i< MainMenu1->Items->Count; i++)
    {
        TMenuItem* pItem = MainMenu1->Items->Items[i];
        TMenuItem* pItem1 = pItem->Find(
            ((TLabel*) Sender)->Caption);
        if(pItem1) pItem1->Click();
    }
}
//---------------------------------------------------------
void __fastcall TfmMain::mnuClassInfoClick(TObject *Sender)
{
    // 班级信息维护
    TForm *pForm = FormExist("班级信息维护");
    // 如果已存在则激活，否则新建一个字窗体
    if(pForm)
        pForm->SetFocus();
    else
        pForm = new TfmClass(Application);
    pForm->Show();
}
//---------------------------------------------------------------------------
void __fastcall TfmMain::mnuStudentInfoClick(TObject *Sender)
{
    // 学生信息维护
    TForm *pForm = FormExist("学生信息维护");
    // 如果已存在则激活，否则新建一个字窗体
    if(pForm)
        pForm->SetFocus();
    else
        pForm = new TfmStudent(Application);
    pForm->Show();
}
//---------------------------------------------------------------------------
void __fastcall TfmMain::mnuCourseInfoClick(TObject *Sender)
{
    // 课程信息维护
    TForm *pForm = FormExist("课程信息维护");
    // 如果已存在则激活，否则新建一个字窗体
    if(pForm)
        pForm->SetFocus();
    else
        pForm = new TfmCourse(Application);
    pForm->Show();
}
//---------------------------------------------------------------------------
void __fastcall TfmMain::mnuSelectCourseClick(TObject *Sender)
{
    // 学生选课
    TForm *pForm = FormExist("学生选课");
    // 如果已存在则激活，否则新建一个字窗体
    if(pForm)
        pForm->SetFocus();
    else
        pForm = new TfmSelCourse(Application);
    pForm->Show();
}
//---------------------------------------------------------------------------
void __fastcall TfmMain::mnuQueryCourseClick(TObject *Sender)
{
    // 课表查询
    TForm *pForm = FormExist("课表查询");
    // 如果已存在则激活，否则新建一个字窗体
    if(pForm)
        pForm->SetFocus();
    else
        pForm = new TfmShowCourse(Application);
    pForm->Show();
}
//---------------------------------------------------------------------------
void __fastcall TfmMain::mnuInputGradeClick(TObject *Sender)
{
    // 成绩输入
    TForm *pForm = FormExist("成绩输入");
    // 如果已存在则激活，否则新建一个字窗体
    if(pForm)
        pForm->SetFocus();
    else
        pForm = new TfmInputGrade(Application);
    pForm->Show();
}
//---------------------------------------------------------------------------
void __fastcall TfmMain::mnuPrintGradeClick(TObject *Sender)
{
    // 打印成绩单
    TForm *pForm = FormExist("打印成绩单");
    // 如果已存在则激活，否则新建一个字窗体
    if(pForm)
        pForm->SetFocus();
    else
        pForm = new TfmPrintGrade(Application);
    pForm->Show();
}
//---------------------------------------------------------------------------