mshop.cpp

来自「一个以前收集的基于C/S架构的ERP客户端源代码」· C++ 代码 · 共 65 行

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

TKSShop *sdShop;
//---------------------------------------------------------------------------
__fastcall TKSShop::TKSShop()
  :TKSMidBase()
{
}
//---------------------------------------------------------------------------
void __fastcall TKSShop::ValidHeadValues()
{
  //车间代码
      ValidShopCode();
  //车间名称
      ValidShopName();
  //部门
      ValidShopDeptCode();
  //是装配车间
      ValidShopFitting();
  //是辅助车间
      ValidShopAssis();
}
//---------------------------------------------------------------------------
void __fastcall TKSShop::ValidShopCode()  //车间代码
{

}
//---------------------------------------------------------------------------
void __fastcall TKSShop::ValidShopName()  //车间名称
{

}
//---------------------------------------------------------------------------
void __fastcall TKSShop::ValidShopDeptCode()  //部门
{

}
//---------------------------------------------------------------------------
void __fastcall TKSShop::ValidShopFitting()  //是装配车间
{
   int m_ShopFitting;
   m_ShopFitting=GetMasterValue("ShopFitting");
   if(m_ShopFitting!=0 && m_ShopFitting!=1)
     throw Exception("装配车间标志只能取值(0-非装配车间,1-装配车间.)");
}
//---------------------------------------------------------------------------
void __fastcall TKSShop::ValidShopAssis()  //是辅助车间
{
   int m_ShopAssis;
   m_ShopAssis=GetMasterValue("ShopAssis");
   if(m_ShopAssis!=0 && m_ShopAssis!=1)
     throw Exception("辅助车间标志只能取值(0-生产车间,1-辅助车间.)");
}
//---------------------------------------------------------------------------
void __fastcall TKSShop::CmdExec(AnsiString Param)
{

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