fachwp.cpp

来自「一个以前收集的基于C/S架构的ERP客户端源代码」· C++ 代码 · 共 58 行

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

#include <vcl.h>
#pragma hdrstop

#include "FaChWP.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "SDEdit"
#pragma resource "*.dfm"
TfrmChWP *frmChWP;
//---------------------------------------------------------------------------
__fastcall TfrmChWP::TfrmChWP(TComponent* Owner)
        : TStdBaseForm(Owner)
{
     seTWork->Text="0";
     seAWork->Text="0";
     seBWork->Text="0";
     seBPeriod->Text="0";
     seAPeriod->Text="0";
     sePeriod->Text="0";
}
//---------------------------------------------------------------------------
void __fastcall TfrmChWP::btOkClick(TObject *Sender)
{
     if(seTWork->Text.ToDouble()<0)
       throw Exception("总工作量不能小于零");
     if(seAWork->Text.ToDouble()<0)
       throw Exception("累计工作量不能小于零");
     if(seBWork->Text.ToDouble()<0)
       throw Exception("入帐前累计工作量不能小于零");
     if(seTWork->Text<seAWork->Text)
       throw Exception("累计工作量不能大于总工作量!");
     if(seTWork->Text<seBWork->Text)
       throw Exception("入帐前累计工作量不能大于总工作量!");
     if(sePeriod->Text.ToDouble()<0)
       throw Exception("使用年限不能小于零");
     if(seAPeriod->Text.IsEmpty()<0)
       throw Exception("累计使用年限不能小于零");
     if(seBPeriod->Text.IsEmpty()<0)
       throw Exception("入帐前累计使用年限不能小于零");
     if(sePeriod->Text<seAPeriod->Text)
       throw Exception("累计使用年限不能大于使用年限!");
     if(sePeriod->Text<seBPeriod->Text)
       throw Exception("入帐前累计使用年限不能大于使用年限!");
       btOk->ModalResult=mrYes;
      Close();
}
//---------------------------------------------------------------------------
void __fastcall TfrmChWP::btCacelClick(TObject *Sender)
{
    btOk->ModalResult=mrNone;
    Close();
}
//---------------------------------------------------------------------------