xianxingdlg.cpp

价格生成系统 热水器生产厂家价格管理、设备类型管理系统

{
//*****
 //变量定义
 _Application app;    
 Workbooks books;
 _Workbook book;
 Worksheets sheets;
 _Worksheet sheet;
 Range range;
 Range iCell;
 Range unionRange;

 LPDISPATCH lpDisp;    
 COleVariant vResult;
 COleVariant
        covTrue((short)TRUE),
        covFalse((short)FALSE),
        covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);    
 
 


 
 
 //*****
 //创建Excel 2000服务器(启动Excel)
 if(!app.CreateDispatch("Excel.Application"))
{
  AfxMessageBox("无法启动Excel服务器!");
    return;
 }
  app.SetVisible(TRUE);          //使Excel可见
 app.SetUserControl(TRUE);      //允许其它用户控制Excel
 

 //*****   
 //打开c:\1.xls
 books.AttachDispatch(app.GetWorkbooks());
 lpDisp = books.Open("d:\\Yornik2\\文件\\选型计算.xls",      
   covOptional, covOptional, covOptional, covOptional, covOptional,
   covOptional, covOptional, covOptional, covOptional, covOptional,
   covOptional, covOptional );   
 //lpDisp = books.Add(covOptional);

     
 //*****
 //得到Workbook
 book.AttachDispatch(lpDisp);
 
 
 //*****
 //得到Worksheets 
 sheets.AttachDispatch(book.GetWorksheets()); 
 
 
 //*****
 //得到当前活跃sheet
 //如果有单元格正处于编辑状态中，此操作不能返回，会一直等待
 lpDisp=book.GetActiveSheet();
 sheet.AttachDispatch(lpDisp); 
  


 //读取已经使用区域的信息，包括已经使用的行数、列数、起始行、起始列

 Range usedRange;
 usedRange.AttachDispatch(sheet.GetUsedRange());
 range.AttachDispatch(usedRange.GetRows());
 long iRowNum=range.GetCount();                   //已经使用的行数
 
 range.AttachDispatch(usedRange.GetColumns());
 long iColNum=range.GetCount();                   //已经使用的列数
  
 long iStartRow=usedRange.GetRow();               //已使用区域的起始行，从1开始
 long iStartCol=usedRange.GetColumn();            //已使用区域的起始列，从1开始

 //读取第一个单元格的值
range.AttachDispatch(sheet.GetCells()); 
 range.AttachDispatch(range.GetItem (COleVariant((long)1),COleVariant((long)1)).pdispVal );
vResult =range.GetValue();
 CString str;
 if(vResult.vt == VT_BSTR)       //字符串
 {
  str=vResult.bstrVal;
 }
 else if (vResult.vt==VT_R8)     //8字节的数字 
 {
  str.Format("%f",vResult.dblVal);
 }
 else if(vResult.vt==VT_DATE)    //时间格式
 {
  SYSTEMTIME st;
     VariantTimeToSystemTime(vResult.date, &st);
 }
 else if(vResult.vt==VT_EMPTY)   //单元格空的
 {
  str="";
 }  
 
 //*****
 //读取第一个单元格的对齐方式，数据类型:VT_I4
 //读取水平对齐方式
 for(int k1=1;k1<50;k1+=2)
	 for(int k2=1;k2<15;k2++)
	 {
 range.AttachDispatch(sheet.GetCells());
 iCell.AttachDispatch((range.GetItem (COleVariant(long(k1)), COleVariant(long(k2)))).pdispVal);
 vResult.lVal=0;
iCell.SetHorizontalAlignment(COleVariant((long)-4108));
 vResult=iCell.GetHorizontalAlignment();
 if(vResult.lVal!=0)
 {
  switch (vResult.lVal)
  {
  case 1:      //默认
   break;
  case -4108:  //居中
   break;
  case -4131 : //*左
   break;
  case -4152 : //*右
   break;
  }
 
 }
  
 //垂直对齐方式
 iCell.AttachDispatch((range.GetItem (COleVariant(long(k1)), COleVariant(long(k2)))).pdispVal);
 vResult.lVal=0;

iCell.SetVerticalAlignment(COleVariant((long)-4108));
 vResult=iCell.GetVerticalAlignment();
 if(vResult.lVal!=0)
 {
  switch (vResult.lVal)
  {
  case -4160 :  //*上
   break;
  case -4108 :  //居中
   break;
  case -4107 :  //*下
   break;
  }
 
 }
 range.AttachDispatch(range.GetItem (COleVariant((long)k1),COleVariant((long)k2)).pdispVal );
range.Merge(COleVariant((short)1));
range.SetWrapText(COleVariant((short)1));
}
 range.AttachDispatch(sheet.GetCells()); 
 unionRange.AttachDispatch(range.GetItem (COleVariant((long)1),COleVariant((long)1)).pdispVal );
 unionRange.AttachDispatch(unionRange.GetResize(COleVariant((long)2),COleVariant((long)1)));
 unionRange.Merge(COleVariant((long)0));   //合并单元格
 range.AttachDispatch(sheet.GetCells()); 
 unionRange.AttachDispatch(range.GetItem (COleVariant((long)1),COleVariant((long)2)).pdispVal );
 unionRange.AttachDispatch(unionRange.GetResize(COleVariant((long)2),COleVariant((long)7)));
 unionRange.Merge(COleVariant((long)0));   //合并单元格
range.SetItem(COleVariant((long)1),COleVariant((long)2),COleVariant("热泵系统选型计算"));
for(int i=9;i<30;i++)
{range.AttachDispatch(sheet.GetCells()); 
 unionRange.AttachDispatch(range.GetItem (COleVariant((long)1),COleVariant((long)i)).pdispVal );
 unionRange.AttachDispatch(unionRange.GetResize(COleVariant((long)2),COleVariant((long)1)));
 unionRange.Merge(COleVariant((long)0));   //合并单元格
}
range.AttachDispatch(sheet.GetCells()); 
 unionRange.AttachDispatch(range.GetItem (COleVariant((long)3),COleVariant((long)1)).pdispVal );
 unionRange.AttachDispatch(unionRange.GetResize(COleVariant((long)1),COleVariant((long)4)));
 unionRange.Merge(COleVariant((long)0));   //合并单元格
 range.SetItem(COleVariant((long)3),COleVariant((long)1),COleVariant("根据贵单位提供资料,热水使用人数N为")); 
m_str[0].Format("%d",atoi(num));
 m_str[0]+=CString("个");
 range.SetItem(COleVariant((long)3),COleVariant((long)5),COleVariant(m_str[0]));
 range.AttachDispatch(sheet.GetCells()); 
 unionRange.AttachDispatch(range.GetItem (COleVariant((long)3),COleVariant((long)6)).pdispVal );
 unionRange.AttachDispatch(unionRange.GetResize(COleVariant((long)1),COleVariant((long)2)));
 unionRange.Merge(COleVariant((long)0));   //合并单元格
  m_str[1].Format("%d",atoi(m_num));
 m_str[1]+=CString("L/人");
 range.SetItem(COleVariant((long)3),COleVariant((long)6),COleVariant("热水使用定额P:"));
range.SetItem(COleVariant((long)3),COleVariant((long)8),COleVariant(m_str[1]));
for(int j=4;j<58;j+=2)
{range.AttachDispatch(sheet.GetCells()); 
 unionRange.AttachDispatch(range.GetItem (COleVariant((long)j),COleVariant((long)2)).pdispVal );
 unionRange.AttachDispatch(unionRange.GetResize(COleVariant((long)2),COleVariant((long)2)));
 unionRange.Merge(COleVariant((long)0));   //合并单元格
 range.AttachDispatch(sheet.GetCells()); 
 unionRange.AttachDispatch(range.GetItem (COleVariant((long)j),COleVariant((long)5)).pdispVal );
 unionRange.AttachDispatch(unionRange.GetResize(COleVariant((long)2),COleVariant((long)4)));
 unionRange.Merge(COleVariant((long)0));   //合并单元格
 range.AttachDispatch(sheet.GetCells()); 
 unionRange.AttachDispatch(range.GetItem (COleVariant((long)j),COleVariant((long)1)).pdispVal );
 unionRange.AttachDispatch(unionRange.GetResize(COleVariant((long)2),COleVariant((long)1)));
 unionRange.Merge(COleVariant((long)0));   //合并单元格
 range.AttachDispatch(sheet.GetCells()); 
 unionRange.AttachDispatch(range.GetItem (COleVariant((long)j),COleVariant((long)4)).pdispVal );
 unionRange.AttachDispatch(unionRange.GetResize(COleVariant((long)2),COleVariant((long)1)));
 unionRange.Merge(COleVariant((long)0));   //合并单元格
range.AttachDispatch(sheet.GetCells()); 
 unionRange.AttachDispatch(range.GetItem (COleVariant((long)j),COleVariant((long)9)).pdispVal );
 unionRange.AttachDispatch(unionRange.GetResize(COleVariant((long)2),COleVariant((long)1)));
 unionRange.Merge(COleVariant((long)0));   //合并单元格
 range.AttachDispatch(sheet.GetCells()); 
 unionRange.AttachDispatch(range.GetItem (COleVariant((long)j),COleVariant((long)10)).pdispVal );
 unionRange.AttachDispatch(unionRange.GetResize(COleVariant((long)2),COleVariant((long)1)));
 unionRange.Merge(COleVariant((long)0));   //合并单元格
 range.AttachDispatch(sheet.GetCells()); 
 unionRange.AttachDispatch(range.GetItem (COleVariant((long)j),COleVariant((long)11)).pdispVal );
 unionRange.AttachDispatch(unionRange.GetResize(COleVariant((long)2),COleVariant((long)1)));
 unionRange.Merge(COleVariant((long)0));   //合并单元格
 range.AttachDispatch(sheet.GetCells()); 
 unionRange.AttachDispatch(range.GetItem (COleVariant((long)j),COleVariant((long)12)).pdispVal );
 unionRange.AttachDispatch(unionRange.GetResize(COleVariant((long)2),COleVariant((long)1)));
 unionRange.Merge(COleVariant((long)0));   //合并单元格
 range.AttachDispatch(sheet.GetCells()); 
 unionRange.AttachDispatch(range.GetItem (COleVariant((long)j),COleVariant((long)13)).pdispVal );
 unionRange.AttachDispatch(unionRange.GetResize(COleVariant((long)2),COleVariant((long)1)));
 unionRange.Merge(COleVariant((long)0));   //合并单元格
 range.AttachDispatch(sheet.GetCells()); 
 unionRange.AttachDispatch(range.GetItem (COleVariant((long)j),COleVariant((long)14)).pdispVal );
 unionRange.AttachDispatch(unionRange.GetResize(COleVariant((long)2),COleVariant((long)1)));
 unionRange.Merge(COleVariant((long)0));   //合并单元格
 range.AttachDispatch(sheet.GetCells()); 
 unionRange.AttachDispatch(range.GetItem (COleVariant((long)j),COleVariant((long)15)).pdispVal );
 unionRange.AttachDispatch(unionRange.GetResize(COleVariant((long)2),COleVariant((long)1)));
 unionRange.Merge(COleVariant((long)0));   //合并单元格
 range.AttachDispatch(sheet.GetCells()); 
 unionRange.AttachDispatch(range.GetItem (COleVariant((long)j),COleVariant((long)16)).pdispVal );
 unionRange.AttachDispatch(unionRange.GetResize(COleVariant((long)2),COleVariant((long)1)));
 unionRange.Merge(COleVariant((long)0));   //合并单元格
 range.AttachDispatch(sheet.GetCells()); 
 unionRange.AttachDispatch(range.GetItem (COleVariant((long)j),COleVariant((long)17)).pdispVal );
 unionRange.AttachDispatch(unionRange.GetResize(COleVariant((long)2),COleVariant((long)1)));
 unionRange.Merge(COleVariant((long)0));   //合并单元格
}
range.AttachDispatch(sheet.GetCells()); 
 unionRange.AttachDispatch(range.GetItem (COleVariant((long)58),COleVariant((long)1)).pdispVal );
 unionRange.AttachDispatch(unionRange.GetResize(COleVariant((long)2),COleVariant((long)10)));
 unionRange.Merge(COleVariant((long)0));   //合并单元格
range.SetItem(COleVariant((long)4),COleVariant((long)1),COleVariant("M总"));
range.SetItem(COleVariant((long)4),COleVariant((long)2),COleVariant("日总用水量"));
range.SetItem(COleVariant((long)4),COleVariant((long)4),COleVariant("kg"));
range.SetItem(COleVariant((long)4),COleVariant((long)5),COleVariant("M总=N(个)×P(L/人)"));
range.SetItem(COleVariant((long)4),COleVariant((long)9),COleVariant(m_zong));
range.SetItem(COleVariant((long)6),COleVariant((long)1),COleVariant("M计算"));
range.SetItem(COleVariant((long)6),COleVariant((long)2),COleVariant("计算用水量"));
range.SetItem(COleVariant((long)6),COleVariant((long)4),COleVariant("kg"));
range.SetItem(COleVariant((long)6),COleVariant((long)5),COleVariant(m_jisuan));
//range.SetItem(COleVariant((long)5),COleVariant((long)9),COleVariant("M计算"));
range.SetItem(COleVariant((long)8),COleVariant((long)1),COleVariant("W总"));
range.SetItem(COleVariant((long)8),COleVariant((long)2),COleVariant("总耗能"));
range.SetItem(COleVariant((long)8),COleVariant((long)4),COleVariant("kcal"));
range.SetItem(COleVariant((long)8),COleVariant((long)5),COleVariant("W总=  c*M计算*△t"));
range.SetItem(COleVariant((long)8),COleVariant((long)9),COleVariant(w_zong));
range.SetItem(COleVariant((long)8),COleVariant((long)10),COleVariant("c＝１"));
range.SetItem(COleVariant((long)10),COleVariant((long)1),COleVariant("W机"));
range.SetItem(COleVariant((long)10),COleVariant((long)2),COleVariant("机器名义耗能"));
range.SetItem(COleVariant((long)10),COleVariant((long)4),COleVariant("kcal"));
range.SetItem(COleVariant((long)10),COleVariant((long)5),COleVariant("W机=η*W总"));
range.SetItem(COleVariant((long)10),COleVariant((long)9),COleVariant(w_ji));
range.SetItem(COleVariant((long)10),COleVariant((long)10),COleVariant("η:1-1.2"));
range.SetItem(COleVariant((long)12),COleVariant((long)1),COleVariant("W1"));
range.SetItem(COleVariant((long)12),COleVariant((long)2),COleVariant("机器日耗电量"));
range.SetItem(COleVariant((long)12),COleVariant((long)4),COleVariant("kwh"));
range.SetItem(COleVariant((long)12),COleVariant((long)5),COleVariant("W1=W机／860／η2"));
range.SetItem(COleVariant((long)12),COleVariant((long)9),COleVariant(w_1));
range.SetItem(COleVariant((long)12),COleVariant((long)10),COleVariant("860kcal/kwh"));
m_str[2].Format("%f%%",atof(m_xiaolv)*100);
range.SetItem(COleVariant((long)12),COleVariant((long)11),COleVariant(m_str[2]));
range.SetItem(COleVariant((long)14),COleVariant((long)2),COleVariant("选型设备"));
int index =m_shebei.GetCurSel();
m_shebei.GetLBText(index,m_str[3]);
m_str[3]+=CString("热泵机组");
range.SetItem(COleVariant((long)14),COleVariant((long)5),COleVariant(m_str[3]));
range.SetItem(COleVariant((long)14),COleVariant((long)9),COleVariant((float)tai));

range.SetItem(COleVariant((long)14),COleVariant((long)10),COleVariant("台"));

int index2 =m_shebei1.GetCurSel();
if(index2>=0)
{
m_shebei1.GetLBText(index2,m_str[3]);
m_str[3]+=CString("热泵机组");
range.SetItem(COleVariant((long)16),COleVariant((long)5),COleVariant(m_str[3]));
range.SetItem(COleVariant((long)16),COleVariant((long)9),COleVariant((float)tai1));

range.SetItem(COleVariant((long)16),COleVariant((long)10),COleVariant("台"));
}
range.SetItem(COleVariant((long)18),COleVariant((long)1),COleVariant("T机"));
range.SetItem(COleVariant((long)18),COleVariant((long)2),COleVariant("机器工作时间"));
range.SetItem(COleVariant((long)18),COleVariant((long)4),COleVariant("h"));
range.SetItem(COleVariant((long)18),COleVariant((long)5),COleVariant(t_ji));
//range.SetItem(COleVariant((long)16),COleVariant((long)9),COleVariant(m_zong));
range.SetItem(COleVariant((long)20),COleVariant((long)1),COleVariant("M额"));
range.SetItem(COleVariant((long)20),COleVariant((long)2),COleVariant("机器额定出水量"));
range.SetItem(COleVariant((long)20),COleVariant((long)4),COleVariant("L/h"));
range.SetItem(COleVariant((long)20),COleVariant((long)5),COleVariant(m_e));
//range.SetItem(COleVariant((long)18),COleVariant((long)9),COleVariant(m_zong));
//range.SetItem(COleVariant((long)20),COleVariant((long)1),COleVariant("M总"));
range.SetItem(COleVariant((long)22),COleVariant((long)2),COleVariant("日额定出水量"));
range.SetItem(COleVariant((long)22),COleVariant((long)4),COleVariant("L/天"));
range.SetItem(COleVariant((long)22),COleVariant((long)5),COleVariant("M额×T机×台数"));
range.SetItem(COleVariant((long)22),COleVariant((long)9),COleVariant(m_shuiliang));
range.SetItem(COleVariant((long)24),COleVariant((long)1),COleVariant("M峰"));
range.SetItem(COleVariant((long)24),COleVariant((long)2),COleVariant("峰值最大用水总量"));
range.SetItem(COleVariant((long)24),COleVariant((long)4),COleVariant("kg"));
range.SetItem(COleVariant((long)24),COleVariant((long)5),COleVariant(m_feng));
//range.SetItem(COleVariant((long)22),COleVariant((long)9),COleVariant(m_zong));
range.SetItem(COleVariant((long)26),COleVariant((long)1),COleVariant("T峰"));
range.SetItem(COleVariant((long)26),COleVariant((long)2),COleVariant("峰值时间"));
range.SetItem(COleVariant((long)26),COleVariant((long)4),COleVariant("min"));
range.SetItem(COleVariant((long)26),COleVariant((long)5),COleVariant(t_feng));
//range.SetItem(COleVariant((long)24),COleVariant((long)9),COleVariant(m_zong));
range.SetItem(COleVariant((long)28),COleVariant((long)1),COleVariant("S峰"));
range.SetItem(COleVariant((long)28),COleVariant((long)2),COleVariant("峰值用水速度"));
range.SetItem(COleVariant((long)28),COleVariant((long)4),COleVariant("kg/min"));
range.SetItem(COleVariant((long)28),COleVariant((long)5),COleVariant("S峰＝M峰／T峰"));
range.SetItem(COleVariant((long)28),COleVariant((long)9),COleVariant(s_feng));
range.SetItem(COleVariant((long)30),COleVariant((long)1),COleVariant("M补"));
range.SetItem(COleVariant((long)30),COleVariant((long)2),COleVariant("峰值补水量"));
range.SetItem(COleVariant((long)30),COleVariant((long)4),COleVariant("kg"));
//range.SetItem(COleVariant((long)28),COleVariant((long)5),COleVariant("M总=N(个)×P(L/人)"));
range.SetItem(COleVariant((long)30),COleVariant((long)9),COleVariant(m_bu));
range.SetItem(COleVariant((long)32),COleVariant((long)1),COleVariant("S补"));
range.SetItem(COleVariant((long)32),COleVariant((long)2),COleVariant("峰值补水速度"));
range.SetItem(COleVariant((long)32),COleVariant((long)4),COleVariant("kg/min"));
//range.SetItem(COleVariant((long)30),COleVariant((long)5),COleVariant("M总=N(个)×P(L/人)"));
range.SetItem(COleVariant((long)32),COleVariant((long)9),COleVariant(s_bu));
range.SetItem(COleVariant((long)34),COleVariant((long)1),COleVariant("L1"));
range.SetItem(COleVariant((long)34),COleVariant((long)2),COleVariant("上1水位"));
//range.SetItem(COleVariant((long)32),COleVariant((long)4),COleVariant("min"));
m_str[5].Format("%f",m_a1);
range.SetItem(COleVariant((long)34),COleVariant((long)5),COleVariant(m_str[5]));
range.SetItem(COleVariant((long)36),COleVariant((long)1),COleVariant("L2"));
range.SetItem(COleVariant((long)36),COleVariant((long)2),COleVariant("上2水位"));
//range.SetItem(COleVariant((long)34),COleVariant((long)4),COleVariant("min"));
m_str[5].Format("%f",m_a2);
range.SetItem(COleVariant((long)36),COleVariant((long)5),COleVariant(m_str[5]));
range.SetItem(COleVariant((long)38),COleVariant((long)1),COleVariant("L3"));
range.SetItem(COleVariant((long)38),COleVariant((long)2),COleVariant("上3水位"));
//range.SetItem(COleVariant((long)36),COleVariant((long)4),COleVariant("min"));
m_str[5].Format("%f",m_a3);
range.SetItem(COleVariant((long)38),COleVariant((long)5),COleVariant(m_str[5]));
range.SetItem(COleVariant((long)40),COleVariant((long)1),COleVariant("L4"));
range.SetItem(COleVariant((long)40),COleVariant((long)2),COleVariant("上4水位"));
//range.SetItem(COleVariant((long)38),COleVariant((long)4),COleVariant("min"));
m_str[5].Format("%f",m_a4);
range.SetItem(COleVariant((long)40),COleVariant((long)5),COleVariant(m_str[5]));