mmdoc.cpp

邮 电 公 司 erp源码

    {
       QueryString="SELECT * FROM sdShop";
       FilterString="";
       OrderString="ShopCode";
       EmptyValue(0);
       EmptyValue(1);
    }
    catch(...)
    {
       throw Exception("构造函数出错!");
    }
}
//---------------------------------------------------------------------------
AnsiString TsdShop::GetFieldValue(euShop sdFieldName)
{
    switch(sdFieldName)
    {
      case fiShopCode:
        return ShopCode;
      case fiShopName:
        return ShopName;
      case fiShopDeptCode:
        return ShopDeptCode;
      case fiShopFitting:
        return ShopFitting;
      case fiShopAssis:
        return ShopAssis;
      default:
        throw Exception("当前字段未定义可取值!");
    }
}
//---------------------------------------------------------------------------
void TsdShop::SetFieldValue(euShop sdFieldName, AnsiString Value)
{
    switch(sdFieldName)
    {
      case fiShopCode:
        ShopCode=Value;
        break;
      case fiShopName:
        ShopName=Value;
        break;
      case fiShopDeptCode:
        ShopDeptCode=Value;
        break;
      case fiShopFitting:
        ShopFitting=Value.ToInt();
        break;
      case fiShopAssis:
        ShopAssis=Value.ToInt();
        break;
      default:
        throw Exception("当前字段未定义可赋值!");
    }
}
//---------------------------------------------------------------------------
void TsdShop::Update()
{
    if(CurStatus==0||CurStatus==1)
      throw Exception("当前不是编辑状态,不能进行存盘操作!");
    m_StoredProc->Close();
    if(CurStatus==2||CurStatus==4)
    {
      m_StoredProc->ProcedureName="sdShop_Insert";
      m_StoredProc->Parameters->Clear();
      m_StoredProc->Parameters->CreateParameter("@ShopCode",ftString,pdInput,18,m_ShopCode);
      m_StoredProc->Parameters->CreateParameter("@ShopName",ftString,pdInput,20,m_ShopName);
      m_StoredProc->Parameters->CreateParameter("@ShopDeptCode",ftString,pdInput,18,m_ShopDeptCode);
      m_StoredProc->Parameters->CreateParameter("@ShopFitting",ftInteger,pdInput,1,m_ShopFitting);
      m_StoredProc->Parameters->CreateParameter("@ShopAssis",ftInteger,pdInput,1,m_ShopAssis);
      m_StoredProc->ExecProc();
      m_StoredProc->Close();
    }
    else
    {
      m_StoredProc->ProcedureName="sdShop_Update";
      m_StoredProc->Parameters->Clear();
      m_StoredProc->Parameters->CreateParameter("@W_ShopCode",ftString,pdInput,18,b_ShopCode);
      m_StoredProc->Parameters->CreateParameter("@ShopCode",ftString,pdInput,18,m_ShopCode);
      m_StoredProc->Parameters->CreateParameter("@ShopName",ftString,pdInput,20,m_ShopName);
      m_StoredProc->Parameters->CreateParameter("@ShopDeptCode",ftString,pdInput,18,m_ShopDeptCode);
      m_StoredProc->Parameters->CreateParameter("@ShopFitting",ftInteger,pdInput,1,m_ShopFitting);
      m_StoredProc->Parameters->CreateParameter("@ShopAssis",ftInteger,pdInput,1,m_ShopAssis);
      m_StoredProc->ExecProc();
      m_StoredProc->Close();
    }
    TsdShop *p=new TsdShop();
    if(CurStatus==2)
    {
       SetActionID(1);
       p->Assign(this);
       AddRecord((void *)p,p->ShopCode);
    }
    else
    {
       SetActionID(1);
       p->Assign(this);
       ChangeRecord((void *)p,p->ShopCode,this->b_ShopCode);
    }
}
//---------------------------------------------------------------------------
void TsdShop::Delete()
{
    if(CurStatus!=1)
      throw Exception("当前状态不能进行删除操作!");
    if(m_ShopCode.IsEmpty()==true)
      throw Exception("当前没有记录可以删除!");
    m_StoredProc->Close();
    m_StoredProc->ProcedureName="sdShop_Delete";
    m_StoredProc->Parameters->Clear();
 	m_StoredProc->Parameters->CreateParameter("@W_ShopCode",ftString,pdInput,18,b_ShopCode);
    m_StoredProc->ExecProc();
    m_StoredProc->Close();
    DeleteRecord(this->b_ShopCode);
}
//---------------------------------------------------------------------------
void TsdShop::BackupValue()
{
    b_ShopCode = m_ShopCode;
    b_ShopName = m_ShopName;
    b_ShopDeptCode = m_ShopDeptCode;
    b_ShopFitting = m_ShopFitting;
    b_ShopAssis = m_ShopAssis;
}
//---------------------------------------------------------------------------
void TsdShop::RestoreValue()
{
    m_ShopCode=b_ShopCode;
    m_ShopName=b_ShopName;
    m_ShopDeptCode=b_ShopDeptCode;
    m_ShopFitting = b_ShopFitting;
    m_ShopAssis = b_ShopAssis;
}
//---------------------------------------------------------------------------
void TsdShop::EmptyValue(int Index)
{
    switch(Index)
    {
      case 0:
        m_ShopCode="";
        m_ShopName="";
        m_ShopDeptCode="";
        m_ShopFitting=0;
        m_ShopAssis=0;
        break;
      case 1:
        b_ShopCode="";
        b_ShopName="";
        b_ShopDeptCode="";
        b_ShopFitting=0;
        b_ShopAssis=0;
        break;
    }
}
//---------------------------------------------------------------------------
void TsdShop::BatchLetValue()
{
    m_ShopCode=m_Query->FieldValues["ShopCode"];
    m_ShopName=m_Query->FieldValues["ShopName"];
    m_ShopDeptCode=m_Query->FieldValues["ShopDeptCode"];
    m_ShopFitting=m_Query->FieldValues["ShopFitting"];
    m_ShopAssis=m_Query->FieldValues["ShopAssis"];
    BackupValue();
}
//---------------------------------------------------------------------------
void TsdShop::Assign(TsdShop *p)
{
    this->SetActionID(p->CurStatus);
    this->m_ShopCode=p->m_ShopCode;
    this->m_ShopName=p->m_ShopName;
    this->m_ShopDeptCode=p->m_ShopDeptCode;
    this->m_ShopFitting=p->m_ShopFitting;
    this->m_ShopAssis=p->m_ShopAssis;
    this->BackupValue();
}
//---------------------------------------------------------------------------
void TsdShop::AssignValue()
{
    TsdShop *p=(TsdShop *)Records(CurRecNo);
    Assign(p);
}
//---------------------------------------------------------------------------
int TsdShop::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();
            TsdShop *p=new TsdShop();
            SetActionID(1);
            p->Assign(this);
            AddRecord((void *)p,p->ShopCode);
            m_Query->Next();
        }
        MoveFirst();
    }
    m_Query->Close();
    return Count;
}
//---------------------------------------------------------------------------
bool TsdShop::Find(AnsiString WhereStr)
{
    AnsiString m_SqlStr;
    if(WhereStr.IsEmpty()==true)
       throw Exception("查找表达式不能为空!");
    m_SqlStr="SELECT * FROM sdShop 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;
    }
}
//---------------------------------------------------------------------------
TsdShop::~TsdShop()
{
    try{
    }
    catch(...)
    {
      throw Exception("析构函数出错!");
    }
}
//---------------------------------------------------------------------------

//************************************
//    Class:(TsdWc)                 //
//    Description:工作中心维护      //
//    Created on:2000/02/02         //
//************************************
void __fastcall TsdWc::SetWcCode(AnsiString value)
{
    if(value.IsEmpty())
      throw Exception("工作中心代码不能为空!");
    if(value.Length()>18)
      throw Exception("工作中心代码长度不能大于18!");
    if(UpperCase(value)!= m_WcCode.UpperCase()){
      if(this->FindKey(value))
         throw Exception("工作中心的代码:'"+value+"'已经存在,不能重复!");
    }
    m_WcCode = value;
}
//---------------------------------------------------------------------------
void __fastcall TsdWc::SetWcName(AnsiString value)
{
    if(value.IsEmpty())
      throw Exception("工作中心名称不能为空!");
    if(value.Length()>20)
      throw Exception("工作中心名称长度不能大于20!");
    m_WcName = value;
}
//---------------------------------------------------------------------------
void __fastcall TsdWc::SetWcDesc(AnsiString value)
{
    if(value.Length()>40)
      throw Exception("备注长度不能大于40!");
    m_WcDesc = value;
}
//---------------------------------------------------------------------------
void __fastcall TsdWc::SetWcReplWc(AnsiString value)
{
    if(value.Length()>18)
      throw Exception("替换工作中心长度不能大于18!");
    if(m_WcCode.IsEmpty())
      throw Exception("工作中心的代码不能为空!");
    if(value==m_WcCode)
      throw Exception("替换工作中心:'"+value+"'不能和工作中心:'"+m_WcCode+"'相同!");
    if(value.IsEmpty()==false && value!=m_WcReplWc)
    {
      m_Query->Close();
      m_Query->SQL->Clear();
      m_Query->SQL->Add("select WcCode from sdWc where WcCode='"+value+"'");
      m_Query->Open();
      if(m_Query->RecordCount<=0)
      {
        m_Query->Close();
        throw Exception("工作中心:'"+value+"'的资料未定义!");
      }
      m_Query->Close();
    }
    m_WcReplWc = value;
}
//---------------------------------------------------------------------------
void __fastcall TsdWc::SetWcShopCode(AnsiString value)
{
    if(value.IsEmpty())
      throw Exception("车间代码不能为空!");
    if(value.Length()>18)
      throw Exception("车间代码长度不能大于18!");
    if(value!=m_WcShopCode)
    {
      m_Query->Close();
      m_Query->SQL->Clear();
      m_Query->SQL->Add("SELECT ShopCode from sdShop where ShopCode='"+value+"'");
      m_Query->Open();
      if(m_Query->RecordCount<=0)
      {
        m_Query->Close();
        throw Exception("车间:"+value+"的资料未定义!");
      }
      m_Query->Close();
    }
    m_WcShopCode = value;
}
//---------------------------------------------------------------------------
void __fastcall TsdWc::SetWcCalFlg(int value)
{
    if(value!=1 && value!=2)
      throw Exception("核算标志只能取值(1-计时,2-计件.)");
    m_WcCalFlg = value;
}
//---------------------------------------------------------------------------
void __fastcall TsdWc::SetWcKey(int value)
{
    if(value!=0 && value!=1)
      throw Exception("关键中心标志只能取值(0-非关键中心,1-关键中心.)");
    m_WcKey = value;
}
//---------------------------------------------------------------------------
void __fastcall TsdWc::SetWcPow(double value)
{
    if(value<0)
      throw Exception("每班人数不能小于零!");
    m_WcPow = value;
}
//---------------------------------------------------------------------------
void __fastcall TsdWc::SetWcWod(int value)
{
    if(value<1)
      throw Exception("每天班数不能小于1.");
    m_WcWod = value;
}
//---------------------------------------------------------------------------
void __fastcall TsdWc::SetWcHow(int value)
{
    if(value<0)
      throw Exception("每班工作时间不能小于零!");
    m_WcHow = value;
}
//---------------------------------------------------------------------------
void __fastcall TsdWc::SetWcMow(int value)
{
    if(value<0)
      throw Exception("单班设备数不能小于零!");
    m_WcMow = value;
}
//---------------------------------------------------------------------------
void __fastcall TsdWc::SetWcEffi(double value)
{
    if(value<=0 ||value>1)
      throw Exception("效率不能大于1或小于等于零!");
    m_WcEffi = value;
}
//---------------------------------------------------------------------------
void __fastcall TsdWc::SetWcUseRate(double value)
{
    if(value<=0 || value>1)
      throw Exception("利用率不能大于1或小于等于零!");
    m_WcUseRate = value;
}
//---------------------------------------------------------------------------
void __fastcall TsdWc::SetWcCc(AnsiString value)
{
    if(value.Length()>18)
      throw Exception("成本中心的长度不能大于18!");