a
This commit is contained in:
coco
@@ -0,0 +1,145 @@
|
||||
// ScriptCE.cpp: implementation of the CScriptCE class.
|
||||
//
|
||||
//////////////////////////////////////////////////////////////////////
|
||||
|
||||
#include "geomative.h"
|
||||
#include "ScriptCE.h"
|
||||
|
||||
#ifdef _DEBUG
|
||||
#undef THIS_FILE
|
||||
static char THIS_FILE[]=__FILE__;
|
||||
#define new DEBUG_NEW
|
||||
#endif
|
||||
|
||||
//////////////////////////////////////////////////////////////////////
|
||||
// Construction/Destruction
|
||||
//////////////////////////////////////////////////////////////////////
|
||||
|
||||
CScriptCE::CScriptCE(DWORD dwID, _ConnectionPtr& pConnection): CScript(dwID, pConnection)
|
||||
{
|
||||
|
||||
}
|
||||
|
||||
CScriptCE::~CScriptCE()
|
||||
{
|
||||
|
||||
}
|
||||
|
||||
bool CScriptCE::ShowSptConInfo(CListCtrl& sptConList)
|
||||
{
|
||||
_RecordsetPtr pRecSptList = NULL;
|
||||
CString szSql;
|
||||
|
||||
int iIndex = (int)VAL_ZERO;
|
||||
|
||||
pRecSptList.CreateInstance(_uuidof(Recordset));
|
||||
if ((int)VAL_ZERO != sptConList.GetItemCount())
|
||||
{
|
||||
sptConList.DeleteAllItems();
|
||||
}
|
||||
|
||||
szSql.Empty();
|
||||
szSql.Format(_T("select b.CHnumber as CHnumber,a.TSN as TSN,a.a as a,a.b as b,a.x as x,a.y as y,a.K as K,a.N as N from script1d a,channel b "
|
||||
"where b.SCID = %d and a.CHID = b.ID order by a.TSN,a.CHID"), m_dwID);
|
||||
pRecSptList->Open(szSql.AllocSysString(), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText);
|
||||
|
||||
while ((short)VAL_ZERO == pRecSptList->adoEOF)
|
||||
{
|
||||
sptConList.InsertItem(iIndex, pRecSptList->GetCollect(_T("CHnumber")).vt == VT_NULL ? _T("") : (LPCTSTR)(_bstr_t)pRecSptList->GetCollect(_T("CHnumber")));
|
||||
sptConList.SetItemText(iIndex, 1, pRecSptList->GetCollect(_T("TSN")).vt == VT_NULL ? _T("") : (LPCTSTR)(_bstr_t)pRecSptList->GetCollect(_T("TSN")));
|
||||
sptConList.SetItemText(iIndex, 2, pRecSptList->GetCollect(_T("a")).vt == VT_NULL ? _T("") : (LPCTSTR)(_bstr_t)pRecSptList->GetCollect(_T("a")));
|
||||
sptConList.SetItemText(iIndex, 3, pRecSptList->GetCollect(_T("b")).vt == VT_NULL ? _T("") : (LPCTSTR)(_bstr_t)pRecSptList->GetCollect(_T("b")));
|
||||
sptConList.SetItemText(iIndex, 4, pRecSptList->GetCollect(_T("x")).vt == VT_NULL ? _T("") : (LPCTSTR)(_bstr_t)pRecSptList->GetCollect(_T("x")));
|
||||
sptConList.SetItemText(iIndex, 5, pRecSptList->GetCollect(_T("y")).vt == VT_NULL ? _T("") : (LPCTSTR)(_bstr_t)pRecSptList->GetCollect(_T("y")));
|
||||
sptConList.SetItemText(iIndex, 6, pRecSptList->GetCollect(_T("K")).vt == VT_NULL ? _T("") : (LPCTSTR)(_bstr_t)pRecSptList->GetCollect(_T("K")));
|
||||
sptConList.SetItemText(iIndex, 7, pRecSptList->GetCollect(_T("N")).vt == VT_NULL ? _T("") : (LPCTSTR)(_bstr_t)pRecSptList->GetCollect(_T("N")));
|
||||
|
||||
iIndex++;
|
||||
pRecSptList->MoveNext();
|
||||
}
|
||||
|
||||
pRecSptList->Close();
|
||||
return true;
|
||||
}
|
||||
|
||||
bool CScriptCE::ShowSptDetailInfo(CListCtrl& sptDetailList)
|
||||
{
|
||||
_RecordsetPtr pRecSCon = NULL;
|
||||
_RecordsetPtr pRecSHead = NULL;
|
||||
_RecordsetPtr pRecMed = NULL;
|
||||
_RecordsetPtr pRecCm = NULL;
|
||||
|
||||
CString szSql = _T("");
|
||||
CString szLabel = _T("");
|
||||
|
||||
int iRowIndex = (int)VAL_ZERO;
|
||||
|
||||
pRecSCon.CreateInstance(_uuidof(Recordset));
|
||||
pRecSHead.CreateInstance(_uuidof(Recordset));
|
||||
pRecMed.CreateInstance(_uuidof(Recordset));
|
||||
pRecCm.CreateInstance(_uuidof(Recordset));
|
||||
|
||||
while (sptDetailList.GetItemCount() != iRowIndex)
|
||||
{
|
||||
sptDetailList.SetItemText(iRowIndex, 1, _T(""));
|
||||
iRowIndex++;
|
||||
}
|
||||
|
||||
szSql.Empty();
|
||||
szSql.Format(_T("select CN,Sname,Eamount,CHamount,TPamount,definer,Format(DEdate,'YYYY-MM-DD') as DEdate,SCdesc from scon where ID = %u"), m_dwID);
|
||||
pRecSCon->Open(szSql.AllocSysString(), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText);
|
||||
|
||||
if ((long)VAL_ZERO != pRecSCon->GetRecordCount())
|
||||
{
|
||||
sptDetailList.SetItemText(0, 1, pRecSCon->GetCollect(_T("CN")).vt == VT_NULL ? _T("") : (LPCTSTR)(_bstr_t)pRecSCon->GetCollect(_T("CN")));
|
||||
|
||||
sptDetailList.SetItemText(1, 1, pRecSCon->GetCollect(_T("Sname")).vt == VT_NULL ? _T("") : (LPCTSTR)(_bstr_t)pRecSCon->GetCollect(_T("Sname")));
|
||||
|
||||
sptDetailList.SetItemText(2, 1, pRecSCon->GetCollect(_T("Eamount")).vt == VT_NULL ? _T("") : (LPCTSTR)(_bstr_t)pRecSCon->GetCollect(_T("Eamount")));
|
||||
sptDetailList.SetItemText(3, 1, pRecSCon->GetCollect(_T("CHamount")).vt == VT_NULL ? _T("") : (LPCTSTR)(_bstr_t)pRecSCon->GetCollect(_T("CHamount")));
|
||||
sptDetailList.SetItemText(4, 1, pRecSCon->GetCollect(_T("TPamount")).vt == VT_NULL ? _T("") : (LPCTSTR)(_bstr_t)pRecSCon->GetCollect(_T("TPamount")));
|
||||
sptDetailList.SetItemText(5, 1, pRecSCon->GetCollect(_T("definer")).vt == VT_NULL ? _T("") : (LPCTSTR)(_bstr_t)pRecSCon->GetCollect(_T("definer")));
|
||||
sptDetailList.SetItemText(6, 1, pRecSCon->GetCollect(_T("DEdate")).vt == VT_NULL ? _T("") : (LPCTSTR)(_bstr_t)pRecSCon->GetCollect(_T("DEdate")));
|
||||
|
||||
sptDetailList.SetItemText(7, 1, pRecSCon->GetCollect(_T("SCdesc")).vt == VT_NULL ? _T("") : (LPCTSTR)(_bstr_t)pRecSCon->GetCollect(_T("SCdesc")));
|
||||
}
|
||||
pRecSCon->Close();
|
||||
|
||||
return true;
|
||||
}
|
||||
|
||||
bool CScriptCE::ShowChannelList(CListCtrl& sptChannelList)
|
||||
{
|
||||
_RecordsetPtr pRecCh = NULL;
|
||||
_RecordsetPtr pRecMed = NULL;
|
||||
CString szSql = _T("");
|
||||
|
||||
int iIndex = (int)VAL_ZERO;
|
||||
DWORD dwHandle = (DWORD)VAL_ZERO;
|
||||
|
||||
pRecCh.CreateInstance(_uuidof(Recordset));
|
||||
pRecMed.CreateInstance(_uuidof(Recordset));
|
||||
|
||||
if ((int)VAL_ZERO != sptChannelList.GetItemCount())
|
||||
{
|
||||
sptChannelList.DeleteAllItems();
|
||||
}
|
||||
|
||||
szSql.Empty();
|
||||
szSql.Format(_T("select a.ID as ID,a.CHnumber as CHnumber,b.MEname as MEname from channel a,medium b where a.SCID = %d and a.AR = b.AR and b.LANG = %d order by a.CHnumber"), m_dwID, LANG_ENUS);
|
||||
pRecCh->Open(szSql.AllocSysString(), _variant_t((IDispatch*)m_pConnection, true), adOpenStatic, adLockOptimistic, adCmdText);
|
||||
|
||||
while ((short)VAL_ZERO == pRecCh->adoEOF)
|
||||
{
|
||||
sptChannelList.InsertItem(iIndex, pRecCh->GetCollect(_T("CHnumber")).vt == VT_NULL ? _T("") : (LPCTSTR)(_bstr_t)pRecCh->GetCollect(_T("CHnumber")));
|
||||
sptChannelList.SetItemText(iIndex, 1, pRecCh->GetCollect(_T("MEname")).vt == VT_NULL ? _T("") : (LPCTSTR)(_bstr_t)pRecCh->GetCollect(_T("MEname")));
|
||||
|
||||
dwHandle = m_handleProcessor.GenerateHandle((DWORD)pRecCh->GetCollect(_T("ID")).ulVal, PZ_STYLE_SPT_CH);
|
||||
sptChannelList.SetItemData(iIndex, dwHandle);
|
||||
|
||||
iIndex++;
|
||||
pRecCh->MoveNext();
|
||||
}
|
||||
pRecCh->Close();
|
||||
return true;
|
||||
}
|
||||
Reference in New Issue
Block a user