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

📄 rpt.cpp

📁 邮 电 公 司 erp源码
💻 CPP
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
        m_Query->Open();
       if(m_Query->RecordCount>0)
        {
           m_Query->Close();
           throw Exception("该报表编号:'"+value+"'已经存在!");
         }
        m_Query->Close();
     }
     m_ReportCode=value;
}
void __fastcall TsdReport:: SetReportName(AnsiString value)
{
      if(value.IsEmpty())
       throw Exception("报表名称不能为空");
       m_ReportName=value;
}
void __fastcall TsdReport:: SetReportDesc(AnsiString value)
{
       m_ReportDesc=value;
}
void __fastcall TsdReport:: SetReportCaption(AnsiString value)
{
      if(value.IsEmpty())
       throw Exception("报表标题不能为空");
       m_ReportCaption=value;
}
void __fastcall TsdReport:: SetReportType(AnsiString value)
{
      if(value.IsEmpty())
       throw Exception("报表类型不能为空");
       m_ReportType=value;
}
void __fastcall TsdReport:: SetReportTemplet(AnsiString value)
{
      if(value.IsEmpty())
       throw Exception("报表模板不能为空");
        m_ReportTemplet=value;
}
void __fastcall TsdReport:: SetReportFile(AnsiString value)
{
      if(value.IsEmpty())
       throw Exception("报表文件名不能为空");
       m_ReportFile=value;
}
void __fastcall TsdReport:: SetReportTimes(int    value)
{
       m_ReportTimes=value;
}
void __fastcall TsdReport:: SetReportNearNo(int    value)
{
       m_ReportNearNo=value;
}
void __fastcall TsdReport:: SetReportUser(AnsiString value)
{
       m_ReportUser=value;
}
//---------------------------------------------------------------------------
AnsiString TsdReport::GetFieldValue(euReport sdFieldName)
{
    switch(sdFieldName)
    {
      case fiReportCode:
           return ReportCode;
      case fiReportName:
           return ReportName;
      case fiReportDesc:
           return ReportDesc;
      case fiReportCaption:
           return ReportCaption;
      case fiReportType:
           return ReportType;
      case fiReportTemplet:
           return ReportTemplet;
      case fiReportFile:
           return ReportFile;
      case fiReportTimes:
           return ReportTimes;
      case fiReportNearNo:
           return ReportNearNo;
      case fiReportUser:
           return ReportUser;
      case fiReportSysDate:
           return ReportSysDate;
      default:
         throw Exception("当前字段未定义可取值");  
     }    
}
//---------------------------------------------------------------------------
void TsdReport::SetFieldValue(euReport sdFieldName, AnsiString value)
{
     value=Trim(value);
    switch(sdFieldName)
     {
    case fiReportCode:
         ReportCode=value;
          break;
    case fiReportName:
         ReportName=value;
          break;
    case fiReportDesc:
         ReportDesc=value;
          break;
    case fiReportCaption:
         ReportCaption=value;
          break;
    case fiReportType:
         ReportType=value;
          break;
    case fiReportTemplet:
         ReportTemplet=value;
          break;
    case fiReportFile:
         ReportFile=value;
          break;
    case fiReportTimes:
         ReportTimes=value.ToInt();
          break;
    case fiReportNearNo:
         ReportNearNo=value.ToInt();
          break;
    case fiReportUser:
         ReportUser=value;
          break;
    default: 
        throw Exception("当前字段未定义可赋值");  
          
      }
}
//---------------------------------------------------------------------------
TsdReport::TsdReport(TDataComm *DC)
                :TsdStandard(DC)
{
    try
    {

        QueryString="SELECT * FROM sdReport";
        FilterString="";
        OrderString="ReportCode";
        EmptyValue(0);
        EmptyValue(1);

    }
    catch(Exception &e)
    {
        ShowMessage(e.Message);
    }
}
TsdReport::TsdReport()
                :TsdStandard()
{
    try
    {
        QueryString="SELECT * FROM sdReport";
        FilterString="";
        OrderString="ReportCode";
        EmptyValue(0);
        EmptyValue(1);

    }
    catch(Exception &e)
    {
        ShowMessage(e.Message);
    }
}

//---------------------------------------------------------------------------
TsdReport::~TsdReport()
{
  try{
//    delete m_Query;
//    delete m_StoredProc;
     }
  catch(...)
    {
     throw Exception("析构函数出错");
    }
}
//---------------------------------------------------------------------------
void TsdReport::BackupValue()
{
      b_ReportCode=m_ReportCode;
      b_ReportName=m_ReportName;
      b_ReportDesc=m_ReportDesc;
      b_ReportCaption=m_ReportCaption;
      b_ReportType=m_ReportType;
      b_ReportTemplet=m_ReportTemplet;
      b_ReportFile=m_ReportFile;
      b_ReportTimes=m_ReportTimes;
      b_ReportNearNo=m_ReportNearNo;
      b_ReportUser=m_ReportUser;
      b_ReportSysDate=m_ReportSysDate;
}
//---------------------------------------------------------------------------
void TsdReport::RestoreValue()
{
      m_ReportCode=b_ReportCode;
      m_ReportName=b_ReportName;
      m_ReportDesc=b_ReportDesc;
      m_ReportCaption=b_ReportCaption;
      m_ReportType=b_ReportType;
      m_ReportTemplet=b_ReportTemplet;
      m_ReportFile=b_ReportFile;
      m_ReportTimes=b_ReportTimes;
      m_ReportNearNo=b_ReportNearNo;
      m_ReportUser=b_ReportUser;
      m_ReportSysDate=b_ReportSysDate;
}
//---------------------------------------------------------------------------
void TsdReport::EmptyValue(int Index)
{
   switch(Index)
   {
    case 0:
        m_ReportCode="";
        m_ReportName="";
        m_ReportDesc="";
        m_ReportCaption="";
        m_ReportType="";
        m_ReportTemplet="";
        m_ReportFile="";
        m_ReportTimes=0;
        m_ReportNearNo=0;
        m_ReportUser="";
        m_ReportSysDate="";
    break;
    case 1:
        b_ReportCode="";
        b_ReportName="";
        b_ReportDesc="";
        b_ReportCaption="";
        b_ReportType="";
        b_ReportTemplet="";
        b_ReportFile="";
        b_ReportTimes=0;
        b_ReportNearNo=0;
        b_ReportUser="";
        b_ReportSysDate="";
      break;
     }
}
//---------------------------------------------------------------------------
void TsdReport::BatchLetValue()
{
    m_ReportCode=m_Query->FieldValues["ReportCode"];
    m_ReportName=m_Query->FieldValues["ReportName"];
    m_ReportDesc=m_Query->FieldValues["ReportDesc"];
    m_ReportCaption=m_Query->FieldValues["ReportCaption"];
    m_ReportType=m_Query->FieldValues["ReportType"];
    m_ReportTemplet=m_Query->FieldValues["ReportTemplet"];
    m_ReportFile=m_Query->FieldValues["ReportFile"];
    m_ReportTimes=m_Query->FieldValues["ReportTimes"];
    m_ReportNearNo=m_Query->FieldValues["ReportNearNo"];
    m_ReportUser=m_Query->FieldValues["ReportUser"];
    m_ReportSysDate=m_Query->FieldValues["ReportSysDate"];
    BackupValue();
}
//---------------------------------------------------------------------------
void TsdReport::Update()
{
    if(CurStatus==0||CurStatus==1)
        throw Exception("当前不是编辑状态,不能进行存盘操作!");
    if(m_ReportCode.IsEmpty()==true)
        throw Exception("单号不能为空!");
    m_StoredProc->Close();
    if(CurStatus==2||CurStatus==4)
      {
        m_StoredProc->ProcedureName="sdReport_Insert";
        m_StoredProc->Parameters->Clear();
        m_StoredProc->Parameters->CreateParameter("@ReportCode",ftString,pdInputOutput,18,m_ReportCode);
        m_StoredProc->Parameters->CreateParameter("@ReportName",ftString,pdInput,20,m_ReportName);
        m_StoredProc->Parameters->CreateParameter("@ReportDesc",ftString,pdInput,40,m_ReportDesc);
        m_StoredProc->Parameters->CreateParameter("@ReportCaption",ftString,pdInput,40,m_ReportCaption);
        m_StoredProc->Parameters->CreateParameter("@ReportType",ftString,pdInput,18,m_ReportType);
        m_StoredProc->Parameters->CreateParameter("@ReportTemplet",ftString,pdInput,18,m_ReportTemplet);
        m_StoredProc->Parameters->CreateParameter("@ReportFile",ftString,pdInput,18,m_ReportFile);
        m_StoredProc->Parameters->CreateParameter("@ReportTimes",ftInteger,pdInput,10,m_ReportTimes);
        m_StoredProc->Parameters->CreateParameter("@ReportNearNo",ftInteger,pdInput,10,m_ReportNearNo);
        m_StoredProc->Parameters->CreateParameter("@ReportUser",ftString,pdInput,18,m_ReportUser);
        m_StoredProc->Parameters->CreateParameter("@ReportSysDate",ftString,pdOutput,30,m_ReportSysDate);

        m_StoredProc->ExecProc();
        m_ReportCode=m_StoredProc->Parameters->ParamValues["@ReportCode"];
        m_ReportSysDate=m_StoredProc->Parameters->ParamValues["@ReportSysDate"];
   }
  else
    {
        m_StoredProc->ProcedureName="sdReport_Update";
        m_StoredProc->Parameters->Clear();

        m_StoredProc->Parameters->CreateParameter("@W_ReportCode",ftString,pdInput,18,b_ReportCode);
        m_StoredProc->Parameters->CreateParameter("@ReportCode",ftString,pdInput,18,m_ReportCode);
        m_StoredProc->Parameters->CreateParameter("@ReportName",ftString,pdInput,20,m_ReportName);
        m_StoredProc->Parameters->CreateParameter("@ReportDesc",ftString,pdInput,40,m_ReportDesc);
        m_StoredProc->Parameters->CreateParameter("@ReportCaption",ftString,pdInput,40,m_ReportCaption);
        m_StoredProc->Parameters->CreateParameter("@ReportType",ftString,pdInput,18,m_ReportType);
        m_StoredProc->Parameters->CreateParameter("@ReportTemplet",ftString,pdInput,18,m_ReportTemplet);
        m_StoredProc->Parameters->CreateParameter("@ReportFile",ftString,pdInput,18,m_ReportFile);
//        m_StoredProc->Parameters->CreateParameter("@ReportTimes",ftInteger,pdInput,10,m_ReportTimes);
//        m_StoredProc->Parameters->CreateParameter("@ReportNearNo",ftInteger,pdInput,10,m_ReportNearNo);
        m_StoredProc->Parameters->CreateParameter("@ReportUser",ftString,pdInput,18,m_ReportUser);
        m_StoredProc->Parameters->CreateParameter("@ReportSysDate",ftString,pdOutput,30,m_ReportSysDate);

       m_StoredProc->ExecProc();
       m_ReportSysDate=m_StoredProc->Parameters->ParamValues["@ReportSysDate"];

   }
  TsdReport *p=new TsdReport();
  if(CurStatus==2)
    {
     SetActionID(1);
     p->Assign(this);
     AddRecord((void *)p,p->ReportCode);
     }
  else
    {
     SetActionID(1);
     p->Assign(this);
     ChangeRecord((void *)p,p->ReportCode,this->b_ReportCode);
    }
}
//---------------------------------------------------------------------------
void TsdReport::Delete()
{
    if(CurStatus!=1)
        throw Exception("当前状态不能进行删除操作!");
    if(m_ReportCode.IsEmpty()==true)
        throw Exception("当前没有记录可以删除!");
    m_StoredProc->Close();
    m_StoredProc->ProcedureName="sdReport_Delete";
    m_StoredProc->Parameters->Clear();
        m_StoredProc->Parameters->CreateParameter("@W_ReportCode",ftString,pdInput,18,b_ReportCode);
    m_StoredProc->ExecProc();
    DeleteRecord(this->b_ReportCode);
}
//---------------------------------------------------------------------------
void TsdReport::Assign(TsdReport *p)
{
    this->SetActionID(p->CurStatus);
    this->m_ReportCode=p->m_ReportCode;
    this->m_ReportName=p->m_ReportName;
    this->m_ReportDesc=p->m_ReportDesc;
    this->m_ReportCaption=p->m_ReportCaption;
    this->m_ReportType=p->m_ReportType;
    this->m_ReportTemplet=p->m_ReportTemplet;
    this->m_ReportFile=p->m_ReportFile;
    this->m_ReportTimes=p->m_ReportTimes;
    this->m_ReportNearNo=p->m_ReportNearNo;
    this->m_ReportUser=p->m_ReportUser;
    this->m_ReportSysDate=p->m_ReportSysDate;
    this->BackupValue();
}
//---------------------------------------------------------------------------
void TsdReport::AssignValue()
{
    TsdReport *p=(TsdReport *)Records(CurRecNo);
    Assign(p);
}
//---------------------------------------------------------------------------
int TsdReport::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();
            TsdReport *p=new TsdReport();
            SetActionID(1);
            p->Assign(this);
            AddRecord((void *)p,p->ReportCode);
            m_Query->Next();
        }
        MoveFirst();
    }
    m_Query->Close();
    return Count;
}
12345

⌨️ 快捷键说明

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