glbba.cpp

来自「科思ERP部分源码及控件」· C++ 代码 · 共 25 行

//---------------------------------------------------------------------------
#include <vcl.h>
#include "GlbBa.h"
//---------------------------------------------------------------------------
#pragma hdrstop
#pragma package(smart_init)
#pragma link "StdBaseForm"
#pragma resource "*.dfm"
TfrmGlbBa *frmGlbBa;
//---------------------------------------------------------------------------
__fastcall TfrmGlbBa::TfrmGlbBa(TComponent* Owner,double Alzc,double Alfz ,double Alqy)
        : TStdBaseForm(Owner)
{
        seZc->Caption=AnsiString(Alzc);
        seFz->Caption=AnsiString(Alfz);
        seQy->Caption=AnsiString(Alqy);
        seJf->Caption=AnsiString(Alzc);
        seDf->Caption=AnsiString(Alfz+Alqy);
        if(Alzc==Alfz+Alqy)
          seRes->Caption="平衡";
        else
          seRes->Caption="不平衡";
}
//---------------------------------------------------------------------------