adminstuff.aspx

尚洋仓库管理系统,对仓库

        showDiv(div);
    }
    function delRecord()
    {
        userOperate="del";
        if(currentTR==null)
        {
            alert("请先选择要修改的");
            return;
        }
        if(confirm("记录删除后将不能恢复，确定删除记录吗？"))
        {
            document.all("txtId").value=vbTrim(currentTR.cells[0].outerText);
            
            save2(document.all("tb1"));
        }
    }
</script>
<script language=vbscript>
    titleResize
 
    function checkNumeric(value)
	     checkNumeric=isnumeric(value)
    end function
   '剪切函数
   function vbTrim(str)
      vbTrim=trim(str)
   end function
   sub validate(byval retValue,byref isAvailable,byref msg)
        tmp=split(retValue,"|")
        isAvailable=tmp(0)
        msg=tmp(1)
    end sub
    
dim spanLeft,spanTop,moveTD,tdField
	spanLeft=0:spantop=0
	'dim tableStr
	'tablestr="<table STYLE='table-layout: fixed' border=0  height=100% cellpadding=0 cellspacing=0><tr><td class=td2 >title2</td><td class=td2 noWrap style='height:19;width:3' onmouseover=""vbs:me.style.cursor='E-resize'"" onmousedown=""vbs:tz me""><img style='LEFT: 0px; POSITION: relative' height=100%  src='a/.gif' width=3 title='调整表格宽度' ></td></tr></table>"
	
	sub tz(objTD)
		set objTD=objTD.parentElement.Cells(0)
		dim objElement
		dim Totaloffset:Totaloffset=0
		set objElement=objTD.parentElement
		do while objElement.tagName<>"BODY"
			Totaloffset=Totaloffset+objElement.offsetLeft	
			set objElement=objElement.parentElement
		Loop

		span2.style.pixelLeft=	objTD.offsetLeft+Totaloffset-span1.scrollLeft-span1.parentElement.offsetLeft-4
		span2.style.pixeltop=objTD.offsetTop+document.all("span1").offsetTop+span1.parentElement.parentElement.parentElement.parentElement.offsetTop
		
		span2.style.pixelwidth=objTD.parentElement.Cells(1).offsetLeft-objTD.parentElement.Cells(0).offsetLeft+6
		span2.style.pixelheight=span1.clientHeight
		span2.style.display="inline"
		span2.setCapture
		set moveTD=objTD
		tdField=objTD.parentElement.parentElement.parentElement.parentElement.cellindex		
	end sub
	
	sub retPosition()
		spanleft=1
		spantop=2
	end sub
	
	sub M_Move()
		Dim PixelLeft,tempwidth
		PixelLeft=TotalOffsetLeft(moveTD)
		tempwidth=window.event.clientX-pixelLeft+span1.scrollLeft+span1.parentElement.offsetLeft
		if tempwidth<5 then tempwidth=5
		span2.style.pixelwidth=tempwidth
		'window.status=window.event.clientX-pixelLeft		
	end sub
	
	sub M_up
		span2.releaseCapture
		
		for dcc_i=0 to tb1.rows.length-2
			tb1.rows(dcc_i).cells(tdField).style.pixelwidth=span2.style.pixelwidth
			tb1.rows(dcc_i).cells(tdField).style.height="22px"
			tb1.rows(dcc_i).cells(tdField).style.whiteSpace="nowrap"
			tb1.rows(dcc_i).cells(tdField).style.wordBreak="break-All"
			
			tb1.rows(dcc_i).cells(tdField).style.textOverflow="ellipsis"
			tb1.rows(dcc_i).cells(tdField).style.wordWrap="break-word"
		next
		'msgbox tb1.rows(0).cells(tdField).childNodes(0).outerHTML
		'tb1.rows(0).cells(tdField).innerHTML=""
		'tb1.rows(0).cells(tdField).innerHTML=tablestr
		span2.style.display="none"
		titleResize
		
	end sub
	
	Function TotalOffsetLeft(byval obj)
		Dim Templeft,tempobj
		tempLeft=0
		set tempobj=moveTD
		do while tempobj.tagName<>"BODY"
			TempLeft=TempLeft+tempobj.offsetLeft
			set tempobj=tempobj.parentElement
		loop
		set tempobj=nothing
		TotalOffsetLeft=templeft
	end function
	
	sub titleResize
		span3.innerHTML="<table border=0  cellspacing=0 cellpadding=0 id='tb2' STYLE='table-layout: fixed;border-left:buttonface 1px solid;'>" & tb1.rows(0).outerHTML  & "</table>"
		
		HScroll
	end sub
	
	sub HScroll
		on error resume next
		span3.style.left=span1.offsetLeft+span1.parentElement.offsetLeft
		span3.style.top=span1.offsetTop+1+span1.parentElement.parentElement.parentElement.parentElement.offsetTop
		span3.style.width=span1.offsetWidth-(span1.offsetWidth-span1.clientWidth)
		
		for iii=0 to document.all("tb2").Rows(0).cells.length-1
			document.all("tb2").Rows(0).cells(iii).style.width=tb1.rows(0).cells(iii).offsetwidth
		next
		span3.scrollLeft=span1.scrollLeft
		'if err.number<>0 then msgbox "err"
		window.status=err.Description
	end sub' VBScript 文件

    
    
    
function VBparseInt(p)
    VBparseInt=cint(replace(p,"px",""))
end function

 dim Login_Win_Down_Flag,Login_Win_Down_orgX,Login_Win_Down_orgY

   Login_Win_Down_Flag=false
    '================================================================================
    '按下鼠标
    '================================================================================
   Sub Login_Win_Down(DivObj)
        DivObj.setCapture
        Login_Win_Down_Flag=true
        Login_Win_Down_orgX=VBparseInt(window.event.offsetX)        
        Login_Win_Down_orgY=VBparseInt(window.event.offsetY)
        
   End Sub
       '================================================================================
    '移动鼠标
    '================================================================================
   Sub Login_Win_Move(DiVObj)
        if Login_Win_Down_Flag then
            DivObj.style.cursor="move"
            DivObj.style.left=window.event.x-Login_Win_Down_orgX
            
            DivObj.style.top=window.event.y-Login_Win_Down_orgY
        end if
   End Sub
   
   Sub Login_Win_Up(DivObj)
    DivObj.style.cursor="default"
    Login_Win_Down_Flag=false
    DivObj.releaseCapture
   
   End Sub
   
   sub divAlignCenter(div)
    
    div.style.left=(document.body.offsetWidth-VBparseInt(div.style.width))/2
    div.style.top=(document.body.offsetHeight-VBparseInt(div.style.height))/2
    
   end sub
   
   sub showDiv(div)
        
        divAlignCenter div
        div.style.display="block"
   end sub
   
   sub hideDiv(div)
        div.style.display="none"
   
   end sub
   
   
</script>
<script language="javascript">
    //添加事件处理
    
    var userOperate;
    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 addDblClickEvent(obj)
    {
        obj.attachEvent("ondblclick",function(){modifyRecord();});
        
    }
    function save2(tb1)
    {
        var param="";
        var IsAvailable,msg;
        var xmlHttp=new ActiveXObject("microsoft.XMLHTTP"); 
        if(userOperate!="del")
        {
            if(e(document.all("txtNewStuffNo"),"［物料编号］"))
                return;
            if(e(document.all("txtNewStuffName"),"［物料名称］"))
                return;
            if(e(document.all("sltNewSort"),"［物料大类］"))
                return;
            if(e(document.all("sltNewCategory"),"［物料小类］"))
                return;
            if(vbTrim(document.all("txtNewSpecification").value).length==0)
            {
                if(!confirm("物料规格为空，确定不需要吗？"))
                    return;
            }              
            if(e(document.all("sltNewCategory"),"［单位］"))
                return; 
            if(e(document.all("sltNewCategory"),"［物料小类］"))
                return;
            if(!checkNumeric(document.all("txtNewPrice").value))
            {
                alert("单价请输入数字类型！");
                return;
            }
            if(!checkNumeric(document.all("txtNewStock").value))
            {
                alert("库存请输入数字类型！");
                return;
            }
        }
        if(userOperate=="del")
        {
            param="op=del&id="+document.all("txtId").value;
        }
        else if(userOperate=="modify")
        {
            param="op=modify&id="+document.all("txtId").value+"&sno="+document.all("txtNewStuffNo").value+"&sname="+document.all("txtNewStuffName").value+"&spec="+document.all("txtNewSpecification").value+"&unit="+document.all("sltNewUnit").options[document.all("sltNewUnit").selectedIndex].outerText+"&stype="+document.all("sltNewCategory").value+"&price="+document.all("txtNewPrice").value+"&stock="+document.all("txtNewStock").value+"&sort="+document.all("sltNewSort").value+"&remark="+document.all("txtNewNote").value+"";   
        }
        else
        {
            param="op=add&id="+document.all("txtId").value+"&sno="+document.all("txtNewStuffNo").value+"&sname="+document.all("txtNewStuffName").value+"&spec="+document.all("txtNewSpecification").value+"&unit="+document.all("sltNewUnit").options[document.all("sltNewUnit").selectedIndex].outerText+"&stype="+document.all("sltNewCategory").value+"&price="+document.all("txtNewPrice").value+"&stock="+document.all("txtNewStock").value+"&sort="+document.all("sltNewSort").value+"&remark="+document.all("txtNewNote").value+"";   
        }
        
        xmlHttp.open("POST","StuffHandle.aspx",false);
        xmlHttp.setRequestHeader("CONTENT-TYPE","application/x-www-form-urlencoded;");
        xmlHttp.send(param);
        
        var retValue=xmlHttp.responsetext;
        
        if(getState(retValue)=="1")//添加成功
        {
            if(userOperate=="add")//更新界面
            {
                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);
                addDblClickEvent(row);