fachwp.cpp

科思ERP部分源码及控件

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

#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();
}
//---------------------------------------------------------------------------