mstype.cpp

科思ERP部分源码及控件

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

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

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

#pragma package(smart_init)
TKSStype *sdStype;
//---------------------------------------------------------------------------
__fastcall TKSStype::TKSStype()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSStype::ValidMasterField(int FieldNo)
{
  switch(FieldNo)
  {
    case 1:  //类型代码
      ValidStypeCode();
      break;
    case 2:  //类型名称
      ValidStypeName();
      break;
    case 3:  //备注
      ValidStypeDesc();
      break;
  }
}
//---------------------------------------------------------------------------
void __fastcall TKSStype::ValidStypeCode()  //类型代码
{                            /*/
   AnsiString  m_StypeCode;
   AnsiString  b_StypeCode;
   m_StypeCode=GetMasterValue("StypeCode");
   b_StypeCode=GetMasterOldValue("StypeCode");
    if(m_StypeCode.IsEmpty())
        throw Exception("客户类型编码不能为空!");
    if(m_StypeCode.Length()>18)
      throw Exception("客户类型编码长度不能大于20");
    if(m_StypeCode.UpperCase()!=b_StypeCode.UpperCase())
    {
        Query->Close();
        Query->SQL->Clear();
        Query->SQL->Add("SELECT StypeCODE FROM SDStype WHERE StypeCODE='" +m_StypeCode+"'");
        Query->Open();
        if(Query->RecordCount>0)
        {
            Query->Close();
            throw Exception("客户类型编码'"+m_StypeCode+"'已存在");
        }
        Query->Close();
    }                           /*/

}
//---------------------------------------------------------------------------
void __fastcall TKSStype::ValidStypeName()  //类型名称
{
   AnsiString  m_StypeName;
   m_StypeName=GetMasterValue("StypeName");
    if(m_StypeName.IsEmpty())
      throw Exception("类型名称不能为空");
    if(m_StypeName.Length()>18)
      throw Exception("类型名称长度不能大于20");
}
//---------------------------------------------------------------------------
void __fastcall TKSStype::ValidStypeDesc()  //备注
{
   AnsiString  m_StypeDesc;
   m_StypeDesc=GetMasterValue("StypeDesc");
    if(m_StypeDesc.Length()>40)
      throw Exception("备注长度不能大于40");
}
//---------------------------------------------------------------------------
void __fastcall TKSStype::CmdExec(AnsiString Param)
{

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