amzxmjs.asp
来自「医院医技科室系统,可以进行医技报告的生成打印,完全的BS结构」· ASP 代码 · 共 627 行 · 第 1/2 页
ASP
627 行
'Response.Write lsh&","&rzks&",'"&vcfid&"'"
comm.CommandText="proc_mzxmjsqx"
comm.Parameters("@intLSH")=lsh
comm.Parameters("@intRZKS")=rzks
comm.Parameters("@vcfid")=vcfid
comm.Execute
set comm=nothing
end function
function funmzyffy(lsh,rzks,fyr,tpr,tpfhr,cfshr)
set comm=server.CreateObject("adodb.command")
comm.ActiveConnection=conn
comm.CommandType=4
'Response.Write lsh&","&rzks&","&fyr&","&tpr&","&tpfhr&","&cfshr
comm.CommandText="proc_mzyffy"
comm.Parameters("@intLSH")=lsh
comm.Parameters("@intRZKS")=rzks
comm.Parameters("@intfyr")=fyr
comm.Parameters("@inttpr")=tpr
comm.Parameters("@inttpfhr")=tpfhr
comm.Parameters("@intcfshr")=cfshr
comm.Parameters("@jsid")=0
comm.Execute
funmzyffy=comm.Parameters("@jsid")' comm("jg").Value
set comm=nothing
end function
function funmzyfcl(lsh,rzks,fyr,tpr,tpfhr,cfshr)
set comm=server.CreateObject("adodb.command")
comm.ActiveConnection=conn
comm.CommandType=4
'Response.Write lsh&","&rzks&","&fyr&","&tpr&","&tpfhr&","&cfshr
comm.CommandText="proc_mzclfcl"
comm.Parameters("@intLSH")=lsh
comm.Parameters("@intRZKS")=rzks
comm.Parameters("@intfyr")=fyr
comm.Parameters("@inttpr")=tpr
comm.Parameters("@inttpfhr")=tpfhr
comm.Parameters("@intcfshr")=cfshr
comm.Parameters("@jsid")=0
comm.Execute
funmzyfcl=comm.Parameters("@jsid")' comm("jg").Value
set comm=nothing
end function
function funmzxmjs(lsh,rzks,fyr,tpr,tpfhr,cfshr)
set comm=server.CreateObject("adodb.command")
comm.ActiveConnection=conn
comm.CommandType=4
'Response.Write lsh&","&rzks&","&fyr&","&tpr&","&tpfhr&","&cfshr
comm.CommandText="proc_mzxmjs"
comm.Parameters("@intLSH")=lsh
comm.Parameters("@intRZKS")=rzks
comm.Parameters("@intfyr")=fyr
comm.Parameters("@inttpr")=tpr
comm.Parameters("@inttpfhr")=tpfhr
comm.Parameters("@intcfshr")=cfshr
comm.Parameters("@jsid")=0
comm.Execute
funmzxmjs=comm.Parameters("@jsid")' comm("jg").Value
set comm=nothing
end function
hzxm=""
'mzh=""
hzxb=""
sflx=""
syje=0
YBSYJE=0
HZYLSYJE=0
sflxmc=""
if clng(qlsh)=0 then
sql="select SYJE,YBSYJE,HZYLSYJE ,b.xm,b.xb,b.csrq,a.sflx,a.mzh,sflxmc from mz_tbr a,mz_tbrxx b,ggzd_tsflx c"
sql=sql&" where a.blh=b.blh and a.sflx=c.sflxid 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")
sflxmc=rs("sflxmc")
end if
rs.Close
else
sql="select b.xm,a.ghsj,a.sflx,c.syje,c.YBSYJE,c.HZYLSYJE,d.xm as hzxm,d.xb,d.csrq,c.mzh,ksmc,sflxmc from mz_tbr c, mz_tbrls a,ggzd_tgzry b,mz_tbrxx d,ggzd_tks k,ggzd_tsflx s where c.blh=a.blh and s.sflxid=a.sflx and d.blh=c.blh and a.ys=b.ryid and k.ksid=a.ghks and a.lsh="&qlsh
rs.Open sql,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")
sflxmc=rs("sflxmc")
end if
rs.Close
end if
'response.Write sql
%>
<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" >
<SCRIPT LANGUAGE=javascript>
<!--
function selectAll(zid)
{
var obj,i;
obj=document.all.item('chk');
if(obj==null) return;
if(obj.length==null)
{
if (obj.name=='chk'+zid)
obj.checked=true;
return;
}
for(i=0;i<obj.length;i++)
{
if(obj(i)!=null)
{
if (obj(i).name=='chk'+zid)
obj(i).checked=true;
}
}
}
function funallsel()
{
var obj,i;
obj=document.all.item('chk');
if(obj==null) return;
if(obj.length==null)
{
obj.checked=true;
return;
}
for(i=0;i<obj.length;i++)
{
if(obj(i)!=null)
obj(i).checked=true;
}
}
//-->
</SCRIPT>
</HEAD>
<BODY topmargin=0 leftmargin=0>
<form name=form1 method="post" action="">
<INPUT type="hidden" id=txtsta name=txtsta value=<%=txtsta%>>
<INPUT type="hidden" id=txtsl name=txtsl>
<INPUT type="hidden" id=txtdj name=txtdj>
<INPUT type="hidden" id=txtje name=txtje>
<INPUT type="hidden" id=txtxmlxid name=txtxmlxid>
<INPUT type="hidden" id=txtxmid name=txtxmid>
<INPUT type="hidden" id=txtrzks name=txtrzks>
<input type="hidden" id="txtnrid" name="txtnrid" >
<INPUT type="hidden" id=txtfq name=txtfq value=<%=txtfq%>>
<INPUT type="hidden" id=txtstr name=txtstr>
<INPUT type="hidden" id=pdid name=pdid>
<INPUT type="hidden" id=txtlsh name=txtlsh value="<%=qlsh%>">
<INPUT type="hidden" id=txtyp name=txtyp >
<INPUT type="hidden" id=txtcl name=txtcl >
<INPUT type="hidden" id=txtxm name=txtxm >
<INPUT type="hidden" id=txtps name=txtps >
<INPUT type="hidden" id=txthsgx name=txthsgx >
<table border=1 bordercolorlight=#000000 bordercolordark=#ffffff cellPadding="0" cellSpacing="0" style="HEIGHT: 22px; WIDTH: 100%">
<tr bgcolor="<%=trBGCOLOR%>" height=25px>
<td nowrap align="middle" nowrap style='cursor:hand' LANGUAGE=javascript onclick=funallsel()>
<font color=blue>全选</font> <font color="<%=tableHFONTCOLOR%>">项目名称</font></td>
<td nowrap align="middle"><font color="<%=tableHFONTCOLOR%>">单位</font></td>
<td nowrap align="middle"><font color="<%=tableHFONTCOLOR%>">数量</font></td>
<td nowrap align="middle"><font color="<%=tableHFONTCOLOR%>">单价</font></td>
<td nowrap align="middle"><font color="<%=tableHFONTCOLOR%>">金额</font></td>
<td nowrap align="middle"><font color="<%=tableHFONTCOLOR%>">备注</font></td></tr>
<%
sqlstr="select a.cfid,a.xmmc,a.dw,a.sl,a.dj,a.je,a.lsh,a.cfzt,a.rzks,a.zmc,a.zid,a.lx,a.bz,convert(varchar(10),a.jssj,120) as jssj from view_mzxmjsxx a where a.cfzt in(3,7) "
sqlstr=sqlstr&" and a.lsh='" &qlsh& "' and a.RZKS =" & SESSION("RZKS") &" order by a.zid desc"
'Response.Write sqlstr
'set RS=conn.Execute(sqlstr)
zmc=""
ai=0
maxi=0
bgcolor="#6495ed"
'#f0e68c
j=0
rs.Open sqlstr,conn,3,1
i=1
do while not RS.eof
if clng(rs("zid"))<>-1 then'--有分组项目
if clng(ai)>clng(maxi) then maxi=ai
if trim(zid)<>trim(rs("zid")) then
if clng(j) mod 2=0 then
bgcolor="#6495ed"
else
bgcolor="#3cb371"
end if
Response.Write "<tr bordercolorlight='#000000' bordercolordark='#ffffff' bgcolor='"&bgcolor&"' >"
Response.Write "<Td colspan=6 style='cursor:hand' onclick=javascript:selectAll('"&rs("zid")&"')>"
Response.Write "<font color=black><b>*"&rs("zmc")&"↓↓</b></font></td></tr>"
ai=0
j=clng(j)+1
end if
zid=trim(rs("zid"))
Response.Write "<TR bgcolor='"&bgcolor&"'><TD nowrap>"
if cdate(rs("jssj"))=date then Response.Write "<INPUT type=checkbox id=chk name='chk"&rs("zid")&"' title='"&rs("lx")&"' value=" & rs("CFID") & ">"
Response.Write rs("XMMC")
Response.Write "</td><td ALIGN=RIGHT nowrap>"
Response.Write rs("SL")
Response.Write "</td><td nowrap>"
Response.Write rs("dw")
Response.Write "</td><td align=right nowrap>"
Response.Write formatnumber(rs("DJ"),2,-1)
Response.Write "</td><td align=right nowrap>"
Response.Write formatnumber(rs("JE"),2,-1)&"</td><td >"
Response.Write rs("bz")&" </td></tr>"
else '--无分组项目
Response.Write "<tr><td nowrap >"
if cdate(rs("jssj"))=date then Response.Write "<INPUT type=checkbox id=chk name=chk value=" & RS("cfid") & " title='"&rs("lx")&"'>"
Response.Write RS("xmmc")&"</td><td align=center nowrap>"
Response.Write RS("dw")&"</td><td align=right nowrap>"
Response.Write RS("sl")& "</td><td align=right nowrap>"
Response.Write formatnumber(RS("dj"),2,-1)&"</td><td align=right nowrap>"
Response.Write formatnumber(rs("JE"),2,-1)&"</td><td >"
Response.Write rs("bz")&" </td></tr>"
end if
RS.movenext
loop
rs.close
set rs=nothing
conn.Close
set conn=nothing
%>
</table>
</form>
</BODY>
</HTML>
<SCRIPT LANGUAGE=javascript>
<!--
function funsetvalue(obj,val)
{
if(parent.document.getElementById(obj)==null) return;
parent.document.getElementById(obj).value=val;
}
funsetvalue('txtkye','<%=syje%>');
funsetvalue('txtnhye','<%=HZYLSYJE%>');
funsetvalue('txtgrzhye','<%=YBSYJE%>');
//funsetvalue('txtYPQF','<%=formatnumber(ypje,2,-1)%>');
//funsetvalue('txtXMQF','<%=formatnumber(xmje,2,-1)%>');
//funsetvalue('txtCLQF','<%=formatnumber(clje,2,-1)%>');
//funsetvalue('txtQF','<%=formatnumber(cdbl(clje)+cdbl(ypje)+cdbl(clje),2,-1)%>');
//funsetvalue('iPS','<%=iPS%>');
funsetvalue('txtlsh','<%=qlsh%>');
funsetvalue('txtsflx','<%=sflxmc%>');
funsetvalue('txtjzks','<%=ksmc%>');
funsetvalue('txtys','<%=qys%>');
funsetvalue('txtmzh','<%=mzh%>');
funsetvalue('txtbrxm','<%=hzxm%>');
funsetvalue('txtxb','<%=hzxb%>');
funsetvalue('txtnl','<%=hznl%>');
//-->
</SCRIPT>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?