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

📄 apmhdl.cpp

📁 科思ERP部分源码及控件
💻 CPP
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
        break;
    case fiApivdQty:  
          ApivdQty=value.ToDouble();
        break;
    case fiApivdPrice:  
          ApivdPrice=value.ToDouble();
        break;
    case fiApivdDRate:  
          ApivdDRate=value.ToDouble();
        break;
    case fiApivdDAmt:  
          ApivdDAmt=value.ToDouble();
        break;
    case fiApivdTaxCode:  
          ApivdTaxCode=value;
        break;
    case fiApivdTRate:  
          ApivdTRate=value.ToDouble();
        break;
    case fiApivdTAmt:  
          ApivdTAmt=value.ToDouble();
        break;
    case fiApivdNAmt:  
          ApivdNAmt=value.ToDouble();
        break;
    case fiApivdAmt:  
          ApivdAmt=value.ToDouble();
        break;
    case fiApivdCAmt:  
          ApivdCAmt=value.ToDouble();
        break;
    case fiApivdState:  
          ApivdState=value.ToInt();
        break;
    case fiApivdDesc:  
          ApivdDesc=value;
        break;
    case fiApivdRAmt:  
          ApivdRAmt=value.ToDouble();
        break;
      default:
         throw Exception("当前字段未定义可赋值");
    }
}
//---------------------------------------------------------------------------
TsdApivd::TsdApivd(TDataComm *DC)
                :TsdDetail(DC)
{
    try
    {
        QueryString="SELECT * FROM sdApivd";
        FilterString="";
        OrderString="ApivdLine";
        EmptyValue(0); 
        EmptyValue(1); 
    }
    catch(Exception &e)
    {
        ShowMessage(e.Message);
    }
}
//---------------------------------------------------------------------------
TsdApivd::TsdApivd()
                :TsdDetail()
{
    try
    {
        QueryString="SELECT * FROM sdApivd";
        FilterString="";
        OrderString="ApivdLine";
        EmptyValue(0); 
        EmptyValue(1); 
    }
    catch(Exception &e)
    {
        ShowMessage(e.Message);
    }
}
//---------------------------------------------------------------------------
TsdApivd::~TsdApivd()
{
  try{
  }
  catch(...)
  {
    throw Exception("析构函数出错");
  }
}
//---------------------------------------------------------------------------
void TsdApivd::BackupValue()
{
      b_ApivdCode=m_ApivdCode;
      b_ApivdLine=m_ApivdLine;
      b_ApivdAplt=m_ApivdAplt;
      b_ApivdFrom=m_ApivdFrom;
      b_ApivdDocType=m_ApivdDocType;
      b_ApivdDocCode=m_ApivdDocCode;
      b_ApivdDocLine=m_ApivdDocLine;
      b_ApivdGoods=m_ApivdGoods;
      b_ApivdUnit=m_ApivdUnit;
      b_ApivdQty=m_ApivdQty;
      b_ApivdPrice=m_ApivdPrice;
      b_ApivdDRate=m_ApivdDRate;
      b_ApivdDAmt=m_ApivdDAmt;
      b_ApivdTaxCode=m_ApivdTaxCode;
      b_ApivdTRate=m_ApivdTRate;
      b_ApivdTAmt=m_ApivdTAmt;
      b_ApivdNAmt=m_ApivdNAmt;
      b_ApivdAmt=m_ApivdAmt;
      b_ApivdCAmt=m_ApivdCAmt;
      b_ApivdState=m_ApivdState;
      b_ApivdDesc=m_ApivdDesc;
      b_ApivdRAmt=m_ApivdRAmt;
}
//---------------------------------------------------------------------------
void TsdApivd::RestoreValue()
{
      m_ApivdCode=b_ApivdCode;
      m_ApivdLine=b_ApivdLine;
      m_ApivdAplt=b_ApivdAplt;
      m_ApivdFrom=b_ApivdFrom;
      m_ApivdDocType=b_ApivdDocType;
      m_ApivdDocCode=b_ApivdDocCode;
      m_ApivdDocLine=b_ApivdDocLine;
      m_ApivdGoods=b_ApivdGoods;
      m_ApivdUnit=b_ApivdUnit;
      m_ApivdQty=b_ApivdQty;
      m_ApivdPrice=b_ApivdPrice;
      m_ApivdDRate=b_ApivdDRate;
      m_ApivdDAmt=b_ApivdDAmt;
      m_ApivdTaxCode=b_ApivdTaxCode;
      m_ApivdTRate=b_ApivdTRate;
      m_ApivdTAmt=b_ApivdTAmt;
      m_ApivdNAmt=b_ApivdNAmt;
      m_ApivdAmt=b_ApivdAmt;
      m_ApivdCAmt=b_ApivdCAmt;
      m_ApivdState=b_ApivdState;
      m_ApivdDesc=b_ApivdDesc;
      m_ApivdRAmt=b_ApivdRAmt;
}
//---------------------------------------------------------------------------
void TsdApivd::EmptyValue(int Index)
{
   switch(Index)
   {
    case 0:
    m_ApivdCode="";
    m_ApivdLine=0;
    m_ApivdAplt="";
    m_ApivdFrom=0;
    m_ApivdDocType=0;
    m_ApivdDocCode="";
    m_ApivdDocLine=0;
    m_ApivdGoods="";
    m_ApivdUnit="";
    m_ApivdQty=0;
    m_ApivdPrice=0;
    m_ApivdDRate=0;
    m_ApivdDAmt=0;
    m_ApivdTaxCode="";
    m_ApivdTRate=0;
    m_ApivdTAmt=0;
    m_ApivdNAmt=0;
    m_ApivdAmt=0;
    m_ApivdCAmt=0;
    m_ApivdState=0;
    m_ApivdDesc="";
    m_ApivdRAmt=0;
    break;
    case 1:
    b_ApivdCode="";
    b_ApivdLine=0;
    b_ApivdAplt="";
    b_ApivdFrom=0;
    b_ApivdDocType=0;
    b_ApivdDocCode="";
    b_ApivdDocLine=0;
    b_ApivdGoods="";
    b_ApivdUnit="";
    b_ApivdQty=0;
    b_ApivdPrice=0;
    b_ApivdDRate=0;
    b_ApivdDAmt=0;
    b_ApivdTaxCode="";
    b_ApivdTRate=0;
    b_ApivdTAmt=0;
    b_ApivdNAmt=0;
    b_ApivdAmt=0;
    b_ApivdCAmt=0;
    b_ApivdState=0;
    b_ApivdDesc="";
    b_ApivdRAmt=0;
      break;
    }
}
//---------------------------------------------------------------------------
void TsdApivd::BatchLetValue()
{
    m_ApivdCode=m_Query->FieldValues["ApivdCode"];
    m_ApivdLine=m_Query->FieldValues["ApivdLine"];
    m_ApivdAplt=m_Query->FieldValues["ApivdAplt"];
    m_ApivdFrom=m_Query->FieldValues["ApivdFrom"];
    m_ApivdDocType=m_Query->FieldValues["ApivdDocType"];
    m_ApivdDocCode=m_Query->FieldValues["ApivdDocCode"];
    m_ApivdDocLine=m_Query->FieldValues["ApivdDocLine"];
    m_ApivdGoods=m_Query->FieldValues["ApivdGoods"];
    m_ApivdUnit=m_Query->FieldValues["ApivdUnit"];
    m_ApivdQty=m_Query->FieldValues["ApivdQty"];
    m_ApivdPrice=m_Query->FieldValues["ApivdPrice"];
    m_ApivdDRate=m_Query->FieldValues["ApivdDRate"];
    m_ApivdDAmt=m_Query->FieldValues["ApivdDAmt"];
    m_ApivdTaxCode=m_Query->FieldValues["ApivdTaxCode"];
    m_ApivdTRate=m_Query->FieldValues["ApivdTRate"];
    m_ApivdTAmt=m_Query->FieldValues["ApivdTAmt"];
    m_ApivdNAmt=m_Query->FieldValues["ApivdNAmt"];
    m_ApivdAmt=m_Query->FieldValues["ApivdAmt"];
    m_ApivdCAmt=m_Query->FieldValues["ApivdCAmt"];
    m_ApivdState=m_Query->FieldValues["ApivdState"];
    m_ApivdDesc=m_Query->FieldValues["ApivdDesc"];
    m_ApivdRAmt=m_Query->FieldValues["ApivdRAmt"];
    BackupValue();
}
//---------------------------------------------------------------------------
void TsdApivd::Update()
{
    if(CurStatus==0||CurStatus==1)
        throw Exception("当前不是编辑状态,不能进行存盘操作!");
    if(m_ApivdCode.IsEmpty()==true)
        throw Exception("发票号不能为空!");
    if(m_ApivdLine<=0)
        throw Exception("行号不能为空!");
    m_StoredProc->Close();
    if(CurStatus==2||CurStatus==4)
    {
        m_StoredProc->ProcedureName="sdApivd_Insert";
        m_StoredProc->Parameters->Clear();
        m_StoredProc->Parameters->CreateParameter("@ApivdCode",ftString,pdInput,18,m_ApivdCode);
        m_StoredProc->Parameters->CreateParameter("@ApivdLine",ftInteger,pdInput,10,m_ApivdLine);
        m_StoredProc->Parameters->CreateParameter("@ApivdAplt",ftString,pdInput,18,m_ApivdAplt);
        m_StoredProc->Parameters->CreateParameter("@ApivdFrom",ftInteger,pdInput,1,m_ApivdFrom);
        m_StoredProc->Parameters->CreateParameter("@ApivdDocType",ftInteger,pdInput,1,m_ApivdDocType);
        m_StoredProc->Parameters->CreateParameter("@ApivdDocCode",ftString,pdInput,18,m_ApivdDocCode);
        m_StoredProc->Parameters->CreateParameter("@ApivdDocLine",ftInteger,pdInput,10,m_ApivdDocLine);
        m_StoredProc->Parameters->CreateParameter("@ApivdGoods",ftString,pdInput,18,m_ApivdGoods);
        m_StoredProc->Parameters->CreateParameter("@ApivdUnit",ftString,pdInput,18,m_ApivdUnit);
        m_StoredProc->Parameters->CreateParameter("@ApivdQty",ftFloat,pdInput,12,m_ApivdQty);
        m_StoredProc->Parameters->CreateParameter("@ApivdPrice",ftFloat,pdInput,12,m_ApivdPrice);
        m_StoredProc->Parameters->CreateParameter("@ApivdDRate",ftFloat,pdInput,12,m_ApivdDRate);
        m_StoredProc->Parameters->CreateParameter("@ApivdDAmt",ftFloat,pdInput,12,m_ApivdDAmt);
        m_StoredProc->Parameters->CreateParameter("@ApivdTaxCode",ftString,pdInput,18,m_ApivdTaxCode);
        m_StoredProc->Parameters->CreateParameter("@ApivdTRate",ftFloat,pdInput,12,m_ApivdTRate);
        m_StoredProc->Parameters->CreateParameter("@ApivdTAmt",ftFloat,pdInput,12,m_ApivdTAmt);
        m_StoredProc->Parameters->CreateParameter("@ApivdNAmt",ftFloat,pdInput,12,m_ApivdNAmt);
        m_StoredProc->Parameters->CreateParameter("@ApivdAmt",ftFloat,pdInput,12,m_ApivdAmt);
        m_StoredProc->Parameters->CreateParameter("@ApivdCAmt",ftFloat,pdInput,12,m_ApivdCAmt);
        m_StoredProc->Parameters->CreateParameter("@ApivdState",ftInteger,pdInput,1,m_ApivdState);
        m_StoredProc->Parameters->CreateParameter("@ApivdDesc",ftString,pdInput,40,m_ApivdDesc);
        m_StoredProc->Parameters->CreateParameter("@ApivdRAmt",ftFloat,pdInput,12,m_ApivdRAmt);
 
        m_StoredProc->ExecProc();

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

        m_StoredProc->Parameters->CreateParameter("@W_ApivdCode",ftString,pdInput,18,b_ApivdCode);
        m_StoredProc->Parameters->CreateParameter("@W_ApivdLine",ftString,pdInput,10,b_ApivdLine);
        m_StoredProc->Parameters->CreateParameter("@ApivdCode",ftString,pdInput,18,m_ApivdCode);
        m_StoredProc->Parameters->CreateParameter("@ApivdLine",ftInteger,pdInput,10,m_ApivdLine);
        m_StoredProc->Parameters->CreateParameter("@ApivdAplt",ftString,pdInput,18,m_ApivdAplt);
        m_StoredProc->Parameters->CreateParameter("@ApivdFrom",ftInteger,pdInput,1,m_ApivdFrom);
        m_StoredProc->Parameters->CreateParameter("@ApivdDocType",ftInteger,pdInput,1,m_ApivdDocType);
        m_StoredProc->Parameters->CreateParameter("@ApivdDocCode",ftString,pdInput,18,m_ApivdDocCode);
        m_StoredProc->Parameters->CreateParameter("@ApivdDocLine",ftInteger,pdInput,10,m_ApivdDocLine);
        m_StoredProc->Parameters->CreateParameter("@ApivdGoods",ftString,pdInput,18,m_ApivdGoods);
        m_StoredProc->Parameters->CreateParameter("@ApivdUnit",ftString,pdInput,18,m_ApivdUnit);
        m_StoredProc->Parameters->CreateParameter("@ApivdQty",ftFloat,pdInput,12,m_ApivdQty);
        m_StoredProc->Parameters->CreateParameter("@ApivdPrice",ftFloat,pdInput,12,m_ApivdPrice);
        m_StoredProc->Parameters->CreateParameter("@ApivdDRate",ftFloat,pdInput,12,m_ApivdDRate);
        m_StoredProc->Parameters->CreateParameter("@ApivdDAmt",ftFloat,pdInput,12,m_ApivdDAmt);
        m_StoredProc->Parameters->CreateParameter("@ApivdTaxCode",ftString,pdInput,18,m_ApivdTaxCode);
        m_StoredProc->Parameters->CreateParameter("@ApivdTRate",ftFloat,pdInput,12,m_ApivdTRate);
        m_StoredProc->Parameters->CreateParameter("@ApivdTAmt",ftFloat,pdInput,12,m_ApivdTAmt);
        m_StoredProc->Parameters->CreateParameter("@ApivdNAmt",ftFloat,pdInput,12,m_ApivdNAmt);
        m_StoredProc->Parameters->CreateParameter("@ApivdAmt",ftFloat,pdInput,12,m_ApivdAmt);
        m_StoredProc->Parameters->CreateParameter("@ApivdCAmt",ftFloat,pdInput,12,m_ApivdCAmt);
        m_StoredProc->Parameters->CreateParameter("@ApivdState",ftInteger,pdInput,1,m_ApivdState);
        m_StoredProc->Parameters->CreateParameter("@ApivdDesc",ftString,pdInput,40,m_ApivdDesc);
        m_StoredProc->Parameters->CreateParameter("@ApivdRAmt",ftFloat,pdInput,12,m_ApivdRAmt);
 
       m_StoredProc->ExecProc();


    }
    m_StoredProc->Close();
    TsdApivd *p=new TsdApivd();
     SetActionID(1);
     p->Assign(this);
     ChangeRecord((void *)p,p->ApivdLine,this->ApivdLine);
}
//---------------------------------------------------------------------------
void TsdApivd::Delete()
{
    if(CurStatus!=1)
        throw Exception("当前状态不能进行删除操作!");
    if(m_ApivdCode.IsEmpty()==true)
        throw Exception("发票号不能为空!");
    if(m_ApivdLine<=0)
        throw Exception("行号不能为空!");
    m_StoredProc->Close();
    m_StoredProc->ProcedureName="sdApivd_Delete";
    m_StoredProc->Parameters->Clear();
        m_StoredProc->Parameters->CreateParameter("@W_ApivdCode",ftString,pdInput,18,b_ApivdCode);
        m_StoredProc->Parameters->CreateParameter("@W_ApivdLine",ftString,pdInput,10,b_ApivdLine);
    m_StoredProc->ExecProc();
    m_StoredProc->Close();
    DeleteRecord(this->b_ApivdLine);
}
//---------------------------------------------------------------------------
void TsdApivd::Assign(TsdApivd *p)
{
    this->SetActionID(p->CurStatus);
    this->m_ApivdCode=p->m_ApivdCode;
    this->m_ApivdLine=p->m_ApivdLine;
    this->m_ApivdAplt=p->m_ApivdAplt;
    this->m_ApivdFrom=p->m_ApivdFrom;
    this->m_ApivdDocType=p->m_ApivdDocType;
    this->m_ApivdDocCode=p->m_ApivdDocCode;
    this->m_ApivdDocLine=p->m_ApivdDocLine;
    this->m_ApivdGoods=p->m_ApivdGoods;
    this->m_ApivdUnit=p->m_ApivdUnit;
    this->m_ApivdQty=p->m_ApivdQty;
    this->m_ApivdPrice=p->m_ApivdPrice;
    this->m_ApivdDRate=p->m_ApivdDRate;
    this->m_ApivdDAmt=p->m_ApivdDAmt;
    this->m_ApivdTaxCode=p->m_ApivdTaxCode;
    this->m_ApivdTRate=p->m_ApivdTRate;
    this->m_ApivdTAmt=p->m_ApivdTAmt;
    this->m_ApivdNAmt=p->m_ApivdNAmt;
    this->m_ApivdAmt=p->m_ApivdAmt;
    this->m_ApivdCAmt=p->m_ApivdCAmt;
    this->m_ApivdState=p->m_ApivdState;
    this->m_ApivdDesc=p->m_ApivdDesc;
    this->m_ApivdRAmt=p->m_ApivdRAmt;
    if(CurStatus==3)
    {
    this->b_ApivdCode=p->b_ApivdCode;
    this->b_ApivdLine=p->b_ApivdLine;
    this->b_ApivdAplt=p->b_ApivdAplt;
    this->b_ApivdFrom=p->b_ApivdFrom;
    this->b_ApivdDocType=p->b_ApivdDocType;
    this->b_ApivdDocCode=p->b_ApivdDocCode;
    this->b_ApivdDocLine=p->b_ApivdDocLine;
    this->b_ApivdGoods=p->b_ApivdGoods;
    this->b_ApivdUnit=p->b_ApivdUnit;
    this->b_ApivdQty=p->b_ApivdQty;
    this->b_ApivdPrice=p->b_ApivdPrice;
    this->b_ApivdDRate=p->b_ApivdDRate;
    this->b_ApivdDAmt=p->b_ApivdDAmt;
    this->b_ApivdTaxCode=p->b_ApivdTaxCode;
    this->b_ApivdTRate=p->b_ApivdTRate;
    this->b_ApivdTAmt=p->b_ApivdTAmt;
    this->b_ApivdNAmt=p->b_ApivdNAmt;
    this->b_ApivdAmt=p->b_ApivdAmt;
    this->b_ApivdCAmt=p->b_ApivdCAmt;
    this->b_ApivdState=p->b_ApivdState;
    this->b_ApivdDesc=p->b_ApivdDesc;
    this->b_ApivdRAmt=p->b_ApivdRAmt;
     }
    this->BackupValue();
}
//---------------------------------------------------------------------------
void TsdApivd::AssignValue()
{
    TsdApivd *p=(TsdApivd *)Records(CurRecNo);
    Assign(p);
}
//---------------------------------------------------------------------------
int TsdApivd::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();
            TsdApivd *p=new TsdApivd();
            SetActionID(1);
            p->Assign(this);
            AddRecord((void *)p,ApivdLine);
            m_Query->Next();
        }
        MoveFirst();
12345

⌨️ 快捷键说明

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