mkeeper.cpp

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

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

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

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

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

   AnsiString  m_KeeperCode;
   AnsiString  b_KeeperCode;
   m_KeeperCode=GetMasterValue("KeeperCode");
   b_KeeperCode=GetMasterOldValue("KeeperCode");
    if (m_KeeperCode.IsEmpty() )
       throw Exception("仓管员编码不能为空!");
    if(m_KeeperCode.Length()>18)
      throw Exception("仓管员编码长度不能大于18");
    if (m_KeeperCode.UpperCase()!=b_KeeperCode.UpperCase())
    {
        Query->Close();
        Query->SQL->Clear();
        Query->SQL->Add("Select usercode from sduser where usercode='"+m_KeeperCode+"'");
        Query->Open();
        if(Query->RecordCount<=0)
        {
          Query->Close();
          throw Exception("操作员:'"+m_KeeperCode+"'未定义");
        }
        Query->Close();
    }
    b_KeeperCode = m_KeeperCode;
   int m_KeeperCheck;
   int b_KeeperCheck;
   m_KeeperCheck=GetMasterValue("KeeperCheck");
    if(m_KeeperCheck!=0 && m_KeeperCheck!=1)
      throw Exception("审核标志只能取值0-无审核权限1-有审核权限");

   int m_KeeperStop;
   int b_KeeperStop;
   m_KeeperStop=GetMasterValue("KeeperStop");
    if(m_KeeperStop!=0 && m_KeeperStop!=1)
      throw Exception("中止权限只能取值0-无中止权限1-有中止权限");

   int m_KeeperCancel;
   int b_KeeperCancel;
   m_KeeperCancel=GetMasterValue("KeeperCancel");
    if(m_KeeperCancel!=0 && m_KeeperCancel!=1)
      throw Exception("取消权限只能取值 0-无取消权限1-有取消权限");

   int m_KeeperClose;
   int b_KeeperClose;
   m_KeeperClose=GetMasterValue("KeeperClose");
    if(m_KeeperClose!=0 && m_KeeperClose!=1)
      throw Exception("结清权限只能取值 0-无结清权限1-有结清权限");

   int m_KeeperPost;
   int b_KeeperPost;
   m_KeeperPost=GetMasterValue("KeeperPost");
    if(m_KeeperPost!=0 && m_KeeperPost!=1)
      throw Exception("记帐权限只能取值 0-无记帐权限1-有记帐权限");

   AnsiString  m_KeeperTel;
   m_KeeperTel=GetMasterValue("KeeperTel");
  if(m_KeeperTel.Length()>20)
    throw Exception("电话长度不能大于20");

   AnsiString  m_KeeperBeepPage;
   m_KeeperBeepPage=GetMasterValue("KeeperBeepPage");
  if(m_KeeperBeepPage.Length()>20)
    throw Exception("呼机长度不能大于20");
}
//---------------------------------------------------------------------------
void __fastcall TKSKeeper::CmdExec(AnsiString Param)
{

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