📄 azssxmypprint.asp
字号:
<!-- #INCLUDE FILE="../../share\connectdb.asp" -->
<!--#include file=../../pubfunction.asp-->
<%
dim syff
set RS=server.CreateObject("adodb.recordset")
txtlsh=Request.QueryString("txtlsh")
syff=Request.QueryString("syff")
if trim(syff)="" then syff="-1"
if trim(txtlsh)="" then txtlsh=0
sql= "select a.xm,a.xb,a.csrq,mzh,c.xm as ys,convert(varchar(10),d.ghsj,120) as ghsj,b.syje,k.ksmc from mz_Tbrxx a,mz_Tbr b,ggzd_Tgzry c,mz_Tbrls d,ggzd_tks k"
sql=sql&" where d.blh=a.blh and d.blh=b.blh and d.ys=c.ryid and k.ksid=d.ghks and d.lsh="&txtlsh
rs.Open sql,conn,3,1
if not rs.EOF then
qmzh=rs("mzh")
qxm=rs("xm")
qxb=rs("xb")
qnns=computage(rs("csrq"))
qys=rs("ys")
qghsj=rs("ghsj")
syje=rs("syje")
qks=rs("ksmc")
end if
rs.Close
%>
<HTML>
<HEAD>
<Title>注射室</title>
<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 name=form1 method="post" action="" id=form1>
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 bordercolorlight=#000000 bordercolordark=#ffffff style=" WIDTH: 400px">
<TR ><TD align=center><font size=4><%=session("yymc")%>注射单据</font></td>
</TR>
<TR ><TD align=right nowrap><font size=2>医生:<%=qys%> 科室:<%=qks%> 姓名:<%=qxm%> <%=qxb%> <%=qnns%> 日期:<%=qghsj%></font></td>
</TR>
<TR><TD>
<TABLE BORDER=1 CELLSPACING=0 CELLPADDING=0 bordercolorlight=#000000 bordercolordark=#ffffff style=" WIDTH: 100%">
<TR bordercolorlight='#000000' bordercolordark='#ffffff' >
<TD align=middle colspan=2>药品</TD>
<TD align=middle>数量</TD>
<TD align=middle>皮试</TD>
<TD align=middle>次数量</TD>
<TD align=middle>日数量</TD>
<TD align=middle>天数</TD>
<TD align=middle>使用方法</TD>
</TR>
<%
dim arr(10)
for i=0 to 10
arr(i)=0
next
fz=0
j=0
i=0
je=0
sqlstr="SELECT a.RZKS, a.XMLX, a.CFID, a.CSL, a.TS, a.DJ, a.SL, a.JE, a.CFZT, a.LSH, c.YPSPM,b.SYFFMC, e.PSMC, c.GG, b.SYFFID,"
sqlstr=sqlstr&" a.PS, a.FZ , d.RCSMC AS rcs, f.dwmc as ggdw, a.YSZT FROM YK_tSYFF b INNER JOIN MZ_tCFLR a ON b.SYFFID"
sqlstr=sqlstr&" = a.SYFF INNER JOIN YK_tYPBM c ON a.BH = c.YPID INNER JOIN yk_typdw f on f.dwid=c.dw2 INNER JOIN GGZD_tRCS d ON "
sqlstr=sqlstr&" a.RCS = d.RCSID LEFT OUTER JOIN GGZD_tPS e ON a.PS = e.PSID where a.lsh='" & txtlsh & "' and syffid in "
sqlstr=sqlstr&" ("&syff&") and a.sl-a.ytsl>0 ORDER BY a.fz desc,a.xmlx,LSH" 'v_ykbrzssmx
rs.Open sqlstr,conn,3,1
do while not RS.eof
Response.Write "<tr bordercolorlight='#000000' bordercolordark='#ffffff' height=22px>"
Response.Write "<td nowrap align=left><font size=2>"
Response.Write RS("ypspm") & "[" & RS("gg") & "]" & "</font></td>"
if cint(fz)<> cint(rs("fz")) then
if cint(fz)>0 then
arr(i)=j&"a"&fz
i=cint(i)+1
end if
j=0
fz=0
' Response.Write "kkk"
else
j=cint(j)+1
end if
if cint(rs("fz"))=0 then
Response.Write "</td><td width=15px > </td>"
else
Response.Write "</td><td id='td"&j&"a"&rs("fz")&"' name='td"&j&"a"&rs("fz")&"' width=15px > </td>"&chr(13)
end if
fz=cint(rs("fz"))
Response.Write "<td nowrap align=right><font size=2>"&RS("sl")&"</font></td>"
if RS("psmc")="+" then
Response.Write "<td nowrap align=center><font size=2 color=red>("&RS("psmc")&")</font></td>"
else
if RS("psmc")="-" then
Response.Write "<td nowrap align=center><font size=2>("&RS("psmc")&")</font></td>"
else
Response.Write "<td nowrap align=center><font size=2>"&RS("psmc")&" </font></td>"
end if
end if
Response.Write "<td nowrap align=center><font size=2>"&RS("csl") & RS("ggdw") & "</font></td>"
Response.Write "<td nowrap align=center><font size=2>"&RS("rcs") &"</font></td>"
Response.Write "<td nowrap align=center><font size=2>"&RS("ts")&"</font></td>"
Response.Write "<td nowrap align=center><font size=2>"&RS("syffmc")&"</font></td>"
RS.movenext
loop
rs.Close
if cint(fz)>0 then
arr(i)=j&"a"&fz
i=cint(i)+1
end if
set rs=nothing
conn.Close
set conn=nothing
%>
</table>
</td></tr>
<TR><TD align=right>操作员:<%=session("yhm")%> 打印时间:<%=now%></td></tr>
</table>
</form>
<SCRIPT LANGUAGE=javascript>
<!--
var str,k;
<% for j=0 to i%>
str='<%=arr(j)%>';
str=str.split('a');
if(str.length>1)
{
for(k=0;k<=str[0];k++)
{
if(document.getElementById('td'+k+'a'+str[1])!=null)
{
if(k==0)
{
document.getElementById('td'+k+'a'+str[1]).innerHTML='<font color=red>┓</font>';
document.getElementById('td'+k+'a'+str[1]).style.borderBottom=0;
}
else if(k==str[0])
{
document.getElementById('td'+k+'a'+str[1]).innerHTML='<font color=red>┛</font>';
document.getElementById('td'+k+'a'+str[1]).style.borderTop=0;
}
else
{
document.getElementById('td'+k+'a'+str[1]).innerHTML='<font color=red>┃</font>';
document.getElementById('td'+k+'a'+str[1]).style.borderBottom=0;
document.getElementById('td'+k+'a'+str[1]).style.borderTop=0;
}
}
}
}
<%next%>
//-->
</SCRIPT>
</BODY>
<SCRIPT LANGUAGE=vbscript>
<!--
window.print
'window.close
-->
</SCRIPT>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -