mdept.cpp

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

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

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

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

#pragma package(smart_init)
TKSDept *sdDept;
//---------------------------------------------------------------------------
__fastcall TKSDept::TKSDept()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSDept::ValidHeadValues()
{

   AnsiString  m_DeptLinkman;
   m_DeptLinkman=GetMasterValue("DeptLinkman");
    if(m_DeptLinkman.Length()>20)
        throw Exception("'联系人'长度不能超过20");

   AnsiString  m_DeptTel;
   m_DeptTel=GetMasterValue("DeptTel");
    if(m_DeptTel.Length()>20)
        throw Exception("'联系电话'长度不能超过20");

   AnsiString  m_DeptFax;
   m_DeptFax=GetMasterValue("DeptFax");
    if(m_DeptFax.Length()>20)
        throw Exception("'传真长度'不能超过20");

   AnsiString  m_DeptAddr;
   m_DeptAddr=GetMasterValue("DeptAddr");
    if(m_DeptAddr.Length()>40)
        throw Exception("'联系地址'长度不能超过40");

   AnsiString  m_DeptZip;
   m_DeptZip=GetMasterValue("DeptZip");
    if(m_DeptZip.Length()>6)
        throw Exception("'邮编'长度不能超过6");

   AnsiString  m_DeptEmail;
   m_DeptEmail=GetMasterValue("DeptEmail");
    if(m_DeptEmail.Length()>20)
        throw Exception("'E-mail'长度不能超过20");

   AnsiString  m_DeptDesc;
   m_DeptDesc=GetMasterValue("DeptDesc");
    if(m_DeptDesc.Length()>40)
        throw Exception("'备注'长度不能超过40");

   int m_DeptLevel;
   m_DeptLevel=GetMasterValue("DeptLevel");
    if(m_DeptLevel<1)
        throw Exception("'层级码'不能小于1");
}
//---------------------------------------------------------------------------
void __fastcall TKSDept::CmdExec(AnsiString Param)
{

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