emdoc.cpp

科思ERP部分源码及控件

    {
        ShowMessage(e.Message);
    }
}
//---------------------------------------------------------------------------
TKSFadm::~TKSFadm()
{
  try{
     }
  catch(...)
    {
     throw Exception("析构函数出错");
    }
}
//---------------------------------------------------------------------------
void TKSFadm::BackupValue()
{
      b_FadmCode=m_FadmCode;
      b_FadmName=m_FadmName;
      b_FadmType=m_FadmType;
      b_FadmRFormula=m_FadmRFormula;
      b_FadmVFormula=m_FadmVFormula;
      b_FadmDesc=m_FadmDesc;
}
//---------------------------------------------------------------------------
void TKSFadm::RestoreValue()
{
      m_FadmCode=b_FadmCode;
      m_FadmName=b_FadmName;
      m_FadmType=b_FadmType;
      m_FadmRFormula=b_FadmRFormula;
      m_FadmVFormula=b_FadmVFormula;
      m_FadmDesc=b_FadmDesc;
}
//---------------------------------------------------------------------------
void TKSFadm::EmptyValue(int Index)
{
   switch(Index)
   {
    case 0:
        m_FadmCode="";
        m_FadmName="";
        m_FadmType=0;
        m_FadmRFormula="";
        m_FadmVFormula="";
        m_FadmDesc="";
    break;
    case 1:
        b_FadmCode="";
        b_FadmName="";
        b_FadmType=0;
        b_FadmRFormula="";
        b_FadmVFormula="";
        b_FadmDesc="";
      break;
     }
}
//---------------------------------------------------------------------------
void TKSFadm::BatchLetValue()
{
    m_FadmCode=m_Query->FieldValues["FadmCode"];
    m_FadmName=m_Query->FieldValues["FadmName"];
    m_FadmType=m_Query->FieldValues["FadmType"];
    m_FadmRFormula=m_Query->FieldValues["FadmRFormula"];
    m_FadmVFormula=m_Query->FieldValues["FadmVFormula"];
    m_FadmDesc=m_Query->FieldValues["FadmDesc"];
    BackupValue();
}
//---------------------------------------------------------------------------
void TKSFadm::Update()
{
    if(CurStatus==0||CurStatus==1)
        throw Exception("当前不是编辑状态,不能进行存盘操作!");
    if(m_FadmCode.IsEmpty()==true)
        throw Exception("单号不能为空!");
    m_StoredProc->Close();
    if(CurStatus==2||CurStatus==4)
      {
        m_StoredProc->ProcedureName="sdFadm_Insert";
        m_StoredProc->Parameters->Clear();
        m_StoredProc->Parameters->CreateParameter("@FadmCode",ftString,pdInput,18,m_FadmCode);
        m_StoredProc->Parameters->CreateParameter("@FadmName",ftString,pdInput,20,m_FadmName);
        m_StoredProc->Parameters->CreateParameter("@FadmType",ftInteger,pdInput,1,m_FadmType);
        m_StoredProc->Parameters->CreateParameter("@FadmRFormula",ftString,pdInput,255,m_FadmRFormula);
        m_StoredProc->Parameters->CreateParameter("@FadmVFormula",ftString,pdInput,255,m_FadmVFormula);
        m_StoredProc->Parameters->CreateParameter("@FadmDesc",ftString,pdInput,40,m_FadmDesc);

        m_StoredProc->ExecProc();
        m_StoredProc->Close();
   }
  else
    {
        m_StoredProc->ProcedureName="sdFadm_Update";
        m_StoredProc->Parameters->Clear();

        m_StoredProc->Parameters->CreateParameter("@W_FadmCode",ftString,pdInput,18,b_FadmCode);
        m_StoredProc->Parameters->CreateParameter("@FadmCode",ftString,pdInput,18,m_FadmCode);
        m_StoredProc->Parameters->CreateParameter("@FadmName",ftString,pdInput,20,m_FadmName);
        m_StoredProc->Parameters->CreateParameter("@FadmType",ftInteger,pdInput,1,m_FadmType);
        m_StoredProc->Parameters->CreateParameter("@FadmRFormula",ftString,pdInput,255,m_FadmRFormula);
        m_StoredProc->Parameters->CreateParameter("@FadmVFormula",ftString,pdInput,255,m_FadmVFormula);
        m_StoredProc->Parameters->CreateParameter("@FadmDesc",ftString,pdInput,40,m_FadmDesc);

       m_StoredProc->ExecProc();
       m_StoredProc->Close();
   }
  TKSFadm *p=new TKSFadm();
  if(CurStatus==2)
    {
     SetActionID(1);
     p->Assign(this);
     AddRecord((void *)p,p->FadmCode);
     }
  else
    {
     SetActionID(1);
     p->Assign(this);
     ChangeRecord((void *)p,p->FadmCode,this->b_FadmCode);
    }
}
//---------------------------------------------------------------------------
void TKSFadm::Delete()
{
    if(CurStatus!=1)
        throw Exception("当前状态不能进行删除操作!");
    if(m_FadmCode.IsEmpty()==true)
        throw Exception("当前没有记录可以删除!");
    m_StoredProc->Close();
    m_StoredProc->ProcedureName="sdFadm_Delete";
    m_StoredProc->Parameters->Clear();
    m_StoredProc->Parameters->CreateParameter("@W_FadmCode",ftString,pdInput,18,b_FadmCode);
    m_StoredProc->ExecProc();
    m_StoredProc->Close();
    DeleteRecord(this->b_FadmCode);
}
//---------------------------------------------------------------------------
void TKSFadm::Assign(TKSFadm *p)
{
    this->SetActionID(p->CurStatus);
    this->m_FadmCode=p->m_FadmCode;
    this->m_FadmName=p->m_FadmName;
    this->m_FadmType=p->m_FadmType;
    this->m_FadmRFormula=p->m_FadmRFormula;
    this->m_FadmVFormula=p->m_FadmVFormula;
    this->m_FadmDesc=p->m_FadmDesc;
    this->BackupValue();
}
//---------------------------------------------------------------------------
void TKSFadm::AssignValue()
{
    TKSFadm *p=(TKSFadm *)Records(CurRecNo);
    Assign(p);
}
//---------------------------------------------------------------------------
int TKSFadm::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();
            TKSFadm *p=new TKSFadm();
            SetActionID(1);
            p->Assign(this);
            AddRecord((void *)p,p->FadmCode);
            m_Query->Next();
        }
        MoveFirst();
    }
    m_Query->Close();
    return Count;
}
//---------------------------------------------------------------------------
bool TKSFadm::Find(AnsiString WhereStr)
{
    AnsiString m_SqlStr;
    if(WhereStr.IsEmpty()==true)
        throw Exception("查找表达式不能为空");
    m_SqlStr="select * from sdFadm 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;
    }
}
//**************************************
//     TKSFaUse    使用状态
//**************************************
//--------------------------------------------------------------
void __fastcall TKSFaUse:: SetFaUseCode(AnsiString value)
{
    if(value.IsEmpty())
        throw Exception("使用状态编码不能为空");
    if(value.Length()>18)
        throw Exception("使用状态编码长度不能大于18");
    if(value!=m_FaUseCode)
    {
        m_Query->Close();
        m_Query->SQL->Clear();
        m_Query->SQL->Add("SELECT FAUSECODE FROM sdfaUse WHERE FAUSECODE='" +value+"'");
        m_Query->Open();
        if(m_Query->RecordCount>0)
        {
            m_Query->Close();
            throw Exception("使用状态编码'"+value+"'已存在");
        }
        m_Query->Close();
    }
       m_FaUseCode=value;
}
void __fastcall TKSFaUse:: SetFaUseName(AnsiString value)
{
    if(value.IsEmpty())
        throw Exception("使用状态名称不能为空");
    if(value.Length()>20)
        throw Exception("使用状态名称长度不能大于20");
    if(value!=m_FaUseName)
    {
        m_Query->Close();
        m_Query->SQL->Clear();
        m_Query->SQL->Add("SELECT FAUSEname FROM sdfaUse WHERE FAUSEname='" +value+"'");
        m_Query->Open();
        if(m_Query->RecordCount>0)
        {
            m_Query->Close();
            throw Exception("状态名称'"+value+"'已存在");
        }
        m_Query->Close();
    }
        m_FaUseName=value;
}
void __fastcall TKSFaUse:: SetFaUseType(int    value)
{
    if(value!=1&&value!=2&&value!=3)
        throw Exception("状态类型只能取值 1-使用中,2-未使用,3-不需用");
       m_FaUseType=value;
}
void __fastcall TKSFaUse:: SetFaUseDepre(int    value)
{
    if(value!=1&&value!=0)
        throw Exception("计提标志只能取值 0-不计提 1-计提");
       m_FaUseDepre=value;
}
void __fastcall TKSFaUse:: SetFaUseDesc(AnsiString value)
{
    if(value.Length()>40)
        throw Exception("备注长度不能大于40");
       m_FaUseDesc=value;
}
//---------------------------------------------------------------------------
AnsiString TKSFaUse::GetFieldValue(euFaUse sdFieldName)
{
    switch(sdFieldName)
    {
      case fiFaUseCode:
           return FaUseCode;
      case fiFaUseName:
           return FaUseName;
      case fiFaUseType:
           return FaUseType;
      case fiFaUseDepre:
           return FaUseDepre;
      case fiFaUseDesc:
           return FaUseDesc;
      default:
           throw Exception("当前未定义可取值");
     }
}
//---------------------------------------------------------------------------
void TKSFaUse::SetFieldValue(euFaUse sdFieldName, AnsiString value)
{
    switch(sdFieldName)
     {
    case fiFaUseCode:
         FaUseCode=value;
          break;
    case fiFaUseName:
         FaUseName=value;
          break;
    case fiFaUseType:
         FaUseType=value.ToInt();
          break;
    case fiFaUseDepre:
         FaUseDepre=value.ToInt();
          break;
    case fiFaUseDesc:
         FaUseDesc=value;
          break;
    default:
         throw Exception("当前字段未定义可赋值");
      }
}
//---------------------------------------------------------------------------
TKSFaUse::TKSFaUse(TDataComm *DC)
                :TKSStandard(DC)
{
    try
    {
        EmptyValue(0);
        EmptyValue(1);
        QueryString="SELECT * FROM sdFaUse";
        FilterString="";
        OrderString="FaUseType";
    }
    catch(Exception &e)
    {
        ShowMessage(e.Message);
    }
}
//---------------------------------------------------------------------------
TKSFaUse::TKSFaUse()
                :TKSStandard()
{
    try
    {
        EmptyValue(0);
        EmptyValue(1);
        QueryString="SELECT * FROM sdFaUse";
        FilterString="";
        OrderString="FaUseType";
    }
    catch(Exception &e)
    {
        ShowMessage(e.Message);
    }
}
//---------------------------------------------------------------------------
TKSFaUse::~TKSFaUse()
{
  try{
     }
  catch(...)
    {
     throw Exception("析构函数出错");
    }
}
//---------------------------------------------------------------------------
void TKSFaUse::BackupValue()
{
      b_FaUseCode=m_FaUseCode;
      b_FaUseName=m_FaUseName;
      b_FaUseType=m_FaUseType;
      b_FaUseDepre=m_FaUseDepre;
      b_FaUseDesc=m_FaUseDesc;
}
//---------------------------------------------------------------------------
void TKSFaUse::RestoreValue()
{
      m_FaUseCode=b_FaUseCode;
      m_FaUseName=b_FaUseName;
      m_FaUseType=b_FaUseType;
      m_FaUseDepre=b_FaUseDepre;
      m_FaUseDesc=b_FaUseDesc;
}
//---------------------------------------------------------------------------
void TKSFaUse::EmptyValue(int Index)
{
   switch(Index)
   {
    case 0:
        m_FaUseCode="";
        m_FaUseName="";
        m_FaUseType=0;
        m_FaUseDepre=0;
        m_FaUseDesc="";
    break;
    case 1:
        b_FaUseCode="";
        b_FaUseName="";
        b_FaUseType=0;
        b_FaUseDepre=0;
        b_FaUseDesc="";
      break;
     }
}
//---------------------------------------------------------------------------
void TKSFaUse::BatchLetValue()
{
    m_FaUseCode=m_Query->FieldValues["FaUseCode"];
    m_FaUseName=m_Query->FieldValues["FaUseName"];
    m_FaUseType=m_Query->FieldValues["FaUseType"];
    m_FaUseDepre=m_Query->FieldValues["FaUseDepre"];
    m_FaUseDesc=m_Query->FieldValues["FaUseDesc"];
    BackupValue();
}
//---------------------------------------------------------------------------
void TKSFaUse::Update()
{
    if(CurStatus==0||CurStatus==1)
        throw Exception("当前不是编辑状态,不能进行存盘操作!");
    if(m_FaUseCode.IsEmpty()==true)
        throw Exception("单号不能为空!");
    m_StoredProc->Close();
    if(CurStatus==2||CurStatus==4)
      {
        m_StoredProc->ProcedureName="sdFaUse_Insert";
        m_StoredProc->Parameters->Clear();
        m_StoredProc->Parameters->CreateParameter("@FaUseCode",ftString,pdInput,18,m_FaUseCode);
        m_StoredProc->Parameters->CreateParameter("@FaUseName",ftString,pdInput,20,m_FaUseName);
        m_StoredProc->Parameters->CreateParameter("@FaUseType",ftInteger,pdInput,1,m_FaUseType);
        m_StoredProc->Parameters->CreateParameter("@FaUseDepre",ftInteger,pdInput,1,m_FaUseDepre);
        m_StoredProc->Parameters->CreateParameter("@FaUseDesc",ftString,pdInput,40,m_FaUseDesc);

        m_StoredProc->ExecProc();
        m_StoredProc->Close();
   }
  else
    {
        m_StoredProc->ProcedureName="sdFaUse_Update";
        m_StoredProc->Parameters->Clear();

        m_StoredProc->Parameters->CreateParameter("@W_FaUseCode",ftString,pdInput,18,b_FaUseCode);
        m_StoredProc->Parameters->CreateParameter("@FaUseCode",ftString,pdInput,18,m_FaUseCode);
        m_StoredProc->Parameters->CreateParameter("@FaUseName",ftString,pdInput,20,m_FaUseName);
        m_StoredProc->Parameters->CreateParameter("@FaUseType",ftInteger,pdInput,1,m_FaUseType);
        m_StoredProc->Parameters->CreateParameter("@FaUseDepre",ftInteger,pdInput,1,m_FaUseDepre);
        m_StoredProc->Parameters->CreateParameter("@FaUseDesc",ftString,pdInput,40,m_FaUseDesc);

        m_StoredProc->ExecProc();
        m_StoredProc->Close();

   }
  TKSFaUse *p=new TKSFaUse();
  if(CurStatus==2)
    {
     SetActionID(1);
     p->Assign(this);
     AddRecord((void *)p,p->FaUseCode);
     }
  else
    {
     SetActionID(1);
     p->Assign(this);
     ChangeRecord((void *)p,p->FaUseCode,this->b_FaUseCode);
    }
}
//---------------------------------------------------------------------------
void TKSFaUse::Delete()
{
    if(CurStatus!=1)
        throw Exception("当前状态不能进行删除操作!");
    if(m_FaUseCode.IsEmpty()==true)
        throw Exception("当前没有记录可以删除!");
    m_StoredProc->Close();
    m_StoredProc->ProcedureName="sdFaUse_Delete";
    m_StoredProc->Parameters->Clear();
    m_StoredProc->Parameters->CreateParameter("@W_FaUseCode",ftString,pdInput,18,b_FaUseCode);
    m_StoredProc->ExecProc();
    m_StoredProc->Close();
    DeleteRecord(this->b_FaUseCode);
}
//---------------------------------------------------------------------------
void TKSFaUse::Assign(TKSFaUse *p)
{
    this->SetActionID(p->CurStatus);
    this->m_FaUseCode=p->m_FaUseCode;
    this->m_FaUseName=p->m_FaUseName;
    this->m_FaUseType=p->m_FaUseType;
    this->m_FaUseDepre=p->m_FaUseDepre;
    this->m_FaUseDesc=p->m_FaUseDesc;
    this->BackupValue();
}
//---------------------------------------------------------------------------
void TKSFaUse::AssignValue()
{
    TKSFaUse *p=(TKSFaUse *)Records(CurRecNo);
    Assign(p);
}
//---------------------------------------------------------------------------
int TKSFaUse::Query()
{
    AnsiString m_SqlStr;
    m_SqlStr=QueryString;