afyszjxm.asp
来自「医院医技科室系统,可以进行医技报告的生成打印,完全的BS结构」· ASP 代码 · 共 183 行
ASP
183 行
<%@ Language=VBScript %>
<%if session("YHID")="" THEN server.transfer "../../amain.asp"%>
<%
set conn=server.CreateObject("adodb.connection")
conn.Open application("sconn")
%>
<HTML>
<HEAD>
<META name=VI60_defaultClientScript content=VBScript>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<LINK rel="stylesheet" type="text/css" href="../../css.css">
<SCRIPT ID=clientEventHandlersVBS LANGUAGE=vbscript>
<!--
sub cmdok_onclick
zsszjxm.pdid1.value=4 '增加医嘱项目
if len(zsszjxm.txtSL.value)=0 then
msgbox "请输入数字!",vbinformation,"提示"
exit sub
end if
if zsszjxm.txtkye.value<zsszjxm.txtje.value then
msgbox "该病人金额不足,请到交费处交费!",vbinformation,"提示"
exit sub
end if
zsszjxm.submit
parent.divtable.style.visibility="visible"
parent.table2.style.visibility="hidden"
end sub
sub cmdquit_onclick
parent.divtable.style.visibility="visible"
parent.table2.style.visibility="hidden"
end sub
sub txtxmmc_onkeypress
IF window.event.keyCode =13 THEN
if trim(zsszjxm.txtxmmc.value) ="" then
msgbox "项目名称不能为空值",vbinformation,"提示"
zsszjxm.txtxmmc.focus
exit sub
end if
zsszjxm.pdid1.value =1
zsszjxm.txtsl.focus
zsszjxm.submit
END IF
end sub
sub txtsl_onkeypress
IF window.event.keyCode =13 THEN
zsszjxm.txtje.value =cint(zsszjxm.txtdj.value)*cint(zsszjxm.txtsl.value)
msgbox zsszjxm.txtkye.value
if cdbl(zsszjxm.txtkye.value)<cdbl(zsszjxm.txtje.value) then
msgbox "该病人金额不足,请到交费处交费!",vbinformation,"提示"
exit sub
end if
if msgbox ("金额是"&zsszjxm.txtje.value&",请确认。",vbyesno,"提示")=vbyes then
zsszjxm.cmdok.focus
else
exit sub
end if
END IF
end sub
Sub txtsl_onchange '计算金额
zsszjxm.txtje.value =cint(zsszjxm.txtdj.value)*cint(zsszjxm.txtsl.value)
End Sub
-->
</SCRIPT>
<SCRIPT ID=clientEventHandlersJS 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 fhjg(a,b,c,d) {
zsszjxm.txtxmmc.value =a;
zsszjxm.txtxmlxid.value =b;
zsszjxm.txtxmid.value =c;
zsszjxm.txtdj.value =d;
document.all("divzdid").style.visibility="hidden";
zsszjxm.txtsl.focus ();
}
-->
</script>
</HEAD>
<BODY>
<form name=zsszjxm method="post" action="azsszjxm.asp">
<p align=center>
<%
txtkye=Request.Form("txtkye")
txtxmmc=Request.Form("txtxmmc")
dj=Request.Form("txtdj")
je=Request.Form("txtje")
sl=Request.Form("txtsl")
txtlsh=Request.Form("txtlsh")
txtxmlxid=Request.Form("txtxmlxid")
txtxmid=Request.Form("txtxmid")
Response.Write "<TABLE BORDER=1 CELLSPACING=1 CELLPADDING=1 bgcolor=""#cce8d6"" bordercolorlight=#000000 bordercolordark=#ffffff>"
Response.Write "<TR>"
Response.Write "<TD nowrap align=right>项目名称</TD>"
Response.Write "<TD>"
Response.Write "<INPUT id=txtxmmc name=txtxmmc value="&txtxmmc&">"
' 往mz_tcflr插记录
txtqdid=Request.Form("txtqdid")
lsh=Request.QueryString("lsh")
Response.Write "</SELECT></TD>"
Response.Write "<TD nowrap align=right>单价</TD>"
Response.Write "<TD><INPUT id=txtdj name=txtdj readonly ></TD>" '<INPUT id=txtdj1 type=""hidden"" name=txtdj1 value=""1"" >
Response.Write "</TR>"
Response.Write "<TR>"
Response.Write "<TD nowrap align=right>数量</TD>"
Response.Write "<TD><INPUT id=txtsl name=txtsl value="&sl&"></TD>"
Response.Write "<TD nowrap align=right>金额</TD>"
Response.Write "<TD><INPUT id=txtje name=txtje readonly value="&je&"></TD>" '<INPUT id=txtje1 type=""hidden"" name=txtje1 value="&je&">
Response.Write "</TR>"
Response.Write "<TR>"
Response.Write "<TD align=middle colspan=4><INPUT type=""button"" value=""确定"" id=cmdOK name=cmdok style=""HEIGHT: 22px; WIDTH: 80px""><INPUT type=""button"" value=""返回"" id=cmdquit name=cmdquit style=""HEIGHT: 22px; WIDTH: 80px""></TD>"
Response.Write "<TD align=middle colspan=2 ></TD>"
Response.Write "</TR>"
Response.Write "</TABLE>"
if trim(Request.Form("pdid1"))="4" then
if trim(Request.Form("txtlsh"))<>"" then
sqlstr="insert into mz_tcflr(lsh,xmlx,bh,csl,ts,syff,ps,rzks,dj,sl,je,ytsl,ytje,cfzt,lrr,sj,fpydy)" & _
"values("&Request.Form("txtlsh")&","& Request.Form("txtxmlxid") & ", " & Request.Form("txtxmid") & ",0,1,0,0,"&session("rzks")&","&Request.Form("txtdj")&","&Request.Form("txtsl")&","&Request.Form("txtje")&",0,0,3,"&session("yhid")&",'"&now&"',0)"
conn.Execute sqlstr
end if
end if
%>
</p>
<%
if trim(Request.Form("pdid1"))="1" then '临床诊断
set rszdid=server.CreateObject("adodb.recordset")
rszdid.maxrecords=7
SELECT CASE CSTR(LEFT(Request("txtxmmc"),1))
CASE "P","p"
rszdid.Open "select ggzd_txmbm.dj,ggzd_txmbm.rzks,ggzd_txmbm.xmid,ggzd_txmbm.xmlxid,ggzd_txmbm.xmmc,ggzd_txmbm.xmdh from ggzd_txmbm,ggzd_tfzxmbm where ggzd_txmbm.xmid=ggzd_tfzxmbm.xmid and ggzd_txmbm.PYM LIKE '"& Request("txtxmmc") &"%' and ggzd_txmbm.xmlxid='4' order by ggzd_txmbm.xmid",conn,3 'and ggzd_tfzxmbm.ksid='" & session("rzks") & "'
CASE "W","w"
rszdid.Open "select ggzd_txmbm.dj,ggzd_txmbm.rzks,ggzd_txmbm.xmid,ggzd_txmbm.xmlxid,ggzd_txmbm.xmmc ,ggzd_txmbm.xmdh from ggzd_txmbm,ggzd_tfzxmbm where ggzd_txmbm.xmid=ggzd_tfzxmbm.xmid and ggzd_txmbm.wbM LIKE '"& Request("txtxmmc") &"%' and ggzd_txmbm.xmlxid='4' order by ggzd_txmbm.xmid",conn,3 'and ggzd_tfzxmbm.ksid='" & session("rzks") & "'
CASE ELSE
rszdid.Open "select ggzd_txmbm.dj,ggzd_txmbm.rzks,ggzd_txmbm.xmid,ggzd_txmbm.xmlxid,ggzd_txmbm.xmmc ,ggzd_txmbm.xmdh from ggzd_txmbm,ggzd_tfzxmbm where ggzd_txmbm.xmid=ggzd_tfzxmbm.xmid and ggzd_txmbm.xmmc LIKE '"& Request("txtxmmc") &"%' and ggzd_txmbm.xmlxid='4' order by ggzd_txmbm.xmid",conn,3 'and ggzd_tfzxmbm.ksid='" & session("rzks") & "'
END SELECT
Response.Write "<div id=divzdid style='visibility :visible'>"
Response.Write "<table border=1 cellspacing=0 style=' LEFT: 80px;POSITION: absolute; TOP: 95px'>"
Response.Write "<tr bgcolor=#00ffff><td>"
Response.Write "项目类型ID"
Response.Write "</td><td>"
Response.Write "项目代号"
Response.Write "</td><td>"
Response.Write "项目名称"
Response.Write "</td></tr>"
dim sZDMC
do while not rszdid.EOF
sZDMC=replace(rszdid("xmmc")," ","")
Response.Write "<tr language=javascript onclick=fhjg('"& sZDMC &"'," & rszdid("xmlxid") & "," & rszdid("xmid") & "," & rszdid("dj") & ") onmouseout=mouseout(this,'#fffff0') onmouseover=mouseon(this,'#E0E0CA') bgcolor=#fffff0><td>"
Response.Write rszdid("xmlxid")
Response.Write "</td><td>"
Response.Write rszdid("xmdh")
Response.Write "</td><td>"
Response.Write rszdid("xmmc")
Response.Write "</td></tr>"
rszdid.MoveNext
loop
Response.Write "</table>"
Response.Write "</div>"
END IF
%>
<INPUT type="text" id=txtkye name=txtkye value="<%=txtkye%>">
<INPUT type="hidden" id=pdid1 name=pdid1>
<INPUT type="hidden" id=txtlsh name=txtlsh value="<%=txtlsh%>">
<INPUT type="hidden" id=txtghsj name=txtghsj>
<INPUT type="hidden" id=txtxmlxid name=txtxmlxid value="<%=txtxmlxid%>">
<INPUT type="hidden" id=txtxmid name=txtxmid value="<%=txtxmid%>">
</form>
</BODY>
<SCRIPT LANGUAGE=vbscript>
</SCRIPT>
</HTML>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?