mptype.cpp

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

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

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

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

#pragma package(smart_init)
TKSPtype *sdPtype;
//---------------------------------------------------------------------------
__fastcall TKSPtype::TKSPtype()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSPtype::ValidHeadValues()
{
   AnsiString  m_PtypeName;
   AnsiString  b_PtypeName;
   m_PtypeName=GetMasterValue("PtypeName");
   b_PtypeName=GetMasterOldValue("PtypeName");
    if(m_PtypeName.LowerCase().IsEmpty())
      throw Exception("供应商类型名称不能为空");
    if(m_PtypeName.LowerCase().Length()>20)
      throw Exception("供应商类型名称长度不能大于20");
    b_PtypeName.LowerCase() = m_PtypeName.LowerCase();

   AnsiString  m_PtypeDesc;
   AnsiString  b_PtypeDesc;
   m_PtypeDesc=GetMasterValue("PtypeDesc");
   b_PtypeDesc=GetMasterOldValue("PtypeDesc");
    if(m_PtypeDesc.LowerCase().Length()>40)
      throw Exception("备注长度不能大于40");
    b_PtypeDesc.LowerCase() = m_PtypeDesc.LowerCase();
}
//---------------------------------------------------------------------------
void __fastcall TKSPtype::CmdExec(AnsiString Param)
{

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