msmode.cpp

科思ERP部分源码及控件

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

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

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

#pragma package(smart_init)
TKSSmode *sdSmode;
//---------------------------------------------------------------------------
__fastcall TKSSmode::TKSSmode()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSSmode::ValidMasterField(int FieldNo)
{
  switch(FieldNo)
  {
    case 1:  //销售类型代码
      ValidSmodeCode();
      break;
    case 2:  //销售类型名称
      ValidSmodeName();
      break;
    case 3:  //说明
      ValidSmodeDesc();
      break;
  }
}
//---------------------------------------------------------------------------
void __fastcall TKSSmode::ValidSmodeCode()  //销售类型代码
{                          /*/
   AnsiString  m_SmodeCode;
   AnsiString  b_SmodeCode;
   m_SmodeCode=GetMasterValue("SmodeCode");
   b_SmodeCode=GetMasterOldValue("SmodeCode");
    if (m_SmodeCode.IsEmpty() )
       throw Exception("销售方式编码不能为空!");
    if(m_SmodeCode.Length()>18)
      throw Exception("销售方式编码长度不能大于18");
    if (m_SmodeCode.UpperCase()!=b_SmodeCode.UpperCase())
    {
      Query->Close();
      Query->SQL->Clear();
      Query->SQL->Add("SELECT SmodeCODE FROM SDSmode WHERE SmodeCODE='" +m_SmodeCode+"'");
      Query->Open();
      if(Query->RecordCount>0)
      {
        Query->Close();
        throw Exception("销售方式编码'"+m_SmodeCode+"'已存在");
      }
      Query->Close();
    }                      //*/
}
//---------------------------------------------------------------------------
void __fastcall TKSSmode::ValidSmodeName()  //销售类型名称
{
   AnsiString  m_SmodeName;
   AnsiString  b_SmodeName;
   m_SmodeName=GetMasterValue("SmodeName");
   b_SmodeName=GetMasterOldValue("SmodeName");
    if(m_SmodeName.IsEmpty())
      throw Exception("销售方式名称不能为空");
    if(m_SmodeName.Length()>20)
      throw Exception("销售方式名称长度不能大于20");
}
//---------------------------------------------------------------------------
void __fastcall TKSSmode::ValidSmodeDesc()  //说明
{
   AnsiString  m_SmodeDesc;
   m_SmodeDesc=GetMasterValue("SmodeDesc");
    if(m_SmodeDesc.Length()>40)
      throw Exception("备注长度不能大于40");
}
//---------------------------------------------------------------------------
void __fastcall TKSSmode::CmdExec(AnsiString Param)
{

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