commonpara.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "CommonPara.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TTCommonPara *TCommonPara;
//---------------------------------------------------------------------------
__fastcall TTCommonPara::TTCommonPara(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TTCommonPara::CancelClick(TObject *Sender)
{
    ModalResult = mrCancel;
}
//---------------------------------------------------------------------------




void __fastcall TTCommonPara::SheJiHanShuiLv0Click(TObject *Sender)
{
    if(SheJiHanShuiLv0->Checked)
    {
        HanShuiLv0->Enabled =false;
    }
    else
    {
        HanShuiLv0->Enabled =true;
    }
}
//---------------------------------------------------------------------------

void __fastcall TTCommonPara::OKClick(TObject *Sender)
{
    TFileStream *File;
    double TempDouble;
    if(SheJiHanShuiLv0->Checked)
    {
        SheJiHanShuiLv=1;
    }
    else
    {
        SheJiHanShuiLv=0;
        HanShuiLv=StrToFloat(HanShuiLv0->Text);
    }
    JingJiLiuSu=StrToFloat(JingJiLiuSu0->Text);
    JingKouHuiYa=StrToFloat(JingKouHuiYa0->Text);
    JingKouWenDu=StrToFloat(JingKouWenDu0->Text);
    MiDu20=StrToFloat(MiDu200->Text);
    NianDu50=StrToFloat(NianDu500->Text);
    YouSheJiYaLi=StrToFloat(YouSheJiYaLi0->Text);
    ZuiDiRuZhanYaLi=StrToFloat(ZuiDiRuZhanYaLi0->Text);
    TuRangWenDu=StrToFloat(TuRangWenDu0->Text);
    File=new TFileStream("Common.dat",fmCreate|fmOpenWrite|fmShareExclusive);
/*
    //天然气相对密度
    TempDouble=StrToFloat(QiXiangDuiMiDu_Nan0->Text);
    File->Write(&TempDouble,sizeof(double));
    TempDouble=StrToFloat(QiXiangDuiMiDu_Bei0->Text);
    File->Write(&TempDouble,sizeof(double));
    TempDouble=StrToFloat(QiXiangDuiMiDu_Dong0->Text);
    File->Write(&TempDouble,sizeof(double));
    //溶解系数
    TempDouble=StrToFloat(RongJieXiShu_Nan0->Text);
    File->Write(&TempDouble,sizeof(double));
    TempDouble=StrToFloat(RongJieXiShu_Bei0->Text);
    File->Write(&TempDouble,sizeof(double));
    TempDouble=StrToFloat(RongJieXiShu_Dong0->Text);
    File->Write(&TempDouble,sizeof(double));
    //体积系数
    TempDouble=StrToFloat(TiJiXiShu_Nan0->Text);
    File->Write(&TempDouble,sizeof(double));
    TempDouble=StrToFloat(TiJiXiShu_Bei0->Text);
    File->Write(&TempDouble,sizeof(double));
    TempDouble=StrToFloat(TiJiXiShu_Dong0->Text);
    File->Write(&TempDouble,sizeof(double));
    //压缩系数
    TempDouble=StrToFloat(YaSuoXiShu_Nan0->Text);
    File->Write(&TempDouble,sizeof(double));
    TempDouble=StrToFloat(YaSuoXiShu_Bei0->Text);
    File->Write(&TempDouble,sizeof(double));
    TempDouble=StrToFloat(YaSuoXiShu_Dong0->Text);
    File->Write(&TempDouble,sizeof(double));
*/
    //含水率
    File->Write(&SheJiHanShuiLv,sizeof(int));
    if(SheJiHanShuiLv==0)
    {
        File->Write(&HanShuiLv,sizeof(double));
    }
/*
    //50度粘度
    TempDouble=StrToFloat(NianDu50_Nan0->Text);
    File->Write(&TempDouble,sizeof(double));
    TempDouble=StrToFloat(NianDu50_Bei0->Text);
    File->Write(&TempDouble,sizeof(double));
    TempDouble=StrToFloat(NianDu50_Dong0->Text);
    File->Write(&TempDouble,sizeof(double));
    //20度密度
    TempDouble=StrToFloat(MiDu20_Nan0->Text);
    File->Write(&TempDouble,sizeof(double));
    TempDouble=StrToFloat(MiDu20_Bei0->Text);
    File->Write(&TempDouble,sizeof(double));
    TempDouble=StrToFloat(MiDu20_Dong0->Text);
    File->Write(&TempDouble,sizeof(double));
*/
    //设计参数
    File->Write(&YouSheJiYaLi,sizeof(double));
    File->Write(&JingKouHuiYa,sizeof(double));
    File->Write(&ZuiDiRuZhanYaLi,sizeof(double));
    TempDouble=StrToFloat(ZuiDiRuWenDu0->Text);
    File->Write(&TempDouble,sizeof(double));
    File->Write(&JingKouWenDu,sizeof(double));
    File->Write(&TuRangWenDu,sizeof(double));
    File->Write(&JingJiLiuSu,sizeof(double));
    File->Write(&NianDu50,sizeof(double));
    File->Write(&MiDu20,sizeof(double));
    TempDouble=StrToFloat(QiXiangDuiMiDu->Text);
    File->Write(&TempDouble,sizeof(double));
    TempDouble=StrToFloat(K0->Text);
    File->Write(&TempDouble,sizeof(double));
    delete File;
    ModalResult = mrOk;
}
//---------------------------------------------------------------------------

void __fastcall TTCommonPara::FormCreate(TObject *Sender)
{
    TFileStream *File;
    double TempDouble;
    File=new TFileStream("Common.dat",fmOpenRead|fmShareExclusive);
/*
    File->Read(&TempDouble,sizeof(double));
    QiXiangDuiMiDu_Nan0->Text=FloatToStr(TempDouble);
    File->Read(&TempDouble,sizeof(double));
    QiXiangDuiMiDu_Bei0->Text=FloatToStr(TempDouble);
    File->Read(&TempDouble,sizeof(double));
    QiXiangDuiMiDu_Dong0->Text=FloatToStr(TempDouble);
    //溶解系数
    File->Read(&TempDouble,sizeof(double));
    RongJieXiShu_Nan0->Text=FloatToStr(TempDouble);
    File->Read(&TempDouble,sizeof(double));
    RongJieXiShu_Bei0->Text=FloatToStr(TempDouble);
    File->Read(&TempDouble,sizeof(double));
    RongJieXiShu_Dong0->Text=FloatToStr(TempDouble);
    //体积系数
    File->Read(&TempDouble,sizeof(double));
    TiJiXiShu_Nan0->Text=FloatToStr(TempDouble);
    File->Read(&TempDouble,sizeof(double));
    TiJiXiShu_Bei0->Text=FloatToStr(TempDouble);
    File->Read(&TempDouble,sizeof(double));
    TiJiXiShu_Dong0->Text=FloatToStr(TempDouble);
    //压缩系数
    File->Read(&TempDouble,sizeof(double));
    YaSuoXiShu_Nan0->Text=FloatToStr(TempDouble);
    File->Read(&TempDouble,sizeof(double));
    YaSuoXiShu_Bei0->Text=FloatToStr(TempDouble);
    File->Read(&TempDouble,sizeof(double));
    YaSuoXiShu_Dong0->Text=FloatToStr(TempDouble);
*/
    //含水率
    File->Read(&SheJiHanShuiLv,sizeof(int));
    if(SheJiHanShuiLv==0)
    {
        File->Read(&HanShuiLv,sizeof(HanShuiLv));
    }
/*
    //50度粘度
    File->Read(&TempDouble,sizeof(double));
    NianDu50_Nan0->Text=FloatToStr(TempDouble);
    File->Read(&TempDouble,sizeof(double));
    NianDu50_Bei0->Text=FloatToStr(TempDouble);
    File->Read(&TempDouble,sizeof(double));
    NianDu50_Dong0->Text=FloatToStr(TempDouble);
    //20度密度
    File->Read(&TempDouble,sizeof(double));
    MiDu20_Nan0->Text=FloatToStr(TempDouble);
    File->Read(&TempDouble,sizeof(double));
    MiDu20_Bei0->Text=FloatToStr(TempDouble);
    File->Read(&TempDouble,sizeof(double));
    MiDu20_Dong0->Text=FloatToStr(TempDouble);
*/
    //设计参数
    File->Read(&YouSheJiYaLi,sizeof(double));
    File->Read(&JingKouHuiYa,sizeof(double));
    File->Read(&ZuiDiRuZhanYaLi,sizeof(double));
    File->Read(&TempDouble,sizeof(double));
    ZuiDiRuWenDu0->Text=FloatToStr(TempDouble);
    File->Read(&JingKouWenDu,sizeof(double));
    File->Read(&TuRangWenDu,sizeof(double));
    File->Read(&JingJiLiuSu,sizeof(double));
    File->Read(&NianDu50,sizeof(double));
    File->Read(&MiDu20,sizeof(double));
    File->Read(&TempDouble,sizeof(double));
    QiXiangDuiMiDu->Text=FloatToStr(TempDouble);
    File->Read(&TempDouble,sizeof(double));
    K0->Text=FloatToStr(TempDouble);
    if(SheJiHanShuiLv==1)
    {
        SheJiHanShuiLv0->Checked=true;
    }
    else
    {
        SheJiHanShuiLv0->Checked=false;
        HanShuiLv0->Text=FloatToStr(HanShuiLv);
    }
    YouSheJiYaLi0->Text=FloatToStr(YouSheJiYaLi);
    JingKouHuiYa0->Text=FloatToStr(JingKouHuiYa);
    ZuiDiRuZhanYaLi0->Text=FloatToStr(ZuiDiRuZhanYaLi);
    JingKouWenDu0->Text=FloatToStr(JingKouWenDu);
    TuRangWenDu0->Text=FloatToStr(TuRangWenDu);
    JingJiLiuSu0->Text=FloatToStr(JingJiLiuSu);
    NianDu500->Text=FloatToStr(NianDu50);
    MiDu200->Text=FloatToStr(MiDu20);
    delete File;
}
//---------------------------------------------------------------------------