fmdoc.cpp

邮 电 公 司 erp源码

       m_Query->Open();
       if(m_Query->RecordCount>0)
       {
          m_Query->Close();
          throw Exception("类别名称已存在!");
       }
       m_Query->Close();
    }
    m_FvctName=value;
}
void __fastcall TsdFvct:: SetFvctLimit(int    value)
{
       m_FvctLimit=value;
}
void __fastcall TsdFvct:: SetFvctDNeed(AnsiString value)
{
     if(m_FvctLimit==0)
       m_FvctDNeed="";
     else
     {
       if(value.IsEmpty())
        throw Exception("借方必有科目不能为空");
       m_FvctDNeed=value;
     }
}
void __fastcall TsdFvct:: SetFvctCNeed(AnsiString value)
{
     if(m_FvctLimit==0)
       m_FvctCNeed="";
     else
     {
       if(value.IsEmpty())
        throw Exception("贷方必有科目不能为空");
       m_FvctCNeed=value;
     }

}
void __fastcall TsdFvct:: SetFvctDCNeed(AnsiString value)
{
     if(m_FvctLimit==0)
       m_FvctDCNeed="";
     else
       m_FvctDCNeed=value;
}
void __fastcall TsdFvct:: SetFvctDNone(AnsiString value)
{
     if(m_FvctLimit==0)
       m_FvctDNone="";
     else
       m_FvctDNone=value;
}
void __fastcall TsdFvct:: SetFvctCNone(AnsiString value)
{
     if(m_FvctLimit==0)
       m_FvctCNone="";
     else
       m_FvctCNone=value;
}
void __fastcall TsdFvct:: SetFvctDCNone(AnsiString value)
{
     if(m_FvctLimit==0)
       m_FvctDCNone="";
     else
       m_FvctDCNone=value;
}
//---------------------------------------------------------------------------
AnsiString TsdFvct::GetFieldValue(euFvct sdFieldName)
{
    switch(sdFieldName)
    {
      case fiFvctCode:
           return FvctCode;
      case fiFvctName:
           return FvctName;
      case fiFvctLimit:
           return FvctLimit;
      case fiFvctDNeed:
           return FvctDNeed;
      case fiFvctCNeed:
           return FvctCNeed;
      case fiFvctDCNeed:
           return FvctDCNeed;
      case fiFvctDNone:
           return FvctDNone;
      case fiFvctCNone:
           return FvctCNone;
      case fiFvctDCNone:
           return FvctDCNone;
      default:
           throw Exception("当前未定义可取值");
     }
}
//---------------------------------------------------------------------------
void TsdFvct::SetFieldValue(euFvct sdFieldName, AnsiString value)
{
    switch(sdFieldName)
     {
    case fiFvctCode:  
         FvctCode=value;
          break;
    case fiFvctName:  
         FvctName=value;
          break;
    case fiFvctLimit:
         FvctLimit=value.ToInt();
          break;
    case fiFvctDNeed:
         FvctDNeed=value;
          break;
    case fiFvctCNeed:  
         FvctCNeed=value;
          break;
    case fiFvctDCNeed:  
         FvctDCNeed=value;
          break;
    case fiFvctDNone:  
         FvctDNone=value;
          break;
    case fiFvctCNone:
         FvctCNone=value;
          break;
    case fiFvctDCNone:
         FvctDCNone=value;
          break;
    default:
         throw Exception("当前字段未定义可赋值");
      }
}
//---------------------------------------------------------------------------
TsdFvct::TsdFvct(TDataComm *DC)
                :TsdStandard(DC)
{
    try
    {
        EmptyValue(0);
        EmptyValue(1);
        QueryString="SELECT * FROM sdFvct";
        FilterString="";
        OrderString="FvctCode";
    }
    catch(Exception &e)
    {
     throw Exception("构造函数出错");
    }
}
//---------------------------------------------------------------------------
TsdFvct::TsdFvct()
                :TsdStandard()
{
    try
    {
        EmptyValue(0);
        EmptyValue(1);
        QueryString="SELECT * FROM sdFvct";
        FilterString="";
        OrderString="FvctCode";
    }
    catch(Exception &e)
    {
     throw Exception("构造函数出错");
    }
}
//---------------------------------------------------------------------------
TsdFvct::~TsdFvct()
{
  try{
     }
  catch(...)
    {
     throw Exception("析构函数出错");
    }
}
//---------------------------------------------------------------------------
void TsdFvct::BackupValue()
{
      b_FvctCode=m_FvctCode;
      b_FvctName=m_FvctName;
      b_FvctLimit=m_FvctLimit;
      b_FvctDNeed=m_FvctDNeed;
      b_FvctCNeed=m_FvctCNeed;
      b_FvctDCNeed=m_FvctDCNeed;
      b_FvctDNone=m_FvctDNone;
      b_FvctCNone=m_FvctCNone;
      b_FvctDCNone=m_FvctDCNone;
}
//---------------------------------------------------------------------------
void TsdFvct::RestoreValue()
{
      m_FvctCode=b_FvctCode;
      m_FvctName=b_FvctName;
      m_FvctLimit=b_FvctLimit;
      m_FvctDNeed=b_FvctDNeed;
      m_FvctCNeed=b_FvctCNeed;
      m_FvctDCNeed=b_FvctDCNeed;
      m_FvctDNone=b_FvctDNone;
      m_FvctCNone=b_FvctCNone;
      m_FvctDCNone=b_FvctDCNone;
}
//---------------------------------------------------------------------------
void TsdFvct::EmptyValue(int Index)
{
   switch(Index)
   {
    case 0:
        m_FvctCode="";
        m_FvctName="";
        m_FvctLimit=0;
        m_FvctDNeed="";
        m_FvctCNeed="";
        m_FvctDCNeed="";
        m_FvctDNone="";
        m_FvctCNone="";
        m_FvctDCNone="";
    break;
    case 1:
        b_FvctCode="";
        b_FvctName="";
        b_FvctLimit=0;
        b_FvctDNeed="";
        b_FvctCNeed="";
        b_FvctDCNeed="";
        b_FvctDNone="";
        b_FvctCNone="";
        b_FvctDCNone="";
      break;
     }
}
//---------------------------------------------------------------------------
void TsdFvct::BatchLetValue()
{
    m_FvctCode=m_Query->FieldValues["FvctCode"];
    m_FvctName=m_Query->FieldValues["FvctName"];
    m_FvctLimit=m_Query->FieldValues["FvctLimit"];
    m_FvctDNeed=m_Query->FieldValues["FvctDNeed"];
    m_FvctCNeed=m_Query->FieldValues["FvctCNeed"];
    m_FvctDCNeed=m_Query->FieldValues["FvctDCNeed"];
    m_FvctDNone=m_Query->FieldValues["FvctDNone"];
    m_FvctCNone=m_Query->FieldValues["FvctCNone"];
    m_FvctDCNone=m_Query->FieldValues["FvctDCNone"];
    BackupValue();
}
//---------------------------------------------------------------------------
void TsdFvct::Update()
{
    if(CurStatus==0||CurStatus==1)
        throw Exception("当前不是编辑状态,不能进行存盘操作!");
    if(m_FvctCode.IsEmpty()==true)
        throw Exception("单号不能为空!");
    m_StoredProc->Close();
    if(CurStatus==2||CurStatus==4)
      {
        m_StoredProc->ProcedureName="sdFvct_Insert";
        m_StoredProc->Parameters->Clear();
        m_StoredProc->Parameters->CreateParameter("@FvctCode",ftString,pdInput,18,m_FvctCode);
        m_StoredProc->Parameters->CreateParameter("@FvctName",ftString,pdInput,20,m_FvctName);
        m_StoredProc->Parameters->CreateParameter("@FvctLimit",ftInteger,pdInput,1,m_FvctLimit);
        m_StoredProc->Parameters->CreateParameter("@FvctDNeed",ftString,pdInput,255,m_FvctDNeed);
        m_StoredProc->Parameters->CreateParameter("@FvctCNeed",ftString,pdInput,255,m_FvctCNeed);
        m_StoredProc->Parameters->CreateParameter("@FvctDCNeed",ftString,pdInput,255,m_FvctDCNeed);
        m_StoredProc->Parameters->CreateParameter("@FvctDNone",ftString,pdInput,255,m_FvctDNone);
        m_StoredProc->Parameters->CreateParameter("@FvctCNone",ftString,pdInput,255,m_FvctCNone);
        m_StoredProc->Parameters->CreateParameter("@FvctDCNone",ftString,pdInput,255,m_FvctDCNone);
 
        m_StoredProc->ExecProc();
   }
  else
    {
        m_StoredProc->ProcedureName="sdFvct_Update";
        m_StoredProc->Parameters->Clear();

        m_StoredProc->Parameters->CreateParameter("@W_FvctCode",ftString,pdInput,18,b_FvctCode);
        m_StoredProc->Parameters->CreateParameter("@FvctCode",ftString,pdInput,18,m_FvctCode);
        m_StoredProc->Parameters->CreateParameter("@FvctName",ftString,pdInput,20,m_FvctName);
        m_StoredProc->Parameters->CreateParameter("@FvctLimit",ftInteger,pdInput,1,m_FvctLimit);
        m_StoredProc->Parameters->CreateParameter("@FvctDNeed",ftString,pdInput,255,m_FvctDNeed);
        m_StoredProc->Parameters->CreateParameter("@FvctCNeed",ftString,pdInput,255,m_FvctCNeed);
        m_StoredProc->Parameters->CreateParameter("@FvctDCNeed",ftString,pdInput,255,m_FvctDCNeed);
        m_StoredProc->Parameters->CreateParameter("@FvctDNone",ftString,pdInput,255,m_FvctDNone);
        m_StoredProc->Parameters->CreateParameter("@FvctCNone",ftString,pdInput,255,m_FvctCNone);
        m_StoredProc->Parameters->CreateParameter("@FvctDCNone",ftString,pdInput,255,m_FvctDCNone);

       m_StoredProc->ExecProc();
   }
  TsdFvct *p=new TsdFvct();
  if(CurStatus==2)
    {
     SetActionID(1);
     p->Assign(this);
     AddRecord((void *)p,p->FvctCode);
     }
  else
    {
     SetActionID(1);
     p->Assign(this);
     ChangeRecord((void *)p,p->FvctCode,this->b_FvctCode);
    }
}
//---------------------------------------------------------------------------
void TsdFvct::Delete()
{
    if(CurStatus!=1)
        throw Exception("当前状态不能进行删除操作!");
    if(m_FvctCode.IsEmpty()==true)
        throw Exception("当前没有记录可以删除!");
    m_StoredProc->Close();
    m_StoredProc->ProcedureName="sdFvct_Delete";
    m_StoredProc->Parameters->Clear();
        m_StoredProc->Parameters->CreateParameter("@W_FvctCode",ftString,pdInput,18,b_FvctCode);
    m_StoredProc->ExecProc();
    DeleteRecord(this->b_FvctCode);
}
//---------------------------------------------------------------------------
void TsdFvct::Assign(TsdFvct *p)
{
    this->SetActionID(p->CurStatus);
    this->m_FvctCode=p->m_FvctCode;
    this->m_FvctName=p->m_FvctName;
    this->m_FvctLimit=p->m_FvctLimit;
    this->m_FvctDNeed=p->m_FvctDNeed;
    this->m_FvctCNeed=p->m_FvctCNeed;
    this->m_FvctDCNeed=p->m_FvctDCNeed;
    this->m_FvctDNone=p->m_FvctDNone;
    this->m_FvctCNone=p->m_FvctCNone;
    this->m_FvctDCNone=p->m_FvctDCNone;
    this->BackupValue();
}
//---------------------------------------------------------------------------
void TsdFvct::AssignValue()
{
    TsdFvct *p=(TsdFvct *)Records(CurRecNo);
    Assign(p);
}
//---------------------------------------------------------------------------
int TsdFvct::Query()
{
    AnsiString m_SqlStr;
    m_SqlStr=QueryString;
    if(FilterString.IsEmpty()==false)
        m_SqlStr=m_SqlStr+" where  "+FilterString;
    if(OrderString.IsEmpty()==false)
        m_SqlStr=m_SqlStr+" Order by "+OrderString;
    m_Query->Close();
    m_Query->SQL->Clear();
    m_Query->SQL->Add(m_SqlStr);
    m_Query->Open();
    ClearRecord();
    if(m_Query->RecordCount>0)
    {
        m_Query->First();
        while(!m_Query->Eof)
        {
            BatchLetValue();
            TsdFvct *p=new TsdFvct();
            SetActionID(1);
            p->Assign(this);
            AddRecord((void *)p,p->FvctCode);
            m_Query->Next();
        }
        MoveFirst();
    }
    m_Query->Close();
    return Count;
}
//---------------------------------------------------------------------------
bool TsdFvct::Find(AnsiString WhereStr)
{
    AnsiString m_SqlStr;
    if(WhereStr.IsEmpty()==true)
        throw Exception("查找表达式不能为空");
    m_SqlStr="select * from sdFvct where  "+WhereStr;
    m_Query->Close();
    m_Query->SQL->Clear();
    m_Query->SQL->Add(m_SqlStr);
    m_Query->Open();
    if(m_Query->RecordCount!=1)
    {
        m_Query->Close();
        return false;
    }
    else
    {
        BatchLetValue();
        m_Query->Close();
        return true;
    }
}
//**************************************
//     TsdGlkm
//**************************************
//--------------------------------------------------------------
void __fastcall TsdGlkm:: SetGlkmCode(AnsiString value)
{
    if(value.IsEmpty())
       throw Exception("科目代码不能为空");
    if(value.Length()>18)
       throw Exception("科目代码长度不能超过18");
    if(value!=m_GlkmCode)
    {
       m_Query->Close();
       m_Query->SQL->Clear();
       m_Query->SQL->Add("SELECT GlkmCode FROM SDGlkm WHERE GlkmCode='"+value+"'");
       m_Query->Open();
       if(m_Query->RecordCount>0)
       {
          m_Query->Close();
          throw Exception("科目代码已经存在!");
       }
       m_Query->Close();
    }
    m_GlkmCode=value;
}
void __fastcall TsdGlkm:: SetGlkmItem(AnsiString value)
{
       m_GlkmItem=value;
}
void __fastcall TsdGlkm:: SetGlkmUpperCode(AnsiString value)
{
       m_GlkmUpperCode=value;
}
void __fastcall TsdGlkm:: SetGlkmLevel(int    value)
{
       m_GlkmLevel=value;
}
void __fastcall TsdGlkm:: SetGlkmName(AnsiString value)
{
    if(value.IsEmpty())
       throw Exception("科目名称不能为空");
    if(value.Length()>20)
       throw Exception("科目名称长度不能超过20");
     m_GlkmName=value;
}
void __fastcall TsdGlkm:: SetGlkmShortCut(AnsiString value)