⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 result.cpp

📁 石油公司网管系统优化系统软件源码,很有价值的.
💻 CPP
📖 第 1 页 / 共 2 页
字号:
🔍
12 
    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;
}
//---------------------------------------------------------------------------
12

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -