|  |  | 
 |  |  | #include <xcontrol/ximageview.hpp> | 
 |  |  | #include <xcontrol/xhtml.hpp> | 
 |  |  | #include <xcontrol/xexcel.hpp> | 
 |  |  | #include "vbusiness/util/publiccode.vutil.vbusiness.hpp " | 
 |  |  | #include <vbusiness/vutil/publiccode.vutil.vbusiness.hpp> | 
 |  |  |  | 
 |  |  | using xml = KXMLDOMDocument; | 
 |  |  | class __declspec(dllexport) DataVanalysisWin : public xwin | 
 |  |  | { | 
 |  |  | public: | 
 |  |  |    DataVanalysisWin(void* implPtr, HWND hWnd) :xwin(implPtr, hWnd) {} | 
 |  |  |    DataVanalysisWin(void* implPtr, HWND hWnd) :xwin(implPtr, hWnd),dw_data(0){} | 
 |  |  |    static DataVanalysisWin* CreateInstance(void* implPtr, void* hWnd) | 
 |  |  |    { | 
 |  |  |       return new DataVanalysisWin(implPtr, (HWND)hWnd); | 
 |  |  |    } | 
 |  |  | public: | 
 |  |  |    xhtml   ole_html; | 
 |  |  |    xdwgrid  dw_data; | 
 |  |  |    xdwgrid*  dw_data; | 
 |  |  |    xnode   m_agentNode;   //Agent Condition | 
 |  |  |    xstring   htmlStr; | 
 |  |  |    xexcel   excel; | 
 |  |  | 
 |  |  |       HCURSOR hCursor = xutil::SetCursorWait(); | 
 |  |  |       if (comdid == L"xmConfig") | 
 |  |  |       { | 
 |  |  |          xstring str = dw_data.DataAnalysis(L""); | 
 |  |  |          xstring str = dw_data->DataAnalysis(L""); | 
 |  |  |          if (str != L"") | 
 |  |  |          { | 
 |  |  |             ole_html.LoadHtml(str); | 
 |  |  | 
 |  |  |  | 
 |  |  |          xaserver::CreateDirectory(L"C:\\Temp"); | 
 |  |  |          xstring gid = publiccode::GetGuid(); | 
 |  |  |          xutil::SaveToFile(L"C:\\Temp\\" + gid + L".html", htmlStr, L"", L"", L""); | 
 |  |  |          xutil::SaveToFile(L"C:\\Temp\\" + gid + L".html", htmlStr, L"", L""); | 
 |  |  |          excel.OpenDocument(L"C:\\Temp\\" + gid + L".html"); | 
 |  |  |          excel.put_Visible(true); | 
 |  |  |          return 1; | 
 |  |  | 
 |  |  |       AttachEvent(L"WM_XCOMMAND", (FEvent)&DataVanalysisWin::OnXCommand); | 
 |  |  |       //获取焦点事件,用于重置工具条 | 
 |  |  |       AttachEvent(L"WM_SETFOCUS", (FEvent)&DataVanalysisWin::OnSetFocus); | 
 |  |  |  | 
 |  |  |       return 1; | 
 |  |  |    } | 
 |  |  |  | 
 |  |  |    int onload() | 
 |  |  |    { | 
 |  |  |       htmlStr = L""; | 
 |  |  |       ole_html = GetControl(L"ole_html"); | 
 |  |  |       ole_html = GetControl(L"ole_1"); | 
 |  |  |       if (!GetWinParam()) return 1; | 
 |  |  |       SetArg(); | 
 |  |  |       xaserverarg arg = GetArg(); | 
 |  |  | 
 |  |  |          htmlStr = str; | 
 |  |  |          ole_html.LoadHtml(str); | 
 |  |  |       } | 
 |  |  |       dw_data = *(xdwgrid*)arg.GetParam(L"obj"); | 
 |  |  |       dw_data = (xdwgrid*)arg.GetParam(L"obj"); | 
 |  |  |  | 
 |  |  |       OnAttachEvent(); | 
 |  |  |  |