report4.aspx

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

	end sub
	
	sub M_Move()
		Dim PixelLeft,tempwidth
		PixelLeft=TotalOffsetLeft(moveTD)
		tempwidth=window.event.clientX-pixelLeft+span1.scrollLeft
		if tempwidth<5 then tempwidth=5
		span2.style.pixelwidth=tempwidth
		'window.status=window.event.clientX-pixelLeft		
	end sub
	
	sub M_up
		span2.releaseCapture
		
		for i=0 to tb1.rows.length-2
			tb1.rows(i).cells(tdField).style.pixelwidth=span2.style.pixelwidth
			tb1.rows(i).cells(tdField).style.height="22px"
			tb1.rows(i).cells(tdField).style.whiteSpace="nowrap"
			tb1.rows(i).cells(tdField).style.wordBreak="break-All"
			
			tb1.rows(i).cells(tdField).style.textOverflow="ellipsis"
			tb1.rows(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
		span3.style.top=span1.offsetTop+1
		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 文件

    dim orgColor
    sub RowMouseOver(obj)
        on error resume next
        if obj.style.backgroundColor="#677287" then exit sub
        orgColor=obj.style.backgroundColor
        window.status=orgColor
        obj.style.backgroundColor="#f6f6f6"
        'if err.number<>0 then msgbox err.Description
    end sub
    
    sub RowMouseOut(obj)
        if obj.style.backgroundColor="#677287" then exit sub
        obj.style.backgroundColor=orgColor
                    
    end sub
    
    sub changeBorder_In(obj)
        obj.style.borderTopColor="#ffffff"
        obj.style.borderLeftColor="#ffffff"
        obj.style.borderBottomColor="#a0a0a0"
        obj.style.borderRightColor="#a0a0a0"
    end sub
    
    sub changeBorder_Out(obj)
        obj.style.borderTopColor="#f6f6f6"
        obj.style.borderLeftColor="#f6f6f6"
        obj.style.borderBottomColor="#f6f6f6"
        obj.style.borderRightColor="#f6f6f6"
    end sub
    
    dim currentTR

    dim orgColor2
    sub chooseTr(objTr)
        if objTr.style.backgroundColor<>"#677287" then
            orgColor2=objTr.style.backgroundColor
            
        end if
        if IsObject(currentTR) then
            'currentTr.style.backgroundColor=orgColor2
            currentTr.style.backgroundColor="#ffffff"
            currentTr.style.Color="#000000"
        end if
        set currentTR=objTr
        objTr.style.backgroundColor="#677287"
        objTr.style.Color="#ffffff"
        
        
    end sub
    
    
    
    
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=vbscript>
    function vbtrim(str)
        vbtrim=trim(str)    
    end function
</script>
<script language=javascript defer>
    account();
    function account()
    {
        var total=0.0;
        var b=false;
        var currentValue=0;
        for(var i=1;i<document.all("tb1").rows.length;i++)
        {
            document.all("tb1").rows[i].cells[0].innerText=i;
            currentValue=(parseFloat(vbtrim(document.all("tb1").rows[i].cells[8].outerText))*parseFloat(vbtrim(document.all("tb1").rows[i].cells[10].outerText))).toFixed(3);
            document.all("tb1").rows[i].cells[11].innerText=currentValue;
            
            total=parseFloat(total)+parseFloat(currentValue);
            //alert(total);
            b=true;
        }
        if(b)
        {
            var row=document.all("tb1").insertRow();
            var cell=row.insertCell();
            cell.className="td1";
            cell.colSpan="12";
            cell.style.fontWeight="bold";
            cell.style.textAlign="right";
            cell.innerText="库存合计金额为："+(parseFloat(total)).toFixed(3);
        }
        
    }
</script>