fachtabwork.cpp

来自「速达开源ERP系统」· C++ 代码 · 共 66 行

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

#include <vcl.h>
#pragma hdrstop

#include "FaChTABWork.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "SDEdit"
#pragma resource "*.dfm"
TfrmChTABWork *frmChTABWork;
//---------------------------------------------------------------------------
__fastcall TfrmChTABWork::TfrmChTABWork(TComponent* Owner,AnsiString Lab[4] )
        : TStdBaseForm(Owner)
{
     FromCaption=Lab[0];
     seTWork->Text="0";
     seAWork->Text="0";
     seBWork->Text="0";
     Label1->Caption=Lab[1];
     Label2->Caption=Lab[2];
     Label3->Caption=Lab[3];
}
//---------------------------------------------------------------------------
void __fastcall TfrmChTABWork::btOkClick(TObject *Sender)
{
     if(FromCaption=="新工作量")
     {
       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("入帐前累计工作量不能大于总工作量!");
     }
     else
     {
       if(seTWork->Text.ToDouble()<0)
         throw Exception("使用年限不能小于零");
       if(seAWork->Text.IsEmpty()<0)
         throw Exception("累计使用年限不能小于零");
       if(seBWork->Text.IsEmpty()<0)
         throw Exception("入帐前累计使用年限不能小于零");
       if(seTWork->Text<seAWork->Text)
         throw Exception("累计使用年限不能大于使用年限!");
       if(seTWork->Text<seBWork->Text)
         throw Exception("入帐前累计使用年限不能大于使用年限!");
      }
       btOk->ModalResult=mrYes;
      Close();
}
//---------------------------------------------------------------------------

void __fastcall TfrmChTABWork::btCacelClick(TObject *Sender)
{
    btOk->ModalResult=mrNone;
    Close();
}
//---------------------------------------------------------------------------