1002 lines
33 KiB
C++
1002 lines
33 KiB
C++
// MostuseHeatWaterCalcDlg.cpp : implementation file
|
||
//
|
||
|
||
#include "stdafx.h"
|
||
#include "MostuseHeatWaterCalcDlg.h"
|
||
#include <MSWORD8.h>
|
||
#include "TWordFormulasTemplet.h"
|
||
#include "TwtDef.h"
|
||
#include "TelDef.h"
|
||
|
||
#ifdef _DEBUG
|
||
#define new DEBUG_NEW
|
||
#undef THIS_FILE
|
||
static char THIS_FILE[] = __FILE__;
|
||
#endif
|
||
|
||
|
||
void MostUseHeatWaterCalc()
|
||
{
|
||
CTemporaryResourceOverride vTemp;
|
||
CMostuseHeatWaterCalcDlg dlg;
|
||
dlg.DoModal();
|
||
}
|
||
|
||
|
||
CMostuseHeatWaterGird::CMostuseHeatWaterGird()
|
||
{
|
||
m_pLstUnit = NULL;
|
||
}
|
||
|
||
CMostuseHeatWaterGird::~CMostuseHeatWaterGird()
|
||
{
|
||
|
||
}
|
||
|
||
bool CMostuseHeatWaterGird::OnModified(WDGridCell&cell,CString &text)
|
||
{
|
||
long nCol = GetCurRowIndex();
|
||
if (m_nType == 0) // 全日供应
|
||
{
|
||
if (cell.GetCol().GetIndex() == 3)
|
||
{
|
||
int nNum = _ttoi(text);
|
||
if (nCol != -1 && nCol < m_pLstUnit->Length())
|
||
{
|
||
(*m_pLstUnit)[nCol]->m_iNum = nNum;
|
||
}
|
||
}
|
||
}
|
||
else // 定时供应
|
||
{
|
||
if (cell.GetCol().GetIndex() == 3)
|
||
{
|
||
int nNum = _ttoi(text);
|
||
if (nCol != -1 && nCol < m_pLstUnit->Length())
|
||
{
|
||
(*m_pLstUnit)[nCol]->m_iNum = nNum;
|
||
}
|
||
}
|
||
else if (cell.GetCol().GetIndex() == 4)
|
||
{
|
||
double dVal = _tstof(text);
|
||
if (nCol != -1 && nCol < m_pLstUnit->Length())
|
||
{
|
||
(*m_pLstUnit)[nCol]->m_nFactor = dVal;
|
||
}
|
||
}
|
||
}
|
||
return true;
|
||
}
|
||
|
||
/////////////////////////////////////////////////////////////////////////////
|
||
// CMostuseHeatWaterCalcDlg dialog
|
||
|
||
|
||
CMostuseHeatWaterCalcDlg::CMostuseHeatWaterCalcDlg(CWnd* pParent /*=NULL*/)
|
||
: CDialog(CMostuseHeatWaterCalcDlg::IDD, pParent)
|
||
{
|
||
//{{AFX_DATA_INIT(CMostuseHeatWaterCalcDlg)
|
||
m_nHeatT = 60;
|
||
m_nColdT = 10;
|
||
m_csRet = _T("");
|
||
m_iType = 0;
|
||
m_csRetW = _T("");
|
||
//}}AFX_DATA_INIT
|
||
}
|
||
|
||
|
||
void CMostuseHeatWaterCalcDlg::DoDataExchange(CDataExchange* pDX)
|
||
{
|
||
CDialog::DoDataExchange(pDX);
|
||
//{{AFX_DATA_MAP(CMostuseHeatWaterCalcDlg)
|
||
DDX_Control(pDX, IDC_LIST_ALL, m_listCtrl);
|
||
DDX_Text(pDX, IDC_EDIT_HEAT, m_nHeatT);
|
||
DDX_Text(pDX, IDC_EDIT_COLD, m_nColdT);
|
||
DDX_Text(pDX, IDC_EDIT_RESULT, m_csRet);
|
||
DDX_Radio(pDX, IDC_RADIO_TYPE1, m_iType);
|
||
DDX_Text(pDX, IDC_EDIT_RESULTW, m_csRetW);
|
||
//}}AFX_DATA_MAP
|
||
}
|
||
|
||
|
||
BEGIN_MESSAGE_MAP(CMostuseHeatWaterCalcDlg, CDialog)
|
||
//{{AFX_MSG_MAP(CMostuseHeatWaterCalcDlg)
|
||
ON_BN_CLICKED(IDC_BUTTON_ADD, OnButtonAdd)
|
||
// ON_MESSAGE(WM_LISTEDIT_INPUTOK, OnEditInputOk) // cet 2010.7.7 del 更换控件
|
||
ON_BN_CLICKED(IDC_BUTTON_DEL, OnButtonDel)
|
||
ON_BN_CLICKED(IDC_RADIO_TYPE1, OnRadioType1)
|
||
ON_BN_CLICKED(IDC_RADIO_TYPE2, OnRadioType2)
|
||
ON_BN_CLICKED(IDC_BUTTON_HELP, OnButtonHelp)
|
||
ON_BN_CLICKED(IDC_BUTTON_WORD, OnButtonWord)
|
||
//}}AFX_MSG_MAP
|
||
END_MESSAGE_MAP()
|
||
|
||
/////////////////////////////////////////////////////////////////////////////
|
||
// CMostuseHeatWaterCalcDlg message handlers
|
||
|
||
BOOL CMostuseHeatWaterCalcDlg::OnInitDialog()
|
||
{
|
||
CDialog::OnInitDialog();
|
||
|
||
// cet 2010.7.7 del 更改控件
|
||
// m_listCtrl.SetExtendedStyle(LVS_EX_GRIDLINES | LVS_EX_FULLROWSELECT);
|
||
// m_listCtrl.SetItemControl(EDITBOX, 3);
|
||
//
|
||
// if(m_iType == 1){
|
||
// m_listCtrl.SetItemControl(EDITBOX, 4); // cet 2010.7.2 add
|
||
// m_listCtrl.InsertColumn ( 0, _T("用水部位名称"), LVCFMT_LEFT, 200 );
|
||
// m_listCtrl.InsertColumn ( 1, _T("小时水量(L)"), LVCFMT_LEFT, 80 );
|
||
// m_listCtrl.InsertColumn ( 2, _T("水温(℃)"), LVCFMT_LEFT, 60 );
|
||
// m_listCtrl.InsertColumn ( 3, _T("数量"), LVCFMT_LEFT, 60 );
|
||
// m_listCtrl.InsertColumn ( 4, _T("同时百分数"), LVCFMT_LEFT, 75 );
|
||
// }
|
||
// else{
|
||
// m_listCtrl.InsertColumn ( 0, _T("建筑物名称"), LVCFMT_LEFT, 200 );
|
||
// m_listCtrl.InsertColumn ( 1, _T("最高日用水定额(L)"), LVCFMT_LEFT, 120 );
|
||
// m_listCtrl.InsertColumn ( 2, _T("使用时间"), LVCFMT_LEFT, 60 );
|
||
// m_listCtrl.InsertColumn ( 3, _T("数量"), LVCFMT_LEFT, 60 );
|
||
// m_listCtrl.InsertColumn ( 4, _T("单位"), LVCFMT_LEFT, 80 );
|
||
// }
|
||
//
|
||
// m_listCtrl.MapControlsForSubItems();
|
||
|
||
// cet 2010.7.7 add
|
||
CRect rect;
|
||
m_listCtrl.GetWindowRect(&rect);
|
||
ScreenToClient(&rect);
|
||
|
||
m_listCtrl.Clear();
|
||
m_listCtrl.Create(this, IDC_LIST_ALL);
|
||
|
||
m_listCtrl.SetNoDefaultMenu();
|
||
m_listCtrl.SetNoAppendButton();
|
||
|
||
long nWidth = rect.Width() / 7;
|
||
COLORREF color = RGB(255,0,0);
|
||
if (m_iType == 1)
|
||
{
|
||
m_listCtrl.AppendCol(_T("用水部位名称"), 3 * nWidth);
|
||
m_listCtrl.AppendCol(_T("小时水量(L)"), nWidth );
|
||
m_listCtrl.AppendCol(_T("水温(℃)"), nWidth);
|
||
m_listCtrl.AppendCol(_T("数量"), nWidth);
|
||
m_listCtrl.AppendCol(_T("同时百分数"), nWidth);
|
||
m_listCtrl.GetCol(0).SetReadOnly();
|
||
m_listCtrl.GetCol(1).SetReadOnly();
|
||
m_listCtrl.GetCol(2).SetReadOnly();
|
||
m_listCtrl.GetCol(3).SetTextColor(color);
|
||
m_listCtrl.GetCol(4).SetTextColor(color);
|
||
}
|
||
else
|
||
{
|
||
m_listCtrl.AppendCol(_T("建筑物名称"), 3 * nWidth);
|
||
m_listCtrl.AppendCol(_T("最高日用水定额(L)"), nWidth );
|
||
m_listCtrl.AppendCol(_T("使用时间"), nWidth);
|
||
m_listCtrl.AppendCol(_T("数量"), nWidth);
|
||
m_listCtrl.AppendCol(_T("单位"), nWidth);
|
||
m_listCtrl.GetCol(0).SetReadOnly();
|
||
m_listCtrl.GetCol(1).SetReadOnly();
|
||
m_listCtrl.GetCol(2).SetReadOnly();
|
||
m_listCtrl.GetCol(4).SetReadOnly();
|
||
m_listCtrl.GetCol(3).SetTextColor(color);
|
||
}
|
||
m_listCtrl.GetCol(0).SetCenterAlign();
|
||
m_listCtrl.GetCol(1).SetCenterAlign();
|
||
m_listCtrl.GetCol(2).SetCenterAlign();
|
||
m_listCtrl.GetCol(3).SetCenterAlign();
|
||
m_listCtrl.GetCol(4).SetCenterAlign();
|
||
m_listCtrl.FitLastCol();
|
||
m_listCtrl.SetLst(&m_lstUnit);
|
||
m_listCtrl.SetType(m_iType);
|
||
|
||
return TRUE; // return TRUE unless you set the focus to a control
|
||
// EXCEPTION: OCX Property Pages should return FALSE
|
||
}
|
||
|
||
void CMostuseHeatWaterCalcDlg::ResetList()
|
||
{
|
||
UpdateData();
|
||
|
||
// m_listCtrl.DeleteAllItems(); // cet 2010.7.7 del
|
||
m_listCtrl.Clear(); // cet 2010.7.7 add
|
||
int len = m_lstUnit.Length();
|
||
if(len <=0)
|
||
return;
|
||
double nCalc(0);
|
||
for(int i=0;i<len;i++){
|
||
SUseUnitData *pData = m_lstUnit[i];
|
||
CString csFactor, csTime, csStdUse, csNum;
|
||
csFactor.Format(_T("%.2f"), pData->m_nFactor);
|
||
csTime.Format(_T("%.1f"), pData->m_nTime);
|
||
csStdUse.Format(_T("%.2f"), pData->m_nStdUse);
|
||
csNum.Format(_T("%d"), pData->m_iNum);
|
||
|
||
// cet 2010.7.7 del 更换控件
|
||
// m_listCtrl.InsertItem ( i, pData->m_csName, 0 );
|
||
// m_listCtrl.SetItemText ( i, 1, csStdUse);
|
||
// m_listCtrl.SetItemText ( i, 2, csTime);
|
||
// m_listCtrl.SetItemText ( i, 3, csNum);
|
||
// if(m_iType == 0)
|
||
// m_listCtrl.SetItemText ( i, 4, pData->m_csUnit);
|
||
// else
|
||
// m_listCtrl.SetItemText ( i, 4, csFactor);
|
||
|
||
// cet 2010.7.7 add
|
||
m_listCtrl.AppendRow();
|
||
m_listCtrl.GetCell(i, 0).SetText(pData->m_csName);
|
||
m_listCtrl.GetCell(i, 1).SetText(csStdUse);
|
||
m_listCtrl.GetCell(i, 2).SetText(csTime);
|
||
m_listCtrl.GetCell(i, 3).SetText(csNum);
|
||
if (m_iType == 0)
|
||
{
|
||
m_listCtrl.GetCell(i, 4).SetText(pData->m_csUnit);
|
||
}
|
||
else
|
||
{
|
||
m_listCtrl.GetCell(i, 4).SetText(csFactor);
|
||
}
|
||
|
||
if(m_iType == 1)
|
||
// nCalc = nCalc + pData->m_nStdUse*(pData->m_nTime - m_nColdT)*0.9832 * pData->m_iNum*pData->m_nFactor*4187/3600; // cet 2010.7.2 del
|
||
nCalc = nCalc + pData->m_nStdUse*(pData->m_nTime - m_nColdT)*0.9832 * pData->m_iNum*pData->m_nFactor*4.187;
|
||
else{
|
||
double k(1);
|
||
// cet 2010.7.1 del
|
||
// if(pData->m_csName.Find(_T("住宅")) > -1 || pData->m_csName.Find(_T("别墅")) > -1){
|
||
// if(pData->m_iNum <= 100)
|
||
// k = 5.12;
|
||
// else if(pData->m_iNum <= 150)
|
||
// k = 4.49;
|
||
// else if(pData->m_iNum <= 200)
|
||
// k = 4.13;
|
||
// else if(pData->m_iNum <= 250)
|
||
// k = 3.88;
|
||
// else if(pData->m_iNum <= 300)
|
||
// k = 3.7;
|
||
// else if(pData->m_iNum <= 500)
|
||
// k = 3.28;
|
||
// else if(pData->m_iNum <= 1000)
|
||
// k = 2.86;
|
||
// else if(pData->m_iNum <= 3000)
|
||
// k = 2.48;
|
||
// else if(pData->m_iNum > 3000)
|
||
// k = 2.34;
|
||
// }
|
||
// else if(pData->m_csName.Find(_T("宾馆客房：旅客")) > -1
|
||
// || pData->m_csName.Find(_T("养老院")) > -1
|
||
// || pData->m_csName.Find(_T("幼儿园、托儿所：有住宿")) > -1
|
||
// || pData->m_csName.Find(_T("集体宿舍")) > -1 ){
|
||
// if(pData->m_iNum <= 150)
|
||
// k = 6.84;
|
||
// else if(pData->m_iNum <= 300)
|
||
// k = 5.61;
|
||
// else if(pData->m_iNum <= 450)
|
||
// k = 4.97;
|
||
// else if(pData->m_iNum <= 600)
|
||
// k = 4.58;
|
||
// else if(pData->m_iNum <= 900)
|
||
// k = 4.19;
|
||
// else if(pData->m_iNum > 900)
|
||
// k = 3.9;
|
||
// }
|
||
// else if(pData->m_csName.Find(_T("医院")) > -1 && pData->m_csUnit.Find(_T("床位")) > -1){
|
||
// if(pData->m_iNum <= 50)
|
||
// k = 4.55;
|
||
// else if(pData->m_iNum <= 75)
|
||
// k = 3.78;
|
||
// else if(pData->m_iNum <= 100)
|
||
// k = 3.54;
|
||
// else if(pData->m_iNum <= 200)
|
||
// k = 2.93;
|
||
// else if(pData->m_iNum <= 300)
|
||
// k = 2.6;
|
||
// else if(pData->m_iNum <= 500)
|
||
// k = 2.23;
|
||
// else if(pData->m_iNum > 500)
|
||
// k = 1.95;
|
||
// }
|
||
// else if(pData->m_csName.Find(_T("办公楼")) > -1)
|
||
// k = 1.3;
|
||
//
|
||
// nCalc = nCalc + k*pData->m_nStdUse*pData->m_iNum*4187*(60 - m_nColdT)*0.9832 /86400;
|
||
|
||
// cet 2010.7.1
|
||
int nNum = pData->m_iNum;
|
||
if (pData->m_csName.Find(_T("住宅")) > -1)
|
||
{
|
||
if (nNum <= 100)
|
||
{
|
||
k = 4.8;
|
||
}
|
||
else if (nNum >= 6000)
|
||
{
|
||
k = 2.75;
|
||
}
|
||
else
|
||
{
|
||
k = ((6000 - nNum) * 4.8 + (nNum - 100) * 2.75)/(6000 - 100);
|
||
}
|
||
}
|
||
else if (pData->m_csName.Find(_T("别墅")) > -1)
|
||
{
|
||
if (nNum <= 100)
|
||
{
|
||
k = 4.21;
|
||
}
|
||
else if (nNum >= 6000)
|
||
{
|
||
k = 2.47;
|
||
}
|
||
else
|
||
{
|
||
k = ((6000 - nNum) * 4.21 + (nNum - 100) * 2.47)/(6000 - 100);
|
||
}
|
||
}
|
||
else if (pData->m_csName.Find(_T("酒店式公寓")) > -1)
|
||
{
|
||
if (nNum <= 150)
|
||
{
|
||
k = 4;
|
||
}
|
||
else if (nNum >= 1200)
|
||
{
|
||
k = 2.58;
|
||
}
|
||
else
|
||
{
|
||
k = ((1200 - nNum) * 4 + (nNum - 150) * 2.58)/(1200 - 150);
|
||
}
|
||
}
|
||
else if (pData->m_csName.Find(_T("宿舍（Ⅰ类、Ⅱ类）")) > -1)
|
||
{
|
||
if (nNum <= 150)
|
||
{
|
||
k = 4.8;
|
||
}
|
||
else if (nNum >= 1200)
|
||
{
|
||
k = 3.2;
|
||
}
|
||
else
|
||
{
|
||
k = ((1200 - nNum) * 4.8 + (nNum - 150) * 3.2)/(1200 - 150);
|
||
}
|
||
}
|
||
else if (pData->m_csName.Find(_T("招待所、培训中心、普通旅馆")) > -1)
|
||
{
|
||
if (nNum <= 150)
|
||
{
|
||
k = 3.84;
|
||
}
|
||
else if (nNum >= 1200)
|
||
{
|
||
k = 3;
|
||
}
|
||
else
|
||
{
|
||
k = ((1200 - nNum) * 3.84 + (nNum - 150) * 3)/(1200 - 150);
|
||
}
|
||
}
|
||
else if (pData->m_csName.Find(_T("宾馆客房：旅客")) > -1)
|
||
{
|
||
if (nNum <= 150)
|
||
{
|
||
k = 3.33;
|
||
}
|
||
else if (nNum >= 1200)
|
||
{
|
||
k = 2.6;
|
||
}
|
||
else
|
||
{
|
||
k = ((1200 - nNum) * 3.33 + (nNum - 150) * 2.6)/(1200 - 150);
|
||
}
|
||
}
|
||
else if (pData->m_csName.Find(_T("医院")) > -1 && pData->m_csName.Find(_T("医院住院部：门诊部、诊疗所")) == -1)
|
||
{
|
||
if (nNum <= 50)
|
||
{
|
||
k = 3.63;
|
||
}
|
||
else if (nNum >= 1000)
|
||
{
|
||
k = 2.56;
|
||
}
|
||
else
|
||
{
|
||
k = ((1000 - nNum) * 3.63 + (nNum - 50) * 2.56)/(1000 - 50);
|
||
}
|
||
}
|
||
else if (pData->m_csName.Find(_T("医院住院部：门诊部、诊疗所")) > -1)
|
||
{
|
||
k = 1.2;
|
||
}
|
||
else if (pData->m_csName.Find(_T("幼儿园、托儿所：有住宿")) > -1 )
|
||
{
|
||
if (nNum <= 50)
|
||
{
|
||
k = 4.8;
|
||
}
|
||
else if (nNum >= 1000)
|
||
{
|
||
k = 3.2;
|
||
}
|
||
else
|
||
{
|
||
k = ((1000 - nNum) * 4.8 + (nNum - 50) * 3.2)/(1000 - 50);
|
||
}
|
||
}
|
||
else if (pData->m_csName.Find(_T("养老院")) > -1 )
|
||
{
|
||
if (nNum <= 50)
|
||
{
|
||
k = 3.2;
|
||
}
|
||
else if (nNum >= 1000)
|
||
{
|
||
k = 2.74;
|
||
}
|
||
else
|
||
{
|
||
k = ((1000 - nNum) * 3.2 + (nNum - 50) * 2.74)/(1000 - 50);
|
||
}
|
||
}
|
||
else if (pData->m_csName.Find(_T("公共浴室")) > -1 || pData->m_csName.Find(_T("理发室、美容院")) > -1)
|
||
{
|
||
k = 1.5;
|
||
}
|
||
else if (pData->m_csName.Find(_T("洗衣房")) > -1 || pData->m_csName.Find(_T("餐饮厅")) > -1 ||
|
||
pData->m_csName.Find(_T("办公楼")) > -1 || pData->m_csName.Find(_T("健身中心")) > -1 ||
|
||
pData->m_csName.Find(_T("会议厅")) > -1)
|
||
{
|
||
k = 1.2;
|
||
}
|
||
else if (pData->m_csName.Find(_T("体育场：运动员淋浴")) > -1)
|
||
{
|
||
k = 2.0;
|
||
}
|
||
|
||
nCalc = nCalc + k * pData->m_iNum * pData->m_nStdUse * 4.187 * (60 - m_nColdT) * 0.9832 / pData->m_nTime;
|
||
}
|
||
}
|
||
m_csRetW.Format(_T("%.2f"), nCalc);
|
||
// nCalc = nCalc / (1.163*(m_nHeatT - m_nColdT)*0.9832)/1000; // cet 2010.7.2 del
|
||
nCalc = nCalc / ((m_nHeatT - m_nColdT) * 4.187 * 0.9832); // cet 2010.7.2 add
|
||
m_csRet.Format(_T("%.2f"), nCalc);
|
||
UpdateData(FALSE);
|
||
}
|
||
|
||
|
||
void CMostuseHeatWaterCalcDlg::OnButtonAdd()
|
||
{
|
||
CTemporaryResourceOverride vTemp;
|
||
CSelUseUnitDlg dlg;
|
||
if(m_iType == 0)
|
||
dlg.m_iMode = 2;
|
||
else
|
||
dlg.m_iMode = 1;
|
||
if(dlg.DoModal() != IDOK)
|
||
return;
|
||
double nFactor(1);
|
||
if(m_iType == 1 && (dlg.m_csName.Find(_T("住宅")) > -1 || dlg.m_csName.Find(_T("医院")) > -1) && (dlg.m_csName.Find(_T("浴盆")) > -1 || dlg.m_csName.Find(_T("淋浴器")) > -1))
|
||
nFactor = 0.85;
|
||
|
||
int jjj = dlg.m_iNum;
|
||
SUseUnitData *pData = new SUseUnitData(dlg.m_csName, dlg.m_csUnit, dlg.m_iNum, dlg.m_nStdUse, nFactor, dlg.m_dTime);
|
||
m_lstUnit.Append(pData);
|
||
ResetList();
|
||
|
||
}
|
||
|
||
void CMostuseHeatWaterCalcDlg::OnButtonDel()
|
||
{
|
||
// cet 2010.7.7 del 更改控件
|
||
// POSITION pos = m_listCtrl.GetFirstSelectedItemPosition();
|
||
// if(!pos)
|
||
// return;
|
||
// int nItem = m_listCtrl.GetNextSelectedItem(pos);
|
||
|
||
// cet 2010.7.7 add
|
||
int nItem = m_listCtrl.GetCurRowIndex();
|
||
if (nItem == -1)
|
||
{
|
||
return;
|
||
}
|
||
|
||
if(nItem > (m_lstUnit.Length() - 1))
|
||
return;
|
||
m_lstUnit.Remove(nItem);
|
||
ResetList();
|
||
}
|
||
|
||
void CMostuseHeatWaterCalcDlg::OnOK()
|
||
{
|
||
ResetList();
|
||
}
|
||
|
||
// cet 2010 7.7 del 更换控件
|
||
// LRESULT CMostuseHeatWaterCalcDlg::OnEditInputOk(WPARAM wParam, LPARAM lParam)
|
||
// {
|
||
//
|
||
// DWORD dwAllTk = wParam;
|
||
// TCHAR szAlltk[256];
|
||
// _tcscpy(szAlltk, (const TCHAR*)dwAllTk);
|
||
// // cet 2010.7.2 del
|
||
// // if(_tcsicmp(szAlltk, _T("0")) == 0)
|
||
// // return TRUE;
|
||
// // int nItem = m_listCtrl.m_iCurSelctedItemIndex;
|
||
// // if(nItem < 0 || m_lstUnit.Length()==0 || nItem >= m_lstUnit.Length())
|
||
// // return TRUE;
|
||
// // m_lstUnit[nItem]->m_iNum = _ttoi(szAlltk);
|
||
//
|
||
// // cet 2010.7.2 add
|
||
// int nItem = m_listCtrl.m_iCurSelctedItemIndex;
|
||
// if(nItem < 0 || m_lstUnit.Length()==0 ||
|
||
// nItem >= m_lstUnit.Length())
|
||
// {
|
||
// return TRUE;
|
||
// }
|
||
//
|
||
// int nCol = m_listCtrl.m_iSubItem;
|
||
// if (nCol == 3) // 数量
|
||
// {
|
||
// m_lstUnit[nItem]->m_iNum = _ttoi(szAlltk);
|
||
// }
|
||
// else if (nCol == 4 && m_iType == 1) // 同时百分数
|
||
// {
|
||
// m_lstUnit[nItem]->m_nFactor = _tstof(szAlltk);
|
||
// }
|
||
//
|
||
// ResetList();
|
||
// return TRUE;
|
||
// }
|
||
|
||
|
||
void CMostuseHeatWaterCalcDlg::OnRadioType1()
|
||
{
|
||
int old = m_iType;
|
||
UpdateData(TRUE);
|
||
if(old == m_iType)
|
||
return;
|
||
|
||
// cet 2010.7.7 del 更换控件
|
||
// int nColumnCount = m_listCtrl.GetHeaderCtrl()->GetItemCount();
|
||
// for (int i=0;i < nColumnCount;i++)
|
||
// {
|
||
// m_listCtrl.DeleteColumn(0);
|
||
// }
|
||
// m_listCtrl.InsertColumn ( 0, _T("建筑物名称"), LVCFMT_LEFT, 150 );
|
||
// m_listCtrl.InsertColumn ( 1, _T("最高日用水定额(L)"), LVCFMT_LEFT, 120 );
|
||
// m_listCtrl.InsertColumn ( 2, _T("使用时间"), LVCFMT_LEFT, 75 );
|
||
// m_listCtrl.InsertColumn ( 3, _T("数量"), LVCFMT_LEFT, 60 );
|
||
// m_listCtrl.InsertColumn ( 4, _T("单位"), LVCFMT_LEFT, 80 );
|
||
// m_lstUnit.Reset();
|
||
// m_listCtrl.DeleteAllItems();
|
||
|
||
// cet 2010.7.7 add
|
||
CRect rect;
|
||
m_listCtrl.GetWindowRect(&rect);
|
||
ScreenToClient(&rect);
|
||
|
||
m_listCtrl.Clear();
|
||
long nNum = m_listCtrl.GetColNum();
|
||
for (int i = nNum - 1; i > -1; i--)
|
||
{
|
||
m_listCtrl.DelCol(i);
|
||
}
|
||
|
||
long nWidth = rect.Width() / 7;
|
||
m_listCtrl.AppendCol(_T("建筑物名称"), 3 * nWidth);
|
||
m_listCtrl.AppendCol(_T("最高日用水定额(L)"), nWidth );
|
||
m_listCtrl.AppendCol(_T("使用时间"), nWidth);
|
||
m_listCtrl.AppendCol(_T("数量"), nWidth);
|
||
m_listCtrl.AppendCol(_T("单位"), nWidth);
|
||
m_listCtrl.GetCol(0).SetReadOnly();
|
||
m_listCtrl.GetCol(1).SetReadOnly();
|
||
m_listCtrl.GetCol(2).SetReadOnly();
|
||
m_listCtrl.GetCol(3).SetReadOnly(false);
|
||
COLORREF color = RGB(255,0,0);
|
||
m_listCtrl.GetCol(3).SetTextColor(color);
|
||
m_listCtrl.GetCol(4).SetReadOnly();
|
||
m_listCtrl.GetCol(0).SetCenterAlign();
|
||
m_listCtrl.GetCol(1).SetCenterAlign();
|
||
m_listCtrl.GetCol(2).SetCenterAlign();
|
||
m_listCtrl.GetCol(3).SetCenterAlign();
|
||
m_listCtrl.GetCol(4).SetCenterAlign();
|
||
m_listCtrl.FitLastCol();
|
||
m_listCtrl.SetType(m_iType);
|
||
m_lstUnit.Reset();
|
||
}
|
||
|
||
void CMostuseHeatWaterCalcDlg::OnRadioType2()
|
||
{
|
||
int old = m_iType;
|
||
UpdateData(TRUE);
|
||
if(old == m_iType)
|
||
return;
|
||
// cet 2010.7.7 del 更换控件
|
||
// int nColumnCount = m_listCtrl.GetHeaderCtrl()->GetItemCount();
|
||
// for (int i=0;i < nColumnCount;i++)
|
||
// {
|
||
// m_listCtrl.DeleteColumn(0);
|
||
// }
|
||
// m_listCtrl.SetItemControl(EDITBOX, 4); // cet 2010.7.2 add
|
||
// m_listCtrl.InsertColumn ( 0, _T("用水部位名称"), LVCFMT_LEFT, 150 );
|
||
// m_listCtrl.InsertColumn ( 1, _T("小时水量(L)"), LVCFMT_LEFT, 80 );
|
||
// m_listCtrl.InsertColumn ( 2, _T("水温(℃)"), LVCFMT_LEFT, 60 );
|
||
// m_listCtrl.InsertColumn ( 3, _T("数量"), LVCFMT_LEFT, 60 );
|
||
// m_listCtrl.InsertColumn ( 4, _T("同时百分数"), LVCFMT_LEFT, 75 );
|
||
// m_lstUnit.Reset();
|
||
// m_listCtrl.DeleteAllItems();
|
||
|
||
// cet 2010.7.7 add
|
||
CRect rect;
|
||
m_listCtrl.GetWindowRect(&rect);
|
||
ScreenToClient(&rect);
|
||
|
||
m_listCtrl.Clear();
|
||
long nNum = m_listCtrl.GetColNum();
|
||
for (int i = nNum - 1; i > -1; i--)
|
||
{
|
||
m_listCtrl.DelCol(i);
|
||
}
|
||
|
||
long nWidth = rect.Width() / 7;
|
||
m_listCtrl.AppendCol(_T("用水部位名称"), 3 * nWidth);
|
||
m_listCtrl.AppendCol(_T("小时水量(L)"), nWidth );
|
||
m_listCtrl.AppendCol(_T("水温(℃)"), nWidth);
|
||
m_listCtrl.AppendCol(_T("数量"), nWidth);
|
||
m_listCtrl.AppendCol(_T("同时百分数"), nWidth);
|
||
m_listCtrl.GetCol(0).SetReadOnly();
|
||
m_listCtrl.GetCol(1).SetReadOnly();
|
||
m_listCtrl.GetCol(2).SetReadOnly();
|
||
m_listCtrl.GetCol(3).SetReadOnly(false);
|
||
m_listCtrl.GetCol(4).SetReadOnly(false);
|
||
COLORREF color = RGB(255,0,0);
|
||
m_listCtrl.GetCol(3).SetTextColor(color);
|
||
m_listCtrl.GetCol(4).SetTextColor(color);
|
||
m_listCtrl.GetCol(0).SetCenterAlign();
|
||
m_listCtrl.GetCol(1).SetCenterAlign();
|
||
m_listCtrl.GetCol(2).SetCenterAlign();
|
||
m_listCtrl.GetCol(3).SetCenterAlign();
|
||
m_listCtrl.GetCol(4).SetCenterAlign();
|
||
m_listCtrl.FitLastCol();
|
||
m_listCtrl.SetType(m_iType);
|
||
m_lstUnit.Reset();
|
||
}
|
||
|
||
void CMostuseHeatWaterCalcDlg::OnButtonHelp()
|
||
{
|
||
CString csPrompt;
|
||
csPrompt = _T("冷水计算温度，应以当地最冷月平均水温资料确定。\n\n");
|
||
csPrompt = csPrompt + _T("1：黑龙江、吉林、内蒙古的全部，辽宁的大部分，\n河北、山西、陕西偏北部分，宁夏偏东部分\n");
|
||
csPrompt = csPrompt + _T("地面水温度: 4℃ 地下水温度 6～10℃\n\n");
|
||
csPrompt = csPrompt + _T("2：北京、天津、山东全部，河北、山西、陕西大部分，\n河北北部，甘肃、宁夏、辽宁的南部，青海偏东和江苏偏北的一小部分\n");
|
||
csPrompt = csPrompt + _T("地面水温度: 4℃ 地下水温度 10～15℃\n\n");
|
||
csPrompt = csPrompt + _T("3：上海、浙江全部，江西、安徽、江苏的大部分，\n福建北部，湖南、湖北东部，河南南部\n");
|
||
csPrompt = csPrompt + _T("地面水温度: 5℃ 地下水温度 15～20℃\n\n");
|
||
csPrompt = csPrompt + _T("4：广东、台湾全部，广西大部分，福建、云南的南部\n");
|
||
csPrompt = csPrompt + _T("地面水温度: 10～15℃ 地下水温度 20℃\n\n");
|
||
csPrompt = csPrompt + _T("5：重庆、贵州全部，四川、云南的大部分，湖南、湖北的西部，\n陕西和甘肃秦岭以南地区，广西偏北的一小部分\n");
|
||
csPrompt = csPrompt + _T("地面水温度: 7℃ 地下水温度 15～20℃\n");
|
||
|
||
MessageBox(csPrompt);
|
||
}
|
||
|
||
void CMostuseHeatWaterCalcDlg::OnButtonWord()
|
||
{
|
||
UpdateData();
|
||
int len = m_lstUnit.Length();
|
||
if(len <=0)
|
||
return;
|
||
//初始化
|
||
COleVariant vtOptional((long)DISP_E_PARAMNOTFOUND,VT_ERROR), vtTrue((short)TRUE), vtFalse((short)FALSE);
|
||
_Application wordApplication;
|
||
Documents wordDocuments;
|
||
_Document activeDocument;
|
||
Paragraphs wordParagraphs;
|
||
Selection wordSelection;
|
||
|
||
if (!wordApplication.CreateDispatch(_T("Word.Application")))
|
||
{
|
||
AfxMessageBox(_T("不能执行Microsoft Word 8.0!"));
|
||
return;
|
||
}
|
||
|
||
// cet 2010.7.2 add 打开公式模板
|
||
TWordFormulasTemplet wdFormula;
|
||
CString sPathName = g_csSysPath;
|
||
sPathName += _T("formula.doc");
|
||
if (!wdFormula.OpenWordFormulasTempletFile(sPathName))
|
||
{
|
||
return;
|
||
}
|
||
|
||
wordApplication.SetVisible(TRUE);
|
||
wordDocuments = wordApplication.GetDocuments();
|
||
activeDocument = wordDocuments.Add(vtOptional,vtOptional);
|
||
|
||
|
||
//写一行字
|
||
wordSelection = wordApplication.GetSelection();
|
||
wordParagraphs = wordSelection.GetParagraphs();
|
||
wordParagraphs.SetAlignment(1); // 0: 居左 1：居中 2：居右
|
||
wordSelection.TypeText(_T("热水小时用水量计算书\n"));
|
||
wordParagraphs.SetAlignment(0); // 0: 居左 1：居中 2：居右
|
||
// wordSelection.TypeText(_T("按照建筑给水排水设计规范 （GB 50015-2003）进行计算\n")); // cet 2010.7.2 del
|
||
// cet 2010.7.2 add
|
||
_Font font;
|
||
font = wordSelection.GetFont();
|
||
wordSelection.TypeText(_T("按照建筑给水排水设计规范 （GB 50015-2003）（2009年版）\n"));
|
||
|
||
if(m_iType == 0){
|
||
// cet 2010.7.2 del
|
||
// wordSelection.TypeText(_T("Qh = Kh*m*Qr*C*(Tr-Tl)*ρ/86400\n"));
|
||
// wordSelection.TypeText(_T("式中: \n"));
|
||
// wordSelection.TypeText(_T("Qh -- 设计小时耗热量（W） \n"));
|
||
// wordSelection.TypeText(_T("m -- 用水计算单位数（人数或床位数）\n"));
|
||
// wordSelection.TypeText(_T("Qr -- 热水用水定额（L/人·d）\n"));
|
||
// wordSelection.TypeText(_T("C -- 水的比热 4187（J/Kg·℃\n"));
|
||
// wordSelection.TypeText(_T("Tr -- 热水温度，Tr ＝ 60℃\n"));
|
||
// wordSelection.TypeText((const TCHAR*)XString(_T("Tl -- 冷水温度，Tl = %.0f℃\n"), m_nColdT));
|
||
// wordSelection.TypeText(_T("ρ -- 热水密度（kg/L） ρ＝0.9832 \n"));
|
||
// wordSelection.TypeText(_T("Kh -- 小时变化系数\n\n"));
|
||
|
||
// cet 2010.7.2 add
|
||
wordSelection.TypeText(_T(" "));
|
||
wdFormula.InsertFormula(7, wordSelection);
|
||
wordSelection.TypeText(_T("\n式中: "));
|
||
wordSelection.TypeText(_T("Q"));
|
||
font.SetSubscript(2); //处理下标
|
||
wordSelection.TypeText(_T("h"));
|
||
font.SetSubscript(0);
|
||
wordSelection.TypeText(_T(" -- 设计小时耗热量（KJ/h）；\n"));
|
||
wordSelection.TypeText(_T(" m -- 用水计算单位数（人数或床位数）；\n"));
|
||
wordSelection.TypeText(_T(" q"));
|
||
font.SetSubscript(2); //处理下标
|
||
wordSelection.TypeText(_T("r"));
|
||
font.SetSubscript(0);
|
||
wordSelection.TypeText(_T(" -- 热水用水定额（L/人·d或L/床·d）；\n"));
|
||
wordSelection.TypeText(_T(" C -- 水的比热 ，C=4.187（KJ/kg·℃）；\n"));
|
||
wordSelection.TypeText(_T(" t"));
|
||
font.SetSubscript(2); //处理下标
|
||
wordSelection.TypeText(_T("r"));
|
||
font.SetSubscript(0);
|
||
wordSelection.TypeText(_T(" -- 热水温度，"));
|
||
wordSelection.TypeText(_T("t"));
|
||
font.SetSubscript(2); //处理下标
|
||
wordSelection.TypeText(_T("r"));
|
||
font.SetSubscript(0);
|
||
wordSelection.TypeText(_T("=60℃\n"));
|
||
wordSelection.TypeText(_T(" t"));
|
||
font.SetSubscript(2); //处理下标
|
||
wordSelection.TypeText(_T("l"));
|
||
font.SetSubscript(0);
|
||
wordSelection.TypeText(_T(" -- 冷水温度，"));
|
||
wordSelection.TypeText(_T("t"));
|
||
font.SetSubscript(2); //处理下标
|
||
wordSelection.TypeText(_T("l"));
|
||
font.SetSubscript(0);
|
||
CString strText;
|
||
strText.Format(_T("=%.3f"), m_nColdT);
|
||
strText.TrimRight(_T("0"));
|
||
strText.TrimRight(_T("."));
|
||
strText += _T("℃；\n");
|
||
wordSelection.TypeText(strText);
|
||
wordSelection.TypeText(_T(" ρ"));
|
||
font.SetSubscript(2); //处理下标
|
||
wordSelection.TypeText(_T("r"));
|
||
font.SetSubscript(0);
|
||
wordSelection.TypeText(_T(" -- 热水密度（kg/L），"));
|
||
wordSelection.TypeText(_T("ρ"));
|
||
font.SetSubscript(2); //处理下标
|
||
wordSelection.TypeText(_T("r"));
|
||
font.SetSubscript(0);
|
||
wordSelection.TypeText(_T("＝0.9832； \n"));
|
||
wordSelection.TypeText(_T(" T -- 每日使用时间（h）；\n"));
|
||
wordSelection.TypeText(_T(" K"));
|
||
font.SetSubscript(2); //处理下标
|
||
wordSelection.TypeText(_T("h"));
|
||
font.SetSubscript(0);
|
||
wordSelection.TypeText(_T(" -- 小时变化系数；\n\n"));
|
||
}
|
||
else{
|
||
// cet 2010.7.2 del
|
||
// wordSelection.TypeText(_T("Qh = ∑(q*(Tr-Tl)*ρ*N*b*C/3600)\n"));
|
||
// wordSelection.TypeText(_T("式中: \n"));
|
||
// wordSelection.TypeText(_T("Qh -- 设计小时耗热量（W） \n"));
|
||
// wordSelection.TypeText(_T("q -- 卫生器具热水的小时用水定额（L/h）\n"));
|
||
// wordSelection.TypeText(_T("N -- 同类型卫生器具数\n"));
|
||
// wordSelection.TypeText(_T("C -- 水的比热 4187（J/Kg·℃\n"));
|
||
// wordSelection.TypeText(_T("Tr -- 热水温度 ℃\n"));
|
||
// wordSelection.TypeText((const TCHAR*)XString(_T("Tl -- 冷水温度，Tl = %.0f℃\n"), m_nColdT));
|
||
// wordSelection.TypeText(_T("ρ -- 热水密度（kg/L） ρ＝0.9832 \n"));
|
||
// wordSelection.TypeText(_T("b -- 卫生器具的同时使用百分数：住宅、旅馆、医院、疗养院病房，卫生间浴盆或淋浴器可按70％～100％计，其它器具不计，但定时连续供水时间应不小于2h\n\n"));
|
||
|
||
// cet 2010.7.2 add
|
||
wordSelection.TypeText(_T(" "));
|
||
wdFormula.InsertFormula(8,wordSelection);
|
||
wordSelection.TypeText(_T("\n式中: "));
|
||
wordSelection.TypeText(_T("Q"));
|
||
font.SetSubscript(2); //处理下标
|
||
wordSelection.TypeText(_T("h"));
|
||
font.SetSubscript(0);
|
||
wordSelection.TypeText(_T(" -- 设计小时耗热量（KJ/h）；\n"));
|
||
wordSelection.TypeText(_T(" q"));
|
||
font.SetSubscript(2); //处理下标
|
||
wordSelection.TypeText(_T("h"));
|
||
font.SetSubscript(0);
|
||
wordSelection.TypeText(_T(" -- 卫生器具热水的小时用水定额（L/h）\n"));
|
||
wordSelection.TypeText(_T(" C -- 水的比热 4.187（KJ/kg·℃）；\n"));
|
||
wordSelection.TypeText(_T(" t"));
|
||
font.SetSubscript(2); //处理下标
|
||
wordSelection.TypeText(_T("r"));
|
||
font.SetSubscript(0);
|
||
wordSelection.TypeText(_T(" -- 热水温度 ℃；\n"));
|
||
wordSelection.TypeText(_T(" t"));
|
||
font.SetSubscript(2); //处理下标
|
||
wordSelection.TypeText(_T("l"));
|
||
font.SetSubscript(0);
|
||
wordSelection.TypeText(_T(" -- 冷水温度，"));
|
||
wordSelection.TypeText(_T("t"));
|
||
font.SetSubscript(2); //处理下标
|
||
wordSelection.TypeText(_T("l"));
|
||
font.SetSubscript(0);
|
||
CString strTemp;
|
||
strTemp.Format(_T("=%.3f"), m_nColdT);
|
||
strTemp.TrimRight(_T("0"));
|
||
strTemp.TrimRight(_T("."));
|
||
strTemp += _T("℃；\n");
|
||
wordSelection.TypeText(strTemp);
|
||
wordSelection.TypeText(_T(" ρ"));
|
||
font.SetSubscript(2); //处理下标
|
||
wordSelection.TypeText(_T("r"));
|
||
font.SetSubscript(0);
|
||
wordSelection.TypeText(_T(" -- 热水密度（kg/L）； \n"));
|
||
wordSelection.TypeText(_T(" n"));
|
||
font.SetSubscript(2); //处理下标
|
||
wordSelection.TypeText(_T("0"));
|
||
font.SetSubscript(0);
|
||
wordSelection.TypeText(_T(" -- 同类型卫生器具数；\n"));
|
||
wordSelection.TypeText(_T(" b -- 卫生器具的同时使用百分数；\n\n"));
|
||
}
|
||
// cet 2010.7.2 del
|
||
// wordSelection.TypeText(_T("Qrh = Qh / (1.163*(Tr-Tl)*ρ)\n"));
|
||
// wordSelection.TypeText(_T("式中: \n"));
|
||
// wordSelection.TypeText(_T("Qrh -- 设计小时热水量（L/h） \n"));
|
||
// wordSelection.TypeText(_T("Qh -- 设计小时耗热量（W） \n"));
|
||
// wordSelection.TypeText((const TCHAR*)XString(_T("Tr -- 设计热水温度，Tl = %.0f℃\n"), m_nHeatT));
|
||
// wordSelection.TypeText((const TCHAR*)XString(_T("Tl -- 设计冷水温度，Tl = %.0f℃\n"), m_nColdT));
|
||
// wordSelection.TypeText(_T("ρ -- 热水密度（kg/L） ρ＝0.9832 \n\n"));
|
||
|
||
// cet 2010.7.2 add
|
||
wordSelection.TypeText(_T(" "));
|
||
wdFormula.InsertFormula(9,wordSelection);
|
||
wordSelection.TypeText(_T("\n式中: "));
|
||
wordSelection.TypeText(_T("q"));
|
||
font.SetSubscript(2); //处理下标
|
||
wordSelection.TypeText(_T("rh"));
|
||
font.SetSubscript(0);
|
||
wordSelection.TypeText(_T(" -- 设计小时热水量（L/h）；\n"));
|
||
wordSelection.TypeText(_T(" Q"));
|
||
font.SetSubscript(2); //处理下标
|
||
wordSelection.TypeText(_T("h"));
|
||
font.SetSubscript(0);
|
||
wordSelection.TypeText(_T(" -- 设计小时耗热量（KJ/h）；\n"));
|
||
wordSelection.TypeText(_T(" t"));
|
||
font.SetSubscript(2); //处理下标
|
||
wordSelection.TypeText(_T("l"));
|
||
font.SetSubscript(0);
|
||
wordSelection.TypeText(_T(" -- 设计热水温度，"));
|
||
wordSelection.TypeText(_T("t"));
|
||
font.SetSubscript(2); //处理下标
|
||
wordSelection.TypeText(_T("l"));
|
||
font.SetSubscript(0);
|
||
CString strTemp;
|
||
strTemp.Format(_T("=%.3f"), m_nHeatT);
|
||
strTemp.TrimRight(_T("0"));
|
||
strTemp.TrimRight(_T("."));
|
||
strTemp += _T("℃；\n");
|
||
wordSelection.TypeText(strTemp);
|
||
wordSelection.TypeText(_T(" t"));
|
||
font.SetSubscript(2); //处理下标
|
||
wordSelection.TypeText(_T("r"));
|
||
font.SetSubscript(0);
|
||
wordSelection.TypeText(_T(" -- 设计冷水温度，"));
|
||
wordSelection.TypeText(_T("t"));
|
||
font.SetSubscript(2); //处理下标
|
||
wordSelection.TypeText(_T("r"));
|
||
font.SetSubscript(0);
|
||
strTemp.Format(_T("=%.3f"), m_nColdT);
|
||
strTemp.TrimRight(_T("0"));
|
||
strTemp.TrimRight(_T("."));
|
||
strTemp += _T("℃；\n\n");
|
||
wordSelection.TypeText(strTemp);
|
||
|
||
double nMostByDate(0), nMostByHour(0), nAverage(0);
|
||
CString csMostByDate, csMostByHour, csAverage, csPercent;
|
||
wordSelection.TypeText(_T("各用水部位统计结果如下\n"));
|
||
|
||
|
||
//画表格
|
||
int rows(len+1), columns(3);
|
||
|
||
Selection wSelection = wordApplication.GetSelection();
|
||
Range oRange = wSelection.GetRange();
|
||
Tables oTables = activeDocument.GetTables();
|
||
_Table oTable = oTables.Add(oRange, rows, columns);
|
||
// cet 2010.3.25 add
|
||
Borders oBorders = oTable.GetBorders();
|
||
oBorders.SetInsideLineStyle(1); // 设置表格线型
|
||
oBorders.SetOutsideLineStyle(1);
|
||
|
||
Columns oColumns;
|
||
Column oColumn;
|
||
oColumns = oTable.GetColumns();
|
||
oColumn = oColumns.Item(1);
|
||
oColumn.SetWidth(190, 0); // 0 = wdAdjustNone
|
||
oColumn = oColumns.Item(2);
|
||
oColumn.SetWidth(85, 0);
|
||
oColumn = oColumns.Item(3);
|
||
oColumn.SetWidth(85, 0);
|
||
|
||
|
||
|
||
Cell oCell;
|
||
oCell = oTable.Cell(1, 1);
|
||
oRange = oCell.GetRange();
|
||
oRange.InsertAfter(_T("用水部位"));
|
||
|
||
oCell = oTable.Cell(1, 2);
|
||
oRange = oCell.GetRange();
|
||
oRange.InsertAfter(_T("用水标准"));
|
||
|
||
|
||
oCell = oTable.Cell(1, 3);
|
||
oRange = oCell.GetRange();
|
||
oRange.InsertAfter(_T("数量"));
|
||
|
||
|
||
for(int i=1;i<len+1;i++){
|
||
SUseUnitData *pData = m_lstUnit[i-1];
|
||
CString csStdUse, csNum;
|
||
csStdUse.Format(_T("%.2f"), pData->m_nStdUse);
|
||
csNum.Format(_T("%d"), pData->m_iNum);
|
||
oCell = oTable.Cell(i+1, 1);
|
||
oRange = oCell.GetRange();
|
||
oRange.InsertAfter(pData->m_csName);
|
||
|
||
oCell = oTable.Cell(i+1, 2);
|
||
oRange = oCell.GetRange();
|
||
oRange.InsertAfter(csStdUse);
|
||
|
||
oCell = oTable.Cell(i+1, 3);
|
||
oRange = oCell.GetRange();
|
||
oRange.InsertAfter(csNum);
|
||
}
|
||
|
||
COleVariant vtOptional2((long)DISP_E_PARAMNOTFOUND,VT_ERROR);
|
||
wordSelection = wordApplication.GetSelection();
|
||
wordSelection.GoTo(COleVariant((short)3), // 3 = wdGoToLine
|
||
COleVariant((short)-1),vtOptional2,vtOptional2); // -1 = wdGoToLast
|
||
|
||
wSelection = wordApplication.GetSelection();
|
||
wSelection.TypeParagraph();
|
||
|
||
wordSelection.TypeText(_T("总计如下\n"));
|
||
// cet 2010.7.2 del
|
||
// csPercent.Format(_T("小时用水量：%s (m3/h)\n"), m_csRet);
|
||
// wordSelection.TypeText(csPercent);
|
||
//
|
||
// csPercent.Format(_T("设计小时耗热量：%s (w)\n"), m_csRetW);
|
||
// wordSelection.TypeText(csPercent);
|
||
|
||
// cet 2010.7.2 add
|
||
csPercent.Format(_T("设计小时热水量：%s (L/h)\n"), m_csRet);
|
||
wordSelection.TypeText(csPercent);
|
||
csPercent.Format(_T("设计小时耗热量：%s (KJ/h)\n"), m_csRetW);
|
||
wordSelection.TypeText(csPercent);
|
||
wdFormula.CloseFile();
|
||
|
||
}
|