mpurser.cpp

科思ERP部分源码及控件

//---------------------------------------------------------------------------
#include <vcl.h>
#include "mPurser.h"
//---------------------------------------------------------------------------
#pragma hdrstop
#pragma package(smart_init)

TKSPurser *sdPurser;
//---------------------------------------------------------------------------
__fastcall TKSPurser::TKSPurser()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSPurser::ValidHeadValues()
{

    AnsiString  m_PurserCode;
    AnsiString  b_PurserCode;
    m_PurserCode=GetMasterValue("PurserCode");
    b_PurserCode=GetMasterOldValue("PurserCode");

    if(m_PurserCode!=b_PurserCode)
    {
      Query->Close();
      Query->SQL->Clear();
      Query->SQL->Add("SELECT PurserCode FROM SDPurser WHERE PurserCODE='" +m_PurserCode+"'");
      Query->Open();
      if(Query->RecordCount>0)
      {
         Query->Close();
         throw Exception("会计员编码'"+m_PurserCode+"'已存在");
      }
    }  
}
//---------------------------------------------------------------------------
void __fastcall TKSPurser::CmdExec(AnsiString Param)
{

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