update

lifan

2025-09-11 9459286625f095613a7074c1cfd9cf95d88091f3

 jrj/project/business/BasicCode/ShipcompanyList.cpp

@@ -1,33 +1,47 @@
use "system.vl"
use "win.vl"
use "list.vl"
unit vbusiness.entity
[
   ShipcompanyList is extend list;
   about ShipcompanyList
   [
      method:
      [
         int onload()
         {
            list::onload();
            return -1;
         }
			
         int ViewUpdate(param pr,string updateItem,xaserverarg__   arg)
            {
               if(   updateItem=="del")
               {
                  int DelRow = this.dw_list.GetRow();
                  this.dw_list.DeleteRow(DelRow);
#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"

               return 1;
            }
					
      ]
using xml = KXMLDOMDocument;
class __declspec(dllexport) ShipcompanyList : public listwin
{
public:

   xdwgrid  dw_list;
public:
   ShipcompanyList(void* implPtr, HWND hWnd) :listwin(implPtr, hWnd) {}
public:
   static ShipcompanyList* CreateInstance(void* implPtr, void* hWnd)
   {
      ShipcompanyList* pWin = new ShipcompanyList(implPtr, (HWND)hWnd);
      return pWin;
   }
   int onload()
   {
      listwin::onload();
      SetAgent();
      return -1;
   }

   ]
]
   int onloaded()
   {
      return listwin::onloaded();
   }

   int ViewUpdate(LPARAM pr, xstring updateItem, xaserverarg   arg)
   {
      if (updateItem == L"del")
      {
         int DelRow = dw_list.GetRow();
         dw_list.DeleteRow(DelRow);

      }

      return 1;
   }
};