📄 delegationentrylist.aspx
字号:
<!--==============================弹出层===============================-->
<div id="popDiv" onmousedown="vbs:Login_Win_Down me" onmousemove="vbs:Login_Win_Move me" onmouseup="vbs:Login_Win_Up me" style="display:none;left:0;top:0;position:absolute;width:300;height:250;border-top:solid 1px #3d3d3d;border-left:solid 1px #3d3d3d;border-bottom:solid 1px #3d3d3d;border-right:solid 1px #3d3d3d;">
<table cellpadding="0" cellspacing="0" border="0" width="300" height="250" bgcolor="#f6f6f6" >
<tr id="trfirst" height="22" style="background-image:url('../images/tr.gif')">
<td>单位</td>
<td align=right><img src="../images/close.gif" onmousedown="vbs:window.event.cancelBubble=true" onclick="vbs:document.all('popDiv').style.display='none'"/></td>
</tr>
<tr onmousedown="vbs:window.event.cancelBubble=true">
<td valign="middle" align="center">
<div style="width:250;border-top:solid 1px #999999;border-left:solid 1px #999999;border-right:solid 1px #ffffff;border-bottom:solid 1px #ffffff;" align="center">
<table height="140" border=0 style="width:250;border-top:solid 1px #ffffff;border-left:solid 1px #ffffff;border-right:solid 1px #999999;border-bottom:solid 1px #999999;">
<tr>
<td>
单位
</td>
<td>
<input class="textBox" id="txtUnit"/><input type=hidden id="txtId" />
</td>
</tr><tr>
<td>
备注
</td>
<td>
<textarea style="width:180;height:50;" id="txtNote" class="textBox"></textarea>
</td>
</tr>
</table>
</div><br />
<input type=button value="保 存" style="border:none;width:100;height:25;background-image:url('../images/button.gif');font-size:12px;" onclick="javascript:save();"/>
<input type=button value="取 消" style="border:none;width:100;height:25;background-image:url('../images/button.gif');font-size:12px;" onclick="vbs:hideDiv document.all('popDiv')"/>
</td>
</tr>
</table>
</div>
</form>
</body>
</html>
<script language=vbscript src="../script/vbscript.vbs"></script>
<script language=vbscript>
titleResize
sub modifyRecord()
if not IsObject(currentTR) then
msgbox "请先选择要修改的"
exit sub
end if
if document.all("tb1").rows.length=1 then
exit sub
end if
document.all("txtId").value=trim(currentTR.cells(0).outerText)
document.all("txtUnit").value=trim(currentTR.cells(1).outerText)
document.all("txtNote").value=trim(currentTR.cells(2).outertext)
showDiv document.all("popDiv")
end sub
sub newRecord(div)
document.all("txtId").value=""
document.all("txtUnit").value=""
document.all("txtNote").value=""
showDiv div
end sub
sub delRecord()
if not IsObject(currentTR) then
msgbox "请先选择要修改的"
exit sub
end if
if document.all("tb1").rows.length=1 then
exit sub
end if
if msgbox("记录删除后将不能恢复,确定删除记录吗?",vbYesNo,"尚洋生产管理系统")=vbYes then
document.all("txtId").value=trim(currentTR.cells(0).outerText)
save "del"
end if
end sub
'
sub validate(byval retValue,byref isAvailable,byref msg)
tmp=split(retValue,"|")
isAvailable=tmp(0)
msg=tmp(1)
end sub
</script>
<script language="javascript">
//添加事件处理
function addMoveEvent(obj)
{
obj.attachEvent("onmouseover",function(){RowMouseOver(obj);});
}
function addOutEvent(obj)
{
obj.attachEvent("onmouseout",function(){RowMouseOut(obj);});
}
function addClickEvent(obj)
{
obj.attachEvent("onclick",function(){chooseTr(obj);});
}
function save(op)
{
var param="";
var IsAvailable,msg;
var xmlHttp=new ActiveXObject("microsoft.XMLHTTP");
if(op!="del")
{
if(document.all("txtId").value=="")
{
param="op=add&unit="+document.all("txtUnit").value+"¬e="+document.all("txtNote").value;
}
else
{
param="op=modify&unit="+document.all("txtUnit").value+"¬e="+document.all("txtNote").value+"&id="+document.all("txtId").value.toString();
}
}
else
{
param="op=del&id="+document.all("txtId").value;
}
xmlHttp.open("POST","UnitHandle.aspx",false);
xmlHttp.setRequestHeader("CONTENT-TYPE","application/x-www-form-urlencoded;");
xmlHttp.send(param);
var responseValue=xmlHttp.responsetext;
if(getState(responseValue)=="0")
{
alert(getMsg(responseValue));
return;
}
if(op!="del")
{
if(document.all("txtId").value=="")
{
var row=tb1.insertRow(tb1.rows.length);
row.style.height="22";
row.style.whiteSpace="nowrap";
row.style.backgroundColor="#ffffff";
addMoveEvent(row);
addOutEvent(row);
addClickEvent(row);
var cell=row.insertCell();
cell.className="td1";
cell.innerText=getMsg(responseValue);
cell=row.insertCell();
cell.className="td1";
cell.innerText=document.all("txtUnit").value;
cell=row.insertCell();
cell.className="td1";
cell.innerText=document.all("txtNote").value+" ";
alert("添加成功!");
document.all("popDiv").style.display="none";
}
else
{
currentTR.cells[1].innerText=document.all("txtUnit").value;
currentTR.cells[2].innerText=document.all("txtNote").value+" ";
alert("修改成功!");
document.all("popDiv").style.display="none";
}
}
else
{
var obj;
var obj2=currentTR;
if((obj=currentTR.nextSibling)!=null)
{
currentTR=obj;
}
else
{
if((obj=currentTR.previousSibling)!=null)
{
currentTR=obj;
}
else
{
currentTR=null;
}
}
tb1.deleteRow(obj2.rowIndex);
if(currentTR!=null)
{
chooseTr(currentTR);
}
alert("删除成功!");
}
}
function getState(s)
{
var ary=s.split("|");
return ary[0];
}
function getMsg(s)
{
var ary=s.split("|");
return ary[1];
}
var tr=dialogArguments;
document.all("txtDate1").value=tr.cells[3].outerText;
document.all("txtDate2").value=tr.cells[4].outerText;
document.all("txtPoNo").value=tr.cells[1].outerText;
document.all("txtSupplier").value=tr.cells[2].outerText;
</script>
<script language=vbscript>
function vbparseint(str)
vbparseint=cint(str)
end function
</script>
<script language="javascript" defer>
result();
function result()
{
for(var i=1;i<document.all("Table1").rows.length;i++)
{
var cell=document.all("Table1").rows[i].insertCell();
cell.className="td1";
cell.innerText=vbparseint(document.all("Table1").rows[i].cells[5].outerText)-vbparseint(document.all("Table1").rows[i].cells[6].outerText);
}
}
</script>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -