main.cpp

C++Builder6下的一个生产管理系统

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

#include <vcl.h>
#pragma hdrstop

#include "Main.h"
#include "Material.h"
#include "Bom.h"
#include "day.h"
#include "ProNeed.h"
#include "mps.h"
#include "mrpcal.h"
#include "mrphis.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::mnuResourceClick(TObject *Sender)
{
    // 显示物料主文件维护窗体
    TForm *pForm = FormExist("物料主文件维护");
    // 如果已存在则激活，否则新建一个字窗体
    if(pForm)
        pForm->SetFocus();
    else
        pForm = new TfmMaterial(Application);
    pForm->Show();
}
//---------------------------------------------------------
void __fastcall TfmMain::mnuBomClick(TObject *Sender)
{
    // 显示物料清单(产品结构)维护窗体
    TForm *pForm = FormExist("物料清单(产品结构)维护");
    // 如果已存在则激活，否则新建一个字窗体
    if(pForm)
        pForm->SetFocus();
    else
        pForm = new TfmBom(Application);
    pForm->Show();
}
//---------------------------------------------------------

void __fastcall TfmMain::N1Click(TObject *Sender)
{
    // 显示工厂日历维护窗体
    TForm *pForm = FormExist("工厂日历维护");
    // 如果已存在则激活，否则新建一个字窗体
    if(pForm)
        pForm->SetFocus();
    else
        pForm = new TfmDay(Application);
    pForm->Show();
}
//---------------------------------------------------------

void __fastcall TfmMain::mnuNeedClick(TObject *Sender)
{
    // 显示产品需求计划维护窗体
    TForm *pForm = FormExist("产品需求计划维护");
    // 如果已存在则激活，否则新建一个字窗体
    if(pForm)
        pForm->SetFocus();
    else
        pForm = new TfmProNeed(Application);
    pForm->Show();
}
//---------------------------------------------------------
void __fastcall TfmMain::mnuMPSClick(TObject *Sender)
{
    // 显示产品需求计划维护窗体
    TForm *pForm = FormExist("主生产计划维护");
    // 如果已存在则激活，否则新建一个字窗体
    if(pForm)
        pForm->SetFocus();
    else
        pForm = new TfmMPS(Application);
    pForm->Show();
}
//---------------------------------------------------------
void __fastcall TfmMain::mnuMRPCalClick(TObject *Sender)
{
    // 显示产品需求计划维护窗体
    TForm *pForm = FormExist("MRP计算");
    // 如果已存在则激活，否则新建一个字窗体
    if(pForm)
        pForm->SetFocus();
    else
        pForm = new TfmMrpCal(Application);
    pForm->Show();
}
//---------------------------------------------------------
void __fastcall TfmMain::mnuMRPHisClick(TObject *Sender)
{
    // 显示产品需求计划维护窗体
    TForm *pForm = FormExist("MRP计算历史查询");
    // 如果已存在则激活，否则新建一个字窗体
    if(pForm)
        pForm->SetFocus();
    else
        pForm = new TfmMRPHis(Application);
    pForm->Show();
}
//---------------------------------------------------------
 void __fastcall TfmMain::mnuOverlapClick(TObject *Sender)
{
    this->Cascade();
}
//---------------------------------------------------------

void __fastcall TfmMain::mnuTileClick(TObject *Sender)
{
    this->Tile();
}
//---------------------------------------------------------