mmdoc.cpp

邮 电 公 司 erp源码

    b_WcDesc = m_WcDesc;
    b_WcReplWc = m_WcDesc;
    b_WcShopCode = m_WcShopCode;
    b_WcCalFlg = m_WcCalFlg;
    b_WcKey = m_WcKey;
    b_WcPow = m_WcPow;
    b_WcWod = m_WcWod;
    b_WcHow = m_WcHow;
    b_WcMow = m_WcMow;
    b_WcEffi = m_WcEffi;
    b_WcUseRate = m_WcUseRate;
    b_WcCc = m_WcCc;
    b_WcWxFlg = m_WcWxFlg;
    b_WcWoe = m_WcWoe;
    b_WcPer = m_WcPer;
    b_WcFer = m_WcFer;
    b_WcMer = m_WcMer;
    b_WcVer = m_WcVer;
    b_WcMhr = m_WcMhr;
    b_WcPrate = m_WcPrate;
    b_WcPeor = m_WcPeor;
    b_WcUser = m_WcUser;
    b_WcSysDate = m_WcSysDate;
}
//---------------------------------------------------------------------------

void TsdWc::RestoreValue()
{
    m_WcCode = b_WcCode;
    m_WcName = b_WcName;
    m_WcDesc = b_WcDesc;
    m_WcReplWc = b_WcDesc;
    m_WcShopCode = b_WcShopCode;
    m_WcCalFlg = b_WcCalFlg;
    m_WcKey = b_WcKey;
    m_WcPow = b_WcPow;
    m_WcWod = b_WcWod;
    m_WcHow = b_WcHow;
    m_WcMow = b_WcMow;
    m_WcEffi = b_WcEffi;
    m_WcUseRate = b_WcUseRate;
    m_WcCc = b_WcCc;
    m_WcWxFlg = b_WcWxFlg;
    m_WcWoe = b_WcWoe;
    m_WcPer = b_WcPer;
    m_WcFer = b_WcFer;
    m_WcMer = b_WcMer;
    m_WcVer = b_WcVer;
    m_WcMhr = b_WcMhr;
    m_WcPrate = b_WcPrate;
    m_WcPeor = b_WcPeor;
    m_WcUser = b_WcUser;
    m_WcSysDate = b_WcSysDate;
}
//---------------------------------------------------------------------------

void TsdWc::EmptyValue(int Index)
{
    switch(Index)
    {
      case 0:
        m_WcCode   = "";
        m_WcName   = "";
        m_WcDesc   = "";
        m_WcReplWc = "";
        m_WcShopCode= "";
        m_WcCalFlg = 0;
        m_WcKey    = 0;
        m_WcPow = 0;
        m_WcWod = 0;
        m_WcHow = 0;
        m_WcMow = 0;
        m_WcEffi = 0;
        m_WcUseRate = 0;
        m_WcCc = "";
        m_WcWxFlg = 0;
        m_WcWoe = 0;
        m_WcPer = 0;
        m_WcFer = 0;
        m_WcMer = 0;
        m_WcVer = 0;
        m_WcMhr = 0;
        m_WcPrate = 0;
        m_WcPeor = 0;
        m_WcUser = "";
        m_WcSysDate = "";
        break;
      case 1:
        b_WcCode   = "";
        b_WcName   = "";
        b_WcDesc   = "";
        b_WcReplWc = "";
        b_WcShopCode  = "";
        b_WcCalFlg  = 0;
        b_WcKey    = 0;
        b_WcPow = 0;
        b_WcWod  = 0;
        b_WcHow   = 0;
        b_WcMow  = 0;
        b_WcEffi   = 0;
        b_WcUseRate = 0;
        b_WcCc = "";
        b_WcWxFlg = 0;
        b_WcWoe = 0;
        b_WcPer = 0;
        b_WcFer = 0;
        b_WcMer = 0;
        b_WcVer = 0;
        b_WcMhr = 0;
        b_WcPrate = 0;
        b_WcPeor = 0;
        b_WcUser = "";
        b_WcSysDate = "";
        break;
    }
}
//---------------------------------------------------------------------------

void TsdWc::BatchLetValue()
{
    m_WcCode=m_Query->FieldValues["WcCode"];
    m_WcName=m_Query->FieldValues["WcName"];
    m_WcDesc=m_Query->FieldValues["WcDesc"];
    m_WcReplWc=m_Query->FieldValues["WcReplWc"];
    m_WcShopCode=m_Query->FieldValues["WcShopCode"];
    m_WcCalFlg=m_Query->FieldValues["WcCalFlg"];
    m_WcKey=m_Query->FieldValues["WcKey"];
    m_WcPow=m_Query->FieldValues["WcPow"];
    m_WcWod=m_Query->FieldValues["WcWod"];
    m_WcHow=m_Query->FieldValues["WcHow"];
    m_WcMow=m_Query->FieldValues["WcMow"];
    m_WcEffi=m_Query->FieldValues["WcEffi"];
    m_WcUseRate=m_Query->FieldValues["WcUseRate"];
    m_WcCc=m_Query->FieldValues["WcCc"];
    m_WcWxFlg=m_Query->FieldValues["WcWxFlg"];
    m_WcWoe=m_Query->FieldValues["WcWoe"];
    m_WcPer=m_Query->FieldValues["WcPer"];
    m_WcFer=m_Query->FieldValues["WcFer"];
    m_WcMer=m_Query->FieldValues["WcMer"];
    m_WcVer=m_Query->FieldValues["WcVer"];
    m_WcMhr=m_Query->FieldValues["WcMhr"];
    m_WcPrate=m_Query->FieldValues["WcPrate"];
    m_WcPeor=m_Query->FieldValues["WcPeor"];
    m_WcUser=m_Query->FieldValues["WcUser"];
    m_WcSysDate=m_Query->FieldValues["WcSysDate"];
    BackupValue();
}
//---------------------------------------------------------------------------
void TsdWc::Assign(TsdWc *p)
{
    this->SetActionID(p->CurStatus);
    this->m_WcCode=p->m_WcCode;
    this->m_WcName=p->m_WcName;
    this->m_WcDesc=p->m_WcDesc;
    this->m_WcReplWc=p->m_WcReplWc;
    this->m_WcShopCode=p->m_WcShopCode;
    this->m_WcCalFlg=p->m_WcCalFlg;
    this->m_WcKey=p->m_WcKey;
    this->m_WcPow=p->m_WcPow;
    this->m_WcWod=p->m_WcWod;
    this->m_WcHow=p->m_WcHow;
    this->m_WcMow=p->m_WcMow;
    this->m_WcEffi=p->m_WcEffi;
    this->m_WcUseRate=p->m_WcUseRate;
    this->m_WcCc=p->m_WcCc;
    this->m_WcWxFlg=p->m_WcWxFlg;
    this->m_WcWoe=p->m_WcWoe;
    this->m_WcPer=p->m_WcPer;
    this->m_WcFer=p->m_WcFer;
    this->m_WcMer=p->m_WcMer;
    this->m_WcVer=p->m_WcVer;
    this->m_WcMhr=p->m_WcMhr;
    this->m_WcPrate=p->m_WcPrate;
    this->m_WcPeor=p->m_WcPeor;
    this->m_WcUser=p->m_WcUser;
    this->m_WcSysDate=p->m_WcSysDate;
    this->BackupValue();
}
//---------------------------------------------------------------------------
void TsdWc::AssignValue()
{
    TsdWc *p=(TsdWc *)Records(CurRecNo);
    Assign(p);
}
//---------------------------------------------------------------------------
int TsdWc::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();
          TsdWc *p=new TsdWc();
          SetActionID(1);
          p->Assign(this);
          AddRecord((void *)p,p->WcCode);
          m_Query->Next();
       }
       MoveFirst();
    }
    m_Query->Close();
    return Count;
}
//---------------------------------------------------------------------------
bool TsdWc::Find(AnsiString WhereStr)
{
    AnsiString m_SqlStr;
    if(WhereStr.IsEmpty()==true)
       throw Exception("查找表达式不能为空!");
    m_SqlStr="SELECT * FROM sdWc 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;
    }
}
//---------------------------------------------------------------------------
TsdWc::~TsdWc()
{
    try{
    }
    catch(...)
    {
      throw Exception("析构函数出错!");
    }
}
//---------------------------------------------------------------------------

//************************************
//    Class:(TsdProcess)            //
//    Description:标准工序维护      //
//    Created on:2000/02/02         //
//************************************
TsdProcess:: TsdProcess(TDataComm *DC)
          :TsdStandard(DC)
{
    try
    {
       QueryString="select * from sdProcess ";
       FilterString="";
       OrderString=" ProcessCode ";
    }
    catch(...)
    {
       throw Exception("初始化出错");
    }
}
//-----------------------------------------------------------------------------
TsdProcess:: TsdProcess()
          :TsdStandard()
{
    try
    {
       QueryString="select * from sdProcess ";
       FilterString="";
       OrderString=" ProcessCode ";
    }
    catch(...)
    {
       throw Exception("初始化出错");
    }
}
//-----------------------------------------------------------------------------

AnsiString TsdProcess::GetFieldValue(euProcess FieldName)
{
       switch(FieldName)
       {
         case fiProcessCode:
           return ProcessCode;
         case fiProcessName:
           return ProcessName;
         case fiProcessWc:
           return ProcessWc;
         case fiProcessLoc:
           return ProcessLoc;
         case fiProcessState:
           return AnsiString(ProcessState);
         case fiProcessType:
           return AnsiString(ProcessType);
         case fiProcessChkFlg:
           return AnsiString(ProcessChkFlg);
         case fiProcessWxFlg:
           return AnsiString(ProcessWxFlg);
         case fiProcessWxAmt:
           return AnsiString(ProcessWxAmt);
         case fiProcessSpec:
           return ProcessSpec;
         case fiProcessEdate:
           return ProcessEdate;
         case fiProcessIdate:
           return ProcessIdate;
         case fiProcessQlt:
           return AnsiString(ProcessQlt);
         case fiProcessMlt:
           return AnsiString(ProcessMlt);
         case fiProcessRlt:
           return AnsiString(ProcessRlt);
         case fiProcessSlt:
           return AnsiString(ProcessSlt);
         case fiProcessWlt:
           return AnsiString(ProcessWlt);
         case fiProcessDesc:
           return ProcessDesc;
         case fiProcessUser:
           return ProcessUser;
         case fiProcessSysDate:
           return ProcessSysDate;
         default:
           throw Exception("当前字段未定义可取值!");
      }
}
//-----------------------------------------------------------------------------
void TsdProcess::SetFieldValue(euProcess FieldName,AnsiString Value)
{
      switch(FieldName)
      {
        case fiProcessCode:
           ProcessCode=Value;
           break;
        case fiProcessName:
           ProcessName=Value;
           break;
        case fiProcessWc:
           ProcessWc=Value;
           break;
        case fiProcessLoc:
           ProcessLoc=Value;
           break;
        case fiProcessEdate:
           ProcessEdate=Value;
           break;
        case fiProcessIdate:
           ProcessIdate=Value;
           break;
        case fiProcessState:
           ProcessState=Value.ToInt();
           break;
        case fiProcessType:
           ProcessType=Value.ToInt();
           break;
        case fiProcessChkFlg:
           ProcessChkFlg=Value.ToInt();
           break;
        case fiProcessWxFlg:
           ProcessWxFlg=Value.ToInt();
           break;
        case fiProcessWxAmt:
           ProcessWxAmt=Value.ToDouble();
           break;
        case fiProcessSpec:
           ProcessSpec=Value;
           break;
        case fiProcessQlt:
           ProcessQlt=Value.ToDouble();
           break;
        case fiProcessSlt:
           ProcessSlt=Value.ToDouble();
           break;
        case fiProcessRlt:
           ProcessRlt=Value.ToDouble();
           break;
        case fiProcessWlt:
           ProcessWlt=Value.ToDouble();
           break;