glbba.cpp

速达开源ERP系统

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

#include <vcl.h>
#pragma hdrstop

#include "GlbBa.h"
//---------------------------------------------------------------------------
#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="不平衡";
}
//---------------------------------------------------------------------------