mtow.cpp

科思ERP部分源码及控件

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

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

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

#pragma package(smart_init)
TKSTow *sdTow;
//---------------------------------------------------------------------------
__fastcall TKSTow::TKSTow()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSTow::ValidHeadValues()
{
   AnsiString  m_TowCode;
   AnsiString  b_TowCode;
   m_TowCode=GetMasterValue("TowCode");
   b_TowCode=GetMasterOldValue("TowCode");
  if(m_TowCode.IsEmpty())
    throw Exception("工种代码不能为空");
  if(m_TowCode.Length()>18)
    throw Exception("工种代码的长度不能大于18");

   AnsiString  m_TowName;
   m_TowName=GetMasterValue("TowName");
  if(m_TowName.IsEmpty())
    throw Exception("工种名称不能为空");
  if(m_TowName.Length()>20)
    throw Exception("工种名称的长度不能大于20");

   AnsiString  m_TowDesc;
   m_TowDesc=GetMasterValue("TowDesc");
  if(!m_TowDesc.IsEmpty() && m_TowDesc.Length()>40)
     throw Exception("工种名称的长度不能大于40");
}
//---------------------------------------------------------------------------

void __fastcall TKSTow::CmdExec(AnsiString Param)
{

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