?? result.cpp
字號:
ADOResult->CursorLocation=clUseClient;
ADOResult->CursorType=ctStatic;
ADOResult->TableDirect=false;
ADOResult->Open();
ADOResult->Sort="起點編號 ASC";
ADOResult->First();
RichEdit->Paragraph->Numbering = nsNone;
RichEdit->Paragraph->Alignment = taCenter;
RichEdit->Lines->Add("");
RichEdit->Lines->Add("管線參數");
while(!ADOResult->Eof)
{
RichEdit->Paragraph->Numbering = nsBullet;
RichEdit->Paragraph->Alignment = taLeftJustify;
RichEdit->Paragraph->FirstIndent = 10;
TempStr=ADOResult->FieldByName("起點編號")->AsString;
TempStr=TempStr+(AnsiString)("--->")+ADOResult->FieldByName("終點編號")->AsString;
RichEdit->Lines->Add(TempStr);
TempDouble=ADOResult->FieldByName("管徑")->AsFloat;
TempStr=TempStr.sprintf("管徑：%.2fmm",TempDouble);
RichEdit->Paragraph->Numbering = nsNone;
RichEdit->Paragraph->Alignment = taLeftJustify;
RichEdit->Paragraph->FirstIndent = 30;
RichEdit->Lines->Add(TempStr);
TempDouble=ADOResult->FieldByName("壁厚")->AsFloat;
TempStr=TempStr.sprintf("壁厚：%.2fmm",TempDouble);
RichEdit->Paragraph->Numbering = nsNone;
RichEdit->Paragraph->Alignment = taLeftJustify;
RichEdit->Paragraph->FirstIndent = 30;
RichEdit->Lines->Add(TempStr);
TempDouble=ADOResult->FieldByName("管長")->AsFloat;
TempStr=TempStr.sprintf("管長：%.1fm",TempDouble);
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("入口溫度：%.1f℃",TempDouble);
RichEdit->Paragraph->Numbering = nsNone;
RichEdit->Paragraph->Alignment = taLeftJustify;
RichEdit->Paragraph->FirstIndent = 30;
RichEdit->Lines->Add(TempStr);
TempDouble=ADOResult->FieldByName("出口溫度")->AsFloat;
TempStr=TempStr.sprintf("出口溫度：%.1f℃",TempDouble);
RichEdit->Paragraph->Numbering = nsNone;
RichEdit->Paragraph->Alignment = taLeftJustify;
RichEdit->Paragraph->FirstIndent = 30;
RichEdit->Lines->Add(TempStr);
TempDouble=ADOResult->FieldByName("入口壓力")->AsFloat;
TempStr=TempStr.sprintf("入口壓力：%.4fKPa",TempDouble/1000);
RichEdit->Paragraph->Numbering = nsNone;
RichEdit->Paragraph->Alignment = taLeftJustify;
RichEdit->Paragraph->FirstIndent = 30;
RichEdit->Lines->Add(TempStr);
TempDouble=ADOResult->FieldByName("出口壓力")->AsFloat;
TempStr=TempStr.sprintf("出口壓力：%.4fKPa",TempDouble/1000);
RichEdit->Paragraph->Numbering = nsNone;
RichEdit->Paragraph->Alignment = taLeftJustify;
RichEdit->Paragraph->FirstIndent = 30;
RichEdit->Lines->Add(TempStr);
ADOResult->Next();
}
RichEdit->Paragraph->Numbering = nsNone;
RichEdit->Paragraph->Alignment = taCenter;
RichEdit->Lines->Add("");
RichEdit->Lines->Add("增壓點參數");
ADOResult->Close();
ADOResult->TableName=Station;
ADOResult->CursorLocation=clUseServer;
ADOResult->CursorType=ctKeyset;
ADOResult->TableDirect=true;
ADOResult->IndexName="PrimaryKey";
ADOResult->Open();
CurrentHead=Head->Next;
while(CurrentHead!=0)
{
TempHead=CurrentHead->Sub;
while(TempHead!=0)
{
if(ADOResult->Seek(Variant(TempHead->No),soFirstEQ))
{
TempStr=ADOResult->FieldByName("編號")->AsString;
RichEdit->Paragraph->Numbering = nsBullet;
RichEdit->Paragraph->Alignment = taLeftJustify;
RichEdit->Paragraph->FirstIndent = 10;
RichEdit->Lines->Add(AnsiString("站名：")+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("最低出站溫度：%.1f℃",TempDouble);
RichEdit->Paragraph->Numbering = nsNone;
RichEdit->Paragraph->Alignment = taLeftJustify;
RichEdit->Paragraph->FirstIndent = 30;
RichEdit->Lines->Add(TempStr);
TempDouble=ADOResult->FieldByName("最低出站壓力")->AsFloat;
TempStr=TempStr.sprintf("最低出站壓力：%.4fKPa",TempDouble/1000);
RichEdit->Paragraph->Numbering = nsNone;
RichEdit->Paragraph->Alignment = taLeftJustify;
RichEdit->Paragraph->FirstIndent = 30;
RichEdit->Lines->Add(TempStr);
}
TempHead=TempHead->Sub;
}
CurrentHead=CurrentHead->Next;
}
CurrentHead=Head->Sub;
if(CurrentHead!=0)
{
CurrentHead=CurrentHead->Next;
}
while(CurrentHead!=0)
{
TempHead=CurrentHead->Sub;
while(TempHead!=0)
{
if(ADOResult->Seek(Variant(TempHead->No),soFirstEQ))
{
TempStr=ADOResult->FieldByName("編號")->AsString;
RichEdit->Paragraph->Numbering = nsBullet;
RichEdit->Paragraph->Alignment = taLeftJustify;
RichEdit->Paragraph->FirstIndent = 10;
RichEdit->Lines->Add(AnsiString("站名：")+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("最低出站溫度：%.1f℃",TempDouble);
RichEdit->Paragraph->Numbering = nsNone;
RichEdit->Paragraph->Alignment = taLeftJustify;
RichEdit->Paragraph->FirstIndent = 30;
RichEdit->Lines->Add(TempStr);
TempDouble=ADOResult->FieldByName("最低出站壓力")->AsFloat;
TempStr=TempStr.sprintf("最低出站壓力：%.4fKPa",TempDouble/1000);
RichEdit->Paragraph->Numbering = nsNone;
RichEdit->Paragraph->Alignment = taLeftJustify;
RichEdit->Paragraph->FirstIndent = 30;
RichEdit->Lines->Add(TempStr);
}
TempHead=TempHead->Sub;
}
CurrentHead=CurrentHead->Next;
}
RichEdit->Paragraph->Numbering = nsNone;
RichEdit->Paragraph->Alignment = taCenter;
RichEdit->Lines->Add("");
RichEdit->Lines->Add("轉油站參數");
CurrentHead=Head->Next;
while(CurrentHead!=0)
{
if(ADOResult->Seek(Variant(CurrentHead->No),soFirstEQ))
{
if(CurrentHead->Fixed)
{
TempStr=ADOResult->FieldByName("編號")->AsString;
RichEdit->Paragraph->Numbering = nsBullet;
RichEdit->Paragraph->Alignment = taLeftJustify;
RichEdit->Paragraph->FirstIndent = 10;
RichEdit->Lines->Add(AnsiString("站名：")+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 = nsBullet;
RichEdit->Paragraph->Alignment = taLeftJustify;
RichEdit->Paragraph->FirstIndent = 10;
RichEdit->Lines->Add(AnsiString("站名：")+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("最低出站溫度：%.1f℃",TempDouble);
RichEdit->Paragraph->Numbering = nsNone;
RichEdit->Paragraph->Alignment = taLeftJustify;
RichEdit->Paragraph->FirstIndent = 30;
RichEdit->Lines->Add(TempStr);
TempDouble=ADOResult->FieldByName("最低出站壓力")->AsFloat;
TempStr=TempStr.sprintf("最低出站壓力：%.4fKPa",TempDouble/1000);
RichEdit->Paragraph->Numbering = nsNone;
RichEdit->Paragraph->Alignment = taLeftJustify;
RichEdit->Paragraph->FirstIndent = 30;
RichEdit->Lines->Add(TempStr);
}
}
CurrentHead=CurrentHead->Next;
}
CurrentHead=Head->Sub;
if(CurrentHead!=0)
{
CurrentHead=CurrentHead->Next;
}
while(CurrentHead!=0)
{
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(AnsiString("站名：")+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 = nsBullet;
RichEdit->Paragraph->Alignment = taLeftJustify;
RichEdit->Paragraph->FirstIndent = 10;
RichEdit->Lines->Add(AnsiString("站名：")+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("最低出站溫度：%.1f℃",TempDouble);
RichEdit->Paragraph->Numbering = nsNone;
RichEdit->Paragraph->Alignment = taLeftJustify;
RichEdit->Paragraph->FirstIndent = 30;
RichEdit->Lines->Add(TempStr);
TempDouble=ADOResult->FieldByName("最低出站壓力")->AsFloat;
TempStr=TempStr.sprintf("最低出站壓力：%.4fKPa",TempDouble/1000);
RichEdit->Paragraph->Numbering = nsNone;
RichEdit->Paragraph->Alignment = taLeftJustify;
RichEdit->Paragraph->FirstIndent = 30;
RichEdit->Lines->Add(TempStr);
}
}
CurrentHead=CurrentHead->Next;
}
}
//---------------------------------------------------------------------------
void __fastcall TTResult::BaoCunClick(TObject *Sender)
{
AnsiString FileName;
if(Save->Execute())
{
FileName=Save->FileName;
FileName.Delete(FileName.Pos("."),FileName.Length());
FileName+=(".rtf");
RichEdit->Lines->SaveToFile(FileName);
}
}
//---------------------------------------------------------------------------
void __fastcall TTResult::DaYinClick(TObject *Sender)
{
RichEdit->Print("優化計算結果");
}
//---------------------------------------------------------------------------
#include "SinglePipe.h"
void __fastcall TTResult::SglPipeClick(TObject *Sender)
{
TTSinglePipe *Dlg=(TTSinglePipe*) new TTSinglePipe(this);
Dlg->Selected=Selected;
Dlg->ShowModal();
delete Dlg;
}
//---------------------------------------------------------------------------
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -