mqcm.cpp

科思ERP部分源码及控件

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

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

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

#pragma package(smart_init)
TKSQcm *sdQcm;
//---------------------------------------------------------------------------
__fastcall TKSQcm::TKSQcm()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSQcm::ValidHeadValues()
{
     AnsiString  m_QcmCode,b_QcmCode;
   m_QcmCode=GetMasterValue("QcmCode");
   b_QcmCode=GetMasterOldValue("QcmCode");

       if(m_QcmCode!=b_QcmCode)
       {

            Query->Close();
            Query->SQL->Clear();
            Query->SQL->Add("select UserCode from sdUser where UserCode='"+m_QcmCode+"'");
            Query->Open();
            if(Query->RecordCount==0)
            {
                 Query->Close();
                 throw Exception(m_QcmCode+"不是系统用户,不能作为质检员");
            }
            Query->Close();
       }
}
//---------------------------------------------------------------------------
void __fastcall TKSQcm::CmdExec(AnsiString Param)
{

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