use "lang.vl"
|
use "win.vl"
|
use "treeview.vm"
|
use "dev:vm[xutil.vm]"
|
use "dev:vm[xdwtable.vm]"
|
use "dev:vm[xdwgrid.vm]"
|
use "sys.base.vl"
|
|
use "dev:vm[xcell.vm]"
|
|
unit vbusiness.vpage
|
[
|
Roleconfig is extend TProject;
|
about Roleconfig
|
[
|
field:
|
|
method:
|
[
|
treeview__ tv_menu;
|
xdwtable__ dw_list;
|
xdwgrid__ dw_param;
|
xdwgrid__ dw_role;
|
string m_status;
|
|
int SetAgent()
|
{
|
string xfNodeAgentArea = "agentarea";
|
xnode__ anode = new xnode__;
|
anode.setNativePointer(GetAgentNode(xfNodeAgentArea));
|
var xframeElement = win__::GetElement();
|
var agent = xframeElement.selectSingleNode("agent/"+xfNodeAgentArea+"[1]");
|
if(agent)
|
{
|
string s = agent.xml+"";
|
SetAgentNodeContent (anode,s);
|
}
|
return 1;
|
}
|
|
int createTree(string id, int parentItem)
|
{
|
if(treeview__::GetChildItem(tv_menu.GetId(), parentItem) > 0) return 0;
|
xml__ x = new xml__;
|
x.setNativePointer(xml__ ::CreateInstance());
|
xaserverarg__ arg=new xaserverarg__;
|
arg.setNativePointer(arg.CreateInstance());
|
arg.AddArg("pid",id);
|
//if(xaserver__::ExecXQuery(GetServerUrl(),"[leftFrame.xq]",arg.GetString(),x)!=1)
|
//if(url::get(m_iface+"/pref/tree",arg.GetString(),x)!=1)
|
if(url::get("/sale/data/Role.config/pref/tree",arg.GetString(),x)!=1)
|
{
|
trace(x.GetXml());
|
return -1;
|
}
|
//trace(x.GetXml());
|
var list=x.GetXmlDoc().selectNodes("items/item");
|
int i=0,s=list.length;
|
msxml::IXMLDOMElement xitem;
|
for (i=0;i<s;i++)
|
{
|
xitem= list.item(s - i - 1);
|
string id = xitem.selectSingleNode("ModuleID").text;
|
string Name="";
|
if(xitem.selectSingleNode("ModuleName")) Name=xitem.selectSingleNode("ModuleName").text;
|
string image = 15;
|
if(xitem.selectSingleNode("ModuelImage")) image=xitem.selectSingleNode("ModuelImage").text;
|
int curItem=treeview__::InsertItem(tv_menu.GetId(), parentItem,0,Name,id,image.toInt());
|
string child=xitem.selectSingleNode("@child").text;//item.getAttribute("HasChild");
|
if (child != "0")
|
treeview__::SetItemChild1(tv_menu.GetId(), curItem,1);
|
}
|
}
|
|
int OnNew()
|
{
|
int i =1;
|
while(dw_list.GetColumnName(i) != "")
|
{
|
dw_list.SetItemString(1, i, "");
|
i++;
|
}
|
dw_list.ResetUpdateStatus();
|
xml__ x = new xml__;
|
x.setNativePointer(xml__ ::CreateInstance());
|
x.LoadXml("<item><ModuelPage/><status _displaystring='ÆôÓÃ'>Y</status><type _displaystring='²Ëµ¥'>0</type><ModuelImage>17</ModuelImage><ModuelParam><args/></ModuelParam><roles/></item>");
|
dw_list.Retrieve(x);
|
dw_list.ResetUpdateStatus();
|
dw_list.Redraw();
|
dw_param.Retrieve(x.GetXmlDoc().selectSingleNode("item/ModuelParam/args"));
|
dw_param.ResetUpdateStatus();
|
dw_param.Redraw();
|
dw_role.Retrieve(x.GetXmlDoc().selectSingleNode("item/roles"));
|
dw_role.ResetUpdateStatus();
|
dw_role.Redraw();
|
return 1;
|
}
|
|
int OnAddRow(xdwgrid__ dw)
|
{
|
dw.InsertRow(0);
|
return 1;
|
}
|
|
int OnDelRow(xdwgrid__ dw)
|
{
|
int row = dw.GetRow();
|
if(row<1 || row > dw.GetRowCount()) return -1;
|
dw.DeleteRow(row);
|
return 1;
|
}
|
/*
|
int openUrl(string aurl, param para)
|
{
|
int pos = aurl.find("/",0);
|
if(pos<0) return "";
|
string iface = aurl.left(pos);
|
string root = aurl.mid(pos + 1,9999);
|
xml__ x = new xml__;
|
x.setNativePointer(xml__ ::CreateInstance());
|
if( iface.find(".vface",0)<0 )
|
{
|
return -1;
|
}
|
else
|
{
|
string typ = iface.mid(iface.find(".",0) + 1,9999);
|
xaserver__::LoadUrl("","dev:"+typ+"["+iface+"]","",x);
|
}
|
var doc = x.GetXmlDoc();
|
var n = doc.selectSingleNode("//resource[@url='" + root+"']/@src");
|
if(n)
|
{
|
string xq = n.text;
|
return OpenWindow(xq, para);
|
}else
|
{
|
n = doc.selectSingleNode("//group[@for='worknode']/resource[@url='" + root+"']");
|
if(n)
|
{
|
string vface = n.selectSingleNode("@vface").text;
|
string view = n.selectSingleNode("@view").text;
|
string config = n.selectSingleNode("@config").text;
|
if(config != "" )
|
{
|
xaserverarg__ arg = para;
|
arg.AddArg("config",config);
|
}
|
|
if(vface=="."|| vface=="")
|
{
|
var v = doc.selectSingleNode("//resource[@url='" + view+"']/@src");
|
if(v)
|
{
|
return OpenWindow(v.text, para);
|
}
|
}else
|
return openUrl(vface+"/"+view,para);
|
}
|
}
|
return -1;
|
}
|
*/
|
int OnAddRole()
|
{
|
xaserverarg__ arg=new xaserverarg__;
|
arg.setNativePointer(arg.CreateInstance());
|
//OpenWindow("dev:xpage[selectRole.vx]", arg);
|
//openUrl(m_vface+"/xpage/role/select/user", arg);
|
openUrl("/sale/view/Role.config/xpage/role/select/user", arg);
|
string str = arg.GetArgString("item");
|
if(str == "") return -1;
|
xml__ x = new xml__;
|
x.setNativePointer(xml__ ::CreateInstance());
|
x.LoadXml(str);
|
var list=x.GetXmlDoc().selectNodes("items/item");
|
int i=0,s=list.length;
|
msxml::IXMLDOMElement xitem;
|
int row = dw_role.GetRowCount() + 1;
|
for (i=0;i<s;i++)
|
{
|
xitem= list.item(i);
|
string id = ""+xitem.selectSingleNode("@id").text;
|
string name=""+xitem.selectSingleNode("@name").text;
|
string tpy=""+xitem.selectSingleNode("@type").text;
|
dw_role.InsertRow(0);
|
dw_role.SetItemString(row + i, "id", id);
|
dw_role.SetItemString(row + i, "name", name);
|
dw_role.SetItemString(row + i, "type", tpy);
|
}
|
return 1;
|
}
|
|
int OnDel()
|
{
|
xml__ x = new xml__;
|
x.setNativePointer(xml__ ::CreateInstance());
|
dw_list.DwUpdateAllTo(x.GetXmlDoc());
|
msxml::IXMLDOMElement e = x.GetXmlDoc().documentElement;
|
string id = e.selectSingleNode("@guid").text;
|
xaserverarg__ arg=new xaserverarg__;
|
arg.setNativePointer(arg.CreateInstance());
|
arg.AddArg("id", id);
|
//trace(id);
|
//if(xaserver__::ExecXQuery(GetServerUrl(),"[deleteModule.xq]",arg.GetString(),x)!=1)
|
//if(url::get(m_iface+"/pref/delete",arg.GetString(),x)!=1)
|
if(url::get("/sale/data/Role.config/pref/delete",arg.GetString(),x)!=1)
|
{
|
trace("error:"+x.GetXml());
|
alert("ɾ³ý³ö´í!");
|
return 0;
|
}
|
if(x.GetXmlDoc().selectSingleNode("error"))
|
{
|
alert("ÇëÏÈɾ³ý×ÓÏî!");
|
return 0;
|
}
|
int sitem = treeview__::GetSelectedItem(tv_menu.GetId());
|
treeview__::DeleteItem(tv_menu.GetId(), sitem);
|
return 1;
|
}
|
|
int OnSave()
|
{
|
dw_param.AcceptText();
|
dw_list.AcceptText();
|
/*int aa=1,bb=1;
|
xpoint p;
|
dw_list.getNullCell(p);
|
int xx = p.x;
|
trace(xx);
|
int yy = p.y;
|
trace(yy);
|
string zz = dw_list.GetColumnName(yy);
|
trace(zz);*/
|
|
int m = treeview__::GetSelectedItem(tv_menu.GetId());
|
if(m == 0) return -1;
|
|
int n = treeview__::GetRootItem(tv_menu.GetId());
|
if(m == n)
|
if(m_status == "update.modify")
|
{
|
alert("¸ù½Úµã²»ÄÜÐÞ¸Ä!");
|
return 1;
|
}
|
|
xml__ x = new xml__;
|
x.setNativePointer(xml__ ::CreateInstance());
|
dw_list.DwUpdateAllTo(x.GetXmlDoc());
|
msxml::IXMLDOMElement e = x.GetXmlDoc().documentElement;
|
e.SetAttribute(m_status, "1");
|
//trace(e.xml);
|
//return 1;
|
|
xml__ x1 = new xml__;
|
x1.setNativePointer(xml__ ::CreateInstance());
|
dw_param.DwUpdateAllTo(x1.GetXmlDoc());
|
msxml::IXMLDOMElement p = x1.GetXmlDoc().documentElement;
|
e.AppendChild(p);
|
|
xml__ x2 = new xml__;
|
x2.setNativePointer(xml__ ::CreateInstance());
|
dw_role.DwUpdateAllToEx(x2.GetXmlDoc());
|
msxml::IXMLDOMElement r = x2.GetXmlDoc().documentElement;
|
e.AppendChild(r);
|
|
//trace(e.xml);
|
xaserverarg__ arg=new xaserverarg__;
|
arg.setNativePointer(arg.CreateInstance());
|
arg.AddArg("content", e.xml);
|
arg.AddArg("dbmap", "Role.config.dbmap");
|
//if(xaserver__::ExecXQuery(GetServerUrl(),"[saveModule.xq]",arg.GetString(),x)!=1)
|
//if(url::get(m_iface+"/pref/save",arg.GetString(),x)!=1)
|
if(url::get("/sale/data/Role.config/pref/save",arg.GetString(),x)!=1)
|
{
|
trace("error:"+x.GetXml());
|
alert("±£´æ³ö´í!");
|
return 0;
|
}
|
//trace(x.GetXml());
|
if(x.GetXmlDoc().selectSingleNode("error"))
|
{
|
alert("±£´æ³ö´í2!");
|
return 0;
|
}
|
dw_list.ResetUpdateStatus();
|
dw_param.ResetUpdateStatus();
|
dw_role.ResetUpdateStatus();
|
|
string id = e.selectSingleNode("@guid").text;
|
string name = "";
|
if(e.selectSingleNode("ModuleName"))
|
name = e.selectSingleNode("ModuleName").text;
|
string image = 15;
|
if(e.selectSingleNode("ModuelImage"))
|
image = e.selectSingleNode("ModuelImage").text;
|
int sitem = treeview__::GetSelectedItem(tv_menu.GetId());
|
if(m_status == "update.new")
|
treeview__::InsertChildItem(tv_menu.GetId(), sitem, name, id, image.toInt());
|
else if(m_status == "update.modify")
|
treeview__::SetItemLabel(tv_menu.GetId(), sitem, name);
|
|
if(m_status == "update.new")
|
{
|
OnNew();
|
int sitem = treeview__::GetSelectedItem(tv_menu.GetId());
|
string xxid = treeview__::GetItemData(tv_menu.GetId(), sitem);
|
dw_list.SetItemString(1, "ModulePID", xxid);
|
}
|
alert("±£´æ³É¹¦!");
|
return 1;
|
}
|
|
int OnCmdDispatch(string comdid)
|
{
|
int hCursor = xutil__::SetCursorWait();
|
if(comdid == "New")
|
{
|
m_status = "update.new";
|
OnNew();
|
int sitem = treeview__::GetSelectedItem(tv_menu.GetId());
|
string id = treeview__::GetItemData(tv_menu.GetId(), sitem);
|
dw_list.SetItemString(1, "ModulePID", id);
|
}
|
else if(comdid == "addparam")
|
OnAddRow(dw_param);
|
else if(comdid == "delparam")
|
OnDelRow(dw_param);
|
else if(comdid == "addrole")
|
OnAddRole();
|
else if(comdid == "delrole")
|
OnDelRow(dw_role);
|
else if(comdid == "Del")
|
OnDel();
|
else if(comdid == "Save")
|
OnSave();
|
|
xutil__::RestoreCursor(hCursor);
|
return 0;
|
}
|
|
int OnTreeMoveNode(ref TNotifyEvent evt,int p)
|
{
|
ref TVNNMHDR nmtv = evt.pnmh;
|
int xfrom = nmtv.FromItem;
|
int xto = nmtv.ToItem;
|
|
int ret = win__::MessageBox(this.GetHWND(), "È·¶¨Òƶ¯½Úµã£¡","Ìáʾ£º",1);
|
//trace(ret);
|
if(ret == 2)
|
{
|
treeview__::DeleteItem(tv_menu.GetId(), xto);
|
return -1;
|
}
|
|
string fid = treeview__::GetItemData(tv_menu.GetId(), xfrom);
|
int xpto = treeview__::GetParentItem(tv_menu.GetId(), xto);
|
string tid = treeview__::GetItemData(tv_menu.GetId(), xpto);
|
|
xml__ x = new xml__;
|
x.setNativePointer(xml__ ::CreateInstance());
|
xaserverarg__ arg=new xaserverarg__;
|
arg.setNativePointer(arg.CreateInstance());
|
arg.AddArg("from", fid);
|
arg.AddArg("to", tid);
|
trace(arg.GetString());
|
//if(url::get(m_iface+"/pref/tree/move",arg.GetString(),x)!=1)
|
if(url::get("/sale/data/Role.config/pref/tree/move",arg.GetString(),x)!=1)
|
{
|
trace("error:"+x.GetXml());
|
alert("Òƶ¯½Úµã³ö´í!");
|
treeview__::DeleteItem(tv_menu.GetId(), xto);
|
return 0;
|
}
|
treeview__::DeleteItem(tv_menu.GetId(), xfrom);
|
return 1;
|
}
|
|
int OnTreeExpanding(ref TNotifyEvent evt,int p)
|
{
|
ref NMTREEVIEW nmtv = evt.pnmh;
|
int sitem = nmtv.itemNew.hItem;
|
|
string id = treeview__::GetItemData(tv_menu.GetId(), sitem);
|
int hCursor = xutil__::SetCursorWait();
|
createTree(id, sitem);
|
xutil__::RestoreCursor(hCursor);
|
return 1;
|
}
|
|
int OnTreeSelChanged(ref TNotifyEvent evt,int p)
|
{
|
ref NMTREEVIEW nmtv = evt.pnmh;
|
int hItem = nmtv.itemNew.hItem;
|
|
int hCursor = xutil__::SetCursorWait();
|
string id = treeview__::GetItemData(tv_menu.GetId(), hItem);
|
//trace(id);
|
m_status = "update.modify";
|
|
OnNew();
|
|
int xItem = treeview__::GetRootItem(tv_menu.GetId());
|
if(hItem == xItem)
|
{
|
string label = treeview__::GetItemLabel(tv_menu.GetId(), xItem);
|
dw_list.SetItemString(1, "ModuleName", label);
|
dw_list.ResetUpdateStatus();
|
return 0;
|
}
|
|
xml__ x = new xml__;
|
x.setNativePointer(xml__ ::CreateInstance());
|
dw_list.Retrieve(x);
|
dw_list.Redraw();
|
xaserverarg__ arg=new xaserverarg__;
|
arg.setNativePointer(arg.CreateInstance());
|
arg.AddArg("id",id);
|
//if(xaserver__::ExecXQuery(GetServerUrl(),"[leftMenu.xq]",arg.GetString(),x)!=1)
|
//if(url::get(m_iface+"/pref/maint",arg.GetString(),x)!=1)
|
if(url::get("/sale/data/Role.config/pref/maint",arg.GetString(),x)!=1)
|
{
|
trace(x.GetXml());
|
return -1;
|
}
|
dw_list.Retrieve(x);
|
dw_list.ResetUpdateStatus();
|
dw_list.Redraw();
|
if(x.GetXmlDoc().selectSingleNode("item/ModuelParam/args"))
|
{
|
dw_param.Retrieve(x.GetXmlDoc().selectSingleNode("item/ModuelParam/args"));
|
dw_param.ResetUpdateStatus();
|
dw_param.Redraw();
|
}
|
if(x.GetXmlDoc().selectSingleNode("item/roles"))
|
{
|
dw_role.Retrieve(x.GetXmlDoc().selectSingleNode("item/roles"));
|
dw_role.ResetUpdateStatus();
|
dw_role.SetReadOnly(true);
|
dw_role.Redraw();
|
}
|
//msxml::IXMLDOMElement e = x.GetXmlDoc().documentElement;
|
|
xutil__::RestoreCursor(hCursor);
|
return 1;
|
}
|
|
int OnSetFocus(ref TEvent evt,int p)
|
{
|
SetAgent();
|
return 1;
|
}
|
|
int OnXCommand(ref TXCommandEvent evt,int p)
|
{
|
return OnCmdDispatch(evt.pStrID);
|
}
|
|
int OnItemChanged(ref TNotifyEvent evt,int p)
|
{
|
ref DWNMHDR hdr = evt.pnmh;
|
string colname=hdr.colname;
|
if(colname == "type")
|
{
|
string value = hdr.data;
|
//trace(colname, value);
|
if(value == "0")
|
dw_list.SetItemString(1, "ModuelImage", "17");
|
else
|
dw_list.SetItemString(1, "ModuelImage", "16");
|
}
|
return 1;
|
}
|
|
int OnDBClick(ref TNotifyEvent evt,int p)
|
{
|
ref DWNMHDR hdr = evt.pnmh;
|
string colname=hdr.colname;
|
if(colname == "type")
|
{
|
string value = hdr.data;
|
//trace(colname, value);
|
if(value == "0")
|
dw_list.SetItemString(1, "ModuelImage", "17");
|
else
|
dw_list.SetItemString(1, "ModuelImage", "16");
|
}
|
return 1;
|
}
|
|
int OnItemError(ref TNotifyEvent evt,int p)
|
{
|
ref DWNMHDR hdr = evt.pnmh;
|
string colname=hdr.colname;
|
trace(colname);
|
int e = hdr.idFrom;
|
trace(e);
|
|
return 1;
|
}
|
|
int onload()
|
{
|
tv_menu = new treeview__;
|
tv_menu.setNativePointer(GetControl("tv_folder"));
|
int hItem = treeview__::InsertChildItem(tv_menu.GetId(), 0, "Ä£¿é", "", 17);
|
createTree("null", hItem);
|
treeview__::ExpandItemEx(tv_menu.GetId(), hItem);
|
|
dw_list = new xdwtable__;
|
dw_list.setNativePointer(GetControl("dw_base"));
|
//dw_list.SetDataObject(GetServerUrl(), "dev:sheet[leftFrame.tpl/module]");
|
//dw_list.openUrl(m_vface+"/template/role/config/module");
|
dw_list.openUrl("/sale/view/Role.config/template/role/config/module");
|
dw_list.SetColHeaderHeight(0);
|
dw_list.SetRowSelectorWidth(0);
|
dw_list.SetScrollState(false);
|
|
dw_param = new xdwgrid__;
|
dw_param.setNativePointer(GetControl("dw_param"));
|
//dw_param.SetDataObject(GetServerUrl(), "dev:sheet[leftFrame.tpl/param]");
|
//dw_param.openUrl(m_vface+"/template/role/config/param");
|
dw_param.openUrl("/sale/view/Role.config/template/role/config/param");
|
|
dw_role = new xdwgrid__;
|
dw_role.setNativePointer(GetControl("dw_role"));
|
//dw_role.SetDataObject(GetServerUrl(), "dev:sheet[leftFrame.tpl/role]");
|
//dw_role.openUrl(m_vface+"/template/role/config/role");
|
dw_role.openUrl("/sale/view/Role.config/template/role/config/role");
|
dw_role.SetReadOnly(false);
|
|
AttachEvent("tv_folder", "TVN_ITEMEXPANDING",OnTreeExpanding);
|
AttachEvent("tv_folder", "TVN_SELCHANGED",OnTreeSelChanged);
|
AttachEvent("tv_folder", "TVN_ENDDRAG",OnTreeMoveNode);
|
AttachEvent("WM_XCOMMAND",OnXCommand);
|
AttachEvent("WM_SETFOCUS",OnSetFocus);
|
AttachEvent("dw_base","DWV_ITEMCHANGED",OnItemChanged);
|
AttachEvent("dw_base","DWV_DOUBLECLICKED",OnDBClick);
|
AttachEvent("dw_base","DWV_ITEMERROR",OnItemError);
|
|
SetAgent();
|
|
return 1;
|
}
|
]
|
]
|
]
|
