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

📄 excel.cpp

📁 在BCB环境下
💻 CPP
📖 第 1 页 / 共 5 页
字号:
		  R->set_HorizontalAlignment(V(2));
      }
       
    /*
    LenRange.PG("Borders", 11).PS("Weight", 2);
	LenRange.PG("Borders", 12).PS("Weight", 2);
	LenRange.PG("Borders", 7).PS("Weight", 3);
	LenRange.PG("Borders", 8).PS("Weight", 3);
	LenRange.PG("Borders", 9).PS("Weight", 3);
	LenRange.PG("Borders", 10).PS("Weight", 3);   */

    R->set_Value(V(value));
    if(backcolor != 0)
      {
      	    if(backcolor == ColorTestMenu)
      	    {
      	    	   R->get_Interior()->set_ColorIndex(V(ColorTestMenu));
                R->Font->set_ColorIndex(V(3));
                R->Font->set_Bold(V(true));
      	    }
      	    else
           R->get_Interior()->set_ColorIndex(V(backcolor));
      }
      else
      {		
	     if(Col%2 != 0 && SheetIndex == 1)
             R->get_Interior()->set_ColorIndex(V(ColorItremName));  
      }         
}
//---------------------------------------------------------------------------
/**********************************************************************
* 函数名称:OutputReport
* 功能描述:输出测试报告
* 输入参数:无
* 输出参数:无
* 返 回 值: 无
* 其它说明:// 其它说明
* 修改日期      版本号     修改人       修改内容
* -----------------------------------------------
* 2009-3-13    V1.0        wzl         First Version
***********************************************************************/
void TExcelReport::OutputReport()
{
       if(NoResult() == false)
       {
         ShowMessage("No test result !");
          return;
       }
       if( OpenExcel("fist") == false)
       return;
       //--------------------------------------------
             
    //------------------------------------------------------------------
	 try
	 { 
	 	if((bData && bFitful) || (bData && bDataIT) ||(bDataIT && bFitful) )
	 	{
			ExcelWorksheet1->ConnectTo(ExcelWorkbook1->Worksheets->get_Item(V("报告")));
			SheetIndex = 1;
			//---------------------------------
			if(bSMS)
			OutputSMSResult();
			if(bData)
			OutputDataResult();
			if(bFitful)
			OutputFitfulResult();
			if(bDataIT)
			OutputDataITResult();
			//---------------------------------
			SheetName S;
			HideSheet(S.b, NULL, 0);
			HideSheet(S.c, NULL, 0);
			HideSheet(S.d, NULL, 0);
			HideSheet(NULL, S.a, 1);
			//---------------------------------
			ReportName R;
			SaveExcel(R.a, true);

			//------------------------------------
			if(bData)
			{
				OpenExcel(NULL);
				OutputPicture(1);
				SheetName S;
				ReportName R;
				HideSheet(S.a, NULL, 0);
				SaveExcel(R.b, false);
			}
			if(bFitful)
			{
				OpenExcel(NULL);
				OutputPicture(2);
                 SheetName S;
                ReportName R;
				HideSheet(S.a, NULL, 0);
				SaveExcel(R.d, false);
			}			

	 	}
	 	else
	 	{
			if(bSMS)
			OutputSMSResult();
			if(bData)
			OutputDataResult();
			if(bFitful)
			OutputFitfulResult();
			if(bDataIT)
			OutputDataITResult();
			//------------------------
			if(bData)
			OutputPicture(1);
			else if(bFitful)
			OutputPicture(2);
			//------------------------	
			 SaveExcel(NULL, true);    
	 	}	 	
		
	    //------------------------------------------------------------------
       
	 //-----------------------------------------------------------	   
	    }
	   catch(...)
	{
		ExcelWorksheet1->Disconnect();
		ExcelWorksheet1->Disconnect();
		ExcelApplication1->Disconnect();
		ExcelApplication1->Quit();
	   }
    //------------------------------------------------------------------
    //------------------------------------------------------------------
    //------------------------------------------------------------------
    //------------------------------------------------------------------
    //------------------------------------------------------------------
   
}

//---------------------------------------------------------------------------
/**********************************************************************
* 函数名称:OutputSMS
* 功能描述:输出短信测试结果
* 输入参数:无
* 输出参数:无
* 返 回 值: 无
* 其它说明:// 其它说明
* 修改日期      版本号     修改人       修改内容
* -----------------------------------------------
* 2009-3-13    V1.0        wzl         First Version
***********************************************************************/
void  TExcelReport::OutputSMSResult()
{    
   //-------------1.输出短信测试结果---------------------------
   	if(m_vSMSTestResult.size()!=0)
   {        
	sValue = "[ShortMeesage_Test_Result]";	
	SetCell(Row, 1, sValue, ColorTestMenu, true, true);

	for(unsigned int i=0; i< m_vSMSTestResult.size(); i++)
	{
		////////////////////row 1////////////
	      
		   sValue = "Current Plan:";
	         SetCell(Row, COL, sValue, ColorTestItem, false, true);
	         sValue = String(m_vSMSTestResult[i].m_SendCount);
	         SetCell(Row, COL, sValue, 0, false, false);

	         sValue = "Local Number:";
	         SetCell(Row, COL, sValue, 0, false, false);
	         sValue = String(m_vSMSTestResult[i].m_LocalsendNumber);
	         SetCell(Row, COL, sValue, 0, false, false);

	         sValue = "Send Number:";
	         SetCell(Row, COL, sValue, 0, false, false);
	         sValue = String(m_vSMSTestResult[i].m_SendNumber);
	         SetCell(Row, COL, sValue, 0, false, false);

		   ////////////////////row 2////////////	        
	         sValue = "Send Total:";
	         SetCell(Row, COL, sValue, 0, false, true);
	         sValue = String(m_vSMSTestResult[i].m_SendCount);
	         SetCell(Row, COL, sValue, 0, false, false);

	         sValue = "Send Success:";
	         SetCell(Row, COL, sValue, 0, false, false);
	         sValue = IntToStr(m_vSMSTestResult[i].m_SendSuccess);
	         SetCell(Row, COL, sValue, 0, false, false);

	         sValue = "Send Fail:";
	         SetCell(Row, COL, sValue, 0, false, false);
	         sValue = IntToStr(m_vSMSTestResult[i].m_SendFail);
	         SetCell(Row, COL, sValue, 0, false, false);

	         sValue = "Success Rate:";
	         SetCell(Row, COL, sValue, 0, false, false);
	         if(m_vSMSTestResult[i].m_SendCount != 0 && m_vSMSTestResult[i].m_SendSuccess != 0)
		 {
	              sValue = FloatToStr((float)m_vSMSTestResult[i].m_SendSuccess / StrToInt(m_vSMSTestResult[i].m_SendCount) * 100.0) + "%";
		 }
		 else
		 {
	             sValue = "0 %";
	         }
	         SetCell(Row, COL, sValue, 0, false, false);

		  ////////////////////row 3////////////
	         
		  if(m_vSMSTestResult[i].m_isnetworktest[0] == '1') //进行了网络测试
		{
			sValue = "Receive Total:";
			SetCell(Row, COL, sValue, 0, false, true);
			sValue = IntToStr(m_vSMSTestResult[i].m_ReceiveCount);
			SetCell(Row, COL, sValue, 0, false, false);

			sValue = "Receive Success:";
			SetCell(Row, COL, sValue, 0, false, false);
			sValue = IntToStr(m_vSMSTestResult[i].m_ReceiveSuccess);
			SetCell(Row, COL, sValue, 0, false, false);

			sValue = "Receive Fail:";
			SetCell(Row, COL, sValue, 0, false, false);
			sValue = IntToStr(m_vSMSTestResult[i].m_ReceiveFail);
			SetCell(Row, COL, sValue, 0, false, false);

			sValue = "Receive Rate:";
			SetCell(Row, COL, sValue, 0, false, false);


			if(m_vSMSTestResult[i].m_ReceiveCount != 0 && m_vSMSTestResult[i].m_ReceiveSuccess != 0)
			{
				sValue = FloatToStr((float)m_vSMSTestResult[i].m_ReceiveSuccess / (float)m_vSMSTestResult[i].m_ReceiveCount * 100.0) + "%";
			}
			else
			{
				sValue = "0 %";
			}
				SetCell(Row, COL, sValue, 0, false, false);
		}
		else   //未进行网络测试
		{
				sValue = "Receive Total:";
				SetCell(Row, COL, sValue, 0, false, true);
				sValue = "--";
				SetCell(Row, COL, sValue, 0, false, false);

				sValue = "Receive Success:";
				SetCell(Row, COL, sValue, 0, false, false);
				sValue = "--";
				SetCell(Row, COL, sValue, 0, false, false);

				sValue = "Receive Fail:";
				SetCell(Row, COL, sValue, 0, false, false);
				sValue = "--";
				SetCell(Row, COL, sValue, 0, false, false);

				sValue = "Receive Rate:";
				SetCell(Row, COL, sValue, 0, false, false);
				sValue = "--";
				SetCell(Row, COL, sValue, 0, false, false);
			}     
		}
   	}    
   //-------------1.输出短信测试结果---------------------------
}
//---------------------------------------------------------------------------
/**********************************************************************
* 函数名称:OutputDataResult
* 功能描述:输出数据测试结果
* 输入参数:无
* 输出参数:无
* 返 回 值: 无
* 其它说明:// 其它说明
* 修改日期      版本号     修改人       修改内容
* -----------------------------------------------
* 2009-3-13    V1.0        wzl         First Version
***********************************************************************/
 void TExcelReport::OutputDataResult()
{   //-------2.输出新的数据测试业务的测试结果--------------------------------
	if(m_vTDSTestResult.size() != 0)
	{	
            
           sValue = "Data_Test_Result";
           SetCell(Row, COL, sValue, ColorTestMenu, true, true);
           //--------------------------------------------------
           for(UINT i=0; i<m_vTDSTestResult.size(); i++)
          {
			TDSTestPlanItems Out = m_vTDSTestResult[i];
			switch(Out.m_ServiceType)
			{
				case DS_PPP: // PPP相关消息
				{	
				/**************------------DS_PPP-row1--------******************/
	                    sValue = "PPP:";
	                    SetCell(Row, COL, sValue, ColorTestItem, false, true);
	                    sValue = Out.m_Name;
	                    SetCell(Row, COL, sValue, 0, false, false);

	                    sValue = "Continuous:";
	                    SetCell(Row, COL, sValue, 0, false, false);
	                    if(Out.m_bContinuous)
						sValue = "Yes";
						else
						sValue = "No";
	                    SetCell(Row, COL, sValue, 0, false, false);				
	                    sValue = "Test Count:";
	                    SetCell(Row, COL, sValue, 0, false, false);
	                     if(Out.m_bContinuous)
				 {
					sValue = "--";
				 }
				 else
	                    sValue = IntToStr(Out.m_TestCount);
	                    SetCell(Row, COL, sValue, 0, false, false);

	                    sValue = "Test Duration(s):";
	                    SetCell(Row, COL, sValue, 0, false, false);
	                    sValue = FloatToStr(Out.m_TestDuration/1000.0);
	                    SetCell(Row, COL, sValue, 0, false, false);

				/**************------------DS_PPP-row2--------******************/
	                    sValue = "CallCount:";
	                    SetCell(Row, COL, sValue, 0, false, true);
	                    sValue = Out.m_CallCountText;
	                    SetCell(Row, COL, sValue, 0, false, false);

	                    sValue = "SuccessCount:";
	                    SetCell(Row, COL, sValue, 0, false, false);
	                    sValue = Out.m_SuccessCountText;
	                    SetCell(Row, COL, sValue, 0, false, false);

	                     sValue = "FailCount:";
	                    SetCell(Row, COL, sValue, 0, false, false);
	                    sValue = Out.m_FailCountText;
	                    SetCell(Row, COL, sValue, 0, false, false);

	                    sValue = "DropCount:";
	                    SetCell(Row, COL, sValue, 0, false, false);
	                    sValue = Out.m_DropCountText;
	                    SetCell(Row, COL, sValue, 0, false, false);

				/**************------------DS_PPP-row3~~row3+CallCount--------******************/
				UINT CallCount = 0;
				if(Out.m_CallCountText != NULL && Out.m_CallCountText != "")
				{							
					CallCount = StrToInt(Out.m_CallCountText);
				}

				for(UINT i=0; i<CallCount; i++)
				{	                    
	                        sValue = "Test"+IntToStr(i+1)+"_Sent(KB):";
	                        SetCell(Row, COL, sValue, 0, false, true);
	                        if( i < Out.m_SentText.size() )
							sValue = Out.m_SentText[i];
							else
							sValue = "0";
	                        SetCell(Row, COL, sValue, 0, false, false);

	                        sValue = "Received(KB):";
	                        SetCell(Row, COL, sValue, 0, false, false);
	                        if( i < Out.m_SentText.size() )
							sValue = Out.m_ReceivedText[i];
							else
							sValue = "0";
	                        SetCell(Row, COL, sValue, 0, false, false);

							  sValue = "BandWidth(KB):";
	                        SetCell(Row, COL, sValue, 0, false, false);
	                        if( i < Out.m_SentText.size() )
							sValue = Out.m_BandWidthText[i];
							else

⌨️ 快捷键说明

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