• asp web 报表

    -------------------ssbxd_print_ocx.asp
    <!--#include file="../vbf.asp"-->
    <html>
      <head>
         <title>实施费用报销单打印</title>
      <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
      </head>
    <body>

    <%
    bxd_code=request("bxd_code")

    xmlTemplate = getServerHost()&"fina_template/ssbxd.xml"
    cllTemplate = getServerHost()&"fina_template/ssbxd.cll"
    xmlGen = getServerHost()&"shishibaoxiao/ssbxd_xml2.asp?bxd_code="&bxd_code
    %>

    <table width="96%"  border="0" class="noprint"> 
      <TR>
     <TD ><! 注意codeBase的用法，让IE自动下载cellweb5的cab包，version为版本号，用于IE识别并自动更新>
       <OBJECT
      classid=clsid:3F166327-8030-4881-8BD2-EA25350E574A width="950" height="435"
      id=DCellWeb1 
      name="DCellWeb1"
      CODEBASE="../fina_template/cellweb5.cab#version=5,2,5,1228"
      VIEWASTEXT>
      <PARAM NAME="_Version" VALUE="65536"><PARAM NAME="_ExtentX" VALUE="14790">
      <PARAM NAME="_ExtentY" VALUE="8652"><PARAM NAME="_StockProps" VALUE="0">
       </OBJECT>
     </TD>
     </TR>
      <tr> 
        <td align="center">
      <input type="button" id=btn_print value="打 印">
      <input name="button" type="button" id="btn_printview" value="打印预览">
      <input type="button" id="btn_saveas" value="另存为">
      <input name="button1" type="button" onclick="javascript:window.close()" value="退 出">
     </td>
      </tr>
    </table>

    </body>
    </html>

    <SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript>
    <!--

    var nRows = 0;                       // 记录数据库记录索引号
    var nPages = 0;                       // 记录分页总数

    function window_onload()
    {
     //var file = DCellWeb1.OpenFile("http://ufpmp002/xmglnet/item_weihu/fina_template/ssbxd.cll" ,"");
     var file = DCellWeb1.OpenFile("<%=cllTemplate%>" ,"");
     if (file<0)
     {
      alert("模板文件有误！");
      return;
     }
     
     DCellWeb1.WorkbookReadonly = true;
     //DCellWeb1.ShowHScroll(0, 0);
        //DCellWeb1.ShowVScroll(0, 0);
     
     // 发送xmlHttp请求到服务器端
     var xmlDom = new ActiveXObject("Microsoft.XMLDOM"); 
     this.sender = new ActiveXObject("Microsoft.XMLHTTP");
     //var str= "http://localhost/xmglnet/item_weihu/shishibaoxiao/xmltest.asp";
     //var str= "http://localhost/xmglnet/item_weihu/fina_template/ssbxd2.xml";
     var str= "<%=xmlGen%>";
     this.sender.open("GET",str,false);
     this.sender.send();
     //if (this.sender.readystate==4) alert("suss");

     // 从服务器得到处理后的xml对象
     this.sender.responseXML.createProcessingInstruction("xml"," version=\"1.0\" encoding=\"gb2312\"");
     var root = this.sender.responseXML;
      
     // 把xml中的数据填充到cell中
     root = root.childNodes[1];
     
     if (root==null)
     {  
      alert("数据加载有误！");
      return;
     }
     
     //DCellWeb1.OpenFile(root.childNodes[0].text,"");       // 载入cell模板文件
     
     //--header-----
     var header = root.childNodes[1];  //node1  header 
     if (header==null) return;
     var col,row,cdown,rdown,dtype,Name;
     var datas = header.childNodes;
     for(var i = 0; i< datas.length; i++)
     {
      var attributes = datas[i].attributes;
      //获取数据
      col = attributes.getNamedItem("col").value;
      row = attributes.getNamedItem("row").value;
      cdown = attributes.getNamedItem("cdown").value;
      rdown = attributes.getNamedItem("rdown").value;
      dtype = attributes.getNamedItem("dtype").value;
      Name = attributes.getNamedItem("Name").value;
      
      if (cdown>"0"||rdown>"0")
      {
       DCellWeb1.MergeCells(col, row, parseInt(col)+parseInt(cdown), parseInt(row)+parseInt(rdown));
      }
      if(parseInt(rdown)<0)
      {
       DCellWeb1.DeleteRow(row,Math.abs(parseInt(rdown)),0);
      }
      if(parseInt(cdown)<0)
      {
       DCellWeb1.DeleteCol(col,Math.abs(parseInt(cdown)),0);
      }  
      if (dtype=="d")
      {
       if (Name!="") DCellWeb1.D(col,row,0,Name);
      }
      else
      {
       DCellWeb1.S(col,row,0,Name);
      }
     }

     //--middle-----
     nRows = 6;
     var middler = root.childNodes[2];  //node1  middle
     if (header==null) return;
     var datas = middler.childNodes; 
     DCellWeb1.InsertRow(nRows, parseInt(datas.length/5)-1, 0);
     for(var i = 0; i< datas.length; i++)
     {
      var attributes = datas[i].attributes;
      //获取数据
      col = attributes.getNamedItem("col").value;
      row = attributes.getNamedItem("row").value;
      cdown = attributes.getNamedItem("cdown").value;
      rdown = attributes.getNamedItem("rdown").value;
      dtype = attributes.getNamedItem("dtype").value;
      Name = attributes.getNamedItem("Name").value;
      
      if (cdown>"0"||rdown>"0")
      {
       //alert(col);alert(row);alert(parseInt(col)+parseInt(cdown));alert(parseInt(row)+parseInt(rdown));
       DCellWeb1.MergeCells(col, row, parseInt(col)+parseInt(cdown), parseInt(row)+parseInt(rdown));
      }
      if(parseInt(rdown)<0)
      {
       DCellWeb1.DeleteRow(row,Math.abs(parseInt(rdown)),0);
      }
      if(parseInt(cdown)<0)
      {
       DCellWeb1.DeleteCol(col,Math.abs(parseInt(cdown)),0);
      }  
      if (dtype=="d")
      {
       if (Name!="") DCellWeb1.D(col,row,0,Name);
      }
      else
      {
       DCellWeb1.S(col,row,0,Name);
      }
      
      //DCellWeb1.SetCellString(attributes.getNamedItem("col").value,
          //attributes.getNamedItem("row").value,0,attributes.getNamedItem("Name").value);
      //DCellWeb1.SetCellAlign(attributes.getNamedItem("col").value,
          //attributes.getNamedItem("row").value,0,32+4);
      nRows ++;
      //row = parseInt(attributes.getNamedItem("row").value);
      //DCellWeb1.SetRowPageBreak(7, 1)   //设置行硬分页符
      //DCellWeb1.MergeCells(1, 1, 4, 4)   //把A1:D4单元格组合

     }

     //--tailer-----
     var tailer = root.childNodes[3];  // tailer
     if (header==null) return;
     var datas = tailer.childNodes;
     for(var i = 0; i< datas.length; i++)
     {
      var attributes = datas[i].attributes;
      //获取数据
      col = attributes.getNamedItem("col").value;
      row = attributes.getNamedItem("row").value;
      cdown = attributes.getNamedItem("cdown").value;
      rdown = attributes.getNamedItem("rdown").value;
      dtype = attributes.getNamedItem("dtype").value;
      Name = attributes.getNamedItem("Name").value;
      
      if (cdown>"0"||rdown>"0")
      {
       DCellWeb1.MergeCells(col, row, parseInt(col)+parseInt(cdown), parseInt(row)+parseInt(rdown));
      }
      if(parseInt(rdown)<0)
      {
       DCellWeb1.DeleteRow(row,Math.abs(parseInt(rdown)),0);
      }
      if(parseInt(cdown)<0)
      {
       DCellWeb1.DeleteCol(col,Math.abs(parseInt(cdown)),0);
      }  
      if (dtype=="d")
      {
       if (Name!="") DCellWeb1.D(col,row,0,Name);
      }
      else
      {
       DCellWeb1.S(col,row,0,Name);
      }
     }
     
     //--footer-----
     var footer = root.childNodes[4];  // footer
     if (header==null) return;
     var datas = footer.childNodes;
     for(var i = 0; i< datas.length; i++)
     {
      var attributes = datas[i].attributes;
      //获取数据
      col = attributes.getNamedItem("col").value;
      row = attributes.getNamedItem("row").value;
      cdown = attributes.getNamedItem("cdown").value;
      rdown = attributes.getNamedItem("rdown").value;
      dtype = attributes.getNamedItem("dtype").value;
      Name = attributes.getNamedItem("Name").value;
      
      if (cdown>"0"||rdown>"0")
      {
       DCellWeb1.MergeCells(col, row, parseInt(col)+parseInt(cdown), parseInt(row)+parseInt(rdown));
      }
      if(parseInt(rdown)<0)
      {
       DCellWeb1.DeleteRow(row,Math.abs(parseInt(rdown)),0);
      }
      if(parseInt(cdown)<0)
      {
       DCellWeb1.DeleteCol(col,Math.abs(parseInt(cdown)),0);
      }  
      if (dtype=="d")
      {
       if (Name!="") DCellWeb1.D(col,row,0,Name);
      }
      else
      {
       DCellWeb1.S(col,row,0,Name);
      }
     }
     //--footer
    }

    window.attachEvent("onload", window_onload);
    //-->
    </SCRIPT>
     
    <SCRIPT ID=clientEventHandlersVBS LANGUAGE=vbscript>
    <!--

    Sub btn_about_onclick
      DCellWeb1.AboutBox    
    End Sub

    Sub btn_saveas_onclick
      DCellWeb1.SaveFile    
    End Sub

    Sub btn_printview_onclick
      DCellWeb1.PrintPreview 1,DCellWeb1.GetCurSheet
     
    End Sub

    Sub btn_print_onclick
     
      //DCellWeb1.PrintPara 1, 1, 1, 1     
      //DCellWeb1.PrintLabel 1, 1 
      DCellWeb1.PrintSheet 1,DCellWeb1.GetCurSheet
    End Sub

    Sub btn_open_onclick
     DCellWeb1.WorkbookReadonly = True
     DCellWeb1.ShowHScroll 0, 0
        DCellWeb1.ShowVScroll 0, 0 
     //DCellWeb1.OpenFile "http://ufpmp002/xmglnet/item_weihu/fina_template/实施费用报销5.cll" ,""
     DCellWeb1.OpenFile "/fina_template/clbxd.cll" ,""
    End Sub

    Sub DCellWeb1_MouseLClick(col, row, updn)
     //If col=1 And row=1 And updn = 0 then
      MsgBox("打印格式已经调试好，请不要再调整，请将凭证打印纸（210mm×133mm）放入打印机")
     //End If
    End Sub

    -->
    </SCRIPT>
    <%
    sub getnodes(node)
     dim i
     response.write("<br><b>NodeName:</b>"&node.nodename&"<br><b>NodeTypeString:</b>"&node.nodetypestring&"<br><b>NodeValue:</b>"&node.nodevalue&"<br><b>Text:</b>"&node.text&"<br><b>node.childnodes.length:</b>"&node.childnodes.length&"<p>")
     
     if node.childnodes.length<>0 then
      for i=0 to node.childnodes.length-1
       getnodes(node.childnodes(i))
      next
     end if
    end sub
    %>

    -------------------------------ssbxd_xml2.asp
    <%
    ' 生成xml文件对象
    set xmlDoc = Server.CreateObject("Microsoft.XMLDOM")
    xmlDoc.async = false
    ' 载入xml模板
    returnval = xmlDoc.Load(Server.MapPath("../fina_template/ssbxd.xml"))
    if not returnval then
     response.Write("XML文件加载失败！")
    end if

    //5把xml对象发送给客户端
    Response.ContentType="text/xml"
    temp = Session.CodePage
    Session.CodePage = 65001
    Response.ContentType = "text/xml; charset=utf-8"

    Response.Write(xmlDoc.xml)
    Session.CodePage = temp
    Response.End

    %>
    ----------------------------------------ssbxd_xml.asp

    <!--#include file="http://www.cnblogs.com/dbconnection.asp"-->
    <!--#include file="http://www.cnblogs.com/vbf.asp"-->
    <!--#include file="http://www.cnblogs.com/inc/vbf_num.asp"-->

    <%
    bxd_code = Request("bxd_code")
    'bxd_code = 506
    'bxd_code = 212
    sql_header = " select case a.bx_type when '0' then '有效人天' else '指定项目' end as bx_typename,"& _
      " isnull(bx_type,'1') as bx_type,b.ssbname,a.sp_id,c.sp_name as bxr"& _
      " from ssbxd_info a"& _
      " left join xm_subssb b on a.ssbcode=b.ssbcode"& _
      " left join xm_member c on c.sp_id=a.sp_id"& _
      " where a.bxd_code='"&bxd_code&"'"
    set rs_header = cn.execute(sql_header)
    if rs_header.eof then aspalert("1sql_header数据有误!")

    bx_type = rs_header("bx_type")

    if bx_type = 1 then
     'bx_type=1指定项目
     sql_middler = "select a.fyname,c.itemname, "&_
      " isnull(b.money,0) as je,b.cost_desc,b.ysxm,a.rdown "&_
      " from (select bxd_code,fyname,count(bxd_code) as rdown  "&_
      " from shishi_bxd "&_
      " where bxd_code = '"&bxd_code&"' "&_
      " group by bxd_code,fyname) a "&_
      " left join shishi_bxd b on a.bxd_code=b.bxd_code and a.fyname=b.fyname "&_
      " left join xm_item c on b.xmxh=c.xh "&_
      " order by a.fyname "
    else
     sql_middler = " select a.fyname,isnull(d.itemname,'公共项目') as itemname, "& _
       " cast(isnull(c.money*b.worktime/isnull(b.workday,1),0) as dec(19,2)) as je,c.cost_desc,c.ysxm,a.rdown "& _
      "  from ( "& _
       " select bxd_code,fyname,count(bxd_code) as rdown   "& _
       " from dbo.uf_ssbxdtb('"&bxd_code&"')  "& _
       " group by bxd_code,fyname) a "& _
       " left join dbo.uf_ssbxdtb('"&bxd_code&"') b on a.bxd_code=b.bxd_code and a.fyname=b.fyname "& _
      "  left join shishi_bxd c on c.bxd_code=b.bxd_code and c.fyname=b.fyname and c.fromdate=b.fromdate and c.todate=b.todate "& _
       " left join xm_item d on b.xmxh=d.xh  "& _
      "  order by a.fyname "
    end if

    set rs_middler = cn.execute(sql_middler)
    if rs_middler.eof then aspalert("2sql_middler数据有误!")

    sql_tailer = "select  ssjl_spr,caiwu_spr,isnull(yujie,0) as yujienew,"& _
       " isnull(yhyujie,0) as yhyujienew,je ,jl_spr ,sp_flag,cwjl_spr,sp_id "& _
       " from ssbxd_info a  "& _
       " left join (select bxd_code,sum(money) as je from shishi_bxd "&_
       " where bxd_code='"&bxd_code&"' group by bxd_code) b on a.bxd_code=b.bxd_code "& _
       " where a.bxd_code='"&bxd_code&"'"
    set rs_tailer = cn.execute(sql_tailer)
    if rs_tailer.eof then aspalert("3sql_tailer数据有误!")   

    ' 生成xml文件对象
    set xmlDoc = Server.CreateObject("Microsoft.XMLDOM")
    xmlDoc.async = false
    ' 载入xml模板
    returnval = xmlDoc.Load(Server.MapPath("../fina_template/ssbxd.xml"))
    if not returnval then
     aspalert("XML文件加载失败！")
    end if

    //0表的固定格式关系
    rowheader = 4
    rowmiddler = rowheader + 1
    rowtailer = rowmiddler + 2
    rowfooter = rowtailer + 2

    //1表头数据,选择Header节点,把指定的数据库数据装入xml
    set xmlheader = xmldoc.selectsinglenode("//Header")
    Set data = xmlheader.getElementsByTagName("Data")
    data.Item(0).attributes.item(5).value = rs_header("ssbname")&"费用报销单"
    data.Item(1).attributes.item(5).value = "部门："&rs_header("ssbname")
    data.Item(2).attributes.item(5).value = "报销人："&rs_header("bxr")
    data.Item(3).attributes.item(5).value = "报销方式："&rs_header("bx_typename")
    data.Item(4).attributes.item(5).value = "编号："&bxd_code

    //2数据节点,选择Middler节点,把指定的数据库数据装入xml
    set xmlmiddler = xmldoc.selectsinglenode("//Middler")

    column_count = rs_middler.fields.count

    for i=0 to 4
     Set newNode = xmlmiddler.childNodes.item(i)
     newNode.setAttribute "row",rowmiddler
     newNode.setAttribute "col",i+1
     newNode.setAttribute "rdown",iif(rs_middler(i).name="fyname",rs_middler("rdown")-1,0)
     newNode.setAttribute "cdown",0
     newNode.setAttribute "dtype",iif(rs_middler(i).name="je","d","s")
     newNode.setAttribute "Name",cnull(rs_middler(i).value)
    next

    fyname = rs_middler("fyname")
    rs_middler.movenext
    rowmiddler = rowmiddler+1

    while  not rs_middler.eof
     
     for i=0 to 4
      set newNode = newNode.cloneNode(true)
      newNode.setAttribute "row",rowmiddler
      newNode.setAttribute "col",i+1
      newNode.setAttribute "rdown",iif((rs_middler(i).name="fyname") and (rs_middler("fyname")<>fyname),rs_middler("rdown")-1,0)
      newNode.setAttribute "cdown",0
      newNode.setAttribute "dtype",iif(rs_middler(i).name="je","d","s")
      newNode.setAttribute "Name",cnull(rs_middler(i).value)
      
      xmlmiddler.appendChild(newNode)
     next
     
     rowmiddler = rowmiddler+1
     fyname = rs_middler("fyname") 
     rs_middler.movenext
    wend

    //3表尾数据,选择Tailer节点,把指定的数据库数据装入xml
    set xmltailer = xmldoc.selectsinglenode("//Tailer")
    rowtailer = rowmiddler + 1
    set newNode = xmltailer.childNodes.item(0)  '金额大写
    newNode.setAttribute "row",rowtailer
    newNode.setAttribute "Name",y_big_write(rs_tailer("je"))
    set newNode = xmltailer.childNodes.item(1)  '金额小写
    newNode.setAttribute "row",rowtailer
    newNode.setAttribute "Name",rs_tailer("je")

    rowtailer = rowtailer + 1
    set newNode = xmltailer.childNodes.item(2)  '现金预借
    newNode.setAttribute "row",rowtailer
    newNode.setAttribute "Name",iif(rs_tailer("yujienew")<=0.001,"",rs_tailer("yujienew"))
    set newNode = xmltailer.childNodes.item(3)  '银行预借
    newNode.setAttribute "row",rowtailer
    newNode.setAttribute "Name",iif(rs_tailer("yhyujienew")<=0.001,"",rs_tailer("yhyujienew"))

    rowtailer = rowtailer + 1
    buling = rs_tailer("je")-rs_tailer("yhyujienew")-rs_tailer("yujienew")
    set newNode = xmltailer.childNodes.item(4)  '补领金额
    newNode.setAttribute "row",rowtailer
    newNode.setAttribute "Name",iif(buling>0.001,buling,"")
    set newNode = xmltailer.childNodes.item(5)  '退还金额
    newNode.setAttribute "row",rowtailer
    newNode.setAttribute "Name",iif(buling<0.0,-buling,"")

    //4表脚数据,选择Footer节点,把指定的数据库数据装入xml
    set xmlfooter = xmldoc.selectsinglenode("//Footer")
    rowfooter = rowtailer + 2
    set newNode = xmlfooter.childNodes.item(0)  '上级主管..
    newNode.setAttribute "row",rowfooter
    ssjl_spr = iif(rs_tailer("sp_flag")=1,"",getsp_name(rs_tailer("ssjl_spr")))
    newNode.setAttribute "Name","上级主管："&getsp_name(rs_tailer("jl_spr"))&space(33-lenb(getsp_name(rs_tailer("jl_spr"))))&"部门经理："&ssjl_spr&space(35-lenb(ssjl_spr))&"财务经理："&getsp_name(rs_tailer("cwjl_spr"))
    set newNode = xmlfooter.childNodes.item(1)  '会计..
    newNode.setAttribute "row",rowfooter+1
    newNode.setAttribute "Name","会计："&space(37)&"出纳："&getsp_name(rs_tailer("caiwu_spr"))&space(38-lenb(getsp_name(rs_tailer("caiwu_spr"))))&"领款人："&getsp_name(rs_tailer("sp_id"))
    set newNode = xmlfooter.childNodes.item(2)  '打印日期
    newNode.setAttribute "row",rowfooter+2
    newNode.setAttribute "Name",space(86)&"打印日期："&date

    //5把xml对象发送给客户端
    Response.ContentType="text/xml"
    temp = Session.CodePage
    Session.CodePage = 65001
    Response.ContentType = "text/xml; charset=utf-8"

    Response.Write(xmlDoc.xml)
    Session.CodePage = temp
    Response.End

    %>

    https://files.cnblogs.com/shuang/ASP报表设计源码.rar
  • 相关阅读:
    oracle的 listagg() WITHIN GROUP () 行转列函数的使用
    redis-配置文件详解
    Redis下载安装步骤及操作命令
    探索linux好玩的东西
    发送邮件的工具类
    微信小程序 云开发天然鉴权获取手机号
    JS 设计模式 -代理模式
    语言之魂——原型模式
    微信小程序 云开发中部分用户获取不到unionId
    js封装三级联动
  • 原文地址：https://www.cnblogs.com/shuang/p/1505730.html
Copyright © 2020-2023  润新知