⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 commondata.cpp

📁 速达开源ERP系统
💻 CPP
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
TsdCurrency::~TsdCurrency()
{
   try
   {
   }
   catch(...)
   {
        throw Exception("析构函数出错!");
   }
}
////////////////////////////////////////////////////////////////////
//             付款方式
/////////////////////////////////////////////////////////////////////
void __fastcall TsdPayMode::SetPayModeCode(AnsiString value)
{
    if (value.IsEmpty() )
       throw Exception("付款方式编码不能为空!");
    if(value.Length()>18)
        throw Exception("付款方式编码长度不能大于18");
    if (value!=m_PayModeCode)
    {
      m_Query->Close();
      m_Query->SQL->Clear();
      m_Query->SQL->Add("SELECT PAYMODECODE FROM SDPayMode WHERE PayModeCODE='" +value+"'");
      m_Query->Open();
      if(m_Query->RecordCount>0)
      {
        m_Query->Close();
        throw Exception("付款方式编码'"+value+"'已存在");
      }
      m_Query->Close();
    }
    m_PayModeCode=value;
}

void __fastcall TsdPayMode::SetPayModeName(AnsiString value)
{
    if(value.IsEmpty())
        throw Exception("付款方式名称不能为空");
    if(value.Length()>20)
        throw Exception("付款方式名称长度不能大于20");
    m_PayModeName=value;
}

void __fastcall TsdPayMode::SetPayModeDesc(AnsiString value)
{
    if(value.Length()>40)
        throw Exception("备注长度不能大于40");
    m_PayModeDesc=value;
}

void __fastcall TsdPayMode::SetPayModeTerm(int value)
{
        if(value<0)
          throw Exception("付款期限不能为小于0!");
        m_PayModeTerm=value;
}


TsdPayMode::TsdPayMode(TDataComm *DC)
:TsdStandard(DC)
{
  try
  {
    EmptyValue(0);
    EmptyValue(1);
    QueryString="SELECT * FROM SDPayMode";
    FilterString="";
    OrderString="PayModeCode";
  }
  catch(Exception &e)
  {
    throw Exception("构造函数出错");
  }
}
TsdPayMode::TsdPayMode()
:TsdStandard()
{
  try
  {
    EmptyValue(0);
    EmptyValue(1);
    QueryString="SELECT * FROM SDPayMode";
    FilterString="";
    OrderString="PayModeCode";
  }
  catch(Exception &e)
  {
    throw Exception("构造函数出错");
  }
}

AnsiString TsdPayMode::GetFieldValue(euPayMode sdFieldName)
{
    switch(sdFieldName)
    {
      case fiPayModeCode:
        return PayModeCode;
      case fiPayModeName:
        return PayModeName;
      case fiPayModeDesc:
        return PayModeDesc;
      case fiPayModeTerm:
        return PayModeTerm;
      default:
           throw Exception("当前未定义可取值");
    }
}

void TsdPayMode::SetFieldValue(euPayMode sdFieldName, AnsiString value)
{
    switch(sdFieldName)
    {
      case fiPayModeCode:
        PayModeCode=value;
        break;
      case fiPayModeName:
        PayModeName=value;
        break;
      case fiPayModeDesc:
        PayModeDesc=value;
        break;
      case fiPayModeTerm:
        PayModeTerm=value.ToInt();
        break;
      default:
         throw Exception("当前字段未定义可赋值");
    }
}

void TsdPayMode::Update()
{
  if(CurStatus==0||CurStatus==1)
    throw Exception("当前不是编辑状态,不能进行存盘操作!");
  if(m_PayModeCode.IsEmpty()==true)
    throw Exception("付款方式编码不能为空!");
  m_StoredProc->Close();
  if(CurStatus==2||CurStatus==4)
  {
        m_StoredProc->ProcedureName="sdPayMode_Insert";
        m_StoredProc->Parameters->Clear();
        m_StoredProc->Parameters->CreateParameter("@PayModeCode",ftString,pdInput,18,m_PayModeCode);
        m_StoredProc->Parameters->CreateParameter("@PayModeName",ftString,pdInput,20,m_PayModeName);
        m_StoredProc->Parameters->CreateParameter("@PayModeDesc",ftString,pdInput,40,m_PayModeDesc);
        m_StoredProc->Parameters->CreateParameter("@PayModeTerm",ftInteger,pdInput,10,m_PayModeTerm);

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

        m_StoredProc->Parameters->CreateParameter("@W_PayModeCode",ftString,pdInput,18,b_PayModeCode);
        m_StoredProc->Parameters->CreateParameter("@PayModeCode",ftString,pdInput,18,m_PayModeCode);
        m_StoredProc->Parameters->CreateParameter("@PayModeName",ftString,pdInput,20,m_PayModeName);
        m_StoredProc->Parameters->CreateParameter("@PayModeDesc",ftString,pdInput,40,m_PayModeDesc);
        m_StoredProc->Parameters->CreateParameter("@PayModeTerm",ftInteger,pdInput,10,m_PayModeTerm);

        m_StoredProc->ExecProc();
        m_StoredProc->Close();
  }
  TsdPayMode *p=new TsdPayMode();

  if(CurStatus==2) {
    SetActionID(1);  // for browsing only
    p->Assign(this);
    AddRecord((void *)p,p->PayModeCode);
  }
  else {
    SetActionID(1);  // for browsing only
    p->Assign(this);
    ChangeRecord((void *)p,p->PayModeCode,this->b_PayModeCode);
  }
}

void TsdPayMode::Delete()
{
    if(CurStatus!=1)
      throw Exception("当前状态不能进行删除操作!");
    if(m_PayModeCode.IsEmpty()==true)
      throw Exception("当前没有记录可以删除!");
    m_StoredProc->Close();
    m_StoredProc->ProcedureName="sdPayMode_Delete";
    m_StoredProc->Parameters->Clear();
    m_StoredProc->Parameters->CreateParameter("@W_PayModeCode",ftString,pdInput,18,b_PayModeCode);
    m_StoredProc->ExecProc();
    m_StoredProc->Close();
    DeleteRecord(this->b_PayModeCode);
}

void TsdPayMode::BackupValue()
{
    b_PayModeCode=m_PayModeCode;
    b_PayModeName=m_PayModeName;
    b_PayModeDesc=m_PayModeDesc;
    b_PayModeTerm=m_PayModeTerm;
}


void TsdPayMode::RestoreValue()
{
    m_PayModeCode=b_PayModeCode;
    m_PayModeName=b_PayModeName;
    m_PayModeDesc=b_PayModeDesc;
    m_PayModeTerm=b_PayModeTerm;

}


void TsdPayMode::EmptyValue(int Index)
{
   switch(Index)
   {
     case 0:
        m_PayModeCode="";
        m_PayModeName="";
        m_PayModeDesc="";
        m_PayModeTerm=0;
        break;
     case 1:
        b_PayModeCode="";
        b_PayModeName="";
        b_PayModeDesc="";
        b_PayModeTerm=0;
        break;
    }
}


void TsdPayMode::BatchLetValue()
{
      m_PayModeCode=m_Query->FieldValues["PayModeCode"];
      m_PayModeName=m_Query->FieldValues["PayModeName"];
      m_PayModeDesc=m_Query->FieldValues["PayModeDesc"];
      m_PayModeTerm=m_Query->FieldValues["PayModeTerm"];
      BackupValue();
}

void TsdPayMode::Assign(TsdPayMode *p)
{
    this->SetActionID(p->CurStatus);
    m_PayModeCode=p->m_PayModeCode;
    m_PayModeName=p->m_PayModeName;
    m_PayModeDesc=p->m_PayModeDesc;
    m_PayModeTerm=p->m_PayModeTerm;
    BackupValue();
}

void TsdPayMode::AssignValue()
{
    TsdPayMode *p=(TsdPayMode *)Records(CurRecNo);
    this->SetActionID(p->CurStatus);
    m_PayModeCode=p->m_PayModeCode;
    m_PayModeName=p->m_PayModeName;
    m_PayModeDesc=p->m_PayModeDesc;
    m_PayModeTerm=p->m_PayModeTerm;
    BackupValue();
}

int TsdPayMode::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();
      TsdPayMode *p=new TsdPayMode();
      SetActionID(1);  // for browsing only
      p->Assign(this);
      AddRecord((void *)p,p->PayModeCode);
      m_Query->Next();
    }
    MoveFirst();
  }
  m_Query->Close();
  return Count;
}

bool TsdPayMode::Find(AnsiString WhereStr)
{
   AnsiString m_SqlStr;

  if(WhereStr.IsEmpty()==true)
    throw Exception("查找表达式不能为空");
  m_SqlStr="SELECT * FROM SDPayMode 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;
  }
}

TsdPayMode::~TsdPayMode()
{
    try
    {
    }
    catch(...)
    {
        throw Exception("析构函数出错");
    }
}


/////////////////////////////////////////////////////////////////////
//              结算方式
/////////////////////////////////////////////////////////////////////
void __fastcall TsdSettleMode::SetSettleModeCode(AnsiString value)
{
    if (value.IsEmpty() )
        throw Exception("结算方式编码不能为空!");
    if(value.Length()>18)
        throw Exception("结算方式编码长度不能大于18");
    if(value!=m_SettleModeCode)
    {
      m_Query->Close();
      m_Query->SQL->Clear();
      m_Query->SQL->Add("SELECT SettleModeCODE FROM SDSettleMode WHERE SettleModeCODE='" +value+"'");
      m_Query->Open();
      if(m_Query->RecordCount>0)
      {
        m_Query->Close();
        throw Exception("结算方式编码'"+value+"'已存在");
      }
      m_Query->Close();
    }
    m_SettleModeCode=value;
}

void __fastcall TsdSettleMode::SetSettleModeName(AnsiString value)
{
    if(value.IsEmpty())
        throw Exception("结算方式名称不能为空");
    if(value.Length()>20)
        throw Exception("结算方式名称长度不能大于20");
    if(value!=m_SettleModeName)
    {
      m_Query->Close();
      m_Query->SQL->Clear();
      m_Query->SQL->Add("SELECT SettleModeName FROM sdSettleMode WHERE SettleModeName='" +value+"'");
      m_Query->Open();
      if(m_Query->RecordCount>0)
      {
        m_Query->Close();
        throw Exception("结算方式名称'"+value+"'已存在");
      }
      m_Query->Close();
    }
    m_SettleModeName=value;
}

void __fastcall TsdSettleMode::SetSettleModeDesc(AnsiString value)
{
    if(value.Length()>40)
        throw Exception("备注长度不能大于40");
    m_SettleModeDesc=value;
}

void __fastcall TsdSettleMode::SetSettleModeGlKm(AnsiString value)
{
    if(!value.IsEmpty())
    {
      if(value.Length()>18)
        throw Exception("科目编码长不能大于18");
      if(m_SettleModeGlKm!=value)
      {
        m_Query->Close();
        m_Query->SQL->Clear();
        m_Query->SQL->Add("select * from sdGlkm where glkmcode='"+value+"' and glkmmx=1");
        m_Query->Open();
        if(m_Query->RecordCount<=0)
        {
          m_Query->Close();
          throw Exception("科目编码不存在或不是明细科目");
        }
        m_Query->Close();
      }
    }
    m_SettleModeGlKm=value;
}

void __fastcall TsdSettleMode::SetSettleModeKmDir(int value)
{
       if (value!=1 && value!=-1)
          throw Exception("科目方向必须为 1,借;-1，贷");
        m_SettleModeKmDir=value;
}

TsdSettleMode::TsdSettleMode(TDataComm *DC)
:TsdStandard(DC)
{
  try
  {
    EmptyValue(0);
    EmptyValue(1);
    QueryString="SELECT * FROM SDSettleMode";
    FilterString="";
    OrderString="SettleModeCode";
  }
  catch(...)
  {
    throw Exception("构造函数出错");
  }
}
TsdSettleMode::TsdSettleMode()
:TsdStandard()
{
  try
  {
    EmptyValue(0);
    EmptyValue(1);
    QueryString="SELECT * FROM SDSettleMode";
    FilterString="";
    OrderString="SettleModeCode";
  }
  catch(...)
  {
    throw Exception("构造函数出错");
  }
}

AnsiString TsdSettleMode::GetFieldValue(euSettleMode sdFieldName)
{
    switch(sdFieldName)
    {
      case fiSettleModeCode:
        return SettleModeCode;
      case fiSettleModeName:
        return SettleModeName;
      case fiSettleModeDesc:
        return SettleModeDesc;
      case fiSettleModeGlKm:
12345

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -