📄 azssxmjddprint.asp
字号:
<!-- #INCLUDE FILE="../../share\connectdb.asp" -->
<!--#include file=../../pubfunction.asp-->
<HEAD>
<Title>静滴单</title>
<META name=VI60_defaultClientScript content=VBScript>
<link rel="stylesheet" type="text/css" href="../../style/style.css" >
<link rel="stylesheet" type="text/css" href="../../style/table.css" >
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<FORM action="" method=post id=frmaJDD name=frmaJDD>
<INPUT id=iLSH name=iLSH type=hidden>
<INPUT id=iTJPS name=iTJPS type=hidden>
<INPUT id=txtYZRQ name=txtYZRQ type=hidden>
<TABLE BORDER=0 bordercolorlight="#000000" bordercolordark="#FFFFFF" cellpadding=0 cellspacing=0 WIDTH='500px'>
<%
DIM iLSH
DIM sYZLX,sSFZB,sFZ,sfdy
iLSH=""
sYZLX=""
sSFZB=""
sFZ=""
dim icount,rcs,i,j,k,m,flsh,ijs
set rs=server.CreateObject("adodb.recordset")
elsh=Request.QueryString("txtlsh")
sfdy=Request.QueryString("sfdy")
if trim(elsh)="" then elsh=0
dim syff
syff="-1"
sql="select csz from xt_tcssz where csid=103"
rs.Open sql,conn,3,1
if rs.RecordCount >0 then
syff=rs("csz")
end if
rs.Close
if clng(elsh)=0 then
sql="select SYJE,YBSYJE,HZYLSYJE ,b.xm,b.xb,b.csrq,a.sflx,a.mzh from mz_tbr a,mz_tbrxx b"
sql=sql&" where a.blh=b.blh and a.mzh='"&mzh&"'"
rs.Open sql,conn,3,1
if rs.RecordCount >0 then
hzxm=rs("xm")
mzh=rs("mzh")
hzxb=rs("xb")
hznl=computage(rs("csrq"))
sflx=rs("sflx")
syje=rs("syje")
YBSYJE=rs("YBSYJE")
HZYLSYJE=rs("HZYLSYJE")
end if
rs.Close
else
sqlys="select b.xm,a.ghsj,a.sflx,c.syje,c.YBSYJE,c.HZYLSYJE,d.xm as hzxm,d.xb,d.csrq,c.mzh,ksmc from mz_tbr c, mz_tbrls a,ggzd_tgzry b,mz_tbrxx d,ggzd_tks k where c.blh=a.blh and d.blh=c.blh and a.ys=b.ryid and k.ksid=a.ghks and a.lsh="&elsh
rs.Open sqlys,conn,3,1
if rs.RecordCount>0 then
ksmc=rs("ksmc")
hzxm=rs("hzxm")
mzh=rs("mzh")
hzxb=rs("xb")
hznl=computage(rs("csrq"))
qys=rs("xm")
qghsj=rs("ghsj")
sflx=rs("sflx")
syje=rs("syje")
YBSYJE=rs("YBSYJE")
HZYLSYJE=rs("HZYLSYJE")
end if
rs.Close
end if
'取诊断
' dim zzd,czd
' zzd=""
'czd=""
'sql="select jlid,lsh,zdmc,zdms,zdicd,qzlx,MZ_TBRZD.zdid from MZ_TBRZD,ggzd_tzdzdk where MZ_TBRZD.zdid=ggzd_tzdzdk.zdid"
'sql=sql&" and lsh="&elsh&" order by jlid "
'i=0
'rs.Open sql,conn,3,1
'do until rs.EOF
' if cint(i)=0 then
' zzd=rs("zdmc")
' if trim(rs("zdms"))<>"" then zzd=zzd&"("&rs("zdms")&")"
' else
' if trim(czd)="" then
' czd=rs("zdmc")
' else
' czd=czd&"、"&rs("zdmc")
' end if
' if trim(rs("zdms"))<>"" then czd=czd&"("&rs("zdms")&")"
' end if
' rs.MoveNext
' i=cint(i)+1
'loop
'rs.Close
'if trim(sfdy)="bkydy" then
' sfdy="0,1"
'else
' sfdy="0"
'end if
if len(elsh)>0 then
'初始赋值
' flsh=split(trim(Request.Form("iLSH")),",")
' for each elsh in flsh
' Response.Write elsh&"<br>"
' next
icount=0
rcs=1
j=1
n=0
stat=""
sfy=""
ijs=0
' for each elsh in flsh
for j=1 to 5
ssql="select CSL,LSH, FZ, DWMC, YPSPM,GG, RCSMC,TS, SYFFMC,XMLX, convert(varchar(10),sj,120) as ZXSJ, SL,rcsbs"
ssql=ssql&" from view_mzbrjjd where syff in ("&syff&") "'and bq="&session("bq")
ssql=ssql&" and lsh ="&elsh'in ("&Request.form("iLSH")&")"
ssql=ssql&" and rcsbs="&cint(j)&" order by fz,syff"
' Response.Write ssql
' Response.End
rs.Open Ssql,conn,3,1
k=rs.RecordCount
'循环显示每条记录
for m=1 to j
ilsh=""
fz=""
icount=0
stat=""
ijs=0
if cint(k)>0 then rs.MoveFirst
DO until rs.EOF
IF trim(rs("fz"))<>trim(fz) THEN
if sfy="next" then
Response.Write "<TD colsapn=1 valign=top width='50%'>"
sfy=""
else
if cint(icount) mod 2=0 then
if stat="ok" then
do while ijs<5
Response.Write "<tr><td colspan=3 height=22px></td></tr>"
ijs=cint(ijs)+1
loop
ijs=0
Response.Write "<tr><td colspan=3 height=22px><Font size=2>加药者： 执行者： "&sj&"</font>"
Response.Write "</td></tr></table></td></tr>"
end if
stat=""
Response.Write "<TR><TD colsapn=1 valign=top width='50%'>"
sfy="lefty"
else
stat=""
do while ijs<5
Response.Write "<tr><td colspan=3 height=22px></td></tr>"
ijs=cint(ijs)+1
loop
ijs=0
Response.Write "<tr><td colspan=3 height=22px><Font size=2>加药者： 执行者： "&sj&"</font>"
Response.Write "</td></tr></table></td><TD colsapn=1 valign=top width='50%'>"
'icount=0
sfy="righty"
end if
end if
icount=cint(icount)+1
Response.Write "<table BORDER=0 bordercolorlight='#000000' bordercolordark='#FFFFFF' cellpadding=0 cellspacing=0 WIDTH='100%'>"
Response.Write "<Tr><TD colspan=3 align=center>-------------------------</td></tr>"
Response.Write "<Tr><TD colspan=3 height=22px><b><Font size=2>姓名："&hzxm&" "&hzxb&" "&hznl&"</font></b></td></tr>"
Response.Write "<Tr><TD colspan=1 align=center>处方内容</td><TD colspan=1 align=left>剂量</td></tr>"
end if
if rs("FZ")="" or isnull(rs("FZ")) THEN
sFZ=""
else
sFZ="("& rs("FZ")& ")"
END IF
ijs=cint(ijs)+1
stat="ok"
Response.Write "<TR><TD height=22px>"
Response.Write sFZ & rs("YPSPM")&"["&rs("gg")&"] "
Response.Write "</TD><TD width=40 align=right>"
if cdbl(rs("SL"))<1 then
Response.Write "0"&rs("SL")
else
Response.Write rs("SL")
end if
Response.write rs("DWMC")
'Response.Write "<TD width=40>"
'Response.Write " "
Response.Write "</TD></tr>"
sj=rs("zxsj")
fz=trim(rs("fz"))
rs.MoveNext
LOOP
'Response.Write sfy
if cint(k)>0 then
do while ijs<5
Response.Write "<tr><td colspan=3 height=22px></td></tr>"
ijs=cint(ijs)+1
loop
Response.Write "<tr><td colspan=3 height=22px><Font size=2>加药者： 执行者： "&sj&"</font>"
end if
if sfy<>"righty" and sfy="lefty" then
' Response.Write "</td></tr></table></td><TD colsapn=1 valign=top width='50%'> </td></tr>"
Response.Write "</td></tr></table></td>"
sfy="next"
else
sfy=""
Response.Write "</td></tr></table>"
end if
'Response.Write "</TABLE>"
' if cint(k)>0 then
'do while icount<5
' Response.Write "<TR><TD>"
' Response.Write " "
' Response.Write "</TR></TD>"
' icount=icount+1
'loop
'Response.Write "</table></td></tr>"
' writeend
' end if
next
rs.Close
next
' next
end if
%>
</table>
</FORM>
</BODY>
<SCRIPT LANGUAGE=vbscript>
<!--
window.print
'window.close
-->
</SCRIPT>
</HTML>
<%
conn.Close
set conn=nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -