LiFan
2024-07-16 6a4764ee747fff45d89ef48f98873d6409e4f85e
jrj/project/business/BasicCode/ShipcompanyList.cpp
@@ -1,33 +1,38 @@
use "system.vl"
use "win.vl"
use "list.vl"
unit vbusiness.entity
[
   ShipcompanyList is extend list;
   about ShipcompanyList
   [
      method:
      [
#include <wobject/xstring.hpp>
#include <xcontrol/xtreeview.hpp>
#include <xcontrol/xdwgrid.hpp>
#include <wobject/xdouble.hpp>
#include <xcontrol/xlayersheet.hpp>
#include "vbusiness/vframe/listwin.vframe.vbusiness.hpp"
#include "viewobject/view.base.hpp"
using xml = KXMLDOMDocument;
class __declspec(dllexport) ShipcompanyList : public xwin
{
public:
   ShipcompanyList(void* implPtr, HWND hWnd) :xwin(implPtr, hWnd) {}
public:
   static ShipcompanyList* CreateInstance(void* implPtr, void* hWnd)
   {
      ShipcompanyList* pWin = new ShipcompanyList(implPtr, (HWND)hWnd);
      return pWin;
   }
         int onload()
         {
            list::onload();
            return -1;
         }
         
         int ViewUpdate(param pr,string updateItem,xaserverarg__   arg)
   int ViewUpdate(param pr, xstring updateItem, xaserverarg   arg)
            {
               if(   updateItem=="del")
      if (updateItem == L"del")
               {
                  int DelRow = this.dw_list.GetRow();
                  this.dw_list.DeleteRow(DelRow);
         int DelRow = dw_list.GetRow();
         dw_list.DeleteRow(DelRow);
               }
               return 1;
            }
      ]
   ]
]
};