📄 amztxmzfdown.asp
字号:
<SCRIPT LANGUAGE=javascript>
<!--
function mouseon(src,clrOver){
src.style.cursor = 'hand';
src.bgColor = clrOver;
}
function mouseout(src,clrIn) {
src.style.cursor = 'default';
src.bgColor = clrIn;
}
function xg(idh,sl,xmlx,dj){
parent.form1.txttkid.value=idh;
parent.form1.txtxmm.value=xmlx;
parent.form1.txtxtdj.value=dj;
parent.form1.txtyts.value=sl;
}
//-->
</SCRIPT>
<style>
<!--
table
{
FONT-FAMILY:宋体;
FONT-SIZE: 10pt
}
INPUT
{
FONT-FAMILY:宋体;
FONT-SIZE: 9pt
}
SELECT
{
FONT-FAMILY:宋体;
FONT-SIZE: 9pt
}
-->
</style><body leftmargin=0 topmargin=0 >
<FORM action="" method=POST id=form1 name=form1>
<INPUT type="hidden" id=txtxtdj name=txtxtdj><INPUT type="hidden" id=txtyzid name=txtyzid>
<INPUT type="hidden" id=txtdj name=txtdj>
<INPUT type="hidden" id=txtsl name=txtsl>
<INPUT type="hidden" id=txtxmmc name=txtxmmc>
<INPUT type="hidden" id=txtxms name=txtxms>
<INPUT type="hidden" id=txtxysl name=txtxysl>
<INPUT type="hidden" id=txttkid name=txttkid>
<INPUT type="hidden" id=txtlsh name=txtlsh value="<%=request("txtlsh")%>">
<%
tkid=request("txttkid")
yzid= request("txtyzid") '增加医嘱id
dj=request("txtdj") '增加单价
sl=request("txtsl") '增加数量
xzsl=request("txtxysl")' '修改数量
xgdj=request("txtxtdj") '修改单价
xmmc=request("txtxmmc") '修改项目名称
set conn=server.CreateObject ("adodb.connection")
conn.Open application("sconn")
set rs=server.CreateObject ("adodb.recordset")
if request("txtxms")="zf" then
for each itempid in Request.Form("chk")
if not isnull(itempid) then
conn.Execute "update mz_tcftk set tkzt=2 where TKID="&itempid
end if
next
end if
%>
<TABLE BORDER=1 CELLSPACING=0 CELLPADDING=0 width=570>
<%
if request("txtlsh")<>"" then
sql="select y.xmmc as ypspm,k.sl,k.je,g.xm,lrsj,k.tkid from mz_tcftk k,mz_tcflr r, "&_
"ggzd_txmbm y,ggzd_tgzry g,mz_tbrls s where k.cfid=r.cfid and y.xmid=r.bh "&_
"and g.ryid=s.ys and s.lsh=r.lsh and k.tkzt=1 and r.xmlx >3 and k.rjsj is null and k.shr="&session("yhid")&" and r.lsh="&request("txtlsh")
rs.Open sql,conn
while not rs.EOF
Response.Write "<tr language=javascript onmouseout=mouseout(this,'#ffe4b5') "&_
"onmouseover=mouseon(this,'#E0E0CA') onclick=xg(" & rs("tkid") & "," & cdbl(rs("SL")) & ",'"&trim(rs("ypspm")) &"',"& cdbl(rs("je"))/cdbl(rs("SL")) &")><td width=60><INPUT type='checkbox' id=chk name=chk value="&rs("tkid")&"></td><td width=150>"
Response.Write rs("ypspm")&"</td><td width=80>"
Response.Write rs("sl")
Response.Write "</td><td width=80>"
Response.write rs("je")
Response.Write "</td><td width=130>"
Response.write rs("lrsj")
Response.Write "</td><td width=100>"
Response.write rs("xm")
Response.Write "</td></tr>"
rs.MoveNext
wend
end if
%>
</TABLE>
</FORM>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -