mainform.cpp

石油公司网管系统优化系统软件源码,很有价值的.

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

#include <vcl.h>
#pragma hdrstop

#include "MainForm.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TTMainForm *TMainForm;
//---------------------------------------------------------------------------
__fastcall TTMainForm::TTMainForm(TComponent* Owner)
    : TForm(Owner)
{
    BackPict->Height=this->ClientHeight-25;
    BackPict->Width=this->ClientWidth;
}
//---------------------------------------------------------------------------
void __fastcall TTMainForm::ExitClick(TObject *Sender)
{
    this->Close();
}
//---------------------------------------------------------------------------

void __fastcall TTMainForm::OnResize(TObject *Sender)
{
    BackPict->Height=this->ClientHeight-25;
    BackPict->Width=this->ClientWidth;
}
//---------------------------------------------------------------------------
#include "WellPara.h"
void __fastcall TTMainForm::WellParaClick(TObject *Sender)
{
    TTWellPara *Dlg= new TTWellPara(this);
    Dlg->ShowModal();
    delete Dlg;
}
//---------------------------------------------------------------------------
#include "CommonPara.h"
void __fastcall TTMainForm::CommonParaClick(TObject *Sender)
{
    TTCommonPara *Dlg=new TTCommonPara(this);
    Dlg->ShowModal();
    delete Dlg;
}
//---------------------------------------------------------------------------

#include "Result.h"
#include "DongZhiOpti.h"

void __fastcall TTMainForm::DongPositionClick(TObject *Sender)
{

    TTDongZhiOpti *Dlg= new TTDongZhiOpti(this);
    if(Dlg->ShowModal()==mrOk)
    {
        DongZhi=1;
        TTResult *Result=new TTResult(this);
        Result->Selected=2;
        Result->ShowModal();
        delete Result;
    }
    delete Dlg;

}
//---------------------------------------------------------------------------
#include "About.h"
void __fastcall TTMainForm::AboutClick(TObject *Sender)
{
    TTAbout *Dlg=new TTAbout(this);
    Dlg->ShowModal();
    delete Dlg;
}
//---------------------------------------------------------------------------

void __fastcall TTMainForm::DongPositionResultClick(TObject *Sender)
{
    if(DongZhi==0)
    {
        Application->MessageBoxA("请先进行布局优化！","警告",MB_OK);
        return;
    }
    TTResult *Result=new TTResult(this);
    Result->Selected=2;
    Result->ShowModal();
    delete Result;
}
//---------------------------------------------------------------------------
#include "GuanJingGuiGe.h"
void __fastcall TTMainForm::PipeClick(TObject *Sender)
{
    TTPipeBiaoZhun *Dlg=new TTPipeBiaoZhun(this);
    Dlg->ShowModal();
    delete Dlg;
}
//---------------------------------------------------------------------------
#include "CurrentData.h"
void __fastcall TTMainForm::CurrentPositionClick(TObject *Sender)
{
    TTCurrentData *Dlg=new TTCurrentData(this);
    Dlg->ShowModal();
    delete Dlg;

}
//---------------------------------------------------------------------------


#include "ChengXuCanShu.h"
void __fastcall TTMainForm::SuanFaParaClick(TObject *Sender)
{
    TTChengXuCanShu *Dlg=new TTChengXuCanShu(this);
    Dlg->ShowModal();
    delete Dlg;
}
//---------------------------------------------------------------------------
#include "BaiMaBeiOpti.h"
void __fastcall TTMainForm::BeiPositionClick(TObject *Sender)
{
    TTBaiMaBeiOpti *Dlg= new TTBaiMaBeiOpti(this);
    if(Dlg->ShowModal()==mrOk)
    {
        BaiMaBei=1;
        TTResult *Result=new TTResult(this);
        Result->Selected=1;
        Result->ShowModal();
        delete Result;
    }
    delete Dlg;
}
//---------------------------------------------------------------------------
#include "BaiMaNanOpti.h"
void __fastcall TTMainForm::NanPositionClick(TObject *Sender)
{
    if(DongZhi==0)
    {
        Application->MessageBoxA("请先进行董志区布局优化！","警告",MB_OK);
        return;
    }
    TTBaiMaNanOpti *Dlg= new TTBaiMaNanOpti(this);
    if(Dlg->ShowModal()==mrOk)
    {
        BaiMaNan=1;
        TTResult *Result=new TTResult(this);
        Result->Selected=0;
        Result->ShowModal();
        delete Result;
    }
    delete Dlg;
}
//---------------------------------------------------------------------------

void __fastcall TTMainForm::BeiResultClick(TObject *Sender)
{
    if(BaiMaBei==0)
    {
        Application->MessageBoxA("请先进行布局优化！","警告",MB_OK);
        return;
    }
    TTResult *Result=new TTResult(this);
    Result->Selected=1;;
    Result->ShowModal();
    delete Result;
}
//---------------------------------------------------------------------------

void __fastcall TTMainForm::NanResultClick(TObject *Sender)
{
    if(BaiMaNan==0)
    {
        Application->MessageBoxA("请先进行布局优化！","警告",MB_OK);
        return;
    }
    TTResult *Result=new TTResult(this);
    Result->Selected=0;;
    Result->ShowModal();
    delete Result;
}
//---------------------------------------------------------------------------
#include "SelectPosition.h"
void __fastcall TTMainForm::ButtonPositionOptiClick(TObject *Sender)
{
    TTSelectPosition *Dlg=new TTSelectPosition(this);
    if(Dlg->ShowModal()==mrOk)
    {
        if(Dlg->Select->ItemIndex==0)
        {
            if(DongZhi==0)
            {
                Application->MessageBoxA("请先进行董志区布局优化！","警告",MB_OK);
                return;
            }
            TTBaiMaNanOpti *Dlg1=new TTBaiMaNanOpti(this);
            if(Dlg1->ShowModal()==mrOk)
            {
                BaiMaNan=1;
                TTResult *Dlg2=new TTResult(this);
                Dlg2->Selected=0;
                Dlg2->ShowModal();
                delete Dlg2;
            }
            delete Dlg1;
        }
        if(Dlg->Select->ItemIndex==1)
        {
            TTBaiMaBeiOpti *Dlg3=new TTBaiMaBeiOpti(this);
            if(Dlg3->ShowModal()==mrOk)
            {
                BaiMaBei=1;
                TTResult *Dlg4=new TTResult(this);
                Dlg4->Selected=1;
                Dlg4->ShowModal();
                delete Dlg4;
            }
            delete Dlg3;
        }
        if(Dlg->Select->ItemIndex==2)
        {
            TTDongZhiOpti *Dlg5=new TTDongZhiOpti(this);
            if(Dlg5->ShowModal()==mrOk)
            {
                DongZhi=1;
                TTResult *Dlg6=new TTResult(this);
                Dlg6->Selected=2;
                Dlg6->ShowModal();
                delete Dlg6;
            }
            delete Dlg5;
        }
    }
    delete Dlg;
}
//---------------------------------------------------------------------------
void __fastcall TTMainForm::ButtonPositionResultClick(TObject *Sender)
{
    TTSelectPosition *Dlg=new TTSelectPosition(this);
    if(Dlg->ShowModal()==mrOk)
    {
        TTResult *Dlg1=new TTResult(this);
        Dlg1->Selected=Dlg->Select->ItemIndex;
        switch(Dlg1->Selected)
        {
        case 0:
            if(BaiMaNan==0)
            {
                Application->MessageBoxA("请先进行布局优化！","警告",MB_OK);
                return;
            }
        case 1:
            if(BaiMaBei==0)
            {
                Application->MessageBoxA("请先进行布局优化！","警告",MB_OK);
                return;
            }
        case 2:
            if(DongZhi==0)
            {
                Application->MessageBoxA("请先进行布局优化！","警告",MB_OK);
                return;
            }
        }
        Dlg1->ShowModal();
        delete Dlg1;
    }
    delete Dlg;
}
//---------------------------------------------------------------------------

void __fastcall TTMainForm::FormCreate(TObject *Sender)
{
    TFileStream *File=new TFileStream("Report.rpt",fmOpenRead|fmShareExclusive);
    if(File->Size!=0)
    {
        File->Read(&BaiMaNan,sizeof(int));
        File->Read(&BaiMaBei,sizeof(int));
        File->Read(&DongZhi,sizeof(int));
    }
    else
    {
        BaiMaNan=0;
        BaiMaBei=0;
        DongZhi=0;
    }
    delete File;
}
//---------------------------------------------------------------------------

void __fastcall TTMainForm::FormDestroy(TObject *Sender)
{
    TFileStream *File=new TFileStream("Report.rpt",fmCreate|fmOpenWrite|fmShareExclusive);
    File->Write(&BaiMaNan,sizeof(int));
    File->Write(&BaiMaBei,sizeof(int));
    File->Write(&DongZhi,sizeof(int));
    delete File;
}
//---------------------------------------------------------------------------
#include "MapShow.h"
void __fastcall TTMainForm::Map_DongZhiClick(TObject *Sender)
{
    TTMapShow *Dlg=new TTMapShow(this);
    Dlg->Selected=2;
    Dlg->ShowModal();
    delete Dlg;
}
//---------------------------------------------------------------------------

void __fastcall TTMainForm::Map_BaiMaBeiClick(TObject *Sender)
{
    TTMapShow *Dlg=new TTMapShow(this);
    Dlg->Selected=1;
    Dlg->ShowModal();
    delete Dlg;    
}
//---------------------------------------------------------------------------

void __fastcall TTMainForm::Map_BaiMaNanClick(TObject *Sender)
{
    TTMapShow *Dlg=new TTMapShow(this);
    Dlg->Selected=0;
    Dlg->ShowModal();
    delete Dlg;
}
//---------------------------------------------------------------------------