amzksgzlcxmx.asp

来自「医院医技科室系统,可以进行医技报告的生成打印,完全的BS结构」· ASP 代码 · 共 151 行

ASP
151 行
字号 
<%@ Language=VBScript %>

<!-- #INCLUDE FILE="../../share\connectdb.asp" -->
<!--#include file=../../pubfunction.asp-->

<%
dim rs

set rs=server.CreateObject("adodb.recordset") 

strsql1="select xm,xmlxmc,xmlxmc xlmc,xmlxmc xmmc,sum(sl) sl,sum(je) je,tcbl,sum(tcje) tcje" & _
        " from mz_tksrj,ggzd_txmlx,ggzd_tgzry" & _
        " where mz_tksrj.xmlx=ggzd_txmlx.xmlxid" & _ 
        " and mz_tksrj.jsr=ggzd_tgzry.ryid" & _
        " and xmlx<4"
strsql2="select xm,xmlxmc,xlmc,xmmc,sum(sl),sum(je),tcbl,sum(tcje)" & _
        " from mz_tksrj,ggzd_txmlx,ggzd_txmxlbm,ggzd_txmbm,ggzd_tgzry" & _
        " where mz_tksrj.xmlx=ggzd_txmlx.xmlxid " & _
        " and mz_tksrj.xmxl=ggzd_txmxlbm.xlid" & _
        " and mz_tksrj.xmid=ggzd_txmbm.xmid" & _
        " and mz_tksrj.jsr=ggzd_tgzry.ryid" & _
        " and mz_tksrj.xmlx>3" 

           
'if cint(session("rzks"))=31 or cint(session("rzks"))=75 then
'   rzks="(31,75"&","&session("ks")&")"
'else
   rzks="("&session("rzks")&","&session("ks")&")"
'end if
strsql=strsql1
if Request.Form("hdPD")="CX" then
  if Request.Form("hdGZRY")="-1" then
    strsql1=strsql1 & " and (mz_tksrj.rzks in" &rzks&")"
    strsql2=strsql2 & " and (mz_tksrj.rzks in" &rzks&")"
    'strsql3=strsql3 & " and (a.rzks in" &rzks&")"
  else
    strsql1=strsql1 & " and mz_tksrj.jsr=" & Request.Form("hdGZRY")
    strsql2=strsql2 & " and mz_tksrj.jsr=" & Request.Form("hdGZRY")
    'strsql3=strsql3 & " and a.jsr="&Request.Form("hdGZRY")
  end if
       
  strsql1=strsql1 & " and sj>='" & Request.Form("hdRQ1") & " 00:00:00'"
  strsql2=strsql2 & " and sj>='" & Request.Form("hdRQ1") & " 00:00:00'"
  'strsql3=strsql3 & " and jssj>='" & Request.Form("hdRQ1") & " 00:00:00'"
  strsql1=strsql1 & " and sj<'" & cdate(Request.Form("hdRQ2"))+1 & "' group by xm,xmlxmc,tcbl"
  strsql2=strsql2 & " and sj<'" & cdate(Request.Form("hdRQ2"))+1 & "' group by xm,xmlxmc,xlmc,xmmc,tcbl"
  'strsql3=strsql3 & " and jssj<'" & cdate(Request.Form("hdRQ2"))+1 & "' group by xm,xmlxmc,xlmc,xmmc"
 ' Response.Write strsql3
  strsql=strsql1 & " union " & strsql2 
  
else
  strsql=strsql & " and 1=0  group by xm,xmlxmc,tcbl"
end if
'Response.Write strsql
rs.Open strsql,conn
numSL=0
numJE=0.00
numTCJE=0.000
rynumSL=0
rynumJE=0.00
rynumTCJE=0.000

%>

<HTML>
<HEAD>
<META name="VI60_DefaultClientScript" Content="VBScript">
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<link rel="stylesheet" type="text/css" href="../../style/style.css" >
<link rel="stylesheet" type="text/css" href="../../style/table.css" >
</HEAD>
<BODY topmargin=0 leftmargin=0>
<form action="aMZKSGZLCXmx.asp" id="frmaYZ" method="post" name="frmaYZ">
<INPUT type="hidden" id=hdPD name=hdPD>
<INPUT type="hidden" id=hdGZRY name=hdGZRY>
<INPUT type="hidden" id=hdRQ1 name=hdRQ1>
<INPUT type="hidden" id=hdRQ2 name=hdRQ2>

<table border="0" cellPadding="0" cellSpacing="0" width="100%">
<tr>
		   <TD  align=center><FONT size=4><a href="vbscript:window.print"> 医技科室门诊工作量统计</a></FONT>
	
	<td width="40" align="right">
</table>
<table align="center" border="1" cellPadding="0" cellSpacing="0" width="100%"   bordercolorlight='#000000' bordercolordark='#FFFFFF'>
<tr bgcolor="<%=trBGCOLOR%>">
    <td align=middle><font color="<%=tableHFONTCOLOR%>">工作人员</td>
    <td align=middle><font color="<%=tableHFONTCOLOR%>">项目类型</td>
    <td align=middle><font color="<%=tableHFONTCOLOR%>">项目小类</td>
    <td align=middle><font color="<%=tableHFONTCOLOR%>">项目</td>
    <td align=middle><font color="<%=tableHFONTCOLOR%>">数量</td>
    <td align=middle><font color="<%=tableHFONTCOLOR%>">金额</td>

  </tr>
  <%do while not rs.EOF%>
  <tr bgcolor=#ffffff>
    <td nowrap><%=rs("xm")%></td>
    <td align=right nowrap><%=rs("xmlxmc")%></td>
    <td nowrap><%=rs("xlmc")%></td>
    <td nowrap><%=rs("xmmc")%></td>
    <td nowrap align=right><%=rs("sl")%></td>
    <td nowrap align=right><%=formatcurrency(rs("je"),2,-1)%></td>
  </tr>
  <%numSL=numSL+cdbl(rs("sl"))%>
  <%numJE=numJE+cdbl(rs("JE"))%>
  <%RYnumSL=RYnumSL+cdbl(rs("sl"))%>
  <%RYnumJE=RYnumJE+cdbl(rs("JE"))%>
  <%XM=rs("XM")%>
  <%rs.MoveNext%>
  
  <% IF rs.EOF  THEN  %>
    <%NEWXM="EOF" %>
  <%ELSE%>
    <%NEWXM=rs("XM")%>
  <%END IF%>
  
  <%IF XM<>NEWXM THEN %>
  <tr bgcolor=#ffffff>
    <td nowrap colspan=4>小  计：</td>
    <td nowrap align=right><%=RYnumSL%></td>
    <td nowrap align=right><%=formatcurrency(RYnumJE,2,-1)%></td>
  </tr>  
   <%RYnumSL=0.00%>
   <%RYnumJE=0.00%>
   <%RYnumTCJE=0.00%> 
  
  <%END IF%>
  <%loop%>
  <tr bgcolor=#ffffff>
    <td nowrap colspan=4>总  计：</td>
    <td nowrap align=right><%=numSL%></td>
    <td nowrap align=right><%=formatcurrency(numJE,2,-1)%></td>
  </tr>
    </tr>
    <tr bgcolor=#ffffff>
    <td nowrap colspan=4 align=left>统计日期：从&nbsp;&nbsp;<%=Request.Form("hdRQ1")%>&nbsp;&nbsp;至&nbsp;&nbsp;<%=Request.Form("hdRQ2")%></td>
    <td nowrap colspan=2 align=right>打印人：<%=session("yhm")%></td>
  </tr>

  
</table>
</form>
</BODY>
</HTML>
<% set rs=nothing
conn.Close 
set conn=nothing%>

amzksgzlcxmx.asp - 源码说明

本页面展示了「医院医技科室系统,可以进行医技报告的生成打印,完全的BS结构」中的 amzksgzlcxmx.asp 源码文件，采用 ASP 编程语言编写，共 151 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与报告相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?