mard.cpp

科思ERP部分源码及控件

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

TKSArd *sdArd;
//---------------------------------------------------------------------------
__fastcall TKSArd::TKSArd()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSArd::ValidHeadValues()
{
    int m_ArdRight;
    m_ArdRight=GetMasterValue("ArdRight");
    if(m_ArdRight!=1 && m_ArdRight!=2)
       throw Exception("操作权限只能为:(1-查看,2-操作.)");
    //-----------   
    AnsiString  m_ArdUser;
    AnsiString  b_ArdUser;
    AnsiString m_ArdCac;
    m_ArdCac=GetMasterValue("ArdCac");
    m_ArdUser=GetMasterValue("ArdUser");
    b_ArdUser=GetMasterOldValue("ArdUser");

    if(m_ArdUser!=b_ArdUser)
    {
      if(m_ArdRight == 2)
      {
        Query->Close();
        Query->SQL->Clear();
        Query->SQL->Add("SELECT CashierCode FROM SDCashier WHERE CashierCODE='" +m_ArdUser+"'");
        Query->Open();
        if(Query->RecordCount<=0)
        {
            Query->Close();
            throw Exception("操作员'"+m_ArdUser+"'不是出纳员!");
        }
       }
       Query->Close();
    }       
}
//---------------------------------------------------------------------------
void __fastcall TKSArd::CmdExec(AnsiString Param)
{

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