qmdoc.cpp

邮 电 公 司 erp源码

    case 1:
        b_RqrCode="";
        b_RqrName="";
        b_RqrDesc="";
      break;
     }
}
//---------------------------------------------------------------------------
void TsdRqr::BatchLetValue()
{
    m_RqrCode=m_Query->FieldValues["RqrCode"];
    m_RqrName=m_Query->FieldValues["RqrName"];
    m_RqrDesc=m_Query->FieldValues["RqrDesc"];
    BackupValue();
}
//---------------------------------------------------------------------------
void TsdRqr::Update()
{
    if(CurStatus==0||CurStatus==1)
        throw Exception("当前不是编辑状态,不能进行存盘操作!");
    if(m_RqrCode.IsEmpty()==true)
        throw Exception("单号不能为空!");
    m_StoredProc->Close();
    if(CurStatus==2||CurStatus==4)
      {
        m_StoredProc->ProcedureName="sdRqr_Insert";
        m_StoredProc->Parameters->Clear();
        m_StoredProc->Parameters->CreateParameter("@RqrCode",ftString,pdInput,18,m_RqrCode);
        m_StoredProc->Parameters->CreateParameter("@RqrName",ftString,pdInput,20,m_RqrName);
        m_StoredProc->Parameters->CreateParameter("@RqrDesc",ftString,pdInput,40,m_RqrDesc);

        m_StoredProc->ExecProc();


   }
  else
    {
        m_StoredProc->ProcedureName="sdRqr_Update";
        m_StoredProc->Parameters->Clear();

        m_StoredProc->Parameters->CreateParameter("@W_RqrCode",ftString,pdInput,18,b_RqrCode);
        m_StoredProc->Parameters->CreateParameter("@RqrCode",ftString,pdInput,18,m_RqrCode);
        m_StoredProc->Parameters->CreateParameter("@RqrName",ftString,pdInput,20,m_RqrName);
        m_StoredProc->Parameters->CreateParameter("@RqrDesc",ftString,pdInput,40,m_RqrDesc);

       m_StoredProc->ExecProc();


   }
    m_StoredProc->Close();
  TsdRqr *p=new TsdRqr();
  if(CurStatus==2)
    {
     SetActionID(1);
     p->Assign(this);
     AddRecord((void *)p,p->RqrCode);
     }
  else
    {
     SetActionID(1);
     p->Assign(this);
     ChangeRecord((void *)p,p->RqrCode,this->b_RqrCode);
    }
}
//---------------------------------------------------------------------------
void TsdRqr::Delete()
{
    if(CurStatus!=1)
        throw Exception("当前状态不能进行删除操作!");
    if(m_RqrCode.IsEmpty()==true)
        throw Exception("当前没有记录可以删除!");
    m_StoredProc->Close();
    m_StoredProc->ProcedureName="sdRqr_Delete";
    m_StoredProc->Parameters->Clear();
        m_StoredProc->Parameters->CreateParameter("@W_RqrCode",ftString,pdInput,18,b_RqrCode);
    m_StoredProc->ExecProc();
    m_StoredProc->Close();
    DeleteRecord(this->b_RqrCode);
}
//---------------------------------------------------------------------------
void TsdRqr::Assign(TsdRqr *p)
{
    this->SetActionID(p->CurStatus);
    this->m_RqrCode=p->m_RqrCode;
    this->m_RqrName=p->m_RqrName;
    this->m_RqrDesc=p->m_RqrDesc;
    this->BackupValue();
}
//---------------------------------------------------------------------------
void TsdRqr::AssignValue()
{
    TsdRqr *p=(TsdRqr *)Records(CurRecNo);
    Assign(p);
}
//---------------------------------------------------------------------------
int TsdRqr::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();
            TsdRqr *p=new TsdRqr();
            SetActionID(1);
            p->Assign(this);
            AddRecord((void *)p,p->RqrCode);
            m_Query->Next();
        }
        MoveFirst();
    }
    m_Query->Close();
    return Count;
}
//---------------------------------------------------------------------------
bool TsdRqr::Find(AnsiString WhereStr)
{
    AnsiString m_SqlStr;
    if(WhereStr.IsEmpty()==true)
        throw Exception("查找表达式不能为空");
    m_SqlStr="select * from sdRqr 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;
    }
}
//完成
//类体
//**************************************
//     TsdTrd            技术要求
//**************************************
//--------------------------------------------------------------
void __fastcall TsdTrd:: SetTrdCode(AnsiString value)
{
       if(value.IsEmpty())
         throw Exception("技术要求代码不能为空");
       if(value.Length()>18)
         throw Exception("技术要求代码不能大于18");
       if(value!=m_TrdCode)
       {
            m_Query->Close();
            m_Query->SQL->Clear();
            m_Query->SQL->Add("select TrdCode from sdTrd where TrdCode='"+value+"'");
            m_Query->Open();
            if(m_Query->RecordCount>0)
            {
                 m_Query->Close();
                 throw Exception("技术要求代码"+value+"已存在");
            }
            m_Query->Close();
       }
       m_TrdCode=value;
}
void __fastcall TsdTrd:: SetTrdName(AnsiString value)
{
       if(value.Length()>20)
         throw Exception("技术要求名称不能大于20");
       if(value != m_TrdName)
       {
            m_Query->Close();
            m_Query->SQL->Clear();
            m_Query->SQL->Add("select TrdName from sdTrd where TrdName='"+value+"'");
            m_Query->Open();
            if(m_Query->RecordCount>0)
            {
                 m_Query->Close();
                 throw Exception("技术要求名称 "+value+" 已存在");
            }
            m_Query->Close();
       }
       m_TrdName=value;
}
void __fastcall TsdTrd:: SetTrdDesc(AnsiString value)
{
       if(value.Length()>40)
         throw Exception("技术要求描述不能大于40");
       m_TrdDesc=value;
}
//---------------------------------------------------------------------------
AnsiString TsdTrd::GetFieldValue(euTrd sdFieldName)
{
    switch(sdFieldName)
    {
      case fiTrdCode:
           return TrdCode;
      case fiTrdName:
           return TrdName;
      case fiTrdDesc:
           return TrdDesc;
      default:
           throw Exception("当前未定义返可取值");
     }
}
//---------------------------------------------------------------------------
void TsdTrd::SetFieldValue(euTrd sdFieldName, AnsiString value)
{
    value=Trim(value);
    switch(sdFieldName)
     {
    case fiTrdCode:
         TrdCode=value;
          break;
    case fiTrdName:
         TrdName=value;
          break;
    case fiTrdDesc:
         TrdDesc=value;
          break;
    default:
         throw Exception("当前字段未定义可赋值");
    }
}
//---------------------------------------------------------------------------
TsdTrd::TsdTrd(TDataComm *DC)
                :TsdStandard(DC)
{
    try
    {
        QueryString="SELECT * FROM sdTrd";
        FilterString="";
        OrderString="TrdCode";
        EmptyValue(0);
        EmptyValue(1);
    }
    catch(Exception &e)
    {
        ShowMessage(e.Message);
    }
}
TsdTrd::TsdTrd()
                :TsdStandard()
{
    try
    {
        QueryString="SELECT * FROM sdTrd";
        FilterString="";
        OrderString="TrdCode";
        EmptyValue(0);
        EmptyValue(1);
    }
    catch(Exception &e)
    {
        ShowMessage(e.Message);
    }
}
//---------------------------------------------------------------------------
TsdTrd::~TsdTrd()
{
  try{
     }
  catch(...)
    {
     throw Exception("析构函数出错");
    }
}
//---------------------------------------------------------------------------
void TsdTrd::BackupValue()
{
      b_TrdCode=m_TrdCode;
      b_TrdName=m_TrdName;
      b_TrdDesc=m_TrdDesc;
}
//---------------------------------------------------------------------------
void TsdTrd::RestoreValue()
{
      m_TrdCode=b_TrdCode;
      m_TrdName=b_TrdName;
      m_TrdDesc=b_TrdDesc;
}
//---------------------------------------------------------------------------
void TsdTrd::EmptyValue(int Index)
{
   switch(Index)
   {
    case 0:
        m_TrdCode="";
        m_TrdName="";
        m_TrdDesc="";
    break;
    case 1:
        b_TrdCode="";
        b_TrdName="";
        b_TrdDesc="";
      break;
     }
}
//---------------------------------------------------------------------------
void TsdTrd::BatchLetValue()
{
    m_TrdCode=m_Query->FieldValues["TrdCode"];
    m_TrdName=m_Query->FieldValues["TrdName"];
    m_TrdDesc=m_Query->FieldValues["TrdDesc"];
    BackupValue();
}
//---------------------------------------------------------------------------
void TsdTrd::Update()
{
    if(CurStatus==0||CurStatus==1)
        throw Exception("当前不是编辑状态,不能进行存盘操作!");
    if(m_TrdCode.IsEmpty()==true)
        throw Exception("单号不能为空!");
    m_StoredProc->Close();
    if(CurStatus==2||CurStatus==4)
      {
        m_StoredProc->ProcedureName="sdTrd_Insert";
        m_StoredProc->Parameters->Clear();
        m_StoredProc->Parameters->CreateParameter("@TrdCode",ftString,pdInput,18,m_TrdCode);
        m_StoredProc->Parameters->CreateParameter("@TrdName",ftString,pdInput,20,m_TrdName);
        m_StoredProc->Parameters->CreateParameter("@TrdDesc",ftString,pdInput,40,m_TrdDesc);

        m_StoredProc->ExecProc();


   }
  else
    {
        m_StoredProc->ProcedureName="sdTrd_Update";
        m_StoredProc->Parameters->Clear();

        m_StoredProc->Parameters->CreateParameter("@W_TrdCode",ftString,pdInput,18,b_TrdCode);
        m_StoredProc->Parameters->CreateParameter("@TrdCode",ftString,pdInput,18,m_TrdCode);
        m_StoredProc->Parameters->CreateParameter("@TrdName",ftString,pdInput,20,m_TrdName);
        m_StoredProc->Parameters->CreateParameter("@TrdDesc",ftString,pdInput,40,m_TrdDesc);

       m_StoredProc->ExecProc();


   }
    m_StoredProc->Close();
  TsdTrd *p=new TsdTrd();
  if(CurStatus==2)
    {
     SetActionID(1);
     p->Assign(this);
     AddRecord((void *)p,p->TrdCode);
     }
  else
    {
     SetActionID(1);
     p->Assign(this);
     ChangeRecord((void *)p,p->TrdCode,this->b_TrdCode);
    }
}
//---------------------------------------------------------------------------
void TsdTrd::Delete()
{
    if(CurStatus!=1)
        throw Exception("当前状态不能进行删除操作!");
    if(m_TrdCode.IsEmpty()==true)
        throw Exception("当前没有记录可以删除!");
    m_StoredProc->Close();
    m_StoredProc->ProcedureName="sdTrd_Delete";
    m_StoredProc->Parameters->Clear();
        m_StoredProc->Parameters->CreateParameter("@W_TrdCode",ftString,pdInput,18,b_TrdCode);
    m_StoredProc->ExecProc();
    m_StoredProc->Close();
    DeleteRecord(this->b_TrdCode);
}
//---------------------------------------------------------------------------
void TsdTrd::Assign(TsdTrd *p)
{
    this->SetActionID(p->CurStatus);
    this->m_TrdCode=p->m_TrdCode;
    this->m_TrdName=p->m_TrdName;
    this->m_TrdDesc=p->m_TrdDesc;
    this->BackupValue();
}
//---------------------------------------------------------------------------
void TsdTrd::AssignValue()
{
    TsdTrd *p=(TsdTrd *)Records(CurRecNo);
    Assign(p);
}
//---------------------------------------------------------------------------
int TsdTrd::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();
            TsdTrd *p=new TsdTrd();
            SetActionID(1);
            p->Assign(this);
            AddRecord((void *)p,p->TrdCode);
            m_Query->Next();
        }
        MoveFirst();
    }
    m_Query->Close();
    return Count;
}
//---------------------------------------------------------------------------
bool TsdTrd::Find(AnsiString WhereStr)
{
    AnsiString m_SqlStr;
    if(WhereStr.IsEmpty()==true)
        throw Exception("查找表达式不能为空");
    m_SqlStr="select * from sdTrd 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;
    }
}
//完成