mcale.cpp

科思ERP部分源码及控件

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

#include <vcl.h>
#pragma hdrstop
#include "mCale.h"

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

#pragma package(smart_init)
TKSCale *sdCale;
//---------------------------------------------------------------------------
__fastcall TKSCale::TKSCale()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSCale::ValidHeadValues()
{
  //财务月份
      ValidCaleMonth();
  //工厂日期
      ValidCaleFacDate();
  //社会日期
      ValidCaleSocDate();
  //星期
      ValidCaleWeek();
  //状态
      ValidCaleStatus();
  //年度
      ValidCaleYear();
}
//---------------------------------------------------------------------------
void __fastcall TKSCale::ValidCaleMonth()  //财务月份
{
   AnsiString  m_CaleMonth;
   m_CaleMonth=GetMasterValue("CaleMonth");
   if(m_CaleMonth.Length()>6)
     throw Exception("月份长度不能大于6!");
}
//-----------------------------------------------------------------------------
void __fastcall TKSCale::ValidCaleFacDate()  //工厂日期
{
  double m_CaleFacDate;
  m_CaleFacDate=GetMasterValue("CaleFacDate");
  if(m_CaleFacDate<0)
    throw Exception("工厂日期不能小于零!");
}
//---------------------------------------------------------------------------
void __fastcall TKSCale::ValidCaleSocDate()  //社会日期
{
   AnsiString  m_CaleSocDate;
   m_CaleSocDate=GetMasterValue("CaleSocDate");
   Query->Close();
   Query->SQL->Clear();
   Query->SQL->Add("select * from sdCale where CaleSocDate='"+m_CaleSocDate+"'");
   Query->Open();
   if(Query->RecordCount>0)
   {
     Query->Close();
     throw Exception("社会日期:'"+m_CaleSocDate+"'已经存在,不能重复!");
   }
   Query->Close();
}
//-----------------------------------------------------------------------------

void __fastcall TKSCale::ValidCaleWeek()  //星期
{
   int m_CaleWeek;
   m_CaleWeek=GetMasterValue("CaleWeek");
   if(m_CaleWeek<1 || m_CaleWeek>7)
      throw Exception("星期只能取值(1-7)!");
}
//-----------------------------------------------------------------------------
void __fastcall TKSCale::ValidCaleStatus()  //状态
{
   int m_CaleStatus;
   m_CaleStatus=GetMasterValue("CaleStatus");
   if(m_CaleStatus!=1 && m_CaleStatus!=2 && m_CaleStatus!=3)
      throw Exception("状态只能取值(1-工作,2-厂休,3-停工.)");
}
//-----------------------------------------------------------------------------
void __fastcall TKSCale::ValidCaleYear()  //年度
{
   AnsiString  m_CaleYear;
   m_CaleYear=GetMasterValue("CaleYear");
   if(m_CaleYear.Length()>4)
     throw Exception("年度值长度不能大于4!");
}
//---------------------------------------------------------------------------
void __fastcall TKSCale::CmdExec(AnsiString Param)
{

}
//---------------------------------------------------------------------------