mpsd.cpp

一个以前收集的基于C/S架构的ERP客户端源代码

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

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

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

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

   AnsiString  m_PsdBankName;
   AnsiString  b_PsdBankName;
   m_PsdBankName=GetMasterValue("PsdBankName");
   b_PsdBankName=GetMasterOldValue("PsdBankName");
   if(m_PsdBankName.LowerCase().IsEmpty())
    throw Exception("银行名称不允许为空");
   if(m_PsdBankName.LowerCase().Length() > 20)
    throw Exception("银行名称长度不能多于20（10个汉字）");
   b_PsdBankName.LowerCase() = m_PsdBankName.LowerCase();

   AnsiString  m_PsdBankNo;
   AnsiString  b_PsdBankNo;
   m_PsdBankNo=GetMasterValue("PsdBankNo");
   b_PsdBankNo=GetMasterOldValue("PsdBankNo");
   if(m_PsdBankNo.LowerCase().IsEmpty())
    throw Exception("银行帐号不允许为空");
   if(m_PsdBankNo.LowerCase().Length() > 30)
    throw Exception("银行帐号长度不能多于30");
    b_PsdBankNo.LowerCase() = m_PsdBankNo.LowerCase();
}
//---------------------------------------------------------------------------
void __fastcall TKSPsd::CmdExec(AnsiString Param)
{

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