// Rsp2DTd.cpp: implementation of the CRsp2DTd class. // ////////////////////////////////////////////////////////////////////// #include "geomative.h" #include "TdChannel.h" #include "Rsp2DTd.h" #include "Markup.h" #include "optgddlg.h" #include "SaveInRes.h" #include "opexec2drsptestsetdlg.h" #include "RSP2DTdRecord.h" #include "excel.h" #include "Disp2DRSPGrapDlg.h" #include "disptdrecsplinesgrapdlg.h" #include "OperTxtFile.h" #include "OperMediumPt.h" #include "GetProcessInfo.h" #include "OperUrfFile.h" #include #ifdef _DEBUG #undef THIS_FILE static char THIS_FILE[]=__FILE__; #define new DEBUG_NEW #endif using namespace excel9; extern int g_iLanguage; extern BOOL GetSubStringInHeadAndTail(const CString& szSource, CString& szSub, const CString& szHead, const CString& szTail); extern void SplitterString(CStringArray &szArray,const CString& szSource, const CString& szSplitter); extern CString GetGrCodeText(int iCode); extern int g_iUILanguage; extern int g_UIOffset; extern CGeoMativeApp theApp; ////////////////////////////////////////////////////////////////////// // Construction/Destruction ////////////////////////////////////////////////////////////////////// extern HHOOK hHook; extern LRESULT __stdcall CBTHookProc(long nCode, WPARAM wParam, LPARAM lParam); typedef struct ST_ELECTRODE_COORDINATES { UINT32 uiElecID; float fX; float fY; float fZ; ST_ELECTRODE_COORDINATES() { memset(this, 0, sizeof(ST_ELECTRODE_COORDINATES)); } }STElectrodeCoordinates; CRsp2DTd::CRsp2DTd(DWORD dwID, _ConnectionPtr& pConnection):CTestingData(dwID, pConnection) { m_iStartPole = 1; m_iEndPole = 1; } CRsp2DTd::~CRsp2DTd() { ClearTdChaList(); } /* bool CRsp2DTd::ShowDetailInfo(CListCtrl &tdDetailList) { _RecordsetPtr pRecTd = NULL; _RecordsetPtr pRecTdHead = NULL; _RecordsetPtr pRecDev = NULL; _RecordsetPtr pRecPara = NULL; _RecordsetPtr pRecCm = NULL; CString szSql; CString szLabel; int iRowIndex = (int)VAL_ZERO; while (tdDetailList.GetItemCount() != iRowIndex) { tdDetailList.SetItemText(iRowIndex, 1, _T("")); iRowIndex++; } pRecTd.CreateInstance(_uuidof(Recordset)); pRecTdHead.CreateInstance(_uuidof(Recordset)); pRecDev.CreateInstance(_uuidof(Recordset)); pRecPara.CreateInstance(_uuidof(Recordset)); pRecCm.CreateInstance(_uuidof(Recordset)); szSql.Empty(); szSql.Format(_T("select ID,TDname,Tlocation,DESN,SCCN,Sname,Stype,Ttype,Tmode,Eamount,TPamount,CHamount,N,TRwave,TRfrequency,Ifrequency,SAfrequency,Clayout,Espace,Edistance,weather,WDIR," "temperature,height,humidity,Format(Cdate,'YYYY-MM-DD') as Cdate,Format(Ctime,'HH:MM:SS') as Ctime,Format(Tdate,'YYYY-MM-DD') as Tdate,Format(Ttime,'HH:MM:SS') as Ttime," "Rdirection,CRtime,IIf(IsNull(PM),'',PM) as PM,IIf(IsNull(OP),'',OP) as OP,IIf(IsNull(QA),'',QA) as QA from td where ID = %u"), m_dwID); pRecTd->Open(szSql.AllocSysString(), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText); if ((long)VAL_ZERO != pRecTd->GetRecordCount()) { tdDetailList.SetItemText(0, 1, (LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("TDname"))); // tdDetailList.SetItemText(1, 1, (LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("Tlocation"))); tdDetailList.SetItemText(1, 1, (LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("DESN"))); // tdDetailList.SetItemText(2, 1, (LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("SCCN"))); tdDetailList.SetItemText(2, 1, (LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("Sname"))); szSql.Empty(); szSql.Format(_T("select Clabel from cm where Cname = 'Stype' and Lang = %d and Cvalue = %s"), g_iLanguage, pRecTd->GetCollect(_T("Stype")).vt == VT_NULL ? _T("-1") : (LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("Stype"))); pRecCm->Open(szSql.AllocSysString(), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText); if ((long)VAL_ZERO != pRecCm->GetRecordCount()) { tdDetailList.SetItemText(3, 1, (LPCTSTR)(_bstr_t)pRecCm->GetCollect(_T("Clabel"))); } pRecCm->Close(); szSql.Empty(); szSql.Format(_T("select Clabel from cm where Cname = 'Ttype' and Lang = %d and Cvalue = %s"), g_iLanguage, pRecTd->GetCollect(_T("Ttype")).vt == VT_NULL ? _T("-1") : (LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("Ttype"))); pRecCm->Open(szSql.AllocSysString(), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText); if ((long)VAL_ZERO != pRecCm->GetRecordCount()) { tdDetailList.SetItemText(4, 1, (LPCTSTR)(_bstr_t)pRecCm->GetCollect(_T("Clabel"))); } pRecCm->Close(); szSql.Empty(); szSql.Format(_T("select Clabel from cm where Cname = 'Tmode' and Lang = %d and Cvalue = %s"), g_iLanguage, pRecTd->GetCollect(_T("Tmode")).vt == VT_NULL ? _T("-1") : (LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("Tmode"))); pRecCm->Open(szSql.AllocSysString(), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText); if ((long)VAL_ZERO != pRecCm->GetRecordCount()) { // tdDetailList.SetItemText(6, 1, (LPCTSTR)(_bstr_t)pRecCm->GetCollect(_T("Clabel"))); } pRecCm->Close(); tdDetailList.SetItemText(5, 1, (LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("Eamount"))); tdDetailList.SetItemText(6, 1, (LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("TPamount"))); tdDetailList.SetItemText(7, 1, (LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("CHamount"))); tdDetailList.SetItemText(8, 1, (LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("N"))); szSql.Empty(); szSql.Format(_T("select Clabel from cm where Cname = 'TRwave' and Lang = %d and Cvalue = %s"), g_iLanguage, pRecTd->GetCollect(_T("TRwave")).vt == VT_NULL ? _T("-1") : (LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("TRwave"))); pRecCm->Open(szSql.AllocSysString(), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText); if ((long)VAL_ZERO != pRecCm->GetRecordCount()) { tdDetailList.SetItemText(9, 1, (LPCTSTR)(_bstr_t)pRecCm->GetCollect(_T("Clabel"))); } pRecCm->Close(); if ((0 == pRecTd->GetCollect(_T("Ttype")).iVal) || (1 == pRecTd->GetCollect(_T("Ttype")).iVal)) { szSql.Empty(); szSql.Format(_T("select Clabel from cm where Cname = 'Trfrequency' and Lang = %d and Cvalue = %s"), g_iLanguage, pRecTd->GetCollect(_T("Trfrequency")).vt == VT_NULL ? _T("-1") : (LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("Trfrequency"))); pRecCm->Open(szSql.AllocSysString(), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText); if ((long)VAL_ZERO != pRecCm->GetRecordCount()) { tdDetailList.SetItemText(10, 1, (LPCTSTR)(_bstr_t)pRecCm->GetCollect(_T("Clabel"))); } pRecCm->Close(); } else if (2 == pRecTd->GetCollect(_T("Ttype")).iVal) { szSql.Empty(); szSql.Format(_T("select Clabel from cm where Cname = 'Trfrequencyself' and Lang = %d and Cvalue = %s"), g_iLanguage, pRecTd->GetCollect(_T("Trfrequency")).vt == VT_NULL ? _T("-1") : (LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("Trfrequency"))); pRecCm->Open(szSql.AllocSysString(), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText); if ((long)VAL_ZERO != pRecCm->GetRecordCount()) { tdDetailList.SetItemText(10, 1, pRecCm->GetCollect(_T("Clabel")).vt == VT_NULL ? _T("") : (LPCTSTR)(_bstr_t)pRecCm->GetCollect(_T("Clabel"))); } pRecCm->Close(); } szSql.Empty(); szSql.Format(_T("select Clabel from cm where Cname = 'Ifrequency' and Lang = %d and Cvalue = %s"), g_iLanguage, pRecTd->GetCollect(_T("Ifrequency")).vt == VT_NULL ? _T("-1") : (LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("Ifrequency"))); pRecCm->Open(szSql.AllocSysString(), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText); if ((long)VAL_ZERO != pRecCm->GetRecordCount()) { tdDetailList.SetItemText(11, 1, pRecCm->GetCollect(_T("Clabel")).vt == VT_NULL ? _T("") : (LPCTSTR)(_bstr_t)pRecCm->GetCollect(_T("Clabel"))); } pRecCm->Close(); if (0 == pRecTd->GetCollect(_T("Ifrequency")).iVal) { szSql.Empty(); szSql.Format(_T("select Clabel from cm where Cname = 'SAfrequency50' and Lang = %d and Cvalue = %s"), g_iLanguage, pRecTd->GetCollect(_T("SAfrequency")).vt == VT_NULL ? _T("-1") : (LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("SAfrequency"))); pRecCm->Open(szSql.AllocSysString(), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText); if ((long)VAL_ZERO != pRecCm->GetRecordCount()) { tdDetailList.SetItemText(12, 1, pRecCm->GetCollect(_T("Clabel")).vt == VT_NULL ? _T("") : (LPCTSTR)(_bstr_t)pRecCm->GetCollect(_T("Clabel"))); } pRecCm->Close(); } else if (1 == pRecTd->GetCollect(_T("Ifrequency")).iVal) { szSql.Empty(); szSql.Format(_T("select Clabel from cm where Cname = 'SAfrequency60' and Lang = %d and Cvalue = %s"), g_iLanguage, pRecTd->GetCollect(_T("SAfrequency")).vt == VT_NULL ? _T("-1") : (LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("SAfrequency"))); pRecCm->Open(szSql.AllocSysString(), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText); if ((long)VAL_ZERO != pRecCm->GetRecordCount()) { tdDetailList.SetItemText(12, 1, (LPCTSTR)(_bstr_t)pRecCm->GetCollect(_T("Clabel"))); } pRecCm->Close(); } szSql.Empty(); szSql.Format(_T("select Clabel from cm where Cname = 'Clayout' and Lang = %d and Cvalue = %s"), g_iLanguage, pRecTd->GetCollect(_T("Clayout")).vt == VT_NULL ? _T("-1") : (LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("Clayout"))); pRecCm->Open(szSql.AllocSysString(), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText); if ((long)VAL_ZERO != pRecCm->GetRecordCount()) { tdDetailList.SetItemText(13, 1, (LPCTSTR)(_bstr_t)pRecCm->GetCollect(_T("Clabel"))); } pRecCm->Close(); // tdDetailList.SetItemText(16, 1, (LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("Espace"))); tdDetailList.SetItemText(14, 1, (LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("Edistance"))); szSql.Empty(); szSql.Format(_T("select Clabel from cm where Cname = 'weather' and Lang = %d and Cvalue = %s"), g_iLanguage, pRecTd->GetCollect(_T("weather")).vt == VT_NULL ? _T("-1") : (LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("weather"))); pRecCm->Open(szSql.AllocSysString(), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText); if ((long)VAL_ZERO != pRecCm->GetRecordCount()) { tdDetailList.SetItemText(15, 1, (LPCTSTR)(_bstr_t)pRecCm->GetCollect(_T("Clabel"))); } pRecCm->Close(); szSql.Empty(); szSql.Format(_T("select Clabel from cm where Cname = 'WDIR' and Lang = %d and Cvalue = %s"), g_iLanguage, pRecTd->GetCollect(_T("WDIR")).vt == VT_NULL ? _T("-1") : (LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("WDIR"))); pRecCm->Open(szSql.AllocSysString(), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText); if ((long)VAL_ZERO != pRecCm->GetRecordCount()) { tdDetailList.SetItemText(16, 1, (LPCTSTR)(_bstr_t)pRecCm->GetCollect(_T("Clabel"))); } pRecCm->Close(); CString szDefault = _T(""); szDefault = (LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("temperature")); if (szDefault == "-9999")//若为该值则不显示东西 { szDefault = ""; } tdDetailList.SetItemText(17, 1, szDefault); tdDetailList.SetItemText(18, 1, (LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("height"))); szDefault = (LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("humidity")); if (szDefault == "-9999")//若为该值则不显示东西 { szDefault = ""; } tdDetailList.SetItemText(19, 1, szDefault); tdDetailList.SetItemText(20, 1, (LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("Cdate"))); tdDetailList.SetItemText(21, 1, (LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("Ctime"))); tdDetailList.SetItemText(22, 1, (LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("Tdate"))); tdDetailList.SetItemText(23, 1, (LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("Ttime"))); szSql.Empty(); szSql.Format(_T("select Clabel from cm where Cname = 'Rdirection' and Lang = %d and Cvalue = %s"), g_iLanguage, pRecTd->GetCollect(_T("Rdirection")).vt == VT_NULL ? _T("-1") : (LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("Rdirection"))); pRecCm->Open(szSql.AllocSysString(), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText); if ((long)VAL_ZERO != pRecCm->GetRecordCount()) { // tdDetailList.SetItemText(27, 1, pRecCm->GetCollect(_T("Clabel")).vt == VT_NULL ? _T("") : (LPCTSTR)(_bstr_t)pRecCm->GetCollect(_T("Clabel"))); } pRecCm->Close(); // tdDetailList.SetItemText(28, 1, (LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("CRtime"))); tdDetailList.SetItemText(24, 1, (LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("PM"))); tdDetailList.SetItemText(25, 1, (LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("OP"))); tdDetailList.SetItemText(26, 1, (LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("QA"))); } pRecTd->Close(); return true; } */ bool CRsp2DTd::ShowConList(CListCtrl &tdConList) { _RecordsetPtr pRecConList = NULL; CString szSql; int iIndex = (int)VAL_ZERO; pRecConList.CreateInstance(_uuidof(Recordset)); if (VAL_ZERO != tdConList.GetItemCount()) { tdConList.DeleteAllItems(); } szSql.Empty(); szSql.Format(_T("select top %d TSN,C1,C2,P1,P2,N,K,I,V,R0,SP,bUse from td2dcon where TCHID in (select ID from tdchannel where TDID = %u order by TCHID) order by TSN"), ONE_PAGE_DATA_NUMBER, m_dwID); try { pRecConList->Open(szSql.AllocSysString(), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText); } catch (_com_error e) { hHook = SetWindowsHookEx(WH_CBT,(HOOKPROC)CBTHookProc,AfxGetInstanceHandle(),NULL); AfxMessageBox((LPCTSTR)e.Description()); } try { CString strDBVal = _T(""); float fV = 0, fI = 0, fR = 0; while ((short)VAL_ZERO == pRecConList->adoEOF) { if (pRecConList->GetCollect(_T("bUse")).boolVal != 0)//0为access数据库中的false { tdConList.InsertItem(iIndex, (LPCTSTR)(_bstr_t)pRecConList->GetCollect(_T("C1"))); tdConList.SetItemText(iIndex, 1, (LPCTSTR)(_bstr_t)pRecConList->GetCollect(_T("C2"))); tdConList.SetItemText(iIndex, 2, (LPCTSTR)(_bstr_t)pRecConList->GetCollect(_T("P1"))); tdConList.SetItemText(iIndex, 3, (LPCTSTR)(_bstr_t)pRecConList->GetCollect(_T("P2"))); tdConList.SetItemText(iIndex, 4, (LPCTSTR)(_bstr_t)pRecConList->GetCollect(_T("N"))); strDBVal.Empty(); strDBVal.Format(_T("%f"),(float)pRecConList->GetCollect(_T("K")).fltVal); tdConList.SetItemText(iIndex, 5, strDBVal); strDBVal.Empty(); strDBVal.Format(_T("%f"),(float)pRecConList->GetCollect(_T("I")).fltVal); tdConList.SetItemText(iIndex, 6, strDBVal); fI = (float)pRecConList->GetCollect(_T("I")).fltVal; strDBVal.Empty(); strDBVal.Format(_T("%f"),(float)pRecConList->GetCollect(_T("V")).fltVal); tdConList.SetItemText(iIndex, 7, strDBVal); fV = (float)pRecConList->GetCollect(_T("V")).fltVal; //添加R fR = (0 == fI) ? 0 : fV/fI; strDBVal.Empty(); strDBVal.Format(_T("%f"),fR); tdConList.SetItemText(iIndex, 8, strDBVal); strDBVal.Empty(); strDBVal.Format(_T("%f"),(float)pRecConList->GetCollect(_T("R0")).fltVal); tdConList.SetItemText(iIndex, 9, strDBVal); strDBVal.Empty(); strDBVal.Format(_T("%f"),(float)pRecConList->GetCollect(_T("SP")).fltVal); tdConList.SetItemText(iIndex, 10, strDBVal); tdConList.SetItemData(iIndex, (int)pRecConList->GetCollect(_T("TSN")).lVal); iIndex++; } pRecConList->MoveNext(); } } catch(_com_error e) { AfxMessageBox(e.Description()); } pRecConList->Close(); return true; } bool CRsp2DTd::ShowGrList(CListCtrl &tdGrList) { _RecordsetPtr pRecGrList = NULL; CString szSql = _T(""); CString szLabel = _T(""); int iIndex = (int)VAL_ZERO; pRecGrList.CreateInstance(_uuidof(Recordset)); if ((int)VAL_ZERO != tdGrList.GetItemCount()) { tdGrList.DeleteAllItems(); } szSql.Empty(); szSql.Format(_T("select Ecode,Format(Mdate,'YYYY-MM-DD') as Mdate,Format(Mtime,'HH:MM:SS') as Mtime,OMvalue,OM1value,") _T(" StatusCode, StatusCode1 from gr where TDID = %u order by Val(Ecode)"), m_dwID); pRecGrList->Open(szSql.AllocSysString(), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText); int iOMVal = -1, iOMVal1 = -1; CString strOMVal, strOMVal1; CString strMdate, strMtime; CString strStatus, strStatus1; while ((short)VAL_ZERO == pRecGrList->adoEOF) { tdGrList.InsertItem(iIndex, (LPCTSTR)(_bstr_t)pRecGrList->GetCollect(_T("Ecode"))); strOMVal.Empty(); strOMVal1.Empty(); strMdate.Empty(); strMtime.Empty(); strStatus.Empty(); strStatus1.Empty(); iOMVal = (int)pRecGrList->GetCollect(_T("OMvalue")).lVal; iOMVal1 = (int)pRecGrList->GetCollect(_T("OM1value")).lVal; if (-1 != iOMVal) { strOMVal.Format(_T("%d"),iOMVal); strMdate = (LPCTSTR)(_bstr_t)pRecGrList->GetCollect(_T("Mdate")); strMtime = (LPCTSTR)(_bstr_t)pRecGrList->GetCollect(_T("Mtime")); strStatus = GetGrCodeText((int)pRecGrList->GetCollect(_T("StatusCode")).lVal); } if (-1 != iOMVal1) { strOMVal1.Format(_T("%d"),iOMVal1); strStatus1 = GetGrCodeText((int)pRecGrList->GetCollect(_T("StatusCode1")).lVal); } tdGrList.SetItemText(iIndex, 1, strOMVal); tdGrList.SetItemText(iIndex, 2, strStatus); tdGrList.SetItemText(iIndex, 3, strOMVal1); tdGrList.SetItemText(iIndex, 4, strStatus1); tdGrList.SetItemText(iIndex, 5, strMdate); tdGrList.SetItemText(iIndex, 6, strMtime); iIndex++; pRecGrList->MoveNext(); } pRecGrList->Close(); return true; } BOOL CRsp2DTd::Save2DRSPSetInfo(COpExec2DRSPTestSetDlg* const pOpExec2DRSPTestSetDlg, CLinkList& m_medLinkList) { _RecordsetPtr pRecTdChaList = NULL; CString szSql = _T(""); CString szLbText = _T(""); CString szPro = _T(""); CString szPrCN = _T(""); CString szTzName = _T(""); CString szTzCN = _T(""); DWORD dwMedHandle = (DWORD)VAL_ZERO; int iChNum = (int)VAL_ZERO; int iSptIndex = (int)VAL_ZERO; POSITION posSpt; CTime tCT; CString szEdCon = _T(""); DWORD dwSptHandle = (DWORD)VAL_ZERO; DWORD dwSptID = (DWORD)VAL_ZERO; tCT = CTime::GetCurrentTime(); this->m_szTdName = pOpExec2DRSPTestSetDlg->m_szName; this->m_szTdCN = _T("ERIR")+tCT.FormatGmt(_T("%Y%m%d"))+tCT.FormatGmt(_T("%H%M%S")); this->m_szTLocation = pOpExec2DRSPTestSetDlg->m_szLocation; // this->m_bIsGr = pOpExec2DRSPTestSetDlg->m_ckIsGr.GetCheck(); this->m_dwID = (DWORD)VAL_ZERO; this->m_pDevice = (CDevice*)pOpExec2DRSPTestSetDlg->m_cbDESN.GetItemData(pOpExec2DRSPTestSetDlg->m_cbDESN.GetCurSel()); posSpt = pOpExec2DRSPTestSetDlg->m_op2DSptSelDlg.m_sptList.GetFirstSelectedItemPosition(); iSptIndex = pOpExec2DRSPTestSetDlg->m_op2DSptSelDlg.m_sptList.GetNextSelectedItem(posSpt); dwSptHandle = pOpExec2DRSPTestSetDlg->m_op2DSptSelDlg.m_sptList.GetItemData(iSptIndex); dwSptID = this->m_handleProcessor.GetIDFromHandle(dwSptHandle); this->m_dwSCID = dwSptID; this->m_szSCCN = pOpExec2DRSPTestSetDlg->m_op2DSptSelDlg.m_sptList.GetItemText(iSptIndex, 0); this->m_szSName = pOpExec2DRSPTestSetDlg->m_op2DSptSelDlg.m_sptList.GetItemText(iSptIndex, 1); this->m_iSType = (int)VAL_ONE; this->m_iTType = (int)VAL_ZERO; this->m_iEAmount = atoi(pOpExec2DRSPTestSetDlg->m_op2DSptSelDlg.m_sptList.GetItemText(iSptIndex, 2)); this->m_iCHAmount = atoi(pOpExec2DRSPTestSetDlg->m_op2DSptSelDlg.m_sptList.GetItemText(iSptIndex, 3)); this->m_iTPAmount = atoi(pOpExec2DRSPTestSetDlg->m_op2DSptSelDlg.m_sptList.GetItemText(iSptIndex, 4)); szPro.Empty(); pOpExec2DRSPTestSetDlg->m_cbPrName.GetLBText(pOpExec2DRSPTestSetDlg->m_cbPrName.GetCurSel(), szPro); szPrCN.Empty(); GetSubStringInHeadAndTail(szPro, szPrCN, _T("("), _T(")")); this->m_szPrCN = szPrCN; szTzName.Empty(); pOpExec2DRSPTestSetDlg->m_cbTzName.GetLBText(pOpExec2DRSPTestSetDlg->m_cbTzName.GetCurSel(), szTzName); this->m_szTzName = szTzName; szTzCN.Empty(); GetSubStringInHeadAndTail(szTzName, szTzCN, _T("("), _T(")")); this->m_szTzCN = szTzCN; this->m_dwTzID = pOpExec2DRSPTestSetDlg->m_cbTzName.GetItemData(pOpExec2DRSPTestSetDlg->m_cbTzName.GetCurSel()); this->m_iCLayout = pOpExec2DRSPTestSetDlg->m_cbCLayout.GetCurSel(); szEdCon.Empty(); pOpExec2DRSPTestSetDlg->m_edESpace.GetWindowText(szEdCon); this->m_fESpace = (float)atof(szEdCon.GetBuffer(0)); this->m_szEDistance = pOpExec2DRSPTestSetDlg->m_szEDistance; this->m_iCRtime = (int)VAL_ZERO; this->m_iRDirection = (int)VAL_ZERO; this->m_iIFrequency = pOpExec2DRSPTestSetDlg->m_iIFrequency; this->m_iSAFrequency = pOpExec2DRSPTestSetDlg->m_iSAFrequency; this->m_iTRFrequency = pOpExec2DRSPTestSetDlg->m_iTRFrenquency; this->m_fTRPeriod = pOpExec2DRSPTestSetDlg->m_fTRPeriod; this->m_iTMode = pOpExec2DRSPTestSetDlg->m_iTestMode; //在这里默认为0，因为暂时只实现了这一种的方式0+0-的方式 this->m_iTRWave = m_iTRWave; //pOpExec2DRSPTestSetDlg->m_cbTRWave.GetCurSel(); szEdCon.Empty(); pOpExec2DRSPTestSetDlg->m_edHeight.GetWindowText(szEdCon); this->m_fHeight = (float)atof(szEdCon.GetBuffer(0)); szEdCon.Empty(); pOpExec2DRSPTestSetDlg->m_edHumidity.GetWindowText(szEdCon); this->m_fHumidity = (float)atof(szEdCon.GetBuffer(0)); szEdCon.Empty(); pOpExec2DRSPTestSetDlg->m_edTemperature.GetWindowText(szEdCon); this->m_fTemperature = (float)atof(szEdCon.GetBuffer(0)); this->m_iWDIR = pOpExec2DRSPTestSetDlg->m_cbWDIR.GetCurSel(); this->m_iWeather = pOpExec2DRSPTestSetDlg->m_cbWeather.GetCurSel(); this->m_iN = (int)VAL_ONE; this->m_szCDate = tCT.FormatGmt(_T("%Y-%m-%d")); this->m_szCTime = tCT.FormatGmt(_T("%H:%M:%S")); this->m_szTDate = tCT.FormatGmt(_T("%Y-%m-%d")); this->m_szTTime = tCT.FormatGmt(_T("%H:%M:%S")); this->m_iRCamount = (int)VAL_ZERO; this->m_iRDirection = (int)VAL_ZERO; this->m_iCRtime = (int)VAL_ZERO; this->m_szOP = pOpExec2DRSPTestSetDlg->m_szOP; this->m_szPM = pOpExec2DRSPTestSetDlg->m_szPM; this->m_szQA = pOpExec2DRSPTestSetDlg->m_szQA; this->m_tdChaList.RemoveAll(); pRecTdChaList.CreateInstance(_uuidof(Recordset)); szSql.Empty(); szSql.Format(_T("select CHnumber,AR from channel where SCID = %u order by CHnumber"), this->m_dwSCID); pRecTdChaList->Open(szSql.AllocSysString(), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText); while ((short)VAL_ZERO == pRecTdChaList->adoEOF) { iChNum = pRecTdChaList->GetCollect(_T("CHnumber")).iVal; CTdChannel* pTdChannel = new CTdChannel(this->m_dwSCID, iChNum, m_pConnection); dwMedHandle = m_handleProcessor.GenerateHandle(pRecTdChaList->GetCollect(_T("AR")).iVal, PZ_STYLE_MED_DEF); pTdChannel->m_pMedium = m_medLinkList.Find(dwMedHandle); pTdChannel->m_iEAmount = this->m_iEAmount; this->m_tdChaList.AddTail((void*)pTdChannel); pRecTdChaList->MoveNext(); } pRecTdChaList->Close(); return TRUE; } BOOL CRsp2DTd::SaveHeadInfoToFile(CString& szFilePath, CString& szFileName) { CMarkup xml; CTdChannel* pTdChannel = NULL; POSITION pos; CString szCon = _T(""); CString szFile = _T(""); xml.SetDoc("\n"); xml.AddElem("measure"); xml.AddChildElem(_T("measure_name"), this->m_szTdName); xml.AddChildElem(_T("measure_location"), this->m_szTLocation); xml.AddChildElem(_T("measure_script_id"), this->m_szSCCN); xml.AddChildElem(_T("measure_script_name"), this->m_szSName); xml.AddChildElem(_T("measure_script_type"), 1); xml.AddChildElem(_T("measure_type"), 0); xml.AddChildElem(_T("measure_mode"), this->m_iTMode); xml.AddChildElem(_T("medium_set")); xml.IntoElem(); pos = this->m_tdChaList.GetHeadPosition(); while (pos != NULL) { pTdChannel = (CTdChannel*)m_tdChaList.GetNext(pos); if(pTdChannel != NULL) { szCon.Empty(); szCon.Format(_T("%d:%d"), pTdChannel->m_iChNum, pTdChannel->m_pMedium->m_iAR); xml.AddChildElem(_T("medium"), szCon); } } xml.OutOfElem(); xml.AddChildElem(_T("pole_count"), this->m_iEAmount); xml.AddChildElem(_T("pole_distance"), this->m_szEDistance); szCon.Empty(); szCon.Format(_T("%.2f"), this->m_fESpace); xml.AddChildElem(_T("pole_gap"), szCon); xml.AddChildElem(_T("rect"), _T("")); xml.AddChildElem(_T("rect_loc"), _T("")); xml.AddChildElem(_T("wires_layout"), this->m_iCLayout); xml.AddChildElem(_T("point_count"), this->m_iTPAmount); xml.AddChildElem(_T("rolling_times"), 0); xml.AddChildElem(_T("rolling_direction"), 0); xml.AddChildElem(_T("rolling_step"), _T("")); xml.AddChildElem(_T("channel_count"), this->m_iCHAmount); xml.AddChildElem(_T("iterations"), 1); xml.AddChildElem(_T("emit_source"), _T("")); xml.AddChildElem(_T("wave_shape"), this->m_iTRWave); xml.AddChildElem(_T("period"), this->m_iTRFrequency); xml.AddChildElem(_T("industrial_frequency"), this->m_iIFrequency); xml.AddChildElem(_T("sample_rate"), this->m_iSAFrequency); xml.AddChildElem(_T("sample_interval"), _T("")); xml.AddChildElem(_T("v_gain"), _T("")); xml.AddChildElem(_T("i_gain"), _T("")); szCon.Empty(); szCon.Format(_T("%.2f"), this->m_fTemperature); xml.AddChildElem(_T("temperature"), szCon); szCon.Empty(); szCon.Format(_T("%.2f"), this->m_fHeight); xml.AddChildElem(_T("height"), szCon); szCon.Empty(); szCon.Format(_T("%.2f"), this->m_fHumidity); xml.AddChildElem(_T("humidity"), szCon); xml.AddChildElem(_T("weather"), this->m_iWeather); xml.AddChildElem(_T("wind_direction"), this->m_iWDIR); xml.AddChildElem(_T("create_date"), this->m_szCDate); xml.AddChildElem(_T("create_time"), this->m_szCTime); xml.AddChildElem(_T("test_date"), this->m_szTDate); xml.AddChildElem(_T("test_time"), this->m_szTTime); xml.AddChildElem(_T("PM"), this->m_szPM); xml.AddChildElem(_T("OP"), this->m_szOP); xml.AddChildElem(_T("QA"), this->m_szQA); xml.AddChildElem(_T("apparent_chargeability")); //m0 xml.IntoElem(); xml.AddChildElem(_T("m0")); xml.AddChildElem(_T("m1")); xml.AddChildElem(_T("m2")); xml.AddChildElem(_T("m3")); xml.AddChildElem(_T("m4")); xml.AddChildElem(_T("m5")); xml.AddChildElem(_T("m6")); xml.AddChildElem(_T("m7")); xml.AddChildElem(_T("m8")); xml.AddChildElem(_T("m9")); xml.OutOfElem(); //m9 szFilePath.Empty(); szFilePath.GetBufferSetLength(2048); ::GetCurrentDirectory(2048, szFilePath.GetBuffer(szFilePath.GetLength())); szFilePath.ReleaseBuffer(); szFilePath = szFilePath + "\\CACHE\\projects\\"; szFilePath += this->m_szPrCN + "\\" + this->m_szTzCN + "\\"; szFileName.Empty(); szFileName = this->m_szTdCN + _T(".xml"); szFile.Empty(); szFile = szFilePath + szFileName; DeleteFile(szFile); xml.Save(szFile); return TRUE; } BOOL CRsp2DTd::SaveTdHeadToExcelFile(_Worksheet* const pComSheet) { Range comRange; excel9::Font comFont; Range comCols; _RecordsetPtr pRecTd = NULL; _RecordsetPtr pRecTdHead = NULL; _RecordsetPtr pRecDev = NULL; _RecordsetPtr pRecPara = NULL; _RecordsetPtr pRecCm = NULL; CString szSql; CString szLabel; int iAR = 0; int iRowIndex = (int)0; pRecTd.CreateInstance(_uuidof(Recordset)); pRecTdHead.CreateInstance(_uuidof(Recordset)); pRecDev.CreateInstance(_uuidof(Recordset)); pRecPara.CreateInstance(_uuidof(Recordset)); pRecCm.CreateInstance(_uuidof(Recordset)); szSql.Empty(); szSql.Format(_T("select ID,TDname,Tlocation,DESN,SCCN,Sname,Stype,Ttype,Tmode,Eamount,TPamount,CHamount,N,TRwave,TRfrequency,Ifrequency,SAfrequency,Clayout,Espace,Edistance,weather,WDIR," "temperature,height,humidity,Format(Cdate,'YYYY-MM-DD') as Cdate,Format(Ctime,'HH:MM:SS') as Ctime,Format(Tdate,'YYYY-MM-DD') as Tdate,Format(Ttime,'HH:MM:SS') as Ttime," "Rdirection,CRtime,IIf(IsNull(PM),'',PM) as PM,IIf(IsNull(OP),'',OP) as OP,IIf(IsNull(QA),'',QA) as QA from td where ID = %u"), m_dwID); pRecTd->Open(szSql.AllocSysString(), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText); CString strRowTitle; if ((long)0 != pRecTd->GetRecordCount()) { comRange = pComSheet->GetRange(COleVariant(_T("A1")), COleVariant(_T("A1"))); if (LANG_ZHCN == g_iUILanguage) comRange.SetValue2(COleVariant(_T("测试任务名称"))); else comRange.SetValue2(COleVariant(_T("Test data name"))); comFont = comRange.GetFont(); comFont.SetBold(COleVariant((short)TRUE)); // comRange = pComSheet->GetRange(COleVariant(_T("A2")),COleVariant(_T("A2"))); // comRange.SetValue2(COleVariant(_T("Zone location"))); // comFont = comRange.GetFont(); // comFont.SetBold(COleVariant((short)TRUE)); strRowTitle.Empty(); strRowTitle.LoadString(IDS_DB_TD_DESN + g_UIOffset); comRange = pComSheet->GetRange(COleVariant(_T("A2")), COleVariant(_T("A2"))); comRange.SetValue2(COleVariant(strRowTitle)); comFont = comRange.GetFont(); comFont.SetBold(COleVariant((short)TRUE)); // comRange = pComSheet->GetRange(COleVariant(_T("A4")),COleVariant(_T("A4"))); // comRange.SetValue2(COleVariant(_T("Script ID"))); // comFont = comRange.GetFont(); // comFont.SetBold(COleVariant((short)TRUE)); strRowTitle.Empty(); strRowTitle.LoadString(IDS_DB_TD_SNAME + g_UIOffset); comRange = pComSheet->GetRange(COleVariant(_T("A3")), COleVariant(_T("A3"))); comRange.SetValue2(COleVariant(strRowTitle)); comFont = comRange.GetFont(); comFont.SetBold(COleVariant((short)TRUE)); strRowTitle.Empty(); strRowTitle.LoadString(IDS_DB_TD_STYPE + g_UIOffset); comRange = pComSheet->GetRange(COleVariant(_T("A4")), COleVariant(_T("A4"))); comRange.SetValue2(COleVariant(strRowTitle)); comFont = comRange.GetFont(); comFont.SetBold(COleVariant((short)TRUE)); strRowTitle.Empty(); strRowTitle.LoadString(IDS_DB_TD_TTYPE + g_UIOffset); comRange = pComSheet->GetRange(COleVariant(_T("A5")), COleVariant(_T("A5"))); comRange.SetValue2(COleVariant(strRowTitle)); comFont = comRange.GetFont(); comFont.SetBold(COleVariant((short)TRUE)); strRowTitle.Empty(); strRowTitle.LoadString(IDS_ARRAY_TYPE + g_UIOffset); comRange = pComSheet->GetRange(COleVariant(_T("A6")), COleVariant(_T("A6"))); comRange.SetValue2(COleVariant(strRowTitle)); comFont = comRange.GetFont(); comFont.SetBold(COleVariant((short)TRUE)); // comRange = pComSheet->GetRange(COleVariant(_T("A8")),COleVariant(_T("A8"))); // comRange.SetValue2(COleVariant(_T("Test mode"))); // // comFont = comRange.GetFont(); // comFont.SetBold(COleVariant((short)TRUE)); strRowTitle.Empty(); strRowTitle.LoadString(IDS_DB_TD_EAMOUNT + g_UIOffset); comRange = pComSheet->GetRange(COleVariant(_T("A7")), COleVariant(_T("A7"))); comRange.SetValue2(COleVariant(strRowTitle)); comFont = comRange.GetFont(); comFont.SetBold(COleVariant((short)TRUE)); strRowTitle.Empty(); strRowTitle.LoadString(IDS_DB_TD_TPAMOUNT + g_UIOffset); comRange = pComSheet->GetRange(COleVariant(_T("A8")), COleVariant(_T("A8"))); comRange.SetValue2(COleVariant(strRowTitle)); comFont = comRange.GetFont(); comFont.SetBold(COleVariant((short)TRUE)); strRowTitle.Empty(); strRowTitle.LoadString(IDS_DB_TD_CHAMOUNT + g_UIOffset); comRange = pComSheet->GetRange(COleVariant(_T("A9")), COleVariant(_T("A9"))); comRange.SetValue2(COleVariant(strRowTitle)); comFont = comRange.GetFont(); comFont.SetBold(COleVariant((short)TRUE)); strRowTitle.Empty(); strRowTitle.LoadString(IDS_DB_TD_N + g_UIOffset); comRange = pComSheet->GetRange(COleVariant(_T("A10")), COleVariant(_T("A10"))); comRange.SetValue2(COleVariant(strRowTitle)); comFont = comRange.GetFont(); comFont.SetBold(COleVariant((short)TRUE)); strRowTitle.Empty(); strRowTitle.LoadString(IDS_DB_TD_TRWAVE + g_UIOffset); comRange = pComSheet->GetRange(COleVariant(_T("A11")), COleVariant(_T("A11"))); comRange.SetValue2(COleVariant(strRowTitle)); comFont = comRange.GetFont(); comFont.SetBold(COleVariant((short)TRUE)); strRowTitle.Empty(); strRowTitle.LoadString(IDS_DB_TD_TRFREQUENCY + g_UIOffset); comRange = pComSheet->GetRange(COleVariant(_T("A12")), COleVariant(_T("A12"))); comRange.SetValue2(COleVariant(strRowTitle)); comFont = comRange.GetFont(); comFont.SetBold(COleVariant((short)TRUE)); strRowTitle.Empty(); strRowTitle.LoadString(IDS_DB_TD_IFREQUENCY + g_UIOffset); comRange = pComSheet->GetRange(COleVariant(_T("A13")), COleVariant(_T("A13"))); comRange.SetValue2(COleVariant(strRowTitle)); comFont = comRange.GetFont(); comFont.SetBold(COleVariant((short)TRUE)); // comRange = pComSheet->GetRange(COleVariant(_T("A14")),COleVariant(_T("A14"))); // comRange.SetValue2(COleVariant(_T("Sample rate"))); // // comFont = comRange.GetFont(); // comFont.SetBold(COleVariant((short)TRUE)); strRowTitle.Empty(); strRowTitle.LoadString(IDS_DB_TD_CLAYOUT + g_UIOffset); comRange = pComSheet->GetRange(COleVariant(_T("A14")), COleVariant(_T("A14"))); comRange.SetValue2(COleVariant(strRowTitle)); comFont = comRange.GetFont(); comFont.SetBold(COleVariant((short)TRUE)); // comRange = pComSheet->GetRange(COleVariant(_T("A18")),COleVariant(_T("A18"))); // comRange.SetValue2(COleVariant(_T("Electrode step"))); // // comFont = comRange.GetFont(); // comFont.SetBold(COleVariant((short)TRUE)); strRowTitle.Empty(); strRowTitle.LoadString(IDS_DB_TD_EDISTANCE + g_UIOffset); comRange = pComSheet->GetRange(COleVariant(_T("A15")), COleVariant(_T("A15"))); comRange.SetValue2(COleVariant(strRowTitle)); comFont = comRange.GetFont(); comFont.SetBold(COleVariant((short)TRUE)); strRowTitle.Empty(); strRowTitle.LoadString(IDS_DB_TD_WEATHER + g_UIOffset); comRange = pComSheet->GetRange(COleVariant(_T("A16")), COleVariant(_T("A16"))); comRange.SetValue2(COleVariant(strRowTitle)); comFont = comRange.GetFont(); comFont.SetBold(COleVariant((short)TRUE)); strRowTitle.Empty(); strRowTitle.LoadString(IDS_DB_TD_WDIR + g_UIOffset); comRange = pComSheet->GetRange(COleVariant(_T("A17")), COleVariant(_T("A17"))); comRange.SetValue2(COleVariant(strRowTitle)); comFont = comRange.GetFont(); comFont.SetBold(COleVariant((short)TRUE)); strRowTitle.Empty(); strRowTitle.LoadString(IDS_DB_TD_TEMPERATURE + g_UIOffset); comRange = pComSheet->GetRange(COleVariant(_T("A18")), COleVariant(_T("A18"))); comRange.SetValue2(COleVariant(strRowTitle)); comFont = comRange.GetFont(); comFont.SetBold(COleVariant((short)TRUE)); strRowTitle.Empty(); strRowTitle.LoadString(IDS_DB_TD_HEIGHT + g_UIOffset); comRange = pComSheet->GetRange(COleVariant(_T("A19")), COleVariant(_T("A19"))); comRange.SetValue2(COleVariant(strRowTitle)); comFont = comRange.GetFont(); comFont.SetBold(COleVariant((short)TRUE)); strRowTitle.Empty(); strRowTitle.LoadString(IDS_DB_TD_HUMIDITY + g_UIOffset); comRange = pComSheet->GetRange(COleVariant(_T("A20")), COleVariant(_T("A20"))); comRange.SetValue2(COleVariant(strRowTitle)); comFont = comRange.GetFont(); comFont.SetBold(COleVariant((short)TRUE)); strRowTitle.Empty(); strRowTitle.LoadString(IDS_DB_TD_CDATE + g_UIOffset); comRange = pComSheet->GetRange(COleVariant(_T("A21")), COleVariant(_T("A21"))); comRange.SetValue2(COleVariant(strRowTitle)); comFont = comRange.GetFont(); comFont.SetBold(COleVariant((short)TRUE)); strRowTitle.Empty(); strRowTitle.LoadString(IDS_DB_TD_CTIME + g_UIOffset); comRange = pComSheet->GetRange(COleVariant(_T("A22")), COleVariant(_T("A22"))); comRange.SetValue2(COleVariant(strRowTitle)); comFont = comRange.GetFont(); comFont.SetBold(COleVariant((short)TRUE)); strRowTitle.Empty(); strRowTitle.LoadString(IDS_DB_TD_TDATE + g_UIOffset); comRange = pComSheet->GetRange(COleVariant(_T("A23")), COleVariant(_T("A23"))); comRange.SetValue2(COleVariant(strRowTitle)); comFont = comRange.GetFont(); comFont.SetBold(COleVariant((short)TRUE)); strRowTitle.Empty(); strRowTitle.LoadString(IDS_DB_TD_TTIME + g_UIOffset); comRange = pComSheet->GetRange(COleVariant(_T("A24")), COleVariant(_T("A24"))); comRange.SetValue2(COleVariant(strRowTitle)); comFont = comRange.GetFont(); comFont.SetBold(COleVariant((short)TRUE)); // comRange = pComSheet->GetRange(COleVariant(_T("A29")),COleVariant(_T("A29"))); // comRange.SetValue2(COleVariant(_T("Rolling direction"))); // // comFont = comRange.GetFont(); // comFont.SetBold(COleVariant((short)TRUE)); // comRange = pComSheet->GetRange(COleVariant(_T("A30")),COleVariant(_T("A30"))); // comRange.SetValue2(COleVariant(_T("Rolling times"))); // // comFont = comRange.GetFont(); // comFont.SetBold(COleVariant((short)TRUE)); // comRange = pComSheet->GetRange(COleVariant(_T("A26")),COleVariant(_T("A26"))); // comRange.SetValue2(COleVariant(_T("Project manager"))); // comFont = comRange.GetFont(); // comFont.SetBold(COleVariant((short)TRUE)); strRowTitle.Empty(); strRowTitle.LoadString(IDS_DB_TD_OP + g_UIOffset); comRange = pComSheet->GetRange(COleVariant(_T("A25")), COleVariant(_T("A25"))); comRange.SetValue2(COleVariant(strRowTitle)); comFont = comRange.GetFont(); comFont.SetBold(COleVariant((short)TRUE)); strRowTitle.Empty(); strRowTitle.LoadString(IDS_DB_TD_QA + g_UIOffset); comRange = pComSheet->GetRange(COleVariant(_T("A26")), COleVariant(_T("A26"))); comRange.SetValue2(COleVariant(strRowTitle)); comFont = comRange.GetFont(); comFont.SetBold(COleVariant((short)TRUE)); CString strTmpSql = _T(""); strTmpSql.Format(_T("select AR from tdchannel where TDID = %d"), m_dwID); pRecTdHead->Open(strTmpSql.AllocSysString(), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText); if (pRecTdHead->GetRecordCount() < 1) { if (LANG_ZHCN == g_iUILanguage) AfxMessageBox(_T("获取装置失败，查询TdChannel失败")); else MessageBoxEx(NULL, _T("Get Medium AR failed. query TdChannel failed"), STRING_MESSAGEBOXEX_TITLE, MB_OK, MAKELANGID(LANG_ENGLISH, SUBLANG_ENGLISH_US)); } else { iAR = pRecTdHead->GetCollect(_T("AR")).iVal; if (AR_CROSS_HOLE_TYPE == iAR) { strRowTitle.Empty(); strRowTitle.LoadString(IDS_DB_TD_INITI_DEPETH + g_UIOffset); comRange = pComSheet->GetRange(COleVariant(_T("A27")), COleVariant(_T("A27"))); comRange.SetValue2(COleVariant(strRowTitle)); } } pRecTdHead->Close(); comFont = comRange.GetFont(); comFont.SetBold(COleVariant((short)TRUE)); comCols = comRange.GetEntireColumn(); comCols.AutoFit(); comRange = pComSheet->GetRange(COleVariant(_T("B1")), COleVariant(_T("B1"))); comRange.SetValue2(COleVariant((LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("TDname")))); // comRange = pComSheet->GetRange(COleVariant(_T("B2")),COleVariant(_T("B2"))); // comRange.SetValue2(COleVariant((LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("Tlocation")))); comRange = pComSheet->GetRange(COleVariant(_T("B2")), COleVariant(_T("B2"))); comRange.SetValue2(COleVariant((pRecTd->GetCollect(_T("DESN")).vt == VT_NULL) ? _T("") : (LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("DESN")))); // comRange = pComSheet->GetRange(COleVariant(_T("B4")),COleVariant(_T("B4"))); // comRange.SetValue2(COleVariant((LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("SCCN")))); comRange = pComSheet->GetRange(COleVariant(_T("B3")), COleVariant(_T("B3"))); comRange.SetValue2(COleVariant((LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("Sname")))); szSql.Empty(); szSql.Format(_T("select Clabel from cm where Cname = 'Stype' and Lang = %d and Cvalue = %s"), g_iLanguage, pRecTd->GetCollect(_T("Stype")).vt == VT_NULL ? _T("-1") : (LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("Stype"))); pRecCm->Open(szSql.AllocSysString(), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText); if ((long)0 != pRecCm->GetRecordCount()) { comRange = pComSheet->GetRange(COleVariant(_T("B4")), COleVariant(_T("B4"))); comRange.SetValue2(COleVariant((LPCTSTR)(_bstr_t)pRecCm->GetCollect(_T("Clabel")))); } pRecCm->Close(); szSql.Empty(); szSql.Format(_T("select Clabel from cm where Cname = 'Ttype' and Lang = %d and Cvalue = %s"), g_iLanguage, pRecTd->GetCollect(_T("Ttype")).vt == VT_NULL ? _T("-1") : (LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("Ttype"))); pRecCm->Open(szSql.AllocSysString(), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText); if ((long)0 != pRecCm->GetRecordCount()) { comRange = pComSheet->GetRange(COleVariant(_T("B5")), COleVariant(_T("B5"))); comRange.SetValue2(COleVariant((LPCTSTR)(_bstr_t)pRecCm->GetCollect(_T("Clabel")))); } pRecCm->Close(); szSql.Empty(); szSql.Format(_T("select Clabel from cm where Cname = 'Tmode' and Lang = %d and Cvalue = %s"), g_iLanguage, pRecTd->GetCollect(_T("Tmode")).vt == VT_NULL ? _T("-1") : (LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("Tmode"))); pRecCm->Open(szSql.AllocSysString(), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText); if ((long)0 != pRecCm->GetRecordCount()) { // comRange = pComSheet->GetRange(COleVariant(_T("B8")),COleVariant(_T("B8"))); // comRange.SetValue2(COleVariant((LPCTSTR)(_bstr_t)pRecCm->GetCollect(_T("Clabel")))); } pRecCm->Close(); ///////////////////////////////////加入装置类型//////////////////////////// szSql.Empty(); szSql.Format(_T("select MEname from medium where LANG = %d and AR in (select AR from tdchannel where TDID = %d)"), g_iLanguage, m_dwID); pRecCm->Open(szSql.AllocSysString(), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText); if ((long)VAL_ZERO != pRecCm->GetRecordCount()) { comRange = pComSheet->GetRange(COleVariant(_T("B6")), COleVariant(_T("B6"))); comRange.SetValue2(COleVariant((LPCTSTR)(_bstr_t)pRecCm->GetCollect(_T("MEname")))); } pRecCm->Close(); ////////////////////////////////////////////////////////////////////////// comRange = pComSheet->GetRange(COleVariant(_T("B7")), COleVariant(_T("B7"))); comRange.SetValue2(COleVariant((LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("Eamount")))); comRange = pComSheet->GetRange(COleVariant(_T("B8")), COleVariant(_T("B8"))); comRange.SetValue2(COleVariant((LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("TPamount")))); comRange = pComSheet->GetRange(COleVariant(_T("B9")), COleVariant(_T("B9"))); comRange.SetValue2(COleVariant((LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("CHamount")))); comRange = pComSheet->GetRange(COleVariant(_T("B10")), COleVariant(_T("B10"))); comRange.SetValue2(COleVariant((LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("N")))); szSql.Empty(); szSql.Format(_T("select Clabel from cm where Cname = 'TRwave' and Lang = %d and Cvalue = %s"), g_iLanguage, pRecTd->GetCollect(_T("TRwave")).vt == VT_NULL ? _T("-1") : (LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("TRwave"))); pRecCm->Open(szSql.AllocSysString(), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText); if ((long)0 != pRecCm->GetRecordCount()) { comRange = pComSheet->GetRange(COleVariant(_T("B11")), COleVariant(_T("B11"))); comRange.SetValue2(COleVariant((LPCTSTR)(_bstr_t)pRecCm->GetCollect(_T("Clabel")))); } pRecCm->Close(); if ((0 == pRecTd->GetCollect(_T("Ttype")).iVal) || (1 == pRecTd->GetCollect(_T("Ttype")).iVal)) { szSql.Empty(); szSql.Format(_T("select Clabel from cm where Cname = 'Trfrequency' and Lang = %d and Cvalue = %s"), g_iLanguage, pRecTd->GetCollect(_T("Trfrequency")).vt == VT_NULL ? _T("-1") : (LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("Trfrequency"))); pRecCm->Open(szSql.AllocSysString(), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText); if ((long)0 != pRecCm->GetRecordCount()) { comRange = pComSheet->GetRange(COleVariant(_T("B12")), COleVariant(_T("B12"))); comRange.SetValue2(COleVariant((LPCTSTR)(_bstr_t)pRecCm->GetCollect(_T("Clabel")))); } pRecCm->Close(); } else if (2 == pRecTd->GetCollect(_T("Ttype")).iVal) { szSql.Empty(); szSql.Format(_T("select Clabel from cm where Cname = 'Trfrequencyself' and Lang = %d and Cvalue = %s"), g_iLanguage, pRecTd->GetCollect(_T("Trfrequency")).vt == VT_NULL ? _T("-1") : (LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("Trfrequency"))); pRecCm->Open(szSql.AllocSysString(), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText); if ((long)0 != pRecCm->GetRecordCount()) { comRange = pComSheet->GetRange(COleVariant(_T("B12")), COleVariant(_T("B12"))); comRange.SetValue2(COleVariant((LPCTSTR)(_bstr_t)pRecCm->GetCollect(_T("Clabel")))); } pRecCm->Close(); } szSql.Empty(); szSql.Format(_T("select Clabel from cm where Cname = 'Ifrequency' and Lang = %d and Cvalue = %s"), g_iLanguage, pRecTd->GetCollect(_T("Ifrequency")).vt == VT_NULL ? _T("-1") : (LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("Ifrequency"))); pRecCm->Open(szSql.AllocSysString(), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText); if ((long)0 != pRecCm->GetRecordCount()) { comRange = pComSheet->GetRange(COleVariant(_T("B13")), COleVariant(_T("B13"))); comRange.SetValue2(COleVariant((LPCTSTR)(_bstr_t)pRecCm->GetCollect(_T("Clabel")))); } pRecCm->Close(); // if (0 == pRecTd->GetCollect(_T("Ifrequency")).iVal) // { // szSql.Empty(); // szSql.Format(_T("select Clabel from cm where Cname = 'SAfrequency50' and Lang = %d and Cvalue = %s"), // g_iLanguage, pRecTd->GetCollect(_T("SAfrequency")).vt == VT_NULL ? _T("-1") : (LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("SAfrequency"))); // pRecCm->Open(szSql.AllocSysString(), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText); // if ((long)0 != pRecCm->GetRecordCount()) // { // comRange = pComSheet->GetRange(COleVariant(_T("B14")),COleVariant(_T("B14"))); // comRange.SetValue2(COleVariant((LPCTSTR)(_bstr_t)pRecCm->GetCollect(_T("Clabel")))); // } // pRecCm->Close(); // } // else if (1 == pRecTd->GetCollect(_T("Ifrequency")).iVal) // { // szSql.Empty(); // szSql.Format(_T("select Clabel from cm where Cname = 'SAfrequency60' and Lang = %d and Cvalue = %s"), // g_iLanguage, pRecTd->GetCollect(_T("SAfrequency")).vt == VT_NULL ? _T("-1") : (LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("SAfrequency"))); // pRecCm->Open(szSql.AllocSysString(), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText); // if ((long)0 != pRecCm->GetRecordCount()) // { // comRange = pComSheet->GetRange(COleVariant(_T("B14")),COleVariant(_T("B14"))); // comRange.SetValue2(COleVariant((LPCTSTR)(_bstr_t)pRecCm->GetCollect(_T("Clabel")))); // } // pRecCm->Close(); // } szSql.Empty(); szSql.Format(_T("select Clabel from cm where Cname = 'Clayout' and Lang = %d and Cvalue = %s"), g_iLanguage, pRecTd->GetCollect(_T("Clayout")).vt == VT_NULL ? _T("-1") : (LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("Clayout"))); pRecCm->Open(szSql.AllocSysString(), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText); if ((long)0 != pRecCm->GetRecordCount()) { comRange = pComSheet->GetRange(COleVariant(_T("B14")), COleVariant(_T("B14"))); comRange.SetValue2(COleVariant((LPCTSTR)(_bstr_t)pRecCm->GetCollect(_T("Clabel")))); } pRecCm->Close(); // comRange = pComSheet->GetRange(COleVariant(_T("B18")),COleVariant(_T("B18"))); // comRange.SetValue2(COleVariant((LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("Espace")))); comRange = pComSheet->GetRange(COleVariant(_T("B15")), COleVariant(_T("B15"))); comRange.SetValue2(COleVariant((LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("Edistance")))); szSql.Empty(); szSql.Format(_T("select Clabel from cm where Cname = 'weather' and Lang = %d and Cvalue = %s"), g_iLanguage, pRecTd->GetCollect(_T("weather")).vt == VT_NULL ? _T("-1") : (LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("weather"))); pRecCm->Open(szSql.AllocSysString(), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText); if ((long)0 != pRecCm->GetRecordCount()) { comRange = pComSheet->GetRange(COleVariant(_T("B16")), COleVariant(_T("B16"))); comRange.SetValue2(COleVariant((LPCTSTR)(_bstr_t)pRecCm->GetCollect(_T("Clabel")))); } pRecCm->Close(); szSql.Empty(); szSql.Format(_T("select Clabel from cm where Cname = 'WDIR' and Lang = %d and Cvalue = %s"), g_iLanguage, pRecTd->GetCollect(_T("WDIR")).vt == VT_NULL ? _T("-1") : (LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("WDIR"))); pRecCm->Open(szSql.AllocSysString(), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText); if ((long)0 != pRecCm->GetRecordCount()) { comRange = pComSheet->GetRange(COleVariant(_T("B17")), COleVariant(_T("B17"))); comRange.SetValue2(COleVariant((LPCTSTR)(_bstr_t)pRecCm->GetCollect(_T("Clabel")))); } pRecCm->Close(); CString strTmp = _T(""); float fTmp = (pRecTd->GetCollect(_T("temperature")).vt == VT_NULL) ? -9999 : (float)pRecTd->GetCollect(_T("temperature")).fltVal; if (fTmp > -9000) { strTmp.Format(_T("%f"), fTmp); } comRange = pComSheet->GetRange(COleVariant(_T("B18")), COleVariant(_T("B18"))); comRange.SetValue2(COleVariant(strTmp)); comRange = pComSheet->GetRange(COleVariant(_T("B19")), COleVariant(_T("B19"))); comRange.SetValue2(COleVariant((pRecTd->GetCollect(_T("height")).vt == VT_NULL) ? _T("") : (LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("height")))); strTmp.Empty(); fTmp = (pRecTd->GetCollect(_T("humidity")).vt == VT_NULL) ? -9999 : (float)pRecTd->GetCollect(_T("humidity")).fltVal; if (fTmp > -9000) { strTmp.Format(_T("%f"), fTmp); } comRange = pComSheet->GetRange(COleVariant(_T("B20")), COleVariant(_T("B20"))); comRange.SetValue2(COleVariant(strTmp)); comRange = pComSheet->GetRange(COleVariant(_T("B21")), COleVariant(_T("B21"))); comRange.SetValue2(COleVariant((LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("Cdate")))); comRange = pComSheet->GetRange(COleVariant(_T("B22")), COleVariant(_T("B22"))); comRange.SetValue2(COleVariant((LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("Ctime")))); comRange = pComSheet->GetRange(COleVariant(_T("B23")), COleVariant(_T("B23"))); comRange.SetValue2(COleVariant((pRecTd->GetCollect(_T("Tdate")).vt == VT_NULL) ? _T("") : (LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("Tdate")))); comRange = pComSheet->GetRange(COleVariant(_T("B24")), COleVariant(_T("B24"))); comRange.SetValue2(COleVariant((pRecTd->GetCollect(_T("Ttime")).vt == VT_NULL) ? _T("") : (LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("Ttime")))); szSql.Empty(); szSql.Format(_T("select Clabel from cm where Cname = 'Rdirection' and Lang = %d and Cvalue = %s"), g_iLanguage, pRecTd->GetCollect(_T("Rdirection")).vt == VT_NULL ? _T("-1") : (LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("Rdirection"))); pRecCm->Open(szSql.AllocSysString(), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText); if ((long)0 != pRecCm->GetRecordCount()) { // comRange = pComSheet->GetRange(COleVariant(_T("B29")),COleVariant(_T("B29"))); // comRange.SetValue2(COleVariant((LPCTSTR)(_bstr_t)pRecCm->GetCollect(_T("Clabel")))); } pRecCm->Close(); // comRange = pComSheet->GetRange(COleVariant(_T("B30")),COleVariant(_T("B30"))); // comRange.SetValue2(COleVariant((LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("CRtime")))); // comRange = pComSheet->GetRange(COleVariant(_T("B26")),COleVariant(_T("B26"))); // comRange.SetValue2(COleVariant((LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("PM")))); comRange = pComSheet->GetRange(COleVariant(_T("B25")), COleVariant(_T("B25"))); comRange.SetValue2(COleVariant((pRecTd->GetCollect(_T("OP")).vt == VT_NULL) ? _T("") : (LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("OP")))); comRange = pComSheet->GetRange(COleVariant(_T("B26")), COleVariant(_T("B26"))); comRange.SetValue2(COleVariant((pRecTd->GetCollect(_T("QA")).vt == VT_NULL) ? _T("") : (LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("QA")))); if (AR_CROSS_HOLE_TYPE == iAR) { comRange = pComSheet->GetRange(COleVariant(_T("B27")), COleVariant(_T("B27"))); comRange.SetValue2(COleVariant((LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("Espace")))); } comCols = comRange.GetEntireColumn(); comCols.AutoFit(); } pRecTd->Close(); return TRUE; } BOOL CRsp2DTd::SaveTdConToExcelFile(_Worksheet* const pComSheet) { CString szSql = _T(""); if (EXP_2D_DATA_BY_DEPTH == theApp.Get2dDataExpStyle()) { _RecordsetPtr pRecAR = NULL; pRecAR.CreateInstance(_uuidof(Recordset)); szSql.Format(_T("select AR from tdchannel where TDID = %u"), m_dwID); pRecAR->Open(szSql.AllocSysString(), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText); if (pRecAR->GetRecordCount() < 1) { if (LANG_ZHCN == g_iUILanguage) AfxMessageBox(_T("在excel保存中获取AR信息失败")); else MessageBoxEx(NULL, _T("Get AR information failed in save excel"), STRING_MESSAGEBOXEX_TITLE, MB_OK, MAKELANGID(LANG_ENGLISH, SUBLANG_ENGLISH_US)); pRecAR->Close(); return FALSE; } int iAR = pRecAR->GetCollect(_T("AR")).iVal; if (AR_CROSS_HOLE_TYPE != iAR && AR_BIPOLE_HOLE_SPT != iAR) { pRecAR->Close(); return SaveTdConToExcelFileBySort(pComSheet, 1); } } Range comRange; excel9::Font comFont; Range comCols; _RecordsetPtr pRecConList = NULL; CString szRow = _T(""); int iIndex = (int)0; iIndex = 1; szRow.Empty(); szRow.Format(_T("A%d"), iIndex); comRange = pComSheet->GetRange(COleVariant(szRow), COleVariant(szRow)); comRange.SetValue2(COleVariant(_T("A(C1)"))); comFont = comRange.GetFont(); comFont.SetBold(COleVariant((short)TRUE)); szRow.Empty(); szRow.Format(_T("B%d"), iIndex); comRange = pComSheet->GetRange(COleVariant(szRow), COleVariant(szRow)); comRange.SetValue2(COleVariant(_T("B(C2)"))); comFont = comRange.GetFont(); comFont.SetBold(COleVariant((short)TRUE)); szRow.Empty(); szRow.Format(_T("C%d"), iIndex); comRange = pComSheet->GetRange(COleVariant(szRow), COleVariant(szRow)); comRange.SetValue2(COleVariant(_T("M(P1)"))); comFont = comRange.GetFont(); comFont.SetBold(COleVariant((short)TRUE)); szRow.Empty(); szRow.Format(_T("D%d"), iIndex); comRange = pComSheet->GetRange(COleVariant(szRow), COleVariant(szRow)); comRange.SetValue2(COleVariant(_T("N(P2)"))); comFont = comRange.GetFont(); comFont.SetBold(COleVariant((short)TRUE)); szRow.Empty(); szRow.Format(_T("E%d"), iIndex); comRange = pComSheet->GetRange(COleVariant(szRow), COleVariant(szRow)); comRange.SetValue2(COleVariant(_T("Stacking"))); comFont = comRange.GetFont(); comFont.SetBold(COleVariant((short)TRUE)); szRow.Empty(); szRow.Format(_T("F%d"), iIndex); comRange = pComSheet->GetRange(COleVariant(szRow), COleVariant(szRow)); comRange.SetValue2(COleVariant(_T("K"))); comFont = comRange.GetFont(); comFont.SetBold(COleVariant((short)TRUE)); szRow.Empty(); szRow.Format(_T("G%d"), iIndex); comRange = pComSheet->GetRange(COleVariant(szRow), COleVariant(szRow)); comRange.SetValue2(COleVariant(_T("I(mA)"))); comFont = comRange.GetFont(); comFont.SetBold(COleVariant((short)TRUE)); szRow.Empty(); szRow.Format(_T("H%d"), iIndex); comRange = pComSheet->GetRange(COleVariant(szRow), COleVariant(szRow)); comRange.SetValue2(COleVariant(_T("V(mV)"))); comFont = comRange.GetFont(); comFont.SetBold(COleVariant((short)TRUE)); //新增加R szRow.Empty(); szRow.Format(_T("I%d"), iIndex); comRange = pComSheet->GetRange(COleVariant(szRow), COleVariant(szRow)); comRange.SetValue2(COleVariant(_T("R(Ohm)"))); comFont = comRange.GetFont(); comFont.SetBold(COleVariant((short)TRUE)); szRow.Empty(); szRow.Format(_T("J%d"), iIndex); comRange = pComSheet->GetRange(COleVariant(szRow), COleVariant(szRow)); comRange.SetValue2(COleVariant(_T("R0"))); comFont = comRange.GetFont(); comFont.SetBold(COleVariant((short)TRUE)); szRow.Empty(); szRow.Format(_T("K%d"), iIndex); comRange = pComSheet->GetRange(COleVariant(szRow), COleVariant(szRow)); comRange.SetValue2(COleVariant(_T("SP"))); comFont = comRange.GetFont(); comFont.SetBold(COleVariant((short)TRUE)); szRow.Empty(); szRow.Format(_T("L%d"), iIndex); comRange = pComSheet->GetRange(COleVariant(szRow), COleVariant(szRow)); comRange.SetValue2(COleVariant(_T("R0_RD"))); comFont = comRange.GetFont(); comFont.SetBold(COleVariant((short)TRUE)); pRecConList.CreateInstance(_uuidof(Recordset)); szSql.Empty(); szSql.Format(_T("select C1,C2,P1,P2,N,K,I,V,R0,SP,bUse,R0_LC,M0_LC from td2dcon where TCHID in (select ID from tdchannel where TDID = %u order by TCHID) order by TSN"), m_dwID); try { pRecConList->Open(szSql.AllocSysString(), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText); } catch (_com_error e) { hHook = SetWindowsHookEx(WH_CBT, (HOOKPROC)CBTHookProc, AfxGetInstanceHandle(), NULL); AfxMessageBox((LPCTSTR)e.Description()); } float fV = 0, fI = 0, fR = 0; CString strText = _T(""); while ((short)0 == pRecConList->adoEOF) { if (pRecConList->GetCollect(_T("bUse")).boolVal != 0)//0为access数据库中的false { iIndex++; szRow.Empty(); szRow.Format(_T("A%d"), iIndex); comRange = pComSheet->GetRange(COleVariant(szRow), COleVariant(szRow)); comRange.SetValue2(COleVariant((LPCTSTR)(_bstr_t)pRecConList->GetCollect(_T("C1")))); // comCols = comRange.GetEntireColumn(); // comCols.AutoFit(); szRow.Empty(); szRow.Format(_T("B%d"), iIndex); comRange = pComSheet->GetRange(COleVariant(szRow), COleVariant(szRow)); comRange.SetValue2(COleVariant((LPCTSTR)(_bstr_t)pRecConList->GetCollect(_T("C2")))); // comCols = comRange.GetEntireColumn(); // comCols.AutoFit(); szRow.Empty(); szRow.Format(_T("C%d"), iIndex); comRange = pComSheet->GetRange(COleVariant(szRow), COleVariant(szRow)); comRange.SetValue2(COleVariant((LPCTSTR)(_bstr_t)pRecConList->GetCollect(_T("P1")))); // comCols = comRange.GetEntireColumn(); // comCols.AutoFit(); szRow.Empty(); szRow.Format(_T("D%d"), iIndex); comRange = pComSheet->GetRange(COleVariant(szRow), COleVariant(szRow)); comRange.SetValue2(COleVariant((LPCTSTR)(_bstr_t)pRecConList->GetCollect(_T("P2")))); // comCols = comRange.GetEntireColumn(); // comCols.AutoFit(); szRow.Empty(); szRow.Format(_T("E%d"), iIndex); comRange = pComSheet->GetRange(COleVariant(szRow), COleVariant(szRow)); comRange.SetValue2(COleVariant((LPCTSTR)(_bstr_t)pRecConList->GetCollect(_T("N")))); // comCols = comRange.GetEntireColumn(); // comCols.AutoFit(); szRow.Empty(); szRow.Format(_T("F%d"), iIndex); comRange = pComSheet->GetRange(COleVariant(szRow), COleVariant(szRow)); strText.Empty(); strText.Format(_T("%f"), pRecConList->GetCollect(_T("K")).fltVal); comRange.SetValue2(COleVariant(strText)); // comCols = comRange.GetEntireColumn(); // comCols.AutoFit(); szRow.Empty(); szRow.Format(_T("G%d"), iIndex); comRange = pComSheet->GetRange(COleVariant(szRow), COleVariant(szRow)); // fI = (float)pRecConList->GetCollect(_T("I")).fltVal; strText.Empty(); strText.Format(_T("%f"), pRecConList->GetCollect(_T("I")).fltVal); comRange.SetValue2(COleVariant(strText)); // comCols = comRange.GetEntireColumn(); // comCols.AutoFit(); szRow.Empty(); szRow.Format(_T("H%d"), iIndex); comRange = pComSheet->GetRange(COleVariant(szRow), COleVariant(szRow)); strText.Empty(); strText.Format(_T("%f"), pRecConList->GetCollect(_T("V")).fltVal); comRange.SetValue2(COleVariant(strText)); // comCols = comRange.GetEntireColumn(); // comCols.AutoFit(); //添加R fV = (float)pRecConList->GetCollect(_T("V")).fltVal; fI = (float)pRecConList->GetCollect(_T("I")).fltVal; fR = (0 == fI) ? 0 : fV / fI; strText.Empty(); strText.Format(_T("%f"), fR); szRow.Empty(); szRow.Format(_T("I%d"), iIndex); comRange = pComSheet->GetRange(COleVariant(szRow), COleVariant(szRow)); comRange.SetValue2(COleVariant(strText)); szRow.Empty(); szRow.Format(_T("J%d"), iIndex); comRange = pComSheet->GetRange(COleVariant(szRow), COleVariant(szRow)); strText.Empty(); strText.Format(_T("%f"), pRecConList->GetCollect(_T("R0")).fltVal); comRange.SetValue2(COleVariant(strText)); // comCols = comRange.GetEntireColumn(); // comCols.AutoFit(); // szRow.Empty(); szRow.Format(_T("K%d"), iIndex); comRange = pComSheet->GetRange(COleVariant(szRow), COleVariant(szRow)); strText.Empty(); strText.Format(_T("%f"), pRecConList->GetCollect(_T("SP")).fltVal); comRange.SetValue2(COleVariant(strText)); szRow.Empty(); szRow.Format(_T("L%d"), iIndex); strText.Empty(); strText.Format(_T("%f%%"), pRecConList->GetCollect(_T("R0_LC")).fltVal); comRange = pComSheet->GetRange(COleVariant(szRow), COleVariant(szRow)); comRange.SetValue2(COleVariant(strText)); // comCols = comRange.GetEntireColumn(); // comCols.AutoFit(); } pRecConList->MoveNext(); } pRecConList->Close(); return TRUE; } BOOL CRsp2DTd::SaveTdConToExcelFileBySort(_Worksheet* const pComSheet, int iMethod) { Range comRange; excel9::Font comFont; Range comCols; _RecordsetPtr pRecConList = NULL; CString szSql = _T(""); CString szRow = _T(""); int iIndex = (int)0; iIndex = 1; szRow.Empty(); szRow.Format(_T("A%d"), iIndex); comRange = pComSheet->GetRange(COleVariant(szRow), COleVariant(szRow)); comRange.SetValue2(COleVariant(_T("A(C1)"))); comFont = comRange.GetFont(); comFont.SetBold(COleVariant((short)TRUE)); szRow.Empty(); szRow.Format(_T("B%d"), iIndex); comRange = pComSheet->GetRange(COleVariant(szRow), COleVariant(szRow)); comRange.SetValue2(COleVariant(_T("B(C2)"))); comFont = comRange.GetFont(); comFont.SetBold(COleVariant((short)TRUE)); szRow.Empty(); szRow.Format(_T("C%d"), iIndex); comRange = pComSheet->GetRange(COleVariant(szRow), COleVariant(szRow)); comRange.SetValue2(COleVariant(_T("M(P1)"))); comFont = comRange.GetFont(); comFont.SetBold(COleVariant((short)TRUE)); szRow.Empty(); szRow.Format(_T("D%d"), iIndex); comRange = pComSheet->GetRange(COleVariant(szRow), COleVariant(szRow)); comRange.SetValue2(COleVariant(_T("N(P2)"))); comFont = comRange.GetFont(); comFont.SetBold(COleVariant((short)TRUE)); szRow.Empty(); szRow.Format(_T("E%d"), iIndex); comRange = pComSheet->GetRange(COleVariant(szRow), COleVariant(szRow)); comRange.SetValue2(COleVariant(_T("Stacking"))); comFont = comRange.GetFont(); comFont.SetBold(COleVariant((short)TRUE)); szRow.Empty(); szRow.Format(_T("F%d"), iIndex); comRange = pComSheet->GetRange(COleVariant(szRow), COleVariant(szRow)); comRange.SetValue2(COleVariant(_T("K"))); comFont = comRange.GetFont(); comFont.SetBold(COleVariant((short)TRUE)); szRow.Empty(); szRow.Format(_T("G%d"), iIndex); comRange = pComSheet->GetRange(COleVariant(szRow), COleVariant(szRow)); comRange.SetValue2(COleVariant(_T("I(mA)"))); comFont = comRange.GetFont(); comFont.SetBold(COleVariant((short)TRUE)); szRow.Empty(); szRow.Format(_T("H%d"), iIndex); comRange = pComSheet->GetRange(COleVariant(szRow), COleVariant(szRow)); comRange.SetValue2(COleVariant(_T("V(mV)"))); comFont = comRange.GetFont(); comFont.SetBold(COleVariant((short)TRUE)); //新增加R szRow.Empty(); szRow.Format(_T("I%d"), iIndex); comRange = pComSheet->GetRange(COleVariant(szRow), COleVariant(szRow)); comRange.SetValue2(COleVariant(_T("R(Ohm)"))); comFont = comRange.GetFont(); comFont.SetBold(COleVariant((short)TRUE)); szRow.Empty(); szRow.Format(_T("J%d"), iIndex); comRange = pComSheet->GetRange(COleVariant(szRow), COleVariant(szRow)); comRange.SetValue2(COleVariant(_T("R0"))); comFont = comRange.GetFont(); comFont.SetBold(COleVariant((short)TRUE)); szRow.Empty(); szRow.Format(_T("K%d"), iIndex); comRange = pComSheet->GetRange(COleVariant(szRow), COleVariant(szRow)); comRange.SetValue2(COleVariant(_T("SP"))); comFont = comRange.GetFont(); comFont.SetBold(COleVariant((short)TRUE)); szRow.Empty(); szRow.Format(_T("L%d"), iIndex); comRange = pComSheet->GetRange(COleVariant(szRow), COleVariant(szRow)); comRange.SetValue2(COleVariant(_T("R0_RD"))); comFont = comRange.GetFont(); comFont.SetBold(COleVariant((short)TRUE)); pRecConList.CreateInstance(_uuidof(Recordset)); szSql.Empty(); szSql.Format(_T("select C1,C2,P1,P2,N,K,I,V,R0,SP,R0_LC,M0_LC,Layer,AR from td2dcon a, tdchannel b where a.bUse <> 0 and a.TCHID = b.ID and b.TDID = %u order by a.TSN"), m_dwID); try { pRecConList->Open(szSql.AllocSysString(), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText); } catch (_com_error e) { hHook = SetWindowsHookEx(WH_CBT, (HOOKPROC)CBTHookProc, AfxGetInstanceHandle(), NULL); AfxMessageBox((LPCTSTR)e.Description()); } if (pRecConList->GetRecordCount() < 1) { pRecConList->Close(); return TRUE; } int iAR = pRecConList->GetCollect(_T("AR")).iVal; COperMediumPt operMedium(iAR); if (!operMedium.InitiSortInfo(iMethod)) { if (LANG_ZHCN == g_iUILanguage) AfxMessageBox(_T("初始排序信息失败")); else MessageBoxEx(NULL, _T("Initial sort information failed"), STRING_MESSAGEBOXEX_TITLE, MB_OK, MAKELANGID(LANG_ENGLISH, SUBLANG_ENGLISH_US)); pRecConList->Close(); return FALSE; } std::vector vtStTdTaskData; vtStTdTaskData.clear(); int iSortIndex = 0; while ((short)0 == pRecConList->adoEOF) { StTdTaskComDataInfo stTdTaskData; stTdTaskData.iC1 = pRecConList->GetCollect(_T("C1")).iVal; stTdTaskData.iC2 = pRecConList->GetCollect(_T("C2")).iVal; stTdTaskData.iP1 = pRecConList->GetCollect(_T("P1")).iVal; stTdTaskData.iP2 = pRecConList->GetCollect(_T("P2")).iVal; stTdTaskData.iN = pRecConList->GetCollect(_T("N")).iVal; stTdTaskData.fK = pRecConList->GetCollect(_T("K")).fltVal; stTdTaskData.fV = pRecConList->GetCollect(_T("V")).fltVal; stTdTaskData.fI = pRecConList->GetCollect(_T("I")).fltVal; stTdTaskData.fR0 = pRecConList->GetCollect(_T("R0")).fltVal; stTdTaskData.fSP = pRecConList->GetCollect(_T("SP")).fltVal; stTdTaskData.fR0_LC = pRecConList->GetCollect(_T("R0_LC")).fltVal; stTdTaskData.fM0_LC = pRecConList->GetCollect(_T("M0_LC")).fltVal; vtStTdTaskData.push_back(stTdTaskData); operMedium.AddSortPtInfo(stTdTaskData.iC1, stTdTaskData.iC2, stTdTaskData.iP1, stTdTaskData.iP2, pRecConList->GetCollect(_T("Layer")).iVal, iSortIndex++); pRecConList->MoveNext(); } float fR = 0; CString strText = _T(""); iSortIndex = operMedium.GetFirstSortID(iMethod); BOOL bRes = TRUE; CString strErr = _T(""); float fPtXPos = 0; while (iSortIndex >= 0) { if (iSortIndex >= vtStTdTaskData.size()) { strErr.Empty(); if (LANG_ZHCN == g_iUILanguage) { strErr.Format(_T("导出excel中的数据索引混乱，data_index =%d,total_size=%d"), iSortIndex + 1, vtStTdTaskData.size()); AfxMessageBox(strErr); } else { strErr.Format(_T("Data index disorder in export excel,data_index = %d,total_size=%d"), iSortIndex + 1, vtStTdTaskData.size()); MessageBoxEx(NULL, strErr, STRING_MESSAGEBOXEX_TITLE, MB_OK, MAKELANGID(LANG_ENGLISH, SUBLANG_ENGLISH_US)); } bRes = FALSE; break; } CString strIndex = _T(""); iIndex++; if ((fPtXPos > EPSINON) && (operMedium.GetCurPtXPos() - fPtXPos > EPSINON)) { //这里由于需要明确区分一次排序后的的点，以空一行来表示分开 iIndex++; } fPtXPos = operMedium.GetCurPtXPos(); szRow.Empty(); szRow.Format(_T("A%d"), iIndex); strText.Empty(); strText.Format(_T("%d"), vtStTdTaskData[iSortIndex].iC1); comRange = pComSheet->GetRange(COleVariant(szRow), COleVariant(szRow)); comRange.SetValue2(COleVariant(strText)); szRow.Empty(); szRow.Format(_T("B%d"), iIndex); strText.Empty(); strText.Format(_T("%d"), vtStTdTaskData[iSortIndex].iC2); comRange = pComSheet->GetRange(COleVariant(szRow), COleVariant(szRow)); comRange.SetValue2(COleVariant(strText)); szRow.Empty(); szRow.Format(_T("C%d"), iIndex); strText.Empty(); strText.Format(_T("%d"), vtStTdTaskData[iSortIndex].iP1); comRange = pComSheet->GetRange(COleVariant(szRow), COleVariant(szRow)); comRange.SetValue2(COleVariant(strText)); szRow.Empty(); szRow.Format(_T("D%d"), iIndex); strText.Empty(); strText.Format(_T("%d"), vtStTdTaskData[iSortIndex].iP2); comRange = pComSheet->GetRange(COleVariant(szRow), COleVariant(szRow)); comRange.SetValue2(COleVariant(strText)); szRow.Empty(); szRow.Format(_T("E%d"), iIndex); strText.Empty(); strText.Format(_T("%d"), vtStTdTaskData[iSortIndex].iN); comRange = pComSheet->GetRange(COleVariant(szRow), COleVariant(szRow)); comRange.SetValue2(COleVariant(strText)); szRow.Empty(); szRow.Format(_T("F%d"), iIndex); strText.Empty(); strText.Format(_T("%f"), vtStTdTaskData[iSortIndex].fK); comRange = pComSheet->GetRange(COleVariant(szRow), COleVariant(szRow)); comRange.SetValue2(COleVariant(strText)); szRow.Empty(); szRow.Format(_T("G%d"), iIndex); strText.Empty(); strText.Format(_T("%f"), vtStTdTaskData[iSortIndex].fI); comRange = pComSheet->GetRange(COleVariant(szRow), COleVariant(szRow)); comRange.SetValue2(COleVariant(strText)); szRow.Empty(); szRow.Format(_T("H%d"), iIndex); strText.Empty(); strText.Format(_T("%f"), vtStTdTaskData[iSortIndex].fV); comRange = pComSheet->GetRange(COleVariant(szRow), COleVariant(szRow)); comRange.SetValue2(COleVariant(strText)); fR = (fabsf(vtStTdTaskData[iSortIndex].fI) <= EPSINON) ? 0 : vtStTdTaskData[iSortIndex].fV / vtStTdTaskData[iSortIndex].fI; szRow.Empty(); szRow.Format(_T("I%d"), iIndex); strText.Empty(); strText.Format(_T("%f"), fR); comRange = pComSheet->GetRange(COleVariant(szRow), COleVariant(szRow)); comRange.SetValue2(COleVariant(strText)); szRow.Empty(); szRow.Format(_T("J%d"), iIndex); strText.Empty(); strText.Format(_T("%f"), vtStTdTaskData[iSortIndex].fR0); comRange = pComSheet->GetRange(COleVariant(szRow), COleVariant(szRow)); comRange.SetValue2(COleVariant(strText)); szRow.Empty(); szRow.Format(_T("K%d"), iIndex); strText.Empty(); strText.Format(_T("%f"), vtStTdTaskData[iSortIndex].fSP); comRange = pComSheet->GetRange(COleVariant(szRow), COleVariant(szRow)); comRange.SetValue2(COleVariant(strText)); szRow.Empty(); szRow.Format(_T("L%d"), iIndex); strText.Empty(); strText.Format(_T("%f"), vtStTdTaskData[iSortIndex].fR0_LC); comRange = pComSheet->GetRange(COleVariant(szRow), COleVariant(szRow)); comRange.SetValue2(COleVariant(strText)); iSortIndex = operMedium.GetNextSortID(); } pRecConList->Close(); return bRes; } BOOL CRsp2DTd::SaveTdHeadToCsvFile(FILE* pFile) { _RecordsetPtr pRecTd = NULL; _RecordsetPtr pRecTdHead = NULL; _RecordsetPtr pRecDev = NULL; _RecordsetPtr pRecPara = NULL; _RecordsetPtr pRecCm = NULL; CString szSql; CString szLabel; int iAR = 0; int iRowIndex = (int)0; pRecTd.CreateInstance(_uuidof(Recordset)); pRecTdHead.CreateInstance(_uuidof(Recordset)); pRecDev.CreateInstance(_uuidof(Recordset)); pRecPara.CreateInstance(_uuidof(Recordset)); pRecCm.CreateInstance(_uuidof(Recordset)); szSql.Empty(); szSql.Format(_T("select ID,TDname,Tlocation,DESN,SCCN,Sname,Stype,Ttype,Tmode,Eamount,TPamount,CHamount,N,TRwave,TRfrequency,Ifrequency,SAfrequency,Clayout,Espace,Edistance,weather,WDIR," "temperature,height,humidity,Format(Cdate,'YYYY-MM-DD') as Cdate,Format(Ctime,'HH:MM:SS') as Ctime,Format(Tdate,'YYYY-MM-DD') as Tdate,Format(Ttime,'HH:MM:SS') as Ttime," "Rdirection,CRtime,IIf(IsNull(PM),'',PM) as PM,IIf(IsNull(OP),'',OP) as OP,IIf(IsNull(QA),'',QA) as QA from td where ID = %u"), m_dwID); pRecTd->Open(szSql.AllocSysString(), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText); CString strRowTitle = _T(""); CStringArray arrHead; if ((long)0 != pRecTd->GetRecordCount()) { strRowTitle.Empty(); if (LANG_ZHCN == g_iUILanguage) strRowTitle = _T("测试任务名称"); else strRowTitle = _T("Test data name"); arrHead.Add(strRowTitle + _T(',')); strRowTitle.Empty(); strRowTitle.LoadString(IDS_DB_TD_DESN+g_UIOffset); arrHead.Add(strRowTitle + _T(',')); strRowTitle.Empty(); strRowTitle.LoadString(IDS_DB_TD_SNAME+g_UIOffset); arrHead.Add(strRowTitle + _T(',')); strRowTitle.Empty(); strRowTitle.LoadString(IDS_DB_TD_STYPE+g_UIOffset); arrHead.Add(strRowTitle + _T(',')); strRowTitle.Empty(); strRowTitle.LoadString(IDS_DB_TD_TTYPE+g_UIOffset); arrHead.Add(strRowTitle + _T(',')); strRowTitle.Empty(); strRowTitle.LoadString(IDS_ARRAY_TYPE+g_UIOffset); arrHead.Add(strRowTitle + _T(',')); strRowTitle.Empty(); strRowTitle.LoadString(IDS_DB_TD_EAMOUNT+g_UIOffset); arrHead.Add(strRowTitle + _T(',')); strRowTitle.Empty(); strRowTitle.LoadString(IDS_DB_TD_TPAMOUNT+g_UIOffset); arrHead.Add(strRowTitle + _T(',')); strRowTitle.Empty(); strRowTitle.LoadString(IDS_DB_TD_CHAMOUNT+g_UIOffset); arrHead.Add(strRowTitle + _T(',')); strRowTitle.Empty(); strRowTitle.LoadString(IDS_DB_TD_N+g_UIOffset); arrHead.Add(strRowTitle + _T(',')); strRowTitle.Empty(); strRowTitle.LoadString(IDS_DB_TD_TRWAVE+g_UIOffset); arrHead.Add(strRowTitle + _T(',')); strRowTitle.Empty(); strRowTitle.LoadString(IDS_DB_TD_TRFREQUENCY+g_UIOffset); arrHead.Add(strRowTitle + _T(',')); strRowTitle.Empty(); strRowTitle.LoadString(IDS_DB_TD_IFREQUENCY+g_UIOffset); arrHead.Add(strRowTitle + _T(',')); strRowTitle.Empty(); strRowTitle.LoadString(IDS_DB_TD_CLAYOUT+g_UIOffset); arrHead.Add(strRowTitle + _T(',')); strRowTitle.Empty(); strRowTitle.LoadString(IDS_DB_TD_EDISTANCE+g_UIOffset); arrHead.Add(strRowTitle + _T(',')); strRowTitle.Empty(); strRowTitle.LoadString(IDS_DB_TD_WEATHER+g_UIOffset); arrHead.Add(strRowTitle + _T(',')); strRowTitle.Empty(); strRowTitle.LoadString(IDS_DB_TD_WDIR+g_UIOffset); arrHead.Add(strRowTitle + _T(',')); strRowTitle.Empty(); strRowTitle.LoadString(IDS_DB_TD_TEMPERATURE+g_UIOffset); arrHead.Add(strRowTitle + _T(',')); strRowTitle.Empty(); strRowTitle.LoadString(IDS_DB_TD_HEIGHT+g_UIOffset); arrHead.Add(strRowTitle + _T(',')); strRowTitle.Empty(); strRowTitle.LoadString(IDS_DB_TD_HUMIDITY+g_UIOffset); arrHead.Add(strRowTitle + _T(',')); strRowTitle.Empty(); strRowTitle.LoadString(IDS_DB_TD_CDATE+g_UIOffset); arrHead.Add(strRowTitle + _T(',')); strRowTitle.Empty(); strRowTitle.LoadString(IDS_DB_TD_CTIME+g_UIOffset); arrHead.Add(strRowTitle + _T(',')); strRowTitle.Empty(); strRowTitle.LoadString(IDS_DB_TD_TDATE+g_UIOffset); arrHead.Add(strRowTitle + _T(',')); strRowTitle.Empty(); strRowTitle.LoadString(IDS_DB_TD_TTIME+g_UIOffset); arrHead.Add(strRowTitle + _T(',')); strRowTitle.Empty(); strRowTitle.LoadString(IDS_DB_TD_OP+g_UIOffset); arrHead.Add(strRowTitle + _T(',')); strRowTitle.Empty(); strRowTitle.LoadString(IDS_DB_TD_QA+g_UIOffset); arrHead.Add(strRowTitle + _T(',')); CString strTmpSql = _T(""); strTmpSql.Format(_T("select AR from tdchannel where TDID = %d"),m_dwID); pRecTdHead->Open(strTmpSql.AllocSysString(), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText); if (pRecTdHead->GetRecordCount() < 1) { if (LANG_ZHCN == g_iUILanguage) AfxMessageBox(_T("获取装置失败，查询TdChannel失败")); else MessageBoxEx(NULL, _T("Get Medium AR failed. query TdChannel failed"), STRING_MESSAGEBOXEX_TITLE, MB_OK, MAKELANGID(LANG_ENGLISH, SUBLANG_ENGLISH_US)); } else { iAR = pRecTdHead->GetCollect(_T("AR")).iVal; if (AR_CROSS_HOLE_TYPE == iAR) { strRowTitle.Empty(); strRowTitle.LoadString(IDS_DB_TD_INITI_DEPETH+g_UIOffset); arrHead.Add(strRowTitle + _T(',')); } } pRecTdHead->Close(); ///////////////////////////////////////////////////// int i = 0; arrHead[i++] += ((LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("TDname"))); arrHead[i++] += (pRecTd->GetCollect(_T("DESN")).vt == VT_NULL) ? _T("") : (LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("DESN")); arrHead[i++] += ((LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("Sname"))); szSql.Empty(); szSql.Format(_T("select Clabel from cm where Cname = 'Stype' and Lang = %d and Cvalue = %s"), g_iLanguage, pRecTd->GetCollect(_T("Stype")).vt == VT_NULL ? _T("-1") : (LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("Stype"))); pRecCm->Open(szSql.AllocSysString(), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText); if ((long)0 != pRecCm->GetRecordCount()) { arrHead[i++] += (((LPCTSTR)(_bstr_t)pRecCm->GetCollect(_T("Clabel")))); } pRecCm->Close(); szSql.Empty(); szSql.Format(_T("select Clabel from cm where Cname = 'Ttype' and Lang = %d and Cvalue = %s"), g_iLanguage, pRecTd->GetCollect(_T("Ttype")).vt == VT_NULL ? _T("-1") : (LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("Ttype"))); pRecCm->Open(szSql.AllocSysString(), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText); if ((long)0 != pRecCm->GetRecordCount()) { arrHead[i++] += (((LPCTSTR)(_bstr_t)pRecCm->GetCollect(_T("Clabel")))); } pRecCm->Close(); szSql.Empty(); szSql.Format(_T("select Clabel from cm where Cname = 'Tmode' and Lang = %d and Cvalue = %s"), g_iLanguage, pRecTd->GetCollect(_T("Tmode")).vt == VT_NULL ? _T("-1") : (LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("Tmode"))); pRecCm->Open(szSql.AllocSysString(), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText); if ((long)0 != pRecCm->GetRecordCount()) { } pRecCm->Close(); ///////////////////////////////////加入装置类型//////////////////////////// szSql.Empty(); szSql.Format(_T("select MEname from medium where LANG = %d and AR in (select AR from tdchannel where TDID = %d)"), g_iLanguage, m_dwID); pRecCm->Open(szSql.AllocSysString(), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText); if ((long)VAL_ZERO != pRecCm->GetRecordCount()) { arrHead[i++] += (((LPCTSTR)(_bstr_t)pRecCm->GetCollect(_T("MEname")))); } pRecCm->Close(); ////////////////////////////////////////////////////////////////////////// arrHead[i++] += (((LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("Eamount")))); arrHead[i++] += (((LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("TPamount")))); arrHead[i++] += (((LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("CHamount")))); arrHead[i++] += (((LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("N")))); szSql.Empty(); szSql.Format(_T("select Clabel from cm where Cname = 'TRwave' and Lang = %d and Cvalue = %s"), g_iLanguage, pRecTd->GetCollect(_T("TRwave")).vt == VT_NULL ? _T("-1") : (LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("TRwave"))); pRecCm->Open(szSql.AllocSysString(), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText); if ((long)0 != pRecCm->GetRecordCount()) { arrHead[i++] += (((LPCTSTR)(_bstr_t)pRecCm->GetCollect(_T("Clabel")))); } pRecCm->Close(); if ((0 == pRecTd->GetCollect(_T("Ttype")).iVal) || (1 == pRecTd->GetCollect(_T("Ttype")).iVal)) { szSql.Empty(); szSql.Format(_T("select Clabel from cm where Cname = 'Trfrequency' and Lang = %d and Cvalue = %s"), g_iLanguage, pRecTd->GetCollect(_T("Trfrequency")).vt == VT_NULL ? _T("-1") : (LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("Trfrequency"))); pRecCm->Open(szSql.AllocSysString(), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText); if ((long)0 != pRecCm->GetRecordCount()) { arrHead[i++] += (((LPCTSTR)(_bstr_t)pRecCm->GetCollect(_T("Clabel")))); } pRecCm->Close(); } else if (2 == pRecTd->GetCollect(_T("Ttype")).iVal) { szSql.Empty(); szSql.Format(_T("select Clabel from cm where Cname = 'Trfrequencyself' and Lang = %d and Cvalue = %s"), g_iLanguage, pRecTd->GetCollect(_T("Trfrequency")).vt == VT_NULL ? _T("-1") : (LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("Trfrequency"))); pRecCm->Open(szSql.AllocSysString(), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText); if ((long)0 != pRecCm->GetRecordCount()) { arrHead[i++] += (((LPCTSTR)(_bstr_t)pRecCm->GetCollect(_T("Clabel")))); } pRecCm->Close(); } szSql.Empty(); szSql.Format(_T("select Clabel from cm where Cname = 'Ifrequency' and Lang = %d and Cvalue = %s"), g_iLanguage, pRecTd->GetCollect(_T("Ifrequency")).vt == VT_NULL ? _T("-1") : (LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("Ifrequency"))); pRecCm->Open(szSql.AllocSysString(), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText); if ((long)0 != pRecCm->GetRecordCount()) { arrHead[i++] += (((LPCTSTR)(_bstr_t)pRecCm->GetCollect(_T("Clabel")))); } pRecCm->Close(); szSql.Empty(); szSql.Format(_T("select Clabel from cm where Cname = 'Clayout' and Lang = %d and Cvalue = %s"), g_iLanguage, pRecTd->GetCollect(_T("Clayout")).vt == VT_NULL ? _T("-1") : (LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("Clayout"))); pRecCm->Open(szSql.AllocSysString(), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText); if ((long)0 != pRecCm->GetRecordCount()) { arrHead[i++] += (((LPCTSTR)(_bstr_t)pRecCm->GetCollect(_T("Clabel")))); } pRecCm->Close(); arrHead[i++] += (((LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("Edistance")))); szSql.Empty(); szSql.Format(_T("select Clabel from cm where Cname = 'weather' and Lang = %d and Cvalue = %s"), g_iLanguage, pRecTd->GetCollect(_T("weather")).vt == VT_NULL ? _T("-1") : (LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("weather"))); pRecCm->Open(szSql.AllocSysString(), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText); if ((long)0 != pRecCm->GetRecordCount()) { arrHead[i++] += (((LPCTSTR)(_bstr_t)pRecCm->GetCollect(_T("Clabel")))); } pRecCm->Close(); szSql.Empty(); szSql.Format(_T("select Clabel from cm where Cname = 'WDIR' and Lang = %d and Cvalue = %s"), g_iLanguage, pRecTd->GetCollect(_T("WDIR")).vt == VT_NULL ? _T("-1") : (LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("WDIR"))); pRecCm->Open(szSql.AllocSysString(), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText); if ((long)0 != pRecCm->GetRecordCount()) { arrHead[i++] += (((LPCTSTR)(_bstr_t)pRecCm->GetCollect(_T("Clabel")))); } pRecCm->Close(); CString strTmp = _T(""); float fTmp =(pRecTd->GetCollect(_T("temperature")).vt == VT_NULL) ? -9999:(float)pRecTd->GetCollect(_T("temperature")).fltVal; if (fTmp > -9000) { strTmp.Format(_T("%f"),fTmp); } arrHead[i++] += ((strTmp)); arrHead[i++] += (((pRecTd->GetCollect(_T("height")).vt == VT_NULL) ? _T("") : (LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("height")))); strTmp.Empty(); fTmp = (pRecTd->GetCollect(_T("humidity")).vt == VT_NULL) ? -9999:(float)pRecTd->GetCollect(_T("humidity")).fltVal; if (fTmp > -9000) { strTmp.Format(_T("%f"),fTmp); } arrHead[i++] += ((strTmp)); arrHead[i++] += (((LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("Cdate")))); arrHead[i++] += (((LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("Ctime")))); arrHead[i++] += (((pRecTd->GetCollect(_T("Tdate")).vt == VT_NULL) ? _T("") : (LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("Tdate")))); arrHead[i++] += (((pRecTd->GetCollect(_T("Ttime")).vt == VT_NULL) ? _T("") : (LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("Ttime")))); szSql.Empty(); szSql.Format(_T("select Clabel from cm where Cname = 'Rdirection' and Lang = %d and Cvalue = %s"), g_iLanguage, pRecTd->GetCollect(_T("Rdirection")).vt == VT_NULL ? _T("-1") : (LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("Rdirection"))); pRecCm->Open(szSql.AllocSysString(), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText); if ((long)0 != pRecCm->GetRecordCount()) { } pRecCm->Close(); arrHead[i++] += (((pRecTd->GetCollect(_T("OP")).vt == VT_NULL) ? _T("") : (LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("OP")))); arrHead[i++] += (((pRecTd->GetCollect(_T("QA")).vt == VT_NULL) ? _T("") : (LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("QA")))); if (AR_CROSS_HOLE_TYPE == iAR) { arrHead[i++] += (((LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("Espace")))); } } pRecTd->Close(); for (int j = 0; j < arrHead.GetCount(); j++) { arrHead[j] += "\n"; fwrite(arrHead[j], 1, arrHead[j].GetLength(), pFile); } fflush(pFile); return TRUE; } BOOL CRsp2DTd::SaveTdConToCsvFile(FILE* pFile) { CString szSql = _T(""); if (EXP_2D_DATA_BY_DEPTH == theApp.Get2dDataExpStyle()) { _RecordsetPtr pRecAR = NULL; pRecAR.CreateInstance(_uuidof(Recordset)); szSql.Format(_T("select AR from tdchannel where TDID = %u"), m_dwID); pRecAR->Open(szSql.AllocSysString(), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText); if (pRecAR->GetRecordCount() < 1) { if (LANG_ZHCN == g_iUILanguage) AfxMessageBox(_T("在excel保存中获取AR信息失败")); else MessageBoxEx(NULL, _T("Get AR information failed in save excel"), STRING_MESSAGEBOXEX_TITLE, MB_OK, MAKELANGID(LANG_ENGLISH, SUBLANG_ENGLISH_US)); pRecAR->Close(); return FALSE; } int iAR = pRecAR->GetCollect(_T("AR")).iVal; if (AR_CROSS_HOLE_TYPE != iAR && AR_BIPOLE_HOLE_SPT != iAR) { pRecAR->Close(); return SaveTdConToCsvFileBySort(pFile,1); } } _RecordsetPtr pRecConList = NULL; CString szRow = _T(""); //A(C1) B(C2) M(P1) N(P2) Stacking K I(mA) V(mV) R(Ohm) R0 SP R0_RD int iIndex = (int)0; iIndex = 1; szRow.Empty(); szRow += ((_T("A(C1)"))); szRow += ','; szRow += ((_T("B(C2)"))); szRow += ','; szRow += ((_T("M(P1)"))); szRow += ','; szRow += ((_T("N(P2)"))); szRow += ','; szRow += ((_T("Stacking"))); szRow += ','; szRow += ((_T("K"))); szRow += ','; szRow += ((_T("I(mA)"))); szRow += ','; szRow += ((_T("V(mV)"))); szRow += ','; szRow += ((_T("R(Ohm)"))); szRow += ','; szRow += ((_T("R0"))); szRow += ','; szRow += ((_T("SP"))); szRow += ','; szRow += ((_T("R0_RD"))); szRow += "\n"; fwrite(szRow, 1, szRow.GetLength(), pFile); fflush(pFile); pRecConList.CreateInstance(_uuidof(Recordset)); szSql.Empty(); szSql.Format(_T("select C1,C2,P1,P2,N,K,I,V,R0,SP,bUse,R0_LC,M0_LC from td2dcon where TCHID in (select ID from tdchannel where TDID = %u order by TCHID) order by TSN"), m_dwID); try { pRecConList->Open(szSql.AllocSysString(), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText); } catch (_com_error e) { hHook = SetWindowsHookEx(WH_CBT,(HOOKPROC)CBTHookProc,AfxGetInstanceHandle(),NULL); AfxMessageBox((LPCTSTR)e.Description()); } float fV = 0, fI = 0, fR = 0; CString strText = _T(""); while ((short)0 == pRecConList->adoEOF) { if (pRecConList->GetCollect(_T("bUse")).boolVal != 0)//0为access数据库中的false { iIndex++; szRow.Empty(); szRow += (((LPCTSTR)(_bstr_t)pRecConList->GetCollect(_T("C1")))); szRow += ','; szRow += (((LPCTSTR)(_bstr_t)pRecConList->GetCollect(_T("C2")))); szRow += ','; szRow += (((LPCTSTR)(_bstr_t)pRecConList->GetCollect(_T("P1")))); szRow += ','; szRow += (((LPCTSTR)(_bstr_t)pRecConList->GetCollect(_T("P2")))); szRow += ','; szRow += (((LPCTSTR)(_bstr_t)pRecConList->GetCollect(_T("N")))); szRow += ','; strText.Empty(); strText.Format(_T("%f"),pRecConList->GetCollect(_T("K")).fltVal); szRow += ((strText)); szRow += ','; strText.Empty(); strText.Format(_T("%f"),pRecConList->GetCollect(_T("I")).fltVal); szRow += ((strText)); szRow += ','; strText.Empty(); strText.Format(_T("%f"),pRecConList->GetCollect(_T("V")).fltVal); szRow += ((strText)); szRow += ','; //添加R fV = (float)pRecConList->GetCollect(_T("V")).fltVal; fI = (float)pRecConList->GetCollect(_T("I")).fltVal; fR = (0 == fI) ? 0 : fV/fI; strText.Empty(); strText.Format(_T("%f"),fR); szRow += ((strText)); szRow += ','; strText.Empty(); strText.Format(_T("%f"),pRecConList->GetCollect(_T("R0")).fltVal); szRow += ((strText)); szRow += ','; strText.Empty(); strText.Format(_T("%f"),pRecConList->GetCollect(_T("SP")).fltVal); szRow += ((strText)); szRow += ','; strText.Empty(); strText.Format(_T("%f%%"), pRecConList->GetCollect(_T("R0_LC")).fltVal); szRow += ((strText)); szRow += "\n"; fwrite(szRow, 1, szRow.GetLength(), pFile); } pRecConList->MoveNext(); } fflush(pFile); pRecConList->Close(); return TRUE; } BOOL CRsp2DTd::SaveTdConToCsvFileBySort(FILE* pFile, int iMethod) { _RecordsetPtr pRecConList = NULL; CString szSql = _T(""); CString szRow = _T(""); int iIndex = (int)0; iIndex = 1; szRow.Empty(); szRow += ((_T("A(C1)"))); szRow += ','; szRow += ((_T("B(C2)"))); szRow += ','; szRow += ((_T("M(P1)"))); szRow += ','; szRow += ((_T("N(P2)"))); szRow += ','; szRow += ((_T("Stacking"))); szRow += ','; szRow += ((_T("K"))); szRow += ','; szRow += ((_T("I(mA)"))); szRow += ','; szRow += ((_T("V(mV)"))); szRow += ','; szRow += ((_T("R(Ohm)"))); szRow += ','; szRow += ((_T("R0"))); szRow += ','; szRow += ((_T("SP"))); szRow += ','; szRow += ((_T("R0_RD"))); szRow += "\n"; fwrite(szRow, 1, szRow.GetLength(), pFile); pRecConList.CreateInstance(_uuidof(Recordset)); szSql.Empty(); szSql.Format(_T("select C1,C2,P1,P2,N,K,I,V,R0,SP,R0_LC,M0_LC,Layer,AR from td2dcon a, tdchannel b where a.bUse <> 0 and a.TCHID = b.ID and b.TDID = %u order by a.TSN"), m_dwID); try { pRecConList->Open(szSql.AllocSysString(), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText); } catch (_com_error e) { hHook = SetWindowsHookEx(WH_CBT,(HOOKPROC)CBTHookProc,AfxGetInstanceHandle(),NULL); AfxMessageBox((LPCTSTR)e.Description()); } if (pRecConList->GetRecordCount() < 1) { pRecConList->Close(); return TRUE; } int iAR = pRecConList->GetCollect(_T("AR")).iVal; COperMediumPt operMedium(iAR); if (!operMedium.InitiSortInfo(iMethod)) { if (LANG_ZHCN == g_iUILanguage) AfxMessageBox(_T("初始排序信息失败")); else MessageBoxEx(NULL, _T("Initial sort information failed"), STRING_MESSAGEBOXEX_TITLE, MB_OK, MAKELANGID(LANG_ENGLISH, SUBLANG_ENGLISH_US)); pRecConList->Close(); return FALSE; } std::vector vtStTdTaskData; vtStTdTaskData.clear(); int iSortIndex = 0; while ((short)0 == pRecConList->adoEOF) { StTdTaskComDataInfo stTdTaskData; stTdTaskData.iC1 = pRecConList->GetCollect(_T("C1")).iVal; stTdTaskData.iC2 = pRecConList->GetCollect(_T("C2")).iVal; stTdTaskData.iP1 = pRecConList->GetCollect(_T("P1")).iVal; stTdTaskData.iP2 = pRecConList->GetCollect(_T("P2")).iVal; stTdTaskData.iN = pRecConList->GetCollect(_T("N")).iVal; stTdTaskData.fK = pRecConList->GetCollect(_T("K")).fltVal; stTdTaskData.fV = pRecConList->GetCollect(_T("V")).fltVal; stTdTaskData.fI = pRecConList->GetCollect(_T("I")).fltVal; stTdTaskData.fR0 = pRecConList->GetCollect(_T("R0")).fltVal; stTdTaskData.fSP = pRecConList->GetCollect(_T("SP")).fltVal; stTdTaskData.fR0_LC = pRecConList->GetCollect(_T("R0_LC")).fltVal; stTdTaskData.fM0_LC = pRecConList->GetCollect(_T("M0_LC")).fltVal; vtStTdTaskData.push_back(stTdTaskData); operMedium.AddSortPtInfo(stTdTaskData.iC1, stTdTaskData.iC2, stTdTaskData.iP1, stTdTaskData.iP2, pRecConList->GetCollect(_T("Layer")).iVal, iSortIndex++); pRecConList->MoveNext(); } float fR = 0; CString strText = _T(""); iSortIndex = operMedium.GetFirstSortID(iMethod); BOOL bRes = TRUE; CString strErr = _T(""); float fPtXPos = 0; while(iSortIndex>=0) { if (iSortIndex >= vtStTdTaskData.size()) { strErr.Empty(); if (LANG_ZHCN == g_iUILanguage) { strErr.Format(_T("导出excel中的数据索引混乱，data_index =%d,total_size=%d"), iSortIndex + 1, vtStTdTaskData.size()); AfxMessageBox(strErr); } else { strErr.Format(_T("Data index disorder in export excel,data_index = %d,total_size=%d"), iSortIndex + 1, vtStTdTaskData.size()); MessageBoxEx(NULL, strErr, STRING_MESSAGEBOXEX_TITLE, MB_OK, MAKELANGID(LANG_ENGLISH, SUBLANG_ENGLISH_US)); } bRes = FALSE; break; } CString strIndex = _T(""); iIndex++; if ((fPtXPos > EPSINON) && (operMedium.GetCurPtXPos() - fPtXPos > EPSINON)) { //这里由于需要明确区分一次排序后的的点，以空一行来表示分开 iIndex++; } fPtXPos = operMedium.GetCurPtXPos(); szRow.Empty(); strText.Empty(); strText.Format(_T("%d"), vtStTdTaskData[iSortIndex].iC1); szRow += ((strText)); szRow += ','; strText.Empty(); strText.Format(_T("%d"), vtStTdTaskData[iSortIndex].iC2); szRow += ((strText)); szRow += ','; strText.Empty(); strText.Format(_T("%d"), vtStTdTaskData[iSortIndex].iP1); szRow += ((strText)); szRow += ','; strText.Empty(); strText.Format(_T("%d"), vtStTdTaskData[iSortIndex].iP2); szRow += ((strText)); szRow += ','; strText.Empty(); strText.Format(_T("%d"), vtStTdTaskData[iSortIndex].iN); szRow += ((strText)); szRow += ','; strText.Empty(); strText.Format(_T("%f"), vtStTdTaskData[iSortIndex].fK); szRow += ((strText)); szRow += ','; strText.Empty(); strText.Format(_T("%f"), vtStTdTaskData[iSortIndex].fI); szRow += ((strText)); szRow += ','; strText.Empty(); strText.Format(_T("%f"), vtStTdTaskData[iSortIndex].fV); szRow += ((strText)); szRow += ','; fR = (fabsf(vtStTdTaskData[iSortIndex].fI) <= EPSINON) ? 0 : vtStTdTaskData[iSortIndex].fV/vtStTdTaskData[iSortIndex].fI; strText.Empty(); strText.Format(_T("%f"), fR); szRow += ((strText)); szRow += ','; strText.Empty(); strText.Format(_T("%f"), vtStTdTaskData[iSortIndex].fR0); szRow += ((strText)); szRow += ','; strText.Empty(); strText.Format(_T("%f"), vtStTdTaskData[iSortIndex].fSP); szRow += ((strText)); szRow += ','; strText.Empty(); strText.Format(_T("%f"), vtStTdTaskData[iSortIndex].fR0_LC); szRow += ((strText)); szRow += "\n"; fwrite(szRow, 1, szRow.GetLength(), pFile); iSortIndex = operMedium.GetNextSortID(); } fflush(pFile); pRecConList->Close(); return bRes; } BOOL CRsp2DTd::ExportResDataToTxt(CString strFileName) { CString szSql = _T(""); if (EXP_2D_DATA_BY_DEPTH == theApp.Get2dDataExpStyle()) { _RecordsetPtr pRecAR = NULL; pRecAR.CreateInstance(_uuidof(Recordset)); szSql.Format(_T("select AR from tdchannel where TDID = %u"), m_dwID); pRecAR->Open(szSql.AllocSysString(), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText); if (pRecAR->GetRecordCount() < 1) { if (LANG_ZHCN == g_iUILanguage) AfxMessageBox(_T("获取AR信息失败")); else MessageBoxEx(NULL, _T("Get AR information failed"), STRING_MESSAGEBOXEX_TITLE, MB_OK, MAKELANGID(LANG_ENGLISH, SUBLANG_ENGLISH_US)); pRecAR->Close(); return FALSE; } int iAR = pRecAR->GetCollect(_T("AR")).iVal; if (AR_CROSS_HOLE_TYPE != iAR && AR_BIPOLE_HOLE_SPT != iAR) { pRecAR->Close(); return Export2dDataToTxtBySort(strFileName,1); } } _RecordsetPtr pRecTd = NULL; pRecTd.CreateInstance(_uuidof(Recordset)); szSql = _T(""); szSql.Format(_T("select Eamount, AR from td a, tdchannel b where a.ID = %u and a.ID = b.TDID and b.CHnumber=1"), this->m_dwID); try { pRecTd->Open(szSql.AllocSysString(), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText); } catch(_com_error e) { AfxMessageBox(e.Description()); return FALSE; } if (pRecTd->GetRecordCount()< 1) { if (LANG_ZHCN == g_iUILanguage) AfxMessageBox(_T("查询任务信息失败")); else MessageBoxEx(NULL, _T("Query task information failed"), STRING_MESSAGEBOXEX_TITLE, MB_OK, MAKELANGID(LANG_ENGLISH, SUBLANG_ENGLISH_US)); pRecTd->Close(); return FALSE; } int iAR= pRecTd->GetCollect(_T("AR")).iVal; int iEamount = (pRecTd->GetCollect(_T("Eamount")).vt == VT_NULL) ? 0 : pRecTd->GetCollect(_T("Eamount")).iVal; int iMidEAmout = iEamount/2; pRecTd->Close(); int iLeftHole = 0, iRightHole = 0; if ((AR_CUSTOM_2D_TYPE == iAR) && m_bIsCustomToCrossHole) { CString strName = PathFindFileName(strFileName); // strFileName.TrimLeft(); // CString strKey = strName.Left(3); CStringArray strArrKey; strArrKey.RemoveAll(); SplitterString(strArrKey, strName, "_"); if (strArrKey.GetSize() < 2) { if (LANG_ZHCN == g_iUILanguage) AfxMessageBox(_T("解析文件名中的漏洞信息失败。")); else MessageBoxEx(NULL, _T("Parser the hole information in the file name failed."), STRING_MESSAGEBOXEX_TITLE, MB_OK, MAKELANGID(LANG_ENGLISH, SUBLANG_ENGLISH_US)); return FALSE; } iLeftHole = atoi(strArrKey.GetAt(0)); iRightHole = atoi(strArrKey.GetAt(1)); CString strKey = ""; strKey.Format(_T("%d_%d"),iLeftHole, iRightHole); std::map::iterator iter = theApp.m_mapCrossHole.find(strKey); if (iter == theApp.m_mapCrossHole.end()) { CString strErr = ""; if (LANG_ZHCN == g_iUILanguage) { strErr.Format(_T("导出到txt时找不到跨孔密钥信息(%s)"), strKey); AfxMessageBox(strErr); } else { strErr.Format(_T("Can not found cross_hole key info(%s) when expot to txt"), strKey); MessageBoxEx(NULL, strErr, STRING_MESSAGEBOXEX_TITLE, MB_OK, MAKELANGID(LANG_ENGLISH, SUBLANG_ENGLISH_US)); } return FALSE; } } COperTxtFile operTxtFile; if (!operTxtFile.OpenFileforWrite(strFileName)) { return FALSE; } _RecordsetPtr pRecConList = NULL; pRecConList.CreateInstance(_uuidof(Recordset)); CStringArray strArrTxt; strArrTxt.RemoveAll(); strArrTxt.Add(_T("A(C1)")); strArrTxt.Add(_T("B(C2)")); strArrTxt.Add(_T("M(P1)")); strArrTxt.Add(_T("N(P2)")); strArrTxt.Add(_T("Stacking")); strArrTxt.Add(_T("K")); strArrTxt.Add(_T("V(mV)")); strArrTxt.Add(_T("I(mA)")); strArrTxt.Add(_T("R(Ohm)")); strArrTxt.Add(_T("R0")); strArrTxt.Add(_T("SP")); strArrTxt.Add(_T("R0_RD")); szSql.Empty(); szSql.Format(_T("select C1,C2,P1,P2,N,K,I,V,R0,SP,bUse,R0_LC,M0_LC from td2dcon where TCHID in (select ID from tdchannel where TDID = %u order by TCHID) order by TSN"), m_dwID); try { pRecConList->Open(szSql.AllocSysString(), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText); } catch (_com_error e) { hHook = SetWindowsHookEx(WH_CBT,(HOOKPROC)CBTHookProc,AfxGetInstanceHandle(),NULL); AfxMessageBox((LPCTSTR)e.Description()); operTxtFile.CloseFile(); return FALSE; } if (!operTxtFile.WriteFileContent(strArrTxt)) { operTxtFile.CloseFile(); return FALSE; } CString strText = _T(""); float fV = 0, fI = 0, fR = 0; CString strC1, strC2, strP1, strP2; while ((short)0 == pRecConList->adoEOF) { if (pRecConList->GetCollect(_T("bUse")).boolVal != 0)//0为access数据库中的false { strArrTxt.RemoveAll(); strC1 = (LPCTSTR)(_bstr_t)pRecConList->GetCollect(_T("C1")); strC2 = (LPCTSTR)(_bstr_t)pRecConList->GetCollect(_T("C2")); strP1 = (LPCTSTR)(_bstr_t)pRecConList->GetCollect(_T("P1")); strP2 = (LPCTSTR)(_bstr_t)pRecConList->GetCollect(_T("P2")); if ((iAR == AR_CUSTOM_2D_TYPE) && m_bIsCustomToCrossHole) { int iLFlag, iRFlag; if (iLeftHole <= iRightHole) { iLFlag = 0; iRFlag = 1; } else { iLFlag = 1; iRFlag = 0; } strC1.Format(_T("%d"), CalcuCrossHolePoleID(atoi(strC1), iLeftHole, iLFlag, iMidEAmout)); strC2.Format(_T("%d"), CalcuCrossHolePoleID(atoi(strC2), iRightHole, iRFlag,iMidEAmout)); strP1.Format(_T("%d"), CalcuCrossHolePoleID(atoi(strP1), iLeftHole, iLFlag, iMidEAmout)); strP2.Format(_T("%d"), CalcuCrossHolePoleID(atoi(strP2), iRightHole, iRFlag, iMidEAmout)); } strArrTxt.Add(strC1); strArrTxt.Add(strC2); strArrTxt.Add(strP1); strArrTxt.Add(strP2); strArrTxt.Add((LPCTSTR)(_bstr_t)pRecConList->GetCollect(_T("N"))); strText.Empty(); strText.Format(_T("%f"),pRecConList->GetCollect(_T("K")).fltVal); strArrTxt.Add(strText); strText.Empty(); strText.Format(_T("%f"),pRecConList->GetCollect(_T("V")).fltVal); strArrTxt.Add(strText); strText.Empty(); strText.Format(_T("%f"),pRecConList->GetCollect(_T("I")).fltVal); strArrTxt.Add(strText); //添加R fV = (float)pRecConList->GetCollect(_T("V")).fltVal; fI = (float)pRecConList->GetCollect(_T("I")).fltVal; fR = (0 == fI) ? 0 : fV/fI; strText.Empty(); strText.Format(_T("%f"),fR); strArrTxt.Add(strText); strText.Empty(); strText.Format(_T("%f"),pRecConList->GetCollect(_T("R0")).fltVal); strArrTxt.Add(strText); strText.Empty(); strText.Format(_T("%f"),pRecConList->GetCollect(_T("SP")).fltVal); strArrTxt.Add(strText); strText.Empty(); strText.Format(_T("%f%%"),pRecConList->GetCollect(_T("R0_LC")).fltVal); strArrTxt.Add(strText); if (!operTxtFile.WriteFileContent(strArrTxt)) { operTxtFile.CloseFile(); return FALSE; } } pRecConList->MoveNext(); } pRecConList->Close(); operTxtFile.CloseFile(); return TRUE; } BOOL CRsp2DTd::SaveTdGRToExcelFile(_Worksheet* const pComSheet) { Range comRange; excel9::Font comFont; Range comCols; _RecordsetPtr pRecGrList = NULL; CString szSql = _T(""); CString szRow = _T(""); int iIndex = (int)0; iIndex = 1; szRow.Empty(); szRow.Format(_T("A%d"), iIndex); comRange = pComSheet->GetRange(COleVariant(szRow), COleVariant(szRow)); comRange.SetValue2(COleVariant(_T("Electrode ID"))); comFont = comRange.GetFont(); comFont.SetBold(COleVariant((short)TRUE)); comCols = comRange.GetEntireColumn(); comCols.AutoFit(); szRow.Empty(); szRow.Format(_T("B%d"), iIndex); comRange = pComSheet->GetRange(COleVariant(szRow), COleVariant(szRow)); comRange.SetValue2(COleVariant(_T("Test date"))); comFont = comRange.GetFont(); comFont.SetBold(COleVariant((short)TRUE)); comCols = comRange.GetEntireColumn(); comCols.AutoFit(); szRow.Empty(); szRow.Format(_T("C%d"), iIndex); comRange = pComSheet->GetRange(COleVariant(szRow), COleVariant(szRow)); comRange.SetValue2(COleVariant(_T("Test time"))); comFont = comRange.GetFont(); comFont.SetBold(COleVariant((short)TRUE)); comCols = comRange.GetEntireColumn(); comCols.AutoFit(); szRow.Empty(); szRow.Format(_T("D%d"), iIndex); comRange = pComSheet->GetRange(COleVariant(szRow), COleVariant(szRow)); comRange.SetValue2(COleVariant(_T("P1 Rg(Ω)"))); comFont = comRange.GetFont(); comFont.SetBold(COleVariant((short)TRUE)); comCols = comRange.GetEntireColumn(); comCols.AutoFit(); szRow.Empty(); szRow.Format(_T("E%d"), iIndex); comRange = pComSheet->GetRange(COleVariant(szRow), COleVariant(szRow)); comRange.SetValue2(COleVariant(_T("Status"))); comFont = comRange.GetFont(); comFont.SetBold(COleVariant((short)TRUE)); comCols = comRange.GetEntireColumn(); comCols.AutoFit(); szRow.Empty(); szRow.Format(_T("F%d"), iIndex); comRange = pComSheet->GetRange(COleVariant(szRow), COleVariant(szRow)); comRange.SetValue2(COleVariant(_T("P2 Rg(Ω)"))); comFont = comRange.GetFont(); comFont.SetBold(COleVariant((short)TRUE)); comCols = comRange.GetEntireColumn(); comCols.AutoFit(); szRow.Empty(); szRow.Format(_T("G%d"), iIndex); comRange = pComSheet->GetRange(COleVariant(szRow), COleVariant(szRow)); comRange.SetValue2(COleVariant(_T("Status"))); comFont = comRange.GetFont(); comFont.SetBold(COleVariant((short)TRUE)); comCols = comRange.GetEntireColumn(); comCols.AutoFit(); pRecGrList.CreateInstance(_uuidof(Recordset)); szSql.Empty(); szSql.Format(_T("select Ecode,Format(Mdate,'YYYY-MM-DD') as Mdate,Format(Mtime,'HH:MM:SS') as Mtime,OMvalue, OM1value,") _T(" StatusCode, StatusCode1 from gr where TDID = %u order by Val(Ecode)"), m_dwID); pRecGrList->Open(szSql.AllocSysString(), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText); int iOMVal = -1, iOMVal1 = -1; CString strOMVal, strOMVal1; CString strMdate, strMtime; CString strStatus, strStatus1; while ((short)0 == pRecGrList->adoEOF) { iIndex++; szRow.Empty(); szRow.Format(_T("A%d"), iIndex); comRange = pComSheet->GetRange(COleVariant(szRow), COleVariant(szRow)); comRange.SetValue2(COleVariant((LPCTSTR)(_bstr_t)pRecGrList->GetCollect(_T("Ecode")))); // comCols = comRange.GetEntireColumn(); // comCols.AutoFit(); strOMVal.Empty(); strOMVal1.Empty(); strMdate.Empty(); strMtime.Empty(); strStatus.Empty(); strStatus1.Empty(); iOMVal = (int)pRecGrList->GetCollect(_T("OMvalue")).lVal; iOMVal1 = (int)pRecGrList->GetCollect(_T("OM1value")).lVal; if (-1 != iOMVal) { strOMVal.Format(_T("%d"), iOMVal); strMdate = (LPCTSTR)(_bstr_t)pRecGrList->GetCollect(_T("Mdate")); strMtime = (LPCTSTR)(_bstr_t)pRecGrList->GetCollect(_T("Mtime")); strStatus = GetGrCodeText((int)pRecGrList->GetCollect(_T("StatusCode")).lVal); } if (-1 != iOMVal1) { strOMVal1.Format(_T("%d"), iOMVal1); strStatus1 = GetGrCodeText((int)pRecGrList->GetCollect(_T("StatusCode1")).lVal); } szRow.Empty(); szRow.Format(_T("B%d"), iIndex); comRange = pComSheet->GetRange(COleVariant(szRow), COleVariant(szRow)); comRange.SetValue2(COleVariant(strMdate)); // comCols = comRange.GetEntireColumn(); // comCols.AutoFit(); szRow.Empty(); szRow.Format(_T("C%d"), iIndex); comRange = pComSheet->GetRange(COleVariant(szRow), COleVariant(szRow)); comRange.SetValue2(COleVariant(strMtime)); // comCols = comRange.GetEntireColumn(); // comCols.AutoFit(); szRow.Empty(); szRow.Format(_T("D%d"), iIndex); comRange = pComSheet->GetRange(COleVariant(szRow), COleVariant(szRow)); comRange.SetValue2(COleVariant(strOMVal)); // comCols = comRange.GetEntireColumn(); // comCols.AutoFit(); szRow.Empty(); szRow.Format(_T("E%d"), iIndex); comRange = pComSheet->GetRange(COleVariant(szRow), COleVariant(szRow)); comRange.SetValue2(COleVariant(strStatus)); szRow.Empty(); szRow.Format(_T("F%d"), iIndex); comRange = pComSheet->GetRange(COleVariant(szRow), COleVariant(szRow)); comRange.SetValue2(COleVariant(strOMVal1)); szRow.Empty(); szRow.Format(_T("G%d"), iIndex); comRange = pComSheet->GetRange(COleVariant(szRow), COleVariant(szRow)); comRange.SetValue2(COleVariant(strStatus1)); pRecGrList->MoveNext(); } pRecGrList->Close(); return TRUE; } BOOL CRsp2DTd::SaveTdGRToCsvFile(FILE* pFile) { _RecordsetPtr pRecGrList = NULL; CString szSql = _T(""); CString szRow = _T(""); int iIndex = (int)0; iIndex = 1; szRow.Empty(); szRow += ((_T("Electrode ID"))); szRow += ','; szRow += ((_T("Test date"))); szRow += ','; szRow += ((_T("Test time"))); szRow += ','; szRow += ((_T("P1 Rg(Ω)"))); szRow += ','; szRow += ((_T("Status"))); szRow += ','; szRow += ((_T("P2 Rg(Ω)"))); szRow += ','; szRow += ((_T("Status"))); szRow += "\n"; fwrite(szRow, 1, szRow.GetLength(), pFile); fflush(pFile); pRecGrList.CreateInstance(_uuidof(Recordset)); szSql.Empty(); szSql.Format(_T("select Ecode,Format(Mdate,'YYYY-MM-DD') as Mdate,Format(Mtime,'HH:MM:SS') as Mtime,OMvalue, OM1value,") _T(" StatusCode, StatusCode1 from gr where TDID = %u order by Val(Ecode)"), m_dwID); pRecGrList->Open(szSql.AllocSysString(), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText); int iOMVal = -1, iOMVal1 = -1; CString strOMVal, strOMVal1; CString strMdate, strMtime; CString strStatus, strStatus1; while ((short)0 == pRecGrList->adoEOF) { iIndex++; szRow.Empty(); szRow += (((LPCTSTR)(_bstr_t)pRecGrList->GetCollect(_T("Ecode")))); szRow += ','; strOMVal.Empty(); strOMVal1.Empty(); strMdate.Empty(); strMtime.Empty(); strStatus.Empty(); strStatus1.Empty(); iOMVal = (int)pRecGrList->GetCollect(_T("OMvalue")).lVal; iOMVal1 = (int)pRecGrList->GetCollect(_T("OM1value")).lVal; if (-1 != iOMVal) { strOMVal.Format(_T("%d"),iOMVal); strMdate = (LPCTSTR)(_bstr_t)pRecGrList->GetCollect(_T("Mdate")); strMtime = (LPCTSTR)(_bstr_t)pRecGrList->GetCollect(_T("Mtime")); strStatus = GetGrCodeText((int)pRecGrList->GetCollect(_T("StatusCode")).lVal); } if (-1 != iOMVal1) { strOMVal1.Format(_T("%d"),iOMVal1); strStatus1 = GetGrCodeText((int)pRecGrList->GetCollect(_T("StatusCode1")).lVal); } szRow += ((strMdate)); szRow += ','; szRow += ((strMtime)); szRow += ','; szRow += ((strOMVal)); szRow += ','; szRow += ((strStatus)); szRow += ','; szRow += ((strOMVal1)); szRow += ','; szRow += ((strStatus1)); szRow += "\n"; fwrite(szRow, 1, szRow.GetLength(), pFile); pRecGrList->MoveNext(); } fflush(pFile); pRecGrList->Close(); return TRUE; } BOOL CRsp2DTd::ExportDataToUrf(CString strFileName) { strFileName.TrimLeft(); COperUrfFile operUrfFile; if (!operUrfFile.OpenUrfFileForWrite(strFileName)) { return FALSE; } operUrfFile.WriteUrfHeadInfo(); _RecordsetPtr pRecConList = NULL; _RecordsetPtr pRecTd = NULL; pRecConList.CreateInstance(_uuidof(Recordset)); pRecTd.CreateInstance(_uuidof(Recordset)); CString szSql = _T(""); try { szSql.Format(_T("select StartElec,EndElec,Eamount,Edistance,AR,SCCN,TDCN from td a, tdchannel b where a.ID = %u and a.ID = b.TDID and b.CHnumber=1"), this->m_dwID); pRecTd->Open(szSql.AllocSysString(), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText); if (pRecTd->GetRecordCount() < 1) { if (LANG_ZHCN == g_iUILanguage) AfxMessageBox(_T("查询任务信息失败")); else MessageBoxEx(NULL, _T("Query task information failed"), STRING_MESSAGEBOXEX_TITLE, MB_OK, MAKELANGID(LANG_ENGLISH, SUBLANG_ENGLISH_US)); operUrfFile.CloseFile(); pRecTd->Close(); return FALSE; } int iTaskAR = (pRecTd->GetCollect(_T("AR")).vt == VT_NULL) ? 0 : pRecTd->GetCollect(_T("AR")).iVal; int iStartElec = (pRecTd->GetCollect(_T("StartElec")).vt == VT_NULL) ? 0 : pRecTd->GetCollect(_T("StartElec")).lVal; int iEndElec = (pRecTd->GetCollect(_T("EndElec")).vt == VT_NULL) ? 0 : pRecTd->GetCollect(_T("EndElec")).lVal; CString strSCCN = (pRecTd->GetCollect(_T("SCCN")).vt == VT_NULL) ? _T("") : (LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("SCCN")); CString strTDCN = (pRecTd->GetCollect(_T("TDCN")).vt == VT_NULL) ? _T("") : (LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("TDCN")); STCorssHoleCfgInfo stCroHoleInfo; int iLeftHole = 0, iRightHole = 0; int iExpType = 39;//任务导出类型，默认按照温-斯装置导 if ((AR_CUSTOM_2D_TYPE == iTaskAR) && m_bIsCustomToCrossHole) { CString strName = PathFindFileName(strFileName); CStringArray strArrKey; strArrKey.RemoveAll(); SplitterString(strArrKey, strName, "_"); if (strArrKey.GetSize() < 2) { if (LANG_ZHCN == g_iUILanguage) AfxMessageBox(_T("解析文件名中的孔信息失败")); else MessageBoxEx(NULL, _T("Parser the hole information in the file name failed."), STRING_MESSAGEBOXEX_TITLE, MB_OK, MAKELANGID(LANG_ENGLISH, SUBLANG_ENGLISH_US)); return FALSE; } iLeftHole = atoi(strArrKey.GetAt(0)); iRightHole = atoi(strArrKey.GetAt(1)); CString strKey = ""; strKey.Format(_T("%d_%d"),iLeftHole, iRightHole); std::map::iterator iter = theApp.m_mapCrossHole.find(strKey); if (iter == theApp.m_mapCrossHole.end()) { CString strErr = ""; strErr.Format(_T("can not found key(%s) when export customer task to urf."),strKey); pRecTd->Close(); operUrfFile.CloseFile(); return FALSE; } stCroHoleInfo = iter->second; iExpType = AR_CUSTOM_2D_TYPE; operUrfFile.SetExtParam(stCroHoleInfo.fFirstPoleDep); } CString strTxt = (pRecTd->GetCollect(_T("Edistance")).vt == VT_NULL) ? _T("") : (LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("Edistance")); int iEamount = (pRecTd->GetCollect(_T("Eamount")).vt == VT_NULL) ? 0 : pRecTd->GetCollect(_T("Eamount")).iVal; pRecTd->Close(); if (AR_CROSS_HOLE_GEOMATIVE != iTaskAR && AR_CROSS_HOLE_GEOMATIVE_AM != iTaskAR) { if (strTxt.IsEmpty() || iEamount == 0) { if (LANG_ZHCN == g_iUILanguage) AfxMessageBox(_T("查询Eamount或Edistance错误")); else MessageBoxEx(NULL, _T("Query Eamount or Edistance error"), STRING_MESSAGEBOXEX_TITLE, MB_OK, MAKELANGID(LANG_ENGLISH, SUBLANG_ENGLISH_US)); operUrfFile.CloseFile(); return FALSE; } } float fParamVal = (AR_CUSTOM_2D_TYPE == iTaskAR) ? stCroHoleInfo.fHoleSpace : 0; if (AR_CROSS_HOLE_TYPE == iTaskAR)//quyx 20181010 { iExpType = 40; CStringArray strArrKey; strArrKey.RemoveAll(); SplitterString(strArrKey, strTxt, ","); if (strArrKey.GetSize() >= 2) { fParamVal = atof(strArrKey.GetAt(1)); } } switch (iTaskAR) { case AR_POLE_DIPOLE_AMN: iExpType = 37;//任务导出类型，默认按照温-斯装置导 break; case AR_DIPOLE_POLE_MNB: iExpType = 38;//任务导出类型，默认按照温-斯装置导 break; case AR_POLE_POLE_AM: iExpType = 36;//任务导出类型，默认按照温-斯装置导 break; case AR_CROSS_HOLE_GEOMATIVE: case AR_CROSS_HOLE_GEOMATIVE_AM: iExpType = AR_CROSS_HOLE_GEOMATIVE;//Cross-Hole(Geomative)按自己的方式导出 break; default: break; } //兼容之前的数据库td没有写入起始电极，默认从1开始。 if (0 == iStartElec) iStartElec = 1; if (iExpType != AR_CROSS_HOLE_GEOMATIVE) { if (!operUrfFile.WriteUrfPoleInfo(iExpType, iEamount, atof(strTxt), fParamVal, iStartElec, iEndElec)) { operUrfFile.CloseFile(); return FALSE; } } else { //跨孔的直接传脚本的CN //三维的任务暂时用二维的导出方式 if (strSCCN.IsEmpty()) { szSql.Empty(); szSql.Format(_T("select Eamount,Edistance,SCCN,TDCN from td where TDCN='%s'"),strTDCN); pRecConList->Open(szSql.AllocSysString(), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText); while ((short)0 == pRecConList->adoEOF) { strSCCN = (pRecConList->GetCollect(_T("SCCN")).vt == VT_NULL) ? _T("") : (LPCTSTR)(_bstr_t)pRecConList->GetCollect(_T("SCCN")); if (!strSCCN.IsEmpty()) { break; } pRecConList->MoveNext(); } pRecConList->Close(); } if (strSCCN.IsEmpty() && strTDCN.IsEmpty()) { if (LANG_ZHCN == g_iUILanguage) AfxMessageBox(_T("没有找到脚本信息和任务ID")); else MessageBoxEx(NULL, _T("No script and taskid information was found"), STRING_MESSAGEBOXEX_TITLE, MB_OK, MAKELANGID(LANG_ENGLISH, SUBLANG_ENGLISH_US)); return FALSE; } if (!operUrfFile.WriteUrfPoleInfo(iExpType, iEamount, atof(strTxt), fParamVal, iStartElec, iEndElec, strSCCN, strTDCN)) { operUrfFile.CloseFile(); return FALSE; } } if (AR_CROSS_HOLE_TYPE == iTaskAR) { iExpType = 39; }//quyx 20181010 szSql.Empty(); szSql.Format(_T("select C1,C2,P1,P2,N,K,I,V,R0,SP,bUse from td2dcon where TCHID in (select ID from tdchannel where TDID = %u order by TCHID) order by TSN"), m_dwID); pRecConList->Open(szSql.AllocSysString(), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText); float fV = 0, fI = 0, fR = 0; int iC1 = 0, iC2 = 0, iP1 = 0, iP2 = 0; int iMidEAmount = iEamount/2; while ((short)0 == pRecConList->adoEOF) { if (pRecConList->GetCollect(_T("bUse")).boolVal != 0)//0为access数据库中的false { iC1 = pRecConList->GetCollect(_T("C1")).iVal; iC2 = pRecConList->GetCollect(_T("C2")).iVal; iP1 = pRecConList->GetCollect(_T("P1")).iVal; iP2 = pRecConList->GetCollect(_T("P2")).iVal; if ((AR_CUSTOM_2D_TYPE == iTaskAR) && m_bIsCustomToCrossHole) { int iLFlag, iRFlag; if (iLeftHole <= iRightHole) { iLFlag = 0; iRFlag = 1; } else { iLFlag = 1; iRFlag = 0; } iC1 = CalcuCrossHolePoleID(iC1, iLeftHole, iLFlag, iMidEAmount); iC2 = CalcuCrossHolePoleID(iC2, iRightHole, iRFlag, iMidEAmount); iP1 = CalcuCrossHolePoleID(iP1, iLeftHole, iLFlag, iMidEAmount); iP2 = CalcuCrossHolePoleID(iP2, iRightHole, iRFlag, iMidEAmount); } fV = (float)pRecConList->GetCollect(_T("V")).fltVal; fI = (float)pRecConList->GetCollect(_T("I")).fltVal; fR = (0 == fI) ? 0 : fV/fI; strTxt.Empty(); switch (iTaskAR) { case AR_DIPOLE_POLE_MNB: strTxt.Format(_T("%d,%d,%d,%d,%.6f,%.6f\n"), 1, iC2 + 1, iP1 + 1, iP2 + 1, fR, fI); break; case AR_POLE_DIPOLE_AMN: strTxt.Format(_T("%d,%d,%d,%d,%.6f,%.6f\n"), iC1, iEamount + 1, iP1, iP2, fR, fI); break; case AR_POLE_POLE_AM: strTxt.Format(_T("%d,%d,%d,%d,%.6f,%.6f\n"), iC1+1, 1, iP1+1, iEamount + 2, fR, fI); break; default: strTxt.Format(_T("%d,%d,%d,%d,%.6f,%.6f\n"), iC1, iC2, iP1, iP2, fR, fI); break; } if (!operUrfFile.WriteUrfDataInfo(strTxt)) { pRecConList->Close(); operUrfFile.CloseFile(); return FALSE; } } pRecConList->MoveNext(); } return TRUE; } catch (_com_error e) { hHook = SetWindowsHookEx(WH_CBT,(HOOKPROC)CBTHookProc,AfxGetInstanceHandle(),NULL); AfxMessageBox((LPCTSTR)e.Description()); operUrfFile.CloseFile(); return FALSE; } } BOOL CRsp2DTd::SaveTdToCsvFile(CString f_szFileName) { if (PathFileExists(f_szFileName)) { if (0 == DeleteFile(f_szFileName)) return FALSE; } FILE* pCsvFile; pCsvFile = fopen(f_szFileName, "w+"); if (NULL == pCsvFile) { CString str = _T(""); if (LANG_ZHCN == g_iUILanguage) { str.Format(_T("无法构建csv应用程序!错误码 %d"), GetLastError()); AfxMessageBox(str); } else { str.Format(_T("Can't build csv application!,err = %d"), GetLastError()); MessageBoxEx(NULL, str, STRING_MESSAGEBOXEX_TITLE, MB_OK, MAKELANGID(LANG_ENGLISH, SUBLANG_ENGLISH_US)); } return FALSE; } this->SaveTdHeadToCsvFile(pCsvFile); this->SaveTdConToCsvFile(pCsvFile); this->SaveTdGRToCsvFile(pCsvFile); fclose(pCsvFile); return TRUE; } BOOL CRsp2DTd::SaveTdToExcelFile(CString f_szFileName) { if (PathFileExists(f_szFileName)) { if (0 == DeleteFile(f_szFileName)) return FALSE; } _Application* pComApp = new _Application; Workbooks comBooks; _Workbook comBook; Sheets comSheets; _Worksheet comSheet01; _Worksheet comSheet02; _Worksheet comSheet03; COleVariant covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR); // CString szCurFilePath = _T(""); // CString szCurFile = _T(""); // // CFileDialog dlgSaveFile(FALSE, "xlsx", "", OFN_OVERWRITEPROMPT|OFN_HIDEREADONLY|OFN_NOCHANGEDIR, "Excel file(*.xlsx)|*.xlsx||", NULL); // // szCurFilePath.Empty(); // szCurFilePath.GetBufferSetLength(256); // ::GetCurrentDirectory(szCurFilePath.GetLength(), szCurFilePath.GetBuffer(szCurFilePath.GetLength())); // szCurFilePath.ReleaseBuffer(); // // dlgSaveFile.m_ofn.lpstrTitle = _T("Save"); // dlgSaveFile.m_ofn.lpstrInitialDir = szCurFilePath; // // if (dlgSaveFile.DoModal() == IDOK) // { // szCurFile.Empty(); // szCurFile = dlgSaveFile.GetPathName(); // DeleteFile(szCurFile); COleException oleExp; if (!pComApp->CreateDispatch(_T("Excel.Application"), &oleExp)) { hHook = SetWindowsHookEx(WH_CBT, (HOOKPROC)CBTHookProc, AfxGetInstanceHandle(), NULL); oleExp.ReportError(MB_OK); CString str = _T(""); if (LANG_ZHCN == g_iUILanguage) { str.Format(_T("无法构建excel应用程序!错误码 %d"), GetLastError()); AfxMessageBox(str); } else { str.Format(_T("Can't build excel application!,err = %d"), GetLastError()); MessageBoxEx(NULL, str, STRING_MESSAGEBOXEX_TITLE, MB_OK, MAKELANGID(LANG_ENGLISH, SUBLANG_ENGLISH_US)); } return FALSE; } comBooks = pComApp->GetWorkbooks(); comBook = comBooks.Add(covOptional); comSheets = comBook.GetSheets(); //HWND hWndXL = ::FindWindow("XLMAIN", pComApp->GetCaption()); //::ShowWindow(hWndXL, SW_HIDE); pComApp->SetVisible(FALSE); int iSheetCnt = comSheets.GetCount(); int iNeedCreateCnt = 3 - iSheetCnt; if (iNeedCreateCnt > 0) { /////////////////////VC插入sheet页到指定位置//////////////////////////////////////////////// /* 插入sheet的函数用 sheets.Add(Before, After,Count,Type) Before Variant 类型，可选。指定工作表对象，新建的工作表将置于此工作表之前。 After Variant 类型，可选。指定工作表对象，新建的工作表将置于此工作表之后。 Count Variant 类型，可选。要创建的工作表的数目。默认值为一。 Type Variant 类型，可选。工作表类型。 如果我们默认参数都为vtMissing，则 插入sheet的位置时在当前激活sheet页之前，而且时只插入一个sheet页 sheets.Add(vtMissing, vtMissing,vtMissing,vtMissing) 假如我们要求插入到第二个sheet之后，第三个sheet之前，我们应该按照下面的方法写 sheets.Add(-variant_t(sheets.GetItem(COleVariant((short)2))), -variant_t(sheets.GetItem(COleVariant((short)3))),-variant_t((long)1),vtMissing) */ //在这里covOptional可以等同于vtMissing comSheets.Add(covOptional, _variant_t(comSheets.GetItem(COleVariant((short)iSheetCnt))), _variant_t((long)iNeedCreateCnt), covOptional); } comSheet01 = comSheets.GetItem(COleVariant((short)1)); comSheet01.SetName(_T("Head")); this->SaveTdHeadToExcelFile(&comSheet01); comSheet02 = comSheets.GetItem(COleVariant((short)2)); comSheet02.SetName(_T("DAT")); this->SaveTdConToExcelFile(&comSheet02); comSheet03 = comSheets.GetItem(COleVariant((short)3)); comSheet03.SetName(_T("GR")); this->SaveTdGRToExcelFile(&comSheet03); // comApp.SetVisible(TRUE); // comApp.SetUserControl(TRUE); comBook.SaveAs(COleVariant(f_szFileName), covOptional, covOptional, covOptional, covOptional, covOptional, 0, covOptional, covOptional, covOptional, covOptional, covOptional); comSheet01.ReleaseDispatch(); comSheet02.ReleaseDispatch(); comSheet03.ReleaseDispatch(); comSheets.ReleaseDispatch(); comBook.Close(covOptional, COleVariant(""), covOptional); comBook.ReleaseDispatch(); comBooks.Close(); comBooks.ReleaseDispatch(); pComApp->Quit(); // pComApp->DetachDispatch(); pComApp->ReleaseDispatch(); if (pComApp != NULL) { delete pComApp; pComApp = NULL; } // DWORD dwExcelID = CGetProcessInfo::CreateInstance()->GetSpcialProcessIdFromName(_T("EXCEL.EXE"), 1000); // if (0 == dwExcelID) // { // CString strInfo = _T(""); // strInfo.Format(_T("found excel id failed,parentID = %d"),::GetCurrentProcessId()); // AfxMessageBox(strInfo); // } // else // { // HANDLE hProcess = OpenProcess(PROCESS_ALL_ACCESS,FALSE,dwExcelID); //通过pid获得进程句柄， // TerminateProcess(hProcess,1); //调用该函数终结进程，第二个参数为进程退出码 // } // } // else // { // return FALSE; // } return TRUE; } BOOL CRsp2DTd::SaveTdToRes2DFile(CString f_szFileName) { long lRet = VAL_ZERO; int iListIndex = (int)VAL_ZERO; CString szSql = _T(""); CString szCaption = _T(""); UINT uExecCode = (UINT)APP_SUCCESS; CSaveInRes* pSaveInRes = NULL; CString szFilePath = _T(""); CString szFileName = _T(""); CString szFile = _T(""); CStringArray saRecord; CString szTdName = _T(""); CString szTdCN = _T(""); CString strSCCN = _T(""); // CString szDESN = _T(""); CString szEDistance = _T(""); CString szAr = _T(""); CString szTPAmount = _T(""); CString strESpace = _T(""); CString strFormat = _T("0"); CString szTType = _T(""); CString szA = _T(""); CString szB = _T(""); CString szM = _T(""); CString szN = _T(""); CString szR0 = _T(""); CString szV = _T(""); CString szI = _T(""); CString szDistance = _T(""); CString szElevation = _T(""); CString strEamount = _T(""); DWORD dwChID = (DWORD)VAL_ZERO; _RecordsetPtr pRecTd = NULL; _RecordsetPtr pRecCh = NULL; _RecordsetPtr pRecTdCon = NULL; pRecTd.CreateInstance(_uuidof(Recordset)); pRecCh.CreateInstance(_uuidof(Recordset)); pRecTdCon.CreateInstance(_uuidof(Recordset)); map mapElecCoordinates;//存放所有电极对应的坐标，便于写入dat文件时查找 szSql.Empty(); szSql.Format(_T("select TDname,TdCN,DESN,Ttype,Edistance,TPamount,Espace,Eamount,SCCN from td where ID = %u"), this->m_dwID); pRecTd->Open(szSql.AllocSysString(), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText); if ((long)VAL_ZERO != pRecTd->GetRecordCount()) { szTdName = (pRecTd->GetCollect(_T("TDname")).vt == VT_NULL) ? _T("0") : (LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("TDname")); szTdCN = (pRecTd->GetCollect(_T("TdCN")).vt == VT_NULL) ? _T("0") : (LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("TdCN")); strSCCN = (pRecTd->GetCollect(_T("SCCN")).vt == VT_NULL) ? _T("0") : (LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("SCCN")); // szDESN = (LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("DESN")); szTType = (pRecTd->GetCollect(_T("Ttype")).vt == VT_NULL) ? _T("0") : (LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("Ttype")); szEDistance = (pRecTd->GetCollect(_T("Edistance")).vt == VT_NULL) ? _T("0") : (LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("Edistance")); strEamount = (pRecTd->GetCollect(_T("Eamount")).vt == VT_NULL) ? _T("0") : (LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("Eamount")); strESpace = (pRecTd->GetCollect(_T("Espace")).vt == VT_NULL)?_T("0"):(LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("Espace")); // strESpace = (LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("Espace")); // nTPAmount = (int)pRecTd->GetCollect(_T("TPamount")).iVal; // szTPAmount = (LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("TPamount")); } pRecTd->Close(); szSql.Empty(); szSql.Format(_T("select ID,AR from tdchannel where TDID = %u and CHnumber = 1"), this->m_dwID); pRecCh->Open(szSql.AllocSysString(), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText); if ((long)VAL_ZERO != pRecCh->GetRecordCount()) { dwChID = pRecCh->GetCollect(_T("ID")).ulVal; szAr = (LPCTSTR)(_bstr_t)pRecCh->GetCollect(_T("AR")); } pRecCh->Close(); STCorssHoleCfgInfo stCrossHole; bool bIsRealCustToCroHole = false; int iLeftHole = 0, iRightHole = 0; if ((AR_CUSTOM_2D_TYPE == atoi(szAr)) && m_bIsCustomToCrossHole) { CString strName = PathFindFileName(f_szFileName); // f_szFileName.TrimLeft(); CStringArray strArrKey; strArrKey.RemoveAll(); SplitterString(strArrKey, strName, "_"); if (strArrKey.GetSize() < 2) { if (LANG_ZHCN == g_iUILanguage) AfxMessageBox(_T("解析孔信息失败.")); else MessageBoxEx(NULL, _T("Parser the hole information in the file name failed."), STRING_MESSAGEBOXEX_TITLE, MB_OK, MAKELANGID(LANG_ENGLISH, SUBLANG_ENGLISH_US)); return FALSE; } iLeftHole = atoi(strArrKey.GetAt(0)); iRightHole = atoi(strArrKey.GetAt(1)); CString strKey = ""; strKey.Format(_T("%d_%d"),iLeftHole, iRightHole); std::map::iterator iter = theApp.m_mapCrossHole.find(strKey); if (iter == theApp.m_mapCrossHole.end()) { CString strErr = ""; if (LANG_ZHCN == g_iUILanguage) { strErr.Format(_T("在导出到dat时找不到交叉孔密钥信息(%s)"), strKey); AfxMessageBox(strErr); } else { strErr.Format(_T("Can not found cross_hole key info(%s) when expot to dat"), strKey); MessageBoxEx(NULL, strErr, STRING_MESSAGEBOXEX_TITLE, MB_OK, MAKELANGID(LANG_ENGLISH, SUBLANG_ENGLISH_US)); } return FALSE; } stCrossHole = iter->second; //在这里改变装置类型，使得最后可以按照跨孔装置来导出 szAr = "16"; CString strTmp = szEDistance; szEDistance.Format(_T("%s,%f"),strTmp,stCrossHole.fHoleSpace); bIsRealCustToCroHole = true; strESpace.Empty(); strESpace.Format(_T("%f"), stCrossHole.fFirstPoleDep); } if(AR_BIPOLE_HOLE_SPT == atoi(szAr)) { if (LANG_ZHCN == g_iUILanguage) AfxMessageBox(_T("不支持将该装置装置数据导出dat")); else MessageBoxEx(NULL, _T("Not support export data to dat file"), STRING_MESSAGEBOXEX_TITLE, MB_OK, MAKELANGID(LANG_ENGLISH, SUBLANG_ENGLISH_US)); return FALSE; } pSaveInRes = new CSaveInRes; szFilePath.Empty(); szFilePath.GetBufferSetLength(256); ::GetCurrentDirectory(szFilePath.GetLength(), szFilePath.GetBuffer(szFilePath.GetLength())); szFilePath.ReleaseBuffer(); szFilePath = szFilePath + _T("\\DAT\\"); szFileName = szTdName + _T(".dat"); szFile = szFilePath + szFileName; pSaveInRes->CreateResFile(f_szFileName); //如果是跨井装置类型，则需要同时获取电极间距以及AB之间的距离间隔系数n if (AR_CROSS_HOLE_TYPE == atoi(szAr)) { CString strError = _T(""); float fCrossHole = 1, fEDistance = 1; CStringArray strEDisArray; strEDisArray.RemoveAll(); SplitterString(strEDisArray, szEDistance,_T(",")); if (2 != strEDisArray.GetSize()) { if (LANG_ZHCN == g_iUILanguage) { strError.Format(_T("在cross_hole_medium中解析器Edistance错误，msg = %s,tdid = %d"), szEDistance, this->m_dwID); AfxMessageBox(strError); } else { strError.Format(_T("Parser Edistance error in cross_hole_medium, msg = %s,tdid = %d"), szEDistance, this->m_dwID); MessageBoxEx(NULL, strError, STRING_MESSAGEBOXEX_TITLE, MB_OK, MAKELANGID(LANG_ENGLISH, SUBLANG_ENGLISH_US)); } } else { fEDistance = atof(strEDisArray.GetAt(0)); fCrossHole = atof(strEDisArray.GetAt(1)); } szEDistance.Empty(); szEDistance.Format(_T("%.2f"),fEDistance); pSaveInRes->SetCorssHoleParam(fCrossHole,atof(strESpace)); strFormat = _T("2"); } ////////////////////////////////////////////////////////////////////////// //判断有没有层数信息 szSql.Empty(); szSql.Format(_T("select C1 from td2dcon where TCHID = %u and bUse <> 0 and Layer is null"),dwChID); pRecTdCon->Open(szSql.AllocSysString(), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText); //如果存在着层数为空的数据，那么则认为是以前版本的数据，此时按照老规则直接取出数据进行生成DAT文件 //对于跨孔和自定义装置，则不需要进行排序操作 if (((long)VAL_ZERO != pRecTdCon->GetRecordCount()) || (AR_CUSTOM_2D_TYPE == atoi(szAr)) || (AR_CROSS_HOLE_TYPE == atoi(szAr))) { szSql.Empty(); szSql.Format(_T("select C1,C2,P1,P2,R0,bUse,V,I from td2dcon where TCHID = %u and bUse <> 0 order by TSN"), dwChID); } //否则则按照层数和C1的逐渐增大进行排序 else { szSql.Empty(); szSql.Format(_T("select C1,C2,P1,P2,R0,bUse,V,I from td2dcon where TCHID = %u and bUse <> 0 order by TSN,Layer, C1"), dwChID); } pRecTdCon->Close(); pRecTdCon->Open(szSql.AllocSysString(), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText); szTPAmount.Empty(); szTPAmount.Format(_T("%d"), pRecTdCon->GetRecordCount()); pRecTdCon->Close(); //pRecTdCon->Open(szSql.AllocSysString(), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText); //添加文件包头，由于真实的测点个数需要查询数据表中才能知道，所以添加文件头的信息放在执行数据查询之后 saRecord.RemoveAll(); saRecord.Add(szTdName); saRecord.Add(szEDistance); saRecord.Add(szAr); if (AR_CUSTOM_2D_TYPE == atoi(szAr) || AR_DOUBLE_SIZE_3P == atoi(szAr)|| AR_S3P_MEDIUM == atoi(szAr)) { saRecord.Add(_T("0")); saRecord.Add(_T("Type of measurement(0=app.resistivity,1=resistance)")); saRecord.Add(_T("0")); strFormat = _T("1"); } //三极装置置为0 else if (AR_POLE_DIPOLE_AMN == atoi(szAr) || AR_DIPOLE_POLE_MNB == atoi(szAr)) { strFormat = _T("0"); } //赛盈跨孔 else if (AR_CROSS_HOLE_GEOMATIVE == atoi(szAr) || AR_CROSS_HOLE_GEOMATIVE_AM == atoi(szAr)) { STElectrodeCoordinates stElecCoordinates;//电极坐标详情 //szTPAmount.Empty(); //szTPAmount.Format(_T("%d"), pRecTdCon->GetRecordCount()); saRecord.Add(szTPAmount); strFormat = _T("2"); saRecord.Add(strFormat); saRecord.Add(szTType); pSaveInRes->AddFileHeader(Res, atoi(szAr.GetBuffer(0)), &saRecord); pSaveInRes->Init2DFileHeader(&saRecord); //pRecTdCon->Close(); int iWellCount = 0; int iWellIndex = 1; float fX = 0.0,fTemp=0.0,fWellDistance=0.0; float fXStartPoint = 0.0; //地表测线X最小值起点 BOOL bFlag = FALSE; //标志是否已经赋值 BOOL bFirstWell = TRUE; //标志是否为最左边的井 BOOL bCalcWellDistance = FALSE; //标志是否井X坐标叠加孔间距，当最左井X小于2时 const int CONST_SURFACE_MIN_ELECTRODE_NUMBER = 7; CString strSql, strWellCoor, strX, strY; /*********************************在线获取电极坐标信息 begin****************************************/ //判断二维跨孔是否只有两口井，计算出孔间距 strSql.Empty(); strSql.Format(_T("select X from TTaskBindElecInfo where taskID='%s' and Z <> 0 group by X order by X"), szTdCN); pRecTd->Open(strSql.AllocSysString(), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText); iWellCount = pRecTd->GetRecordCount(); if (iWellCount > 2) { if (LANG_ZHCN == g_iUILanguage) AfxMessageBox(_T("跨孔装置不支持两口井以上的dat格式导出.")); else MessageBoxEx(NULL, _T("Get task information failed."), STRING_MESSAGEBOXEX_TITLE, MB_OK, MAKELANGID(LANG_ENGLISH, SUBLANG_ENGLISH_US)); } while ((short)VAL_ZERO == pRecTd->adoEOF) { fTemp = pRecTd->GetCollect(_T("X")).fltVal; if (!bFlag) { fXStartPoint = fTemp; bFlag = TRUE; } fWellDistance = abs(fWellDistance - fTemp); pRecTd->MoveNext(); } pRecTd->Close(); //判断是否有地表测线 strSql.Empty(); strSql.Format(_T("select ElectrodeID,X,Z from TTaskBindElecInfo where taskID='%s' and Z=0"), szTdCN); pRecTd->Open(strSql.AllocSysString(), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText); int iElecCount = pRecTd->GetRecordCount(); if (iElecCount > 0) { //井地井类型 ，跟刘博确定，不存在地表电极个数小于孔间距/电极间距的情况，且两口井不会位于地表测线的两端，因此不需要考虑地表电极数小于7的情况和井位于布线两端的情况，直接从数据库读取电极坐标信息即可。 saRecord.RemoveAll(); saRecord.Add(_T("Surface Electrodes")); strSql.Format(_T("%d"), iElecCount); saRecord.Add(strSql); pSaveInRes->AddElectrodeTitle(&saRecord); //获取数据库地表电极 while ((short)VAL_ZERO == pRecTd->adoEOF) { memset(&stElecCoordinates, 0, sizeof(stElecCoordinates)); stElecCoordinates.uiElecID = pRecTd->GetCollect(_T("ElectrodeID")).uintVal; strX.Empty(); stElecCoordinates.fX = (float)pRecTd->GetCollect(_T("X")).fltVal; strX.Format(_T("%.2f"), stElecCoordinates.fX); strY.Empty(); stElecCoordinates.fZ = (float)pRecTd->GetCollect(_T("Z")).fltVal; strY.Format(_T("%.2f"), stElecCoordinates.fZ); saRecord.RemoveAll(); saRecord.Add(strX); saRecord.Add(strY); pSaveInRes->AddElectrodeCoordinatesInfo(&saRecord); mapElecCoordinates[stElecCoordinates.uiElecID] = stElecCoordinates; pRecTd->MoveNext(); } } else { //有井下测线的前提下，跨孔没有地表测线，添加虚拟电极 if (iWellCount > 0) { saRecord.RemoveAll(); saRecord.Add(_T("Surface Electrodes")); int iWellElecCount = fWellDistance / atof(szEDistance); int iAddElecCount = 0; if (fXStartPoint < 2.00) { fXStartPoint = 2.00; } //如果2倍电极间距的电极数仍然小于7个电极数，那么直接用七个电极数生成 if (2 * iWellElecCount < CONST_SURFACE_MIN_ELECTRODE_NUMBER) { fXStartPoint = fXStartPoint - (CONST_SURFACE_MIN_ELECTRODE_NUMBER - iElecCount) / 2; iAddElecCount = (CONST_SURFACE_MIN_ELECTRODE_NUMBER - iElecCount) / 2; } else { fXStartPoint = fXStartPoint - fWellDistance / 2; iAddElecCount = iWellElecCount / 2; } strSql.Format(_T("%d"), iWellElecCount + 2 * iAddElecCount + 1);//两倍电极间距 saRecord.Add(strSql); pSaveInRes->AddElectrodeTitle(&saRecord); strY.Format(_T("0.00")); for (int i = 0; i <= iWellElecCount + 2 * iAddElecCount; i++) { strX.Empty(); strX.Format(_T("%.2f"), fXStartPoint + i*atof(szEDistance)); saRecord.RemoveAll(); saRecord.Add(strX); saRecord.Add(strY); pSaveInRes->AddElectrodeCoordinatesInfo(&saRecord); } } } pRecTd->Close(); //根据X分辨几口井 strSql.Empty(); strSql.Format(_T("select X from TTaskBindElecInfo where taskID='%s' and Z <> 0 group by X order by X"), szTdCN); pRecTd->Open(strSql.AllocSysString(), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText); UINT32 uiWellNumber = pRecTd->GetRecordCount(); if (uiWellNumber > 0) { saRecord.RemoveAll(); strSql.Empty(); strSql.Format(_T("Number of boreholes")); saRecord.Add(strSql); strSql.Empty(); strSql.Format(_T("%d"), uiWellNumber); saRecord.Add(strSql); pSaveInRes->AddElectrodeTitle(&saRecord); } while ((short)VAL_ZERO == pRecTd->adoEOF) { fX = pRecTd->GetCollect(_T("X")).fltVal; strSql.Empty(); strSql.Format(_T("select ElectrodeID,X,Z from TTaskBindElecInfo where taskID='%s' and Z <> 0 and X = %f"), szTdCN, fX); pRecTdCon->Open(strSql.AllocSysString(), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText); iElecCount = pRecTdCon->GetRecordCount(); if (iElecCount > 0) { saRecord.RemoveAll(); strSql.Empty(); strSql.Format(_T("Borehole %d Electrodes"), iWellIndex); saRecord.Add(strSql); strSql.Empty(); strSql.Format(_T("%d"), iElecCount); saRecord.Add(strSql); pSaveInRes->AddElectrodeTitle(&saRecord); } if (bCalcWellDistance) { fX = 2.00 + fWellDistance;//2.00第一口井坐标,fWellDistance孔间距 } if (fX < 2.0 && bFirstWell) { bFirstWell = FALSE; bCalcWellDistance = TRUE; fX = 2.00; } while ((short)VAL_ZERO == pRecTdCon->adoEOF) { memset(&stElecCoordinates, 0, sizeof(STElectrodeCoordinates)); stElecCoordinates.uiElecID = pRecTdCon->GetCollect(_T("ElectrodeID")).uintVal; strX.Empty(); //fTemp = (float)pRecTdCon->GetCollect(_T("X")).fltVal; stElecCoordinates.fX = fX; strX.Format(_T("%.2f"), fX); strY.Empty(); stElecCoordinates.fZ = abs((float)pRecTdCon->GetCollect(_T("Z")).fltVal); strY.Format(_T("%.2f"), stElecCoordinates.fZ); saRecord.RemoveAll(); saRecord.Add(strX); saRecord.Add(strY); //pSaveInRes->AddDateToFile(&saRecord); pSaveInRes->AddElectrodeCoordinatesInfo(&saRecord); mapElecCoordinates[stElecCoordinates.uiElecID] = stElecCoordinates; pRecTdCon->MoveNext(); } pRecTdCon->Close(); iWellIndex++; pRecTd->MoveNext(); } pRecTd->Close(); //写数据标题 /*saRecord.RemoveAll(); strSql.Empty(); strSql.Format(_T("Measured data")); saRecord.Add(strSql); pSaveInRes->AddElectrodeTitle(&saRecord); */ /*********************************在线获取电极坐标信息 end****************************************/ /*********************************非在线（由主机新建的任务）获取电极坐标信息 begin****************************************/ if (mapElecCoordinates.size() <= 0) { iWellIndex = 1; fX = 0.0, fTemp = 0.0, fWellDistance = 0.0; fXStartPoint = 0.0; //地表测线X最小值起点 bFlag = FALSE; //标志是否已经赋值 bFirstWell = TRUE; //标志是否为最左边的井 bCalcWellDistance = FALSE; //标志是否井X坐标叠加孔间距，当最左井X小于2时 //const int CONST_SURFACE_MIN_ELECTRODE_NUMBER = 7; //strSql, strWellCoor, strX, strY; //判断二维跨孔是否只有两口井，计算出孔间距 strSql.Empty(); strSql.Format(_T("select X from TCoordinatesInfo where ScriptCN='%s' and Z <> 0 group by X order by X"), strSCCN); pRecTd->Open(strSql.AllocSysString(), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText); iWellCount = pRecTd->GetRecordCount(); if (iWellCount > 2) { if (LANG_ZHCN == g_iUILanguage) AfxMessageBox(_T("跨孔装置不支持两口井以上的dat格式导出.")); else MessageBoxEx(NULL, _T("Get task information failed."), STRING_MESSAGEBOXEX_TITLE, MB_OK, MAKELANGID(LANG_ENGLISH, SUBLANG_ENGLISH_US)); } while ((short)VAL_ZERO == pRecTd->adoEOF) { fTemp = pRecTd->GetCollect(_T("X")).fltVal; if (!bFlag) { fXStartPoint = fTemp; bFlag = TRUE; } fWellDistance = abs(fWellDistance - fTemp); pRecTd->MoveNext(); } pRecTd->Close(); //判断是否有地表测线 strSql.Empty(); strSql.Format(_T("select ElectrodeID,X,Z from TCoordinatesInfo where ScriptCN='%s' and Z=0"), strSCCN); pRecTd->Open(strSql.AllocSysString(), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText); int iElecCount = pRecTd->GetRecordCount(); if (iElecCount > 0) { //井地井类型 ，跟刘博确定，不存在地表电极个数小于孔间距/电极间距的情况，且两口井不会位于地表测线的两端，因此不需要考虑地表电极数小于7的情况和井位于布线两端的情况，直接从数据库读取电极坐标信息即可。 saRecord.RemoveAll(); saRecord.Add(_T("Surface Electrodes")); strSql.Format(_T("%d"), iElecCount); saRecord.Add(strSql); pSaveInRes->AddElectrodeTitle(&saRecord); //获取数据库地表电极 while ((short)VAL_ZERO == pRecTd->adoEOF) { memset(&stElecCoordinates, 0, sizeof(stElecCoordinates)); stElecCoordinates.uiElecID = pRecTd->GetCollect(_T("ElectrodeID")).uintVal; strX.Empty(); stElecCoordinates.fX = (float)pRecTd->GetCollect(_T("X")).fltVal; strX.Format(_T("%.2f"), stElecCoordinates.fX); strY.Empty(); stElecCoordinates.fZ = (float)pRecTd->GetCollect(_T("Z")).fltVal; strY.Format(_T("%.2f"), stElecCoordinates.fZ); saRecord.RemoveAll(); saRecord.Add(strX); saRecord.Add(strY); pSaveInRes->AddElectrodeCoordinatesInfo(&saRecord); mapElecCoordinates[stElecCoordinates.uiElecID] = stElecCoordinates; pRecTd->MoveNext(); } } else { if (iWellCount > 0) { //跨孔没有地表测线，添加虚拟电极 saRecord.RemoveAll(); saRecord.Add(_T("Surface Electrodes")); int iWellElecCount = fWellDistance / atof(szEDistance); int iAddElecCount = 0; if (fXStartPoint < 2.00) { fXStartPoint = 2.00; } //如果2倍电极间距的电极数仍然小于7个电极数，那么直接用七个电极数生成 if (2 * iWellElecCount < CONST_SURFACE_MIN_ELECTRODE_NUMBER) { fXStartPoint = fXStartPoint - (CONST_SURFACE_MIN_ELECTRODE_NUMBER - iElecCount) / 2; iAddElecCount = (CONST_SURFACE_MIN_ELECTRODE_NUMBER - iElecCount) / 2; } else { fXStartPoint = fXStartPoint - fWellDistance / 2; iAddElecCount = iWellElecCount / 2; } strSql.Format(_T("%d"), iWellElecCount + 2 * iAddElecCount + 1);//两倍电极间距 saRecord.Add(strSql); pSaveInRes->AddElectrodeTitle(&saRecord); strY.Format(_T("0.00")); for (int i = 0; i <= iWellElecCount + 2 * iAddElecCount; i++) { strX.Empty(); strX.Format(_T("%.2f"), fXStartPoint + i*atof(szEDistance)); saRecord.RemoveAll(); saRecord.Add(strX); saRecord.Add(strY); pSaveInRes->AddElectrodeCoordinatesInfo(&saRecord); } } } pRecTd->Close(); //根据X分辨几口井 strSql.Empty(); strSql.Format(_T("select X from TCoordinatesInfo where ScriptCN='%s' and Z <> 0 group by X order by X"), strSCCN); pRecTd->Open(strSql.AllocSysString(), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText); UINT32 uiWellNumber = pRecTd->GetRecordCount(); if (uiWellNumber > 0) { saRecord.RemoveAll(); strSql.Empty(); strSql.Format(_T("Number of boreholes")); saRecord.Add(strSql); strSql.Empty(); strSql.Format(_T("%d"), uiWellNumber); saRecord.Add(strSql); pSaveInRes->AddElectrodeTitle(&saRecord); } while ((short)VAL_ZERO == pRecTd->adoEOF) { fX = pRecTd->GetCollect(_T("X")).fltVal; strSql.Empty(); strSql.Format(_T("select ElectrodeID,X,Z from TCoordinatesInfo where ScriptCN='%s' and Z <> 0 and X = %f"), strSCCN, fX); pRecTdCon->Open(strSql.AllocSysString(), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText); iElecCount = pRecTdCon->GetRecordCount(); if (iElecCount > 0) { saRecord.RemoveAll(); strSql.Empty(); strSql.Format(_T("Borehole %d Electrodes"), iWellIndex); saRecord.Add(strSql); strSql.Empty(); strSql.Format(_T("%d"), iElecCount); saRecord.Add(strSql); pSaveInRes->AddElectrodeTitle(&saRecord); } if (bCalcWellDistance) { fX = 2.00 + fWellDistance;//2.00第一口井坐标,fWellDistance孔间距 } if (fX < 2.0 && bFirstWell) { bFirstWell = FALSE; bCalcWellDistance = TRUE; fX = 2.00; } while ((short)VAL_ZERO == pRecTdCon->adoEOF) { memset(&stElecCoordinates, 0, sizeof(STElectrodeCoordinates)); stElecCoordinates.uiElecID = pRecTdCon->GetCollect(_T("ElectrodeID")).uintVal; strX.Empty(); //fTemp = (float)pRecTdCon->GetCollect(_T("X")).fltVal; stElecCoordinates.fX = fX; strX.Format(_T("%.2f"), fX); strY.Empty(); stElecCoordinates.fZ = abs((float)pRecTdCon->GetCollect(_T("Z")).fltVal); strY.Format(_T("%.2f"), stElecCoordinates.fZ); saRecord.RemoveAll(); saRecord.Add(strX); saRecord.Add(strY); //pSaveInRes->AddDateToFile(&saRecord); pSaveInRes->AddElectrodeCoordinatesInfo(&saRecord); mapElecCoordinates[stElecCoordinates.uiElecID] = stElecCoordinates; pRecTdCon->MoveNext(); } pRecTdCon->Close(); iWellIndex++; pRecTd->MoveNext(); } pRecTd->Close(); } /*********************************非在线（由主机新建的任务）获取电极坐标信息 end****************************************/ //写数据标题 saRecord.RemoveAll(); strSql.Empty(); strSql.Format(_T("Measured data")); saRecord.Add(strSql); pSaveInRes->AddElectrodeTitle(&saRecord); } //跨孔装置的strFormat仍然不改变，设置为2，其它的装置都为1 else if (AR_CROSS_HOLE_TYPE != atoi(szAr)) { strFormat = _T("1"); } if (AR_EDGE_GARDIENT == atoi(szAr) || AR_STRONG_GRADIENT == atoi(szAr) /*|| AR_CROSS_HOLE_GEOMATIVE == atoi(szAr) || AR_CROSS_HOLE_GEOMATIVE_AM == atoi(szAr)*/) { saRecord.Add(_T("0")); saRecord.Add(_T("Type of measurement(0=app.resistivity,1=resistance)")); saRecord.Add(_T("0")); } if (!(AR_CROSS_HOLE_GEOMATIVE == atoi(szAr) || AR_CROSS_HOLE_GEOMATIVE_AM == atoi(szAr))) { saRecord.Add(szTPAmount); saRecord.Add(strFormat); saRecord.Add(szTType); pSaveInRes->AddFileHeader(Res, atoi(szAr.GetBuffer(0)), &saRecord); pSaveInRes->Init2DFileHeader(&saRecord); } if (AR_CROSS_HOLE_TYPE == atof(szAr)) { saRecord.RemoveAll(); saRecord.Add(_T("1")); saRecord.Add(strEamount); pSaveInRes->AddDateToFile(&saRecord); } int iC1,iC2,iP1,iP2; int iMidEAmout = (atoi(strEamount))/2; float fR0; pRecTdCon->Open(szSql.AllocSysString(), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText); while ((short)VAL_ZERO == pRecTdCon->adoEOF) { if (pRecTdCon->GetCollect(_T("bUse")).boolVal != 0)//0为access数据库中的false { szR0.Empty(); fR0 = (float)pRecTdCon->GetCollect(_T("R0")).fltVal; //szR0.Format(_T("%f"), abs(fR0)); szR0.Format(_T("%f"), fR0); szA.Empty(); szA = (pRecTdCon->GetCollect(_T("C1")).vt == VT_NULL) ? _T("0") : (LPCTSTR)(_bstr_t)pRecTdCon->GetCollect(_T("C1")); szB.Empty(); szB = (pRecTdCon->GetCollect(_T("C2")).vt == VT_NULL) ? _T("0") : (LPCTSTR)(_bstr_t)pRecTdCon->GetCollect(_T("C2")); szM.Empty(); szM = (pRecTdCon->GetCollect(_T("P1")).vt == VT_NULL) ? _T("0") : (LPCTSTR)(_bstr_t)pRecTdCon->GetCollect(_T("P1")); szN.Empty(); szN = (pRecTdCon->GetCollect(_T("P2")).vt == VT_NULL) ? _T("0") : (LPCTSTR)(_bstr_t)pRecTdCon->GetCollect(_T("P2")); szV.Empty(); szV = (pRecTdCon->GetCollect(_T("V")).vt == VT_NULL) ? _T("0") : (LPCTSTR)(_bstr_t)pRecTdCon->GetCollect(_T("V")); szI.Empty(); szI = (pRecTdCon->GetCollect(_T("I")).vt == VT_NULL) ? _T("0") : (LPCTSTR)(_bstr_t)pRecTdCon->GetCollect(_T("I")); //非跨孔装置 if (!(AR_CROSS_HOLE_GEOMATIVE == atoi(szAr) || AR_CROSS_HOLE_GEOMATIVE_AM == atoi(szAr))) { if (AR_STRONG_GRADIENT == atoi(szAr)) { szR0.Format(_T("%f"), abs(atof(szV) / atof(szI))); } if (bIsRealCustToCroHole) { // iC1 = CalcuCrossHolePoleID(atoi(szA), iLeftHole, 0); // iC2 = CalcuCrossHolePoleID(atoi(szB), iRightHole, 1); // iP1 = CalcuCrossHolePoleID(atoi(szM), iLeftHole, 0); // iP2 = CalcuCrossHolePoleID(atoi(szN), iRightHole, 1); int iLFlag, iRFlag; if (iLeftHole <= iRightHole) { iLFlag = 0; iRFlag = 1; } else { iLFlag = 1; iRFlag = 0; } szA.Format(_T("%d"), CalcuCrossHolePoleID(atoi(szA), iLeftHole, iLFlag, iMidEAmout)); szB.Format(_T("%d"), CalcuCrossHolePoleID(atoi(szB), iRightHole, iRFlag, iMidEAmout)); szM.Format(_T("%d"), CalcuCrossHolePoleID(atoi(szM), iLeftHole, iLFlag, iMidEAmout)); szN.Format(_T("%d"), CalcuCrossHolePoleID(atoi(szN), iRightHole, iRFlag, iMidEAmout)); } } //跨孔装置 else { if (mapElecCoordinates.size() <= 0) { if (LANG_ZHCN == g_iUILanguage) AfxMessageBox(_T("导出dat文件没有电极坐标信息，请先从服务端下载数据")); else MessageBoxEx(NULL, _T("There is no electrode coordinate information in the exported dat file. Please download the data from the server first."), STRING_MESSAGEBOXEX_TITLE, MB_OK, MAKELANGID(LANG_ENGLISH, SUBLANG_ENGLISH_US)); return FALSE; } //A坐标 map::iterator iterFind = mapElecCoordinates.find(atoi(szA)); if (iterFind != mapElecCoordinates.end()) { szA.Empty(); szA.AppendFormat(_T("%.2f %.2f"), iterFind->second.fX,iterFind->second.fZ); } //B坐标 iterFind = mapElecCoordinates.find(atoi(szB)); if (iterFind != mapElecCoordinates.end()) { szB.Empty(); szB.AppendFormat(_T("%.2f %.2f"), iterFind->second.fX, iterFind->second.fZ); } //M坐标 iterFind = mapElecCoordinates.find(atoi(szM)); if (iterFind != mapElecCoordinates.end()) { szM.Empty(); szM.AppendFormat(_T("%.2f %.2f"), iterFind->second.fX, iterFind->second.fZ); } //N坐标 iterFind = mapElecCoordinates.find(atoi(szN)); if (iterFind != mapElecCoordinates.end()) { szN.Empty(); szN.AppendFormat(_T("%.2f %.2f"), iterFind->second.fX, iterFind->second.fZ); } } saRecord.RemoveAll(); saRecord.Add(szA); saRecord.Add(szB); saRecord.Add(szM); saRecord.Add(szN); saRecord.Add(szR0); saRecord.Add(szV); saRecord.Add(szI); pSaveInRes->AddDateToFile(&saRecord); } pRecTdCon->MoveNext(); } pRecTdCon->Close(); //////////////////////////deleted by lsq 20160713//////////////////////////////////////////// //地形文件的添加放到了工具栏中，所以这里就无需再加了 /* szCaption.Empty(); szCaption.LoadString(IDS_CAPTION_0009); if (szAr != "3") //微分类型无需添加地型文件 { if (AfxMessageBox( szCaption, MB_YESNO) == IDYES ) { COpTGDDlg* pOpTGDDlg = new COpTGDDlg(); pOpTGDDlg->Create(IDD_OP_TGD_C, AfxGetMainWnd()); this->InitialTGDDlg(pOpTGDDlg); pOpTGDDlg->ShowWindow(SW_SHOW); lRet = pOpTGDDlg->RunModalLoop(MLF_SHOWONIDLE); if (RET_OK == lRet) { int nDisType = (int)pOpTGDDlg->m_cbDisType.GetItemData(pOpTGDDlg->m_cbDisType.GetCurSel()); int nStart = pOpTGDDlg->m_cbTGDSN.GetCurSel() + 1; this->UpdataTopography(nDisType,nStart,pOpTGDDlg->m_tgdList); pSaveInRes->m_nLandSign = nDisType; pSaveInRes->m_nFirstPole = nStart; iListIndex = (int)VAL_ZERO; saRecord.RemoveAll(); while (iListIndex < pOpTGDDlg->m_tgdList.GetItemCount()) { szDistance.Empty(); szDistance = pOpTGDDlg->m_tgdList.GetItemText(iListIndex, 1); szElevation.Empty(); szElevation = pOpTGDDlg->m_tgdList.GetItemText(iListIndex, 2); saRecord.Add(szDistance + _T(" ") + szElevation); iListIndex ++; } pSaveInRes->WriteLandInform(&saRecord); } } } */ pSaveInRes->CloseFile(); return TRUE; } void CRsp2DTd::InitialTGDDlg(COpTGDDlg* pOpTGDDlg) { _RecordsetPtr pRecCM = NULL; CString szSql = _T(""); int iIndex = (int)VAL_ZERO; pRecCM.CreateInstance(_uuidof(Recordset)); pOpTGDDlg->m_cbDisType.ResetContent(); iIndex = (int)VAL_ZERO; szSql.Empty(); szSql.Format(_T("select Clabel,Cvalue from cm where Cname = 'Distance type' and Lang = %d order by Cvalue"), g_iLanguage); pRecCM->Open(szSql.AllocSysString(),_variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText); while ((short)VAL_ZERO == pRecCM->adoEOF) { iIndex = pOpTGDDlg->m_cbDisType.AddString((LPCTSTR)(_bstr_t)pRecCM->GetCollect(_T("Clabel"))); pOpTGDDlg->m_cbDisType.SetItemData(iIndex, (DWORD)pRecCM->GetCollect(_T("Cvalue")).iVal); pRecCM->MoveNext(); } pRecCM->Close(); int nStart = 0; int nDisType = 0; CString szTmp = _T(""); if (this->GetTopography(&nDisType, &nStart, pOpTGDDlg->m_tgdList)) { for (int n = 1; n < pOpTGDDlg->m_tgdList.GetItemCount() + 1; n++) { szTmp.Format("%d", n); pOpTGDDlg->m_cbTGDSN.AddString(szTmp); } pOpTGDDlg->m_cbTGDSN.SetCurSel(nStart - 1); pOpTGDDlg->m_cbDisType.SetCurSel(nDisType - 1); } } void CRsp2DTd::ClearTdChaList() { CTdChannel* pTdChannel = NULL; int iTdChannelIndex = (int)VAL_ZERO; iTdChannelIndex = (int)VAL_ZERO; while (iTdChannelIndex < this->m_tdChaList.GetCount()) { pTdChannel = NULL; pTdChannel = (CTdChannel *)this->m_tdChaList.GetAt(this->m_tdChaList.FindIndex(iTdChannelIndex)); pTdChannel->Clear2DSptRecList(); delete pTdChannel; iTdChannelIndex++; } this->m_tdChaList.RemoveAll(); } BOOL CRsp2DTd::SaveData() { CTdChannel* pTdChannel = NULL; _RecordsetPtr pRecTd; _CommandPtr pCmdIns; CString szSql = _T(""); int iChIndex = (int)VAL_ZERO; pRecTd.CreateInstance(_uuidof(Recordset)); pCmdIns.CreateInstance(_uuidof(Command)); pCmdIns->ActiveConnection = m_pConnection; try { m_pConnection->BeginTrans(); //int nPoleStep = atoi(this->m_szEDistance.GetBuffer(0)); float fPoleDistance = (float)atof(this->m_szEDistance.GetBuffer(0)); szSql.Empty(); szSql.Format(_T("insert into td(TDname,TDCN,Tlocation,DEID,DESN,TZID,SCID,SCCN,Sname,Stype,Ttype,Tmode,Eamount,TPamount,CHamount,N,TRwave,TRfrequency,Ifrequency," "SAfrequency,Clayout,Espace,Edistance,weather,WDIR,temperature,height,humidity,Cdate,Ctime,Tdate,Ttime,Rdirection,CRtime,PM,OP,QA) " "values('%s','%s','%s',%u,'%s',%u,%u,'%s','%s',%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%.2f,%.2f,%d,%d,%.2f,%.2f,%.2f,#%s#,#%s#,#%s#,#%s#,%d,%d,'%s','%s','%s')"), this->m_szTdName, this->m_szTdCN, this->m_szTLocation, this->m_pDevice->m_dwID, this->m_pDevice->m_szDevSN, this->m_dwTzID, this->m_dwSCID, this->m_szSCCN, this->m_szSName, this->m_iSType, this->m_iTType, this->m_iTMode, this->m_iEAmount, this->m_iTPAmount, this->m_iCHAmount, this->m_iN, this->m_iTRWave, this->m_iTRFrequency, this->m_iIFrequency, this->m_iSAFrequency, this->m_iCLayout, this->m_fESpace, fPoleDistance, // this->m_szEDistance, this->m_iWeather, this->m_iWDIR, this->m_fTemperature, this->m_fHeight, this->m_fHumidity, this->m_szCDate, this->m_szCTime, this->m_szTDate, this->m_szTTime, this->m_iRDirection, this->m_iCRtime, this->m_szPM, this->m_szOP, this->m_szQA); pCmdIns->CommandText = szSql.AllocSysString(); pCmdIns->Execute(NULL, NULL, adCmdText); pRecTd->Open(_T("select max(ID) as ID from td"), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText); if ((long)VAL_ZERO != pRecTd->GetRecordCount()) { this->m_dwID = (int)pRecTd->GetCollect(_T("ID")).ulVal; } pRecTd->Close(); iChIndex = (int)VAL_ZERO; while (iChIndex < m_tdChaList.GetCount()) { pTdChannel = NULL; pTdChannel = (CTdChannel*)m_tdChaList.GetAt(m_tdChaList.FindIndex(iChIndex)); pTdChannel->SaveRsp2DTdData(m_dwID); iChIndex++; } this->SaveGRDataToDB(m_dwID); this->SaveOrgDataToDB(m_dwID); m_pConnection->CommitTrans(); } catch(_com_error e) { m_pConnection->RollbackTrans(); hHook = SetWindowsHookEx(WH_CBT,(HOOKPROC)CBTHookProc,AfxGetInstanceHandle(),NULL); AfxMessageBox(e.Description()); return FALSE; } return TRUE; } BOOL CRsp2DTd::LoadData(CLinkList& m_medLinkList) { CTdChannel* pTdChannel = NULL; DWORD dwSCID = (DWORD)VAL_ZERO; DWORD dwMedHandle = (DWORD)VAL_ZERO; int iEAmount = (int)VAL_ZERO; _RecordsetPtr pRecTd; _RecordsetPtr pRecCh; _RecordsetPtr pRecTdCon; CString szSql = _T(""); int iChIndex = (int)VAL_ZERO; try { if ((int)VAL_ZERO == m_tdChaList.GetCount()) { pRecTd.CreateInstance(_uuidof(Recordset)); pRecCh.CreateInstance(_uuidof(Recordset)); szSql.Empty(); szSql.Format(_T("select SCID,Eamount,InitiEamount, rect from td where ID = %u"), this->m_dwID); // szSql.Format(_T("select SCID,Eamount, rect from td where ID = %u"), this->m_dwID); pRecTd->Open(szSql.AllocSysString(), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText); int iStartPole = 1, iEndPole = 1; if ((long)VAL_ZERO != pRecTd->GetRecordCount()) { dwSCID = (DWORD)pRecTd->GetCollect(_T("SCID")).ulVal; iEAmount = (int)pRecTd->GetCollect(_T("Eamount")).iVal; CString strValidPole = (pRecTd->GetCollect(_T("rect")).vt == VT_NULL) ? _T("") : (LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("rect")); CStringArray strArray; strArray.RemoveAll(); if (!strValidPole.IsEmpty()) { SplitterString(strArray, strValidPole, _T(",")); if (2 == strArray.GetSize()) { iStartPole = atoi(strArray.GetAt(0)); iEndPole = atoi(strArray.GetAt(1)); if (iStartPole < 1 || iEndPole <= iStartPole) { CString strErr = _T(""); if (LANG_ZHCN == g_iUILanguage) { strErr.Format(_T("解析孔信息错误.start_pole = %d, end_pole = %d"), iStartPole, iEndPole); AfxMessageBox(strErr); } else { strErr.Format(_T("Parser pole inforamtion error.start_pole = %d, end_pole = %d"), iStartPole, iEndPole); MessageBoxEx(NULL, strErr, STRING_MESSAGEBOXEX_TITLE, MB_OK, MAKELANGID(LANG_ENGLISH, SUBLANG_ENGLISH_US)); } } else { m_iStartPole = iStartPole; m_iEndPole = iEndPole; } } else { if (LANG_ZHCN == g_iUILanguage) AfxMessageBox(_T("解析器有效电极信息错误")); else MessageBoxEx(NULL, _T("Parser valid pole inforamtion error."), STRING_MESSAGEBOXEX_TITLE, MB_OK, MAKELANGID(LANG_ENGLISH, SUBLANG_ENGLISH_US)); } } else { m_iStartPole = 1; m_iEndPole = iEAmount; } //如果InitiEamount为空或者为零，则按照原来的电极个数进行获取 if (pRecTd->GetCollect(_T("InitiEamount")).vt != VT_NULL) { if (0 != pRecTd->GetCollect(_T("InitiEamount")).lVal) { iEAmount = (int)pRecTd->GetCollect(_T("InitiEamount")).iVal; } } } pRecTd->Close(); szSql.Empty(); szSql.Format(_T("select ID,ChNumber,AR from tdchannel where TDID = %u"), this->m_dwID); pRecCh->Open(szSql.AllocSysString(), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText); while ((short)VAL_ZERO == pRecCh->adoEOF) { pTdChannel = new CTdChannel(dwSCID, (int)pRecCh->GetCollect(_T("ChNumber")).iVal, this->m_pConnection); pTdChannel->m_dwID = (DWORD)pRecCh->GetCollect(_T("ID")).ulVal; pTdChannel->m_iEAmount = iEAmount; dwMedHandle = m_handleProcessor.GenerateHandle((int)pRecCh->GetCollect(_T("AR")).iVal, PZ_STYLE_MED_DEF); pTdChannel->m_pMedium = m_medLinkList.Find(dwMedHandle); if (TRUE == pTdChannel->LoadRsp2DTdData()) { this->m_tdChaList.AddTail((void*)pTdChannel); } pRecCh->MoveNext(); } pRecCh->Close(); } } catch(_com_error e) { CString strLog = _T(""); hHook = SetWindowsHookEx(WH_CBT,(HOOKPROC)CBTHookProc,AfxGetInstanceHandle(),NULL); if (LANG_ZHCN == g_iUILanguage) { strLog.Format(_T("加载数据错误. desc_msg = %s,error_msg = %s"), e.Description(), e.ErrorMessage()); AfxMessageBox(strLog); } else { strLog.Format(_T("Load data error. desc_msg = %s,error_msg = %s"), e.Description(), e.ErrorMessage()); MessageBoxEx(NULL, strLog , STRING_MESSAGEBOXEX_TITLE, MB_OK, MAKELANGID(LANG_ENGLISH, SUBLANG_ENGLISH_US)); } return FALSE; } return TRUE; } BOOL CRsp2DTd::DisplayGraph() { CString szSql = _T(""); _RecordsetPtr pRecTd = NULL; pRecTd.CreateInstance(_uuidof(Recordset)); szSql.Format(_T("select CRtime from td where ID = %u"), m_dwID); pRecTd->Open(szSql.AllocSysString(), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText); if ((long)VAL_ZERO == pRecTd->GetRecordCount()) { hHook = SetWindowsHookEx(WH_CBT,(HOOKPROC)CBTHookProc,AfxGetInstanceHandle(),NULL); if (LANG_ZHCN == g_iUILanguage) AfxMessageBox(_T("获取任务信息失败.")); else MessageBoxEx(NULL, _T("Get task information failed."), STRING_MESSAGEBOXEX_TITLE, MB_OK, MAKELANGID(LANG_ENGLISH, SUBLANG_ENGLISH_US)); return FALSE; } if (VT_NULL == pRecTd->GetCollect(_T("CRtime")).vt) { hHook = SetWindowsHookEx(WH_CBT,(HOOKPROC)CBTHookProc,AfxGetInstanceHandle(),NULL); if (LANG_ZHCN == g_iUILanguage) AfxMessageBox(_T("让任务滚动时间失败。")); else MessageBoxEx(NULL, _T("Get rolling times of task failed."), STRING_MESSAGEBOXEX_TITLE, MB_OK, MAKELANGID(LANG_ENGLISH, SUBLANG_ENGLISH_US)); return FALSE; } int iRTime = pRecTd->GetCollect(_T("CRtime")).lVal; // if (iRTime > 0) // { // hHook = SetWindowsHookEx(WH_CBT,(HOOKPROC)CBTHookProc,AfxGetInstanceHandle(),NULL); // AfxMessageBox(_T("Don't support the graph of task with rolling along.")); // return FALSE; // } CDisp2DRSPGrapDlg* pDisp2DRSPGrapDlg = new CDisp2DRSPGrapDlg(this); pDisp2DRSPGrapDlg->DoModal(); delete pDisp2DRSPGrapDlg; return TRUE; } BOOL CRsp2DTd::DisplayTPSplinesGraph(int iTSN) { ((CTdChannel*)this->m_tdChaList.GetAt(this->m_tdChaList.FindIndex(0)))->GetTdRecord(iTSN)->DisplayRawDataSplines(); return TRUE; } BOOL CRsp2DTd::GetTopography(int *f_disType ,int *f_start,CListCtrl &f_list) { _RecordsetPtr pRecTd = NULL; CString szSql = _T(""); CString szTmp = _T(""); pRecTd.CreateInstance(_uuidof(Recordset)); szSql.Empty(); szSql.Format(_T("select DType,StartNum,Distance,Elevation from t2dtg where TDID = %u"), this->m_dwID); pRecTd->Open(szSql.AllocSysString(), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText); if ((long)VAL_ZERO == pRecTd->GetRecordCount()) return FALSE; *f_disType = pRecTd->GetCollect(_T("DType")).iVal; *f_start = pRecTd->GetCollect(_T("StartNum")).iVal; int nId = 0; while ((short)VAL_ZERO == pRecTd->adoEOF) { szTmp.Format("%d" , nId + 1); f_list.InsertItem(nId,szTmp); f_list.SetItemText(nId,1,(LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("Distance"))); f_list.SetItemText(nId,2,(LPCTSTR)(_bstr_t)pRecTd->GetCollect(_T("Elevation"))); nId++; pRecTd->MoveNext(); } pRecTd->Close(); return TRUE; } //DEL void CRsp2DTd::GetCrossHoleSurfaceElectrode(float fPoleDis, float fCrosshole, int nHoleElectrodeNum,CStringArray* strArray) //DEL { //DEL strArray->RemoveAll(); //DEL int nElectordeCnt = 7; //DEL float fXPos = 0; //DEL CString strInfo = _T(""); //DEL CString strText = _T("Surface electrode"); //DEL strArray->Add(strText); //DEL float fElecPos[2]; //DEL //DEL strInfo.Format(_T("%d"),nElectordeCnt); //DEL strArray->Add(strInfo); //DEL int nFirstRealElectIndex = nElectordeCnt/2; //DEL int i = 0; //DEL for (; i < nFirstRealElectIndex; i++) //DEL { //DEL fXPos = i*fPoleDis; //DEL strInfo.Empty(); //DEL strInfo.Format(_T("%.1f, 0.0"),fXPos); //DEL strArray->Add(strInfo); //DEL } //DEL fElecPos[0] = fXPos; //DEL //添加两孔中间的虚拟电极 //DEL fXPos += fCrosshole*fPoleDis/2; //DEL strInfo.Empty(); //DEL strInfo.Format(_T("%.1f, 0.0"),fXPos); //DEL strArray->Add(strInfo); //DEL //DEL //第二个实际电极的位置 //DEL i = 0; //DEL fXPos = nFirstRealElectIndex * fPoleDis + fCrosshole * fPoleDis; //DEL fElecPos[1] = fXPos; //DEL int nRemain = nElectordeCnt - nFirstRealElectIndex - 1; //DEL for (; i < nRemain; i++) //DEL { //DEL fXPos += i*fPoleDis; //DEL strInfo.Empty(); //DEL strInfo.Format(_T("%.1f, 0.0"),fXPos); //DEL strArray->Add(strInfo); //DEL } //DEL //DEL //DEL int nHoleElecNumMid = nHoleElectrodeNum / 2; //DEL i = 0; //DEL float fZPos = 0; //DEL for (; i < 2; i++) //DEL { //DEL //添加钻孔1的电极信息 //DEL strText.Empty(); //DEL strText.Format(_T("Drill hole %d"),i+1); //DEL strArray->Add(strText); //DEL for (int j = 0; j < nHoleElecNumMid; j++) //DEL { //DEL strInfo.Empty(); //DEL strInfo.Format(_T("%.1f, %.1f"), fElecPos[i], j*fPoleDis); //DEL strArray->Add(strInfo); //DEL } //DEL } //DEL } void CRsp2DTd::UpdataTopography(int f_disType ,int f_start,CListCtrl &f_list) { _CommandPtr pRecTd = NULL; _RecordsetPtr pRecSelect = NULL; _CommandPtr pCmdIns = NULL; CString szSql = _T(""); CString szTmp = _T(""); pCmdIns.CreateInstance(_uuidof(Command)); pCmdIns->ActiveConnection = m_pConnection; pRecTd.CreateInstance(_uuidof(Command)); pRecTd->ActiveConnection = m_pConnection; pRecSelect.CreateInstance(_uuidof(Recordset)); szSql.Empty(); szSql.Format("select * from t2dtg where TDID = %u", this->m_dwID); pRecSelect->Open(szSql.AllocSysString(), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText); if ((long)VAL_ZERO != pRecSelect->GetRecordCount()) { szSql.Empty(); szSql.Format("delete from t2dtg where TDID = %u", this->m_dwID); //把旧数据都删掉 pCmdIns->CommandText = szSql.AllocSysString(); pCmdIns->Execute(NULL, NULL, adCmdText); } pRecSelect->Close(); CString szDistance = _T(""); CString szElevation = _T(""); for (int i = 0; i < f_list.GetItemCount(); i++) { szDistance = f_list.GetItemText(i,1); szElevation = f_list.GetItemText(i, 2); szSql.Empty(); szSql.Format("insert into t2dtg(TDID,DType,StartNum,Distance,Elevation) values(%u, %d, %d, %d, %d)", this->m_dwID, f_disType, f_start, atoi(szDistance.GetBuffer(0)), atoi(szElevation.GetBuffer(0)) ); pCmdIns->CommandText = szSql.AllocSysString(); pCmdIns->Execute(NULL, NULL, adCmdText); } } BOOL CRsp2DTd::Export2dDataToTxtBySort(CString strFileName, int iSortMethod) { COperTxtFile operTxtFile; if (!operTxtFile.OpenFileforWrite(strFileName)) { return FALSE; } _RecordsetPtr pRecConList = NULL; pRecConList.CreateInstance(_uuidof(Recordset)); CString szSql = _T(""); CStringArray strArrTxt; strArrTxt.RemoveAll(); strArrTxt.Add(_T("A(C1)")); strArrTxt.Add(_T("B(C2)")); strArrTxt.Add(_T("M(P1)")); strArrTxt.Add(_T("N(P2)")); strArrTxt.Add(_T("Stacking")); strArrTxt.Add(_T("K")); strArrTxt.Add(_T("V(mV)")); strArrTxt.Add(_T("I(mA)")); strArrTxt.Add(_T("R(Ohm)")); strArrTxt.Add(_T("R0")); strArrTxt.Add(_T("SP")); strArrTxt.Add(_T("R0_RD")); szSql.Empty(); szSql.Format(_T("select C1,C2,P1,P2,N,K,V,I,R0,SP,R0_LC,M0_LC,Layer,AR from td2dcon a, tdchannel b where a.TCHID = b.ID and b.TDID = %u and a.bUse <> 0 order by a.TSN"), m_dwID); try { pRecConList->Open(szSql.AllocSysString(), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText); } catch (_com_error e) { hHook = SetWindowsHookEx(WH_CBT,(HOOKPROC)CBTHookProc,AfxGetInstanceHandle(),NULL); AfxMessageBox((LPCTSTR)e.Description()); operTxtFile.CloseFile(); return FALSE; } if (!operTxtFile.WriteFileContent(strArrTxt)) { operTxtFile.CloseFile(); return FALSE; } if (pRecConList->GetRecordCount() <= 0) { operTxtFile.CloseFile(); return TRUE; } CString strText = _T(""); float fR = 0; int iDataIndex = 0; int iAR = pRecConList->GetCollect(_T("AR")).iVal; COperMediumPt operMedium(iAR); if (!operMedium.InitiSortInfo(1)) { operTxtFile.CloseFile(); return FALSE; } std::vector vtStTdTaskData; vtStTdTaskData.clear(); int iSortIndex = 0; while ((short)0 == pRecConList->adoEOF) { StTdTaskComDataInfo stTdTaskData; stTdTaskData.iC1 = pRecConList->GetCollect(_T("C1")).iVal; stTdTaskData.iC2 = pRecConList->GetCollect(_T("C2")).iVal; stTdTaskData.iP1 = pRecConList->GetCollect(_T("P1")).iVal; stTdTaskData.iP2 = pRecConList->GetCollect(_T("P2")).iVal; stTdTaskData.iN = pRecConList->GetCollect(_T("N")).iVal; stTdTaskData.fK = pRecConList->GetCollect(_T("K")).fltVal; stTdTaskData.fV = pRecConList->GetCollect(_T("V")).fltVal; stTdTaskData.fI = pRecConList->GetCollect(_T("I")).fltVal; stTdTaskData.fR0 = pRecConList->GetCollect(_T("R0")).fltVal; stTdTaskData.fSP = pRecConList->GetCollect(_T("SP")).fltVal; stTdTaskData.fR0_LC = pRecConList->GetCollect(_T("R0_LC")).fltVal; stTdTaskData.fM0_LC = pRecConList->GetCollect(_T("M0_LC")).fltVal; vtStTdTaskData.push_back(stTdTaskData); operMedium.AddSortPtInfo(stTdTaskData.iC1, stTdTaskData.iC2, stTdTaskData.iP1, stTdTaskData.iP2, pRecConList->GetCollect(_T("Layer")).iVal, iSortIndex++); pRecConList->MoveNext(); } iSortIndex = operMedium.GetFirstSortID(1); BOOL bRes = TRUE; float fPtXPos = 0; while(iSortIndex >= 0) { if (iSortIndex >= vtStTdTaskData.size()) { CString strErr = _T(""); if (LANG_ZHCN == g_iUILanguage) { strErr.Format(_T("数据索引混乱，data_index =%d,total_size=%d"), iSortIndex + 1, vtStTdTaskData.size()); AfxMessageBox(strErr); } else { strErr.Format(_T("Data index disorder,data_index = %d,total_size=%d"), iSortIndex + 1, vtStTdTaskData.size()); MessageBoxEx(NULL, strErr, STRING_MESSAGEBOXEX_TITLE, MB_OK, MAKELANGID(LANG_ENGLISH, SUBLANG_ENGLISH_US)); } bRes = FALSE; break; } if ((fPtXPos > EPSINON) && (operMedium.GetCurPtXPos() - fPtXPos > EPSINON)) { //这里由于需要明确区分一次排序后的的点，以空一行来表示分开 operTxtFile.WriteEmptyRow(); } fPtXPos = operMedium.GetCurPtXPos(); strArrTxt.RemoveAll(); strText.Empty(); strText.Format(_T("%d"), vtStTdTaskData[iSortIndex].iC1); strArrTxt.Add(strText); strText.Empty(); strText.Format(_T("%d"), vtStTdTaskData[iSortIndex].iC2); strArrTxt.Add(strText); strText.Empty(); strText.Format(_T("%d"), vtStTdTaskData[iSortIndex].iP1); strArrTxt.Add(strText); strText.Empty(); strText.Format(_T("%d"), vtStTdTaskData[iSortIndex].iP2); strArrTxt.Add(strText); strText.Empty(); strText.Format(_T("%d"), vtStTdTaskData[iSortIndex].iN); strArrTxt.Add(strText); strText.Empty(); strText.Format(_T("%f"), vtStTdTaskData[iSortIndex].fK); strArrTxt.Add(strText); strText.Empty(); strText.Format(_T("%f"), vtStTdTaskData[iSortIndex].fV); strArrTxt.Add(strText); strText.Empty(); strText.Format(_T("%f"), vtStTdTaskData[iSortIndex].fI); strArrTxt.Add(strText); fR = (fabsf(vtStTdTaskData[iSortIndex].fI) <= EPSINON) ? 0 : vtStTdTaskData[iSortIndex].fV/vtStTdTaskData[iSortIndex].fI; strText.Empty(); strText.Format(_T("%f"), fR); strArrTxt.Add(strText); strText.Empty(); strText.Format(_T("%f"), vtStTdTaskData[iSortIndex].fR0); strArrTxt.Add(strText); strText.Empty(); strText.Format(_T("%f"), vtStTdTaskData[iSortIndex].fSP); strArrTxt.Add(strText); strText.Empty(); strText.Format(_T("%f"), vtStTdTaskData[iSortIndex].fR0_LC); strArrTxt.Add(strText); if (!operTxtFile.WriteFileContent(strArrTxt)) { operTxtFile.CloseFile(); return FALSE; } iSortIndex = operMedium.GetNextSortID(); } pRecConList->Close(); operTxtFile.CloseFile(); return bRes; }