fmdoc.cpp

邮 电 公 司 erp源码

{
    if(value.Length()>10)
       throw Exception("助记符长度不能超过10");
     m_GlkmShortCut=value;
}
void __fastcall TsdGlkm:: SetGlkmType(int    value)
{
     if(value<1 || value>5)
       throw Exception("类型必须是：1-资产，2-负债，3-权益，4-成本，5-损益中的一种");
     m_GlkmType=value;
}
void __fastcall TsdGlkm:: SetGlkmMx(int    value)
{
       m_GlkmMx=value;
}
void __fastcall TsdGlkm:: SetGlkmWb(int    value)
{
       m_GlkmWb=value;
}
void __fastcall TsdGlkm:: SetGlkmCurrency(AnsiString value)
{
   if(m_GlkmWb==0)
    m_GlkmCurrency="";
   else
   {
    if(value.IsEmpty())
     throw Exception("外币名不能为空");
    if(value!=m_GlkmCurrency)
    {
       m_Query->Close();
       m_Query->SQL->Clear();
       m_Query->SQL->Add("SELECT CurrencyCode FROM SDCurrency WHERE  CURRENCYLOCAL!=1 and  CurrencyCode='"+value+"'");
       m_Query->Open();
       if(m_Query->RecordCount <= 0)
       {
          m_Query->Close();
          throw Exception("外币名："+value+"未定义");
       }
       m_Query->Close();
    }
    m_GlkmCurrency=value;
   }
}
void __fastcall TsdGlkm:: SetGlkmSl(int    value)
{
       m_GlkmSl=value;
}
void __fastcall TsdGlkm:: SetGlkmUnit(AnsiString value)
{
   if(m_GlkmSl == 0)
    m_GlkmUnit="";
   else
   {
    if(value.IsEmpty())
     throw Exception("计量单位不能为空");
    if(value!=m_GlkmUnit)
    {
       m_Query->Close();
       m_Query->SQL->Clear();
       m_Query->SQL->Add("SELECT UnitCode FROM SDUnit WHERE UnitCode='"+value+"'");
       m_Query->Open();
       if(m_Query->RecordCount <= 0)
       {
          m_Query->Close();
          throw Exception("计量单位："+value+"未定义");
       }
       m_Query->Close();
    }
    m_GlkmUnit=value;
   }
}
void __fastcall TsdGlkm:: SetGlkmDir(double  value)
{
     if(value<1 || value>2)
       throw Exception("余额方向必须是：1-借方，2-贷方中的一种");
     m_GlkmDir=value;
}
void __fastcall TsdGlkm:: SetGlkmBookType(int    value)
{
     if(value<1 || value>3)
       throw Exception("帐簿类型必须是：1-借贷式，2-三栏式，3-多栏式中的一种");
       m_GlkmBookType=value;
}
void __fastcall TsdGlkm:: SetGlkmCash(int    value)
{
       m_GlkmCash=value;
}
void __fastcall TsdGlkm:: SetGlkmBank(int    value)
{
       m_GlkmBank=value;
}
void __fastcall TsdGlkm:: SetGlkmDept(int    value)
{
       m_GlkmDept=value;
}
void __fastcall TsdGlkm:: SetGlkmHuman(int    value)
{
       m_GlkmHuman=value;
}
void __fastcall TsdGlkm:: SetGlkmClient(int    value)
{
       m_GlkmClient=value;
}
void __fastcall TsdGlkm:: SetGlkmSupply(int    value)
{
       m_GlkmSupply=value;
}
void __fastcall TsdGlkm:: SetGlkmProject(int    value)
{
       m_GlkmProject=value;
}
void __fastcall TsdGlkm:: SetGlkmCc(int    value)
{
       m_GlkmCc=value;
}
void __fastcall TsdGlkm:: SetGlkmAer(int    value)
{
       m_GlkmAer=value;
}
void __fastcall TsdGlkm:: SetGlkmNoUse(int    value)
{
       m_GlkmNoUse=value;
}
//---------------------------------------------------------------------------
AnsiString TsdGlkm::GetFieldValue(euGlkm sdFieldName)
{
    switch(sdFieldName)
    {
      case fiGlkmCode:
           return GlkmCode;
      case fiGlkmItem:
           return GlkmItem;
      case fiGlkmUpperCode:
           return GlkmUpperCode;
      case fiGlkmLevel:
           return GlkmLevel;
      case fiGlkmName:
           return GlkmName;
      case fiGlkmShortCut:
           return GlkmShortCut;
      case fiGlkmType:
           return GlkmType;
      case fiGlkmMx:
           return GlkmMx;
      case fiGlkmWb:
           return GlkmWb;
      case fiGlkmCurrency:
           return GlkmCurrency;
      case fiGlkmSl:
           return GlkmSl;
      case fiGlkmUnit:
           return GlkmUnit;
      case fiGlkmDir:
           return GlkmDir;
      case fiGlkmBookType:
           return GlkmBookType;
      case fiGlkmCash:
           return GlkmCash;
      case fiGlkmBank:
           return GlkmBank;
      case fiGlkmDept:
           return GlkmDept;
      case fiGlkmHuman:
           return GlkmHuman;
      case fiGlkmClient:
           return GlkmClient;
      case fiGlkmSupply:
           return GlkmSupply;
      case fiGlkmProject:
           return GlkmProject;
      case fiGlkmCc:
           return GlkmCc;
      case fiGlkmAer:
           return GlkmAer;
      case fiGlkmNoUse:
           return GlkmNoUse;
      default:
           throw Exception("当前未定义可取值");
     }
}
//---------------------------------------------------------------------------
void TsdGlkm::SetFieldValue(euGlkm sdFieldName, AnsiString value)
{
    switch(sdFieldName)
     {
    case fiGlkmCode:  
         GlkmCode=value;
          break;
    case fiGlkmItem:  
         GlkmItem=value;
          break;
    case fiGlkmUpperCode:
         GlkmUpperCode=value;
          break;
    case fiGlkmLevel:  
         GlkmLevel=value.ToInt();
          break;
    case fiGlkmName:  
         GlkmName=value;
          break;
    case fiGlkmShortCut:  
         GlkmShortCut=value;
          break;
    case fiGlkmType:  
         GlkmType=value.ToInt();
          break;
    case fiGlkmMx:  
         GlkmMx=value.ToInt();
          break;
    case fiGlkmWb:  
         GlkmWb=value.ToInt();
          break;
    case fiGlkmCurrency:  
         GlkmCurrency=value;
          break;
    case fiGlkmSl:  
         GlkmSl=value.ToInt();
          break;
    case fiGlkmUnit:  
         GlkmUnit=value;
          break;
    case fiGlkmDir:
         GlkmDir=value.ToDouble();
          break;
    case fiGlkmBookType:  
         GlkmBookType=value.ToInt();
          break;
    case fiGlkmCash:  
         GlkmCash=value.ToInt();
          break;
    case fiGlkmBank:  
         GlkmBank=value.ToInt();
          break;
    case fiGlkmDept:  
         GlkmDept=value.ToInt();
          break;
    case fiGlkmHuman:  
         GlkmHuman=value.ToInt();
          break;
    case fiGlkmClient:  
         GlkmClient=value.ToInt();
          break;
    case fiGlkmSupply:  
         GlkmSupply=value.ToInt();
          break;
    case fiGlkmProject:  
         GlkmProject=value.ToInt();
          break;
    case fiGlkmCc:
         GlkmCc=value.ToInt();
          break;
    case fiGlkmAer:
         GlkmAer=value.ToInt();
          break;
    case fiGlkmNoUse:
         GlkmNoUse=value.ToInt();
          break;
    default:
         throw Exception("当前字段未定义可赋值");
      }
}
//---------------------------------------------------------------------------
TsdGlkm::TsdGlkm(TDataComm *DC)
                :TsdStandard(DC)
{
    try
    {
        EmptyValue(0);
        EmptyValue(1);
        QueryString="SELECT * FROM sdGlkm";
        FilterString="";
        OrderString="GlkmCode";
    }
    catch(Exception &e)
    {
     throw Exception("构造函数出错");
    }
}
//---------------------------------------------------------------------------
TsdGlkm::TsdGlkm()
                :TsdStandard()
{
    try
    {
        EmptyValue(0);
        EmptyValue(1);
        QueryString="SELECT * FROM sdGlkm";
        FilterString="";
        OrderString="GlkmCode";
    }
    catch(Exception &e)
    {
     throw Exception("构造函数出错");
    }
}
//---------------------------------------------------------------------------
TsdGlkm::~TsdGlkm()
{
  try{
     }
  catch(...)
    {
     throw Exception("析构函数出错");
    }
}
//---------------------------------------------------------------------------
void TsdGlkm::BackupValue()
{
      b_GlkmCode=m_GlkmCode;
      b_GlkmItem=m_GlkmItem;
      b_GlkmUpperCode=m_GlkmUpperCode;
      b_GlkmLevel=m_GlkmLevel;
      b_GlkmName=m_GlkmName;
      b_GlkmShortCut=m_GlkmShortCut;
      b_GlkmType=m_GlkmType;
      b_GlkmMx=m_GlkmMx;
      b_GlkmWb=m_GlkmWb;
      b_GlkmCurrency=m_GlkmCurrency;
      b_GlkmSl=m_GlkmSl;
      b_GlkmUnit=m_GlkmUnit;
      b_GlkmDir=m_GlkmDir;
      b_GlkmBookType=m_GlkmBookType;
      b_GlkmCash=m_GlkmCash;
      b_GlkmBank=m_GlkmBank;
      b_GlkmDept=m_GlkmDept;
      b_GlkmHuman=m_GlkmHuman;
      b_GlkmClient=m_GlkmClient;
      b_GlkmSupply=m_GlkmSupply;
      b_GlkmProject=m_GlkmProject;
      b_GlkmCc=m_GlkmCc;
      b_GlkmAer=m_GlkmAer;
      b_GlkmNoUse=m_GlkmNoUse;
}
//---------------------------------------------------------------------------
void TsdGlkm::RestoreValue()
{
      m_GlkmCode=b_GlkmCode;
      m_GlkmItem=b_GlkmItem;
      m_GlkmUpperCode=b_GlkmUpperCode;
      m_GlkmLevel=b_GlkmLevel;
      m_GlkmName=b_GlkmName;
      m_GlkmShortCut=b_GlkmShortCut;
      m_GlkmType=b_GlkmType;
      m_GlkmMx=b_GlkmMx;
      m_GlkmWb=b_GlkmWb;
      m_GlkmCurrency=b_GlkmCurrency;
      m_GlkmSl=b_GlkmSl;
      m_GlkmUnit=b_GlkmUnit;
      m_GlkmDir=b_GlkmDir;
      m_GlkmBookType=b_GlkmBookType;
      m_GlkmCash=b_GlkmCash;
      m_GlkmBank=b_GlkmBank;
      m_GlkmDept=b_GlkmDept;
      m_GlkmHuman=b_GlkmHuman;
      m_GlkmClient=b_GlkmClient;
      m_GlkmSupply=b_GlkmSupply;
      m_GlkmProject=b_GlkmProject;
      m_GlkmCc=b_GlkmCc;
      m_GlkmAer=b_GlkmAer;
      m_GlkmNoUse=b_GlkmNoUse;
}
//---------------------------------------------------------------------------
void TsdGlkm::EmptyValue(int Index)
{
   switch(Index)
   {
    case 0:
        m_GlkmCode="";
        m_GlkmItem="";
        m_GlkmUpperCode="";
        m_GlkmLevel=0;
        m_GlkmName="";
        m_GlkmShortCut="";
        m_GlkmType=0;
        m_GlkmMx=0;
        m_GlkmWb=0;
        m_GlkmCurrency="";
        m_GlkmSl=0;
        m_GlkmUnit="";
        m_GlkmDir=0;
        m_GlkmBookType=0;
        m_GlkmCash=0;
        m_GlkmBank=0;
        m_GlkmDept=0;
        m_GlkmHuman=0;
        m_GlkmClient=0;
        m_GlkmSupply=0;
        m_GlkmProject=0;
        m_GlkmCc=0;
        m_GlkmAer=0;
        m_GlkmNoUse=0;
    break;
    case 1:
        b_GlkmCode="";
        b_GlkmItem="";
        b_GlkmUpperCode="";
        b_GlkmLevel=0;
        b_GlkmName="";
        b_GlkmShortCut="";
        b_GlkmType=0;
        b_GlkmMx=0;
        b_GlkmWb=0;
        b_GlkmCurrency="";
        b_GlkmSl=0;
        b_GlkmUnit="";
        b_GlkmDir=0;
        b_GlkmBookType=0;
        b_GlkmCash=0;
        b_GlkmBank=0;
        b_GlkmDept=0;
        b_GlkmHuman=0;
        b_GlkmClient=0;
        b_GlkmSupply=0;
        b_GlkmProject=0;
        b_GlkmCc=0;
        b_GlkmAer=0;
        b_GlkmNoUse=0;
      break;
     }
}
//---------------------------------------------------------------------------
void TsdGlkm::BatchLetValue()
{
    m_GlkmCode=m_Query->FieldValues["GlkmCode"];
    m_GlkmItem=m_Query->FieldValues["GlkmItem"];
    m_GlkmUpperCode=m_Query->FieldValues["GlkmUpperCode"];
    m_GlkmLevel=m_Query->FieldValues["GlkmLevel"];
    m_GlkmName=m_Query->FieldValues["GlkmName"];
    m_GlkmShortCut=m_Query->FieldValues["GlkmShortCut"];
    m_GlkmType=m_Query->FieldValues["GlkmType"];
    m_GlkmMx=m_Query->FieldValues["GlkmMx"];
    m_GlkmWb=m_Query->FieldValues["GlkmWb"];