mrank.cpp

科思ERP部分源码及控件

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

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

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

#pragma package(smart_init)
TKSRank *sdRank;
//---------------------------------------------------------------------------
__fastcall TKSRank::TKSRank()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSRank::ValidHeadValues()
{
   AnsiString  m_RankCode;
   AnsiString  b_RankCode;
   m_RankCode=GetMasterValue("RankCode");
   b_RankCode=GetMasterOldValue("RankCode");
  if(m_RankCode.IsEmpty())
    throw Exception("职务代码不能为空");
  if(m_RankCode.Length()>18)
    throw Exception("职务代码的长度不能大于18");
  if(m_RankCode.UpperCase() != b_RankCode.UpperCase())
  {
    Query->Close();
    Query->SQL->Clear();
    Query->SQL->Add("select * from sdRank where RankCode='"+m_RankCode+"'");
    Query->Open();
    if(Query->RecordCount>0)
    {
      Query->Close();
      throw Exception("职务代码："+m_RankCode+"已存在");
    }
    Query->Close();
  }

   AnsiString  m_RankName;
   m_RankName=GetMasterValue("RankName");
  if(m_RankName.IsEmpty())
    throw Exception("职务名称不能为空");
  if(m_RankName.Length()>18)
    throw Exception("职务名称不能为空");

   AnsiString  m_RankItem;
   m_RankItem=GetMasterValue("RankItem");
  if(m_RankItem.IsEmpty())
    throw Exception("本级编码不能为空");
  if(m_RankItem.Length()>18)
    throw Exception("本级编码的长度不能大于18");

   AnsiString  m_RankUpperCode;
   AnsiString  b_RankUpperCode;
   m_RankUpperCode=GetMasterValue("RankUpperCode");
   b_RankUpperCode=GetMasterOldValue("RankUpperCode");
  if(m_RankUpperCode.Length()>18)
    throw Exception("上级编码的长度不能大于18");

  double m_RankLevel;
   m_RankLevel=GetMasterValue("RankLevel");
  if(m_RankLevel<0 || m_RankLevel==0)
    throw Exception("职务资料的层级码大小必须大于零");
}
//---------------------------------------------------------------------------
void __fastcall TKSRank::CmdExec(AnsiString Param)
{

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