?? result.cpp
字號:
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Result.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TTResult *TResult;
//---------------------------------------------------------------------------
__fastcall TTResult::TTResult(TComponent* Owner)
: TForm(Owner)
{
GraphicDlg=0;
}
//---------------------------------------------------------------------------
void __fastcall TTResult::CancelClick(TObject *Sender)
{
if(GraphicDlg!=0)
delete GraphicDlg;
ModalResult = mrCancel;
}
//---------------------------------------------------------------------------
void __fastcall TTResult::GraphicClick(TObject *Sender)
{
if(GraphicDlg==0)
{
GraphicDlg=new TTResultGraphic(this);
GraphicDlg->Selected=Selected;
}
GraphicDlg->Modal=false;
GraphicDlg->Show();
}
//---------------------------------------------------------------------------
void __fastcall TTResult::FormShow(TObject *Sender)
{
WellHead *TempHead,*CurrentHead,*SubHead;
Head=(WellHead*) new WellHead;
TFileStream *File;
AnsiString FileName,Pipe,Station;
switch(Selected)
{
case 0:
{
FileName="Nan.pos";
Pipe="pipe_nan";
Station="station_nan";
break;
}
case 1:
{
FileName="Bei.pos";
Pipe="pipe_bei";
Station="station_bei";
break;
}
case 2:
{
FileName="Dong.pos";
Pipe="pipe_dong";
Station="station_dong";
break;
}
}
File=new TFileStream(FileName,fmOpenRead|fmShareExclusive);
__int64 Position;
Position=File->Size;
int TempInt;
double TempDouble;
char *str;
WellUnit *Well,*CurrentWell;
//讀取布局優化結果
File->Read(&TempInt,sizeof(int));
str=(char*)new char[TempInt+1];
File->Read(str,TempInt);
str[TempInt]=0;
Head->No=(AnsiString)str;
delete str;
File->Read(&TempInt,sizeof(int));
if(TempInt)
{
Head->Fixed=true;
}
else
{
Head->Fixed=false;
}
File->Read(&TempDouble,sizeof(double));
File->Read(&TempDouble,sizeof(double));
Head->Next=0;
Head->Sub=0;
Head->Well=0;
bool SubH;
CurrentHead=Head;
while(File->Position<Position)
{
File->Read(&TempInt,sizeof(int));
switch(TempInt)
{
case 0:
Well=(WellUnit*) new WellUnit;
File->Read(&TempInt,sizeof(int));
str=(char*) new char[TempInt+1];
File->Read(str,TempInt);
str[TempInt]=0;
Well->No=(AnsiString)str;
delete str;
if(SubH)
{
Well->Next=SubHead->Well;
SubHead->Well=Well;
}
else
{
Well->Next=CurrentHead->Well;
CurrentHead->Well=Well;
}
break;
case 1:
TempHead=(WellHead*)new WellHead;
File->Read(&TempInt,sizeof(int));
str=(char*)new char[TempInt+1];
File->Read(str,TempInt);
str[TempInt]=0;
TempHead->No=(AnsiString)str;
delete str;
TempHead->Sub=0;
TempHead->Well=0;
TempHead->Next=SubHead;
SubHead=TempHead;
CurrentHead->Sub=TempHead;
SubH==true;
break;
case 2:
TempHead=(WellHead*)new WellHead;
File->Read(&TempInt,sizeof(int));
str=(char*)new char[TempInt+1];
File->Read(str,TempInt);
str[TempInt]=0;
TempHead->No=(AnsiString)str;
delete str;
File->Read(&TempInt,sizeof(int));
if(TempInt)
{
TempHead->Fixed=true;
}
else
{
TempHead->Fixed=false;
}
TempHead->Next=0;
TempHead->Sub=0;
TempHead->Well=0;
SubHead=0;
CurrentHead->Next=TempHead;
CurrentHead=TempHead;
SubH=false;
break;
case 3:
TempHead=(WellHead*)new WellHead;
File->Read(&TempInt,sizeof(int));
str=(char*)new char[TempInt+1];
File->Read(str,TempInt);
str[TempInt]=0;
TempHead->No=(AnsiString)str;
delete str;
File->Read(&TempInt,sizeof(int));
if(TempInt)
{
TempHead->Fixed=true;
}
else
{
TempHead->Fixed=false;
}
TempHead->Next=0;
TempHead->Sub=0;
TempHead->Well=0;
SubHead=0;
Head->Sub=TempHead;
CurrentHead=TempHead;
break;
}
}
delete File;
AnsiString TempStr;
RichEdit->Lines->Clear();
RichEdit->Paragraph->Numbering = nsNone;
RichEdit->Paragraph->Alignment = taCenter;
RichEdit->Lines->Add("");
RichEdit->Lines->Add("****優化結果****");
RichEdit->Lines->Add("");
ADOResult->TableName="over";
ADOResult->Open();
ADOResult->First();
ADOResult->MoveBy(Selected);
RichEdit->Lines->Add("總體統計");
RichEdit->Paragraph->Numbering = nsBullet;
RichEdit->Paragraph->Alignment = taLeftJustify;
RichEdit->Paragraph->FirstIndent = 10;
TempStr=ADOResult->FieldByName("位置")->AsString;
TempStr="油井范圍："+TempStr;
RichEdit->Lines->Add(TempStr);
RichEdit->Paragraph->Numbering = nsBullet;
TempDouble=ADOResult->FieldByName("耗鋼量")->AsFloat;
TempStr=TempStr.sprintf("%.4lf噸",TempDouble/1000);
RichEdit->Lines->Add("總耗鋼量："+TempStr);
RichEdit->Paragraph->Numbering = nsBullet;
TempInt=ADOResult->FieldByName("增壓點")->AsInteger;
TempStr=TempStr.sprintf("%d",TempInt);
RichEdit->Lines->Add("增壓點個數："+TempStr);
RichEdit->Paragraph->Numbering = nsBullet;
TempInt=ADOResult->FieldByName("轉油站")->AsInteger;
TempStr=TempStr.sprintf("%d",TempInt);
RichEdit->Lines->Add("轉油站個數："+TempStr);
RichEdit->Paragraph->Numbering = nsBullet;
TempDouble=ADOResult->FieldByName("流量")->AsFloat;
TempStr=TempStr.sprintf("%.2lf噸/天",TempDouble*3600*24/1000);
RichEdit->Lines->Add("總輸量："+TempStr);
CurrentHead=Head->Sub;
if(CurrentHead!=0)
{
ADOResult->Close();
ADOResult->TableName=Station;
ADOResult->CursorLocation=clUseServer;
ADOResult->CursorType=ctKeyset;
ADOResult->TableDirect=true;
ADOResult->IndexName="PrimaryKey";
ADOResult->Open();
if(ADOResult->Seek(Variant(CurrentHead->No),soFirstEQ))
{
if(CurrentHead->Fixed)
{
TempStr=ADOResult->FieldByName("編號")->AsString;
RichEdit->Paragraph->Numbering = nsNone;
RichEdit->Paragraph->Alignment = taLeftJustify;
RichEdit->Paragraph->FirstIndent = 10;
RichEdit->Lines->Add(TempStr+AnsiString("：（已建）"));
TempDouble=ADOResult->FieldByName("流量")->AsFloat;
TempStr=TempStr.sprintf("新流量：%.2ft/d",TempDouble*3600*24/1000);
RichEdit->Paragraph->Numbering = nsNone;
RichEdit->Paragraph->Alignment = taLeftJustify;
RichEdit->Paragraph->FirstIndent = 30;
RichEdit->Lines->Add(TempStr);
TempDouble=ADOResult->FieldByName("最低出站溫度")->AsFloat;
TempStr=TempStr.sprintf("原來流量：%.2ft/d",TempDouble*3600*24/1000);
RichEdit->Paragraph->Numbering = nsNone;
RichEdit->Paragraph->Alignment = taLeftJustify;
RichEdit->Paragraph->FirstIndent = 30;
RichEdit->Lines->Add(TempStr);
TempDouble=ADOResult->FieldByName("最低出站壓力")->AsFloat;
TempStr=TempStr.sprintf("現在流量：%.2ft/d",TempDouble*3600*24/1000);
RichEdit->Paragraph->Numbering = nsNone;
RichEdit->Paragraph->Alignment = taLeftJustify;
RichEdit->Paragraph->FirstIndent = 30;
RichEdit->Lines->Add(TempStr);
}
else
{
TempStr=ADOResult->FieldByName("編號")->AsString;
RichEdit->Paragraph->Numbering = nsNone;
RichEdit->Paragraph->Alignment = taLeftJustify;
RichEdit->Paragraph->FirstIndent = 10;
RichEdit->Lines->Add(TempStr+AnsiString("：（新建）"));
TempDouble=ADOResult->FieldByName("流量")->AsFloat;
TempStr=TempStr.sprintf("流量：%.2ft/d",TempDouble*3600*24/1000);
}
}
if(ADOResult->Seek(Variant(Head->No),soFirstEQ))
{
if(Head->Fixed)
{
TempStr=ADOResult->FieldByName("編號")->AsString;
RichEdit->Paragraph->Numbering = nsNone;
RichEdit->Paragraph->Alignment = taLeftJustify;
RichEdit->Paragraph->FirstIndent = 10;
RichEdit->Lines->Add(TempStr+AnsiString("：（已建）"));
TempDouble=ADOResult->FieldByName("流量")->AsFloat;
TempStr=TempStr.sprintf("新流量：%.2ft/d",TempDouble*3600*24/1000);
RichEdit->Paragraph->Numbering = nsNone;
RichEdit->Paragraph->Alignment = taLeftJustify;
RichEdit->Paragraph->FirstIndent = 30;
RichEdit->Lines->Add(TempStr);
TempDouble=ADOResult->FieldByName("最低出站溫度")->AsFloat;
TempStr=TempStr.sprintf("原來流量：%.2ft/d",TempDouble*3600*24/1000);
RichEdit->Paragraph->Numbering = nsNone;
RichEdit->Paragraph->Alignment = taLeftJustify;
RichEdit->Paragraph->FirstIndent = 30;
RichEdit->Lines->Add(TempStr);
TempDouble=ADOResult->FieldByName("最低出站壓力")->AsFloat;
TempStr=TempStr.sprintf("現在流量：%.2ft/d",TempDouble*3600*24/1000);
RichEdit->Paragraph->Numbering = nsNone;
RichEdit->Paragraph->Alignment = taLeftJustify;
RichEdit->Paragraph->FirstIndent = 30;
RichEdit->Lines->Add(TempStr);
}
else
{
TempStr=ADOResult->FieldByName("編號")->AsString;
RichEdit->Paragraph->Numbering = nsNone;
RichEdit->Paragraph->Alignment = taLeftJustify;
RichEdit->Paragraph->FirstIndent = 10;
RichEdit->Lines->Add(TempStr+AnsiString("：（新建）"));
TempDouble=ADOResult->FieldByName("流量")->AsFloat;
TempStr=TempStr.sprintf("流量：%.2ft/d",TempDouble*3600*24/1000);
}
}
}
ADOResult->Close();
ADOResult->TableName=Pipe;
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -