📄 azymbdz.asp
字号:
<%@ Language=VBScript %>
<!-- #INCLUDE FILE="../../share\connectdb3.asp" -->
<!--#include file=../../pubfunction.asp-->
<!-- #include file="../../ggmk.asp"-->
<%
dim rs
tag=Request.form("hdPD")
mbid=Request.form("hdmbid")
set rs=server.CreateObject("adodb.recordset")
if tag="update" then
rs.Open "select mbid,mbdh,mbmc from ggzd_tyzcfmb where mbid=" & mbid,conn
else
mbid=zdid("mbid","ggzd_tyzcfmb")
mbidnr=zdid("mbid","ggzd_tyzcfmbnr")
if cdbl(mbidnr)>cdbl(mbid) then mbid=mbidnr
end if
%>
<html>
<head>
<meta name="VI60_DefaultClientScript" Content="VBScript">
<meta NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<title>讯捷医院信息管理系统-模板定制-<%=session("yhm")%></title>
<link rel="stylesheet" type="text/css" href="../../style/style.css" >
<link rel="stylesheet" type="text/css" href="../../style/table.css" >
<script ID="clientEventHandlersVBS" LANGUAGE="vbscript">
<!--
sub csh()
frmaMB.txtDJ.value =""
frmaMB.txtJE.value =""
frmaMB.txtZYCJL.value =""
frmaMB.txtZYDW.value =""
frmaMB.txtZYTS.value =""
frmaMB.txtZYYPMC.value =""
frmaMB.txtZYZJL.value =""
end sub
Sub xgpd()
'次剂量判断
if isempty(frmaMB.txtZYCJL.value) then
msgbox "请输入次剂量！",vbinformation,"提示"
frmaMB.txtZYCJL.select
exit sub
end if
if not isnumeric(frmaMB.txtZYCJL.value) then
msgbox "请输入数字型的数据！",vbinformation,"提示"
frmaMB.txtZYCJL.select
exit sub
end if
if frmaMB.txtZYCJL.value<=0 then
msgbox "请输入大于零的数！",vbinformation,"提示"
frmaMB.txtZYCJL.select
exit sub
end if
'天数判断
if isempty(frmaMB.txtZYTS.value) then
msgbox "请输入天数！",vbinformation,"提示"
frmaMB.txtZYTS.select
exit sub
end if
if not isnumeric(frmaMB.txtZYTS.value) then
msgbox "请输入数字型的数据！",vbinformation,"提示"
frmaMB.txtZYTS.select
exit sub
end if
if frmaMB.txtZYTS.value<=0 then
msgbox "请输入大于零的数！",vbinformation,"提示"
frmaMB.txtZYTS.select
exit sub
end if
frmaMB.cmbRCSBS.value =frmaMB.cmbZYRCS.value
frmaMB.txtZYZJL.value =cdbl(frmaMB.txtZYCJL.value)*cdbl(frmaMB.txtZYTS.value)
frmaMB.txtJE.value=formatcurrency(cdbl(frmaMB.txtDJ.value)*cdbl(frmaMB.txtZYZJL.value),2)
frmaMB.txtDJ.value =formatcurrency(frmaMB.txtDJ.value,3)
End sub
Sub btnBC_onclick
if frmaMB.txtDH.value="" then
msgbox "请输入模板代号",vbinformation,"提示"
frmaMB.txtDH.focus
exit sub
end if
if frmaMB.txtMC.value="" then
msgbox "请输入模板代号",vbinformation,"提示"
frmaMB.txtMC.focus
exit sub
end if
if msgbox("确实要保存该模板吗？",vbinformation+vbokcancel,"提示")=vbok then
frmaMB.action="ambdz.asp"
frmaMB.submit
end if
End Sub
Sub txtZYYPMC_onkeyup
if window.event.keyCode=13 then
document.all.mbdz.src="aMENU_mb.asp"
window.mbdz.form1.txtinput.value="txtZYYPMC"
window.mbdz.form1.txtypmc.value= frmaMB.txtZYYPMC.value
window.mbdz.form1.txtxmlx.value="yp"
window.mbdz.form1.txtxl.value="zy"
window.mbdz.form1.submit
menu.style.visibility ="visible"
else
menu.style.visibility ="hidden"
end if
End Sub
Sub btnZYZJ_onclick
if frmaMB.txtZYYPMC.value="" then
msgbox "请输入要添加的药品！",vbinformation,"提示"
frmaMB.txtZYYPMC.focus
exit sub
end if
if frmaMB.cmbZYRCS.value="" then
msgbox "请选择药品的日次数！",vbinformation,"提示"
frmaMB.cmbZYRCS.focus
exit sub
end if
if not isnumeric(frmaMB.txtZYCJL.value) then
msgbox "请输入次剂量！",vbinformation,"提示"
frmaMB.txtZYCJL.focus
exit sub
end if
if not isnumeric(frmaMB.txtZYTS.value) then
msgbox "请输入天数！",vbinformation,"提示"
frmaMB.txtZYTS.focus
exit sub
end if
if not isnumeric(frmaMB.txtZYZJL.value) then
msgbox "请输入总剂量！",vbinformation,"提示"
frmaMB.txtZYZJL.focus
exit sub
end if
if cdbl(frmaMB.txtZYCJL.value)<=0 then
msgbox "请输入次剂量,大于零的数字！",vbinformation,"提示"
frmaMB.txtZYCJL.focus
exit sub
end if
if cdbl(frmaMB.txtZYTS.value)<=0 then
msgbox "请输入天数,大于零的数字！",vbinformation,"提示"
frmaMB.txtZYTS.focus
exit sub
end if
if cdbl(frmaMB.txtZYZJL.value)<=0 then
msgbox "请输入总剂量,大于零的数字！",vbinformation,"提示"
frmaMB.txtZYZJL.focus
exit sub
end if
if frmaMB.cmbZYYF.value="" then
msgbox "请选择使用方法！",vbinformation,"提示"
frmaMB.cmbZYYF.focus
exit sub
end if
mx.frmaZYMBMX.hdPD.value="add"
mx.frmaZYMBMX.hdmbid.value=frmaMB.hdmbid.value
mx.frmaZYMBMX.hdlxid.value=frmaMB.hdlxid.value
mx.frmaZYMBMX.hdbh.value=frmaMB.hdypid.value
mx.frmaZYMBMX.hdcsl.value=frmaMB.txtZYCJL.value
mx.frmaZYMBMX.hdrcs.value=frmaMB.cmbZYRCS.value
mx.frmaZYMBMX.hdts.value=frmaMB.txtZYTS.value
mx.frmaZYMBMX.hdsyff.value=frmaMB.cmbZYYF.value
mx.frmaZYMBMX.hdps.value=0
mx.frmaZYMBMX.hdsl.value=frmaMB.txtZYZJL.value
mx.frmaZYMBMX.hddj.value=frmaMB.txtDJ.value
mx.frmaZYMBMX.hdje.value=frmaMB.txtJE.value
mx.frmaZYMBMX.hdrzks.value=frmaMB.hdlyks.value
mx.frmaZYMBMX.submit
csh()
frmaMB.txtZYYPMC.focus
End Sub
Sub btnZYTZ_onclick
document.all.mx.src="aZYMBMX.asp"
mx.frmaZYMBMX.hdPD.value="TZ"
mx.frmaZYMBMX.hdmbid.value=frmaMB.hdmbid.value
mx.frmaZYMBMX.submit
End Sub
Sub btnZYSC_onclick
document.all.mx.src="aZYMBMX.asp"
mx.frmaZYMBMX.hdPD.value="del"
mx.frmaZYMBMX.hdmbid.value=frmaMB.hdmbid.value
mx.frmaZYMBMX.submit
End Sub
Sub btnFH_onclick
if frmaMB.hdPD.value="new" then
if msgbox("你将放弃该模板吗？",vbinformation,"提示")=vbok then
frmaMB.hdPD.value="fh"
frmaMB.action="ambdz.asp"
frmaMB.submit
end if
else
frmaMB.hdPD.value=""
frmaMB.action="ambdz.asp"
frmaMB.submit
end if
End Sub
Sub cmbZYRCS_onchange
xgpd()
End Sub
Sub txtZYTS_onchange
xgpd()
End Sub
Sub txtZYCJL_onchange
xgpd()
End Sub
Sub txtZYZJL_onchange
frmaMB.txtJE.value=formatcurrency(cdbl(frmaMB.txtDJ.value)*cdbl(frmaMB.txtZYZJL.value),2)
End Sub
SUB txtZYCJL_onkeypress
if window.event.keyCode=13 then
frmaMB.cmbZYRCS.focus
end if
END SUB
SUB cmbZYRCS_onkeypress
if window.event.keyCode=13 then
frmaMB.txtZYTS.focus
end if
END SUB
SUB txtZYTS_onkeypress
if window.event.keyCode=13 then
frmaMB.btnZYZJ.focus
end if
END SUB
Sub window_onload
frmaMB.txtZYYPMC.focus
End Sub
-->
</script>
</head>
<body leftmargin=0 topmargin=0>
<form action id="frmaMB" method="post" name="frmaMB">
<table width='<%=session("screen_width")%>' height='<%=session("screen_height")%>' border=0 cellspacing="0" cellpadding="0" bgcolor="<%=tableBGCOLOR%>">
<tr class=ListCellRow bgcolor="<%=tableHBGCOLOR%>" ><TD nowrap align=left width=100%><img src="../../images/jk.GIF" width='24px' height='24px'>中药模板定制<font color="<%=tableHFONTCOLOR%>">-<%=session("yhm")%></td>
<TD nowrap width="10%">
<input type="hidden" id="hdPD" name="hdPD" value="<%=Request.Form("hdPD")%>">
<input type="hidden" id="hdmblx" name="hdmblx" value="2">
<input type="hidden" id="hdmbid" name="hdmbid" value="<%=mbid%>">
<input type="hidden" id="hdlxid" name="hdlxid" value="类型ID">
<input type="hidden" id="hdypid" name="hdypid" value="药品ID">
<input type="hidden" id="hdhsgx" name="hdhsgx" value="换算关系">
<input type="hidden" id="hdxmid" name="hdxmid" value="项目ID">
<input type="hidden" id="hdjx" name="hdjx" value="剂型ID">
<input type="hidden" id="hdlyks" name="hdlyks" value="项目ID">
<select id="cmbRCSBS" name="cmbRCSBS" style="width:0;height:0"><%rstocmb("select rcsid,rcsbs from ggzd_trcs where sfsc=0 order by rcsdh")%></select> </td>
</td>
<TD nowrap width=25px align=right nowrap valign=center><img src="../../images/qp.GIF" width='20px' height='20px' style='cursor:hand' alt='重新登录' onclick=javascript:allwindow()> </td>
<TD nowrap width=25px align=right nowrap valign=center><img src="../../images/gb.gif" width='20px' height='20px' style='cursor:hand' alt='关闭' onclick=javascript:closewindow()> </td></tr>
<TR><TD nowrap colspan=4>
<table align="left" border="0" cellPadding="0" cellSpacing="0" width="100%">
<tr>
<td>代号:
<input class="longtext1" type="text" id="txtDH" name="txtDH" value="<%if tag="update" then Response.Write rs("mbdh")%>" size="0" maxlength="8">
名称:
<input class="longtext1" type="text" id="txtMC" name="txtMC" value="<%if tag="update" then Response.Write rs("mbmc")%>" size="0" maxlength="40">
<input class="buttons02" type="button" value="保存(B)" id="btnBC" name="btnBC" accesskey="B">
<input class="buttons02" type="button" value="返回(F)" id="btnFH" name="btnFH" accesskey="F">
<SELECT id=cmbSFGK name=cmbSFGK style="width:60" style="visibility:hidden"><OPTION value=1>公开</OPTION><OPTION value=0>不公开</OPTION></SELECT></td>
</tr>
<tr><td align="center">
<table border="1" bordercolorlight="#000000" bordercolordark="#FFFFFF" cellpadding="4" cellspacing="0" width="100%" style="top:80px;left=10px">
<tr>
<td>药品名称</td>
<td>次剂量</td>
<td>日次数</td>
<td>天数</td>
<td>总剂量</td>
<td>用法</td>
</tr>
<tr>
<td><input class="longtext1" type="text" id="txtZYYPMC" name="txtZYYPMC" style="width:150"></td>
<td><input class="longtext1" type="text" id="txtZYCJL" name="txtZYCJL" style="width:35"><input class="longtext1" type="text" id="txtZYDW" name="txtZYDW" style="width:20" readonly disabled></td>
<td><select id="cmbZYRCS" name="cmbZYRCS" style="width:80"><%rstocmb("select rcsid,rcsmc from ggzd_trcs where sfsc=0 order by rcsid")%></select></td>
<td><input class="longtext1" type="text" id="txtZYTS" name="txtZYTS" style="width:30"></td>
<td><input class="longtext1" type="text" id="txtZYZJL" name="txtZYZJL" style="width:40"><input class="longtext1"type="text" id="txtZYDW1" name="txtZYDW1" style="width:20" readonly disabled></td>
<td><select class="longtext1" id="cmbZYYF" name="cmbZYYF" style="width:80"><%rstocmb("select syffid,syffmc from yk_tsyff where sfsc=0 and yplx in (0,2) order by syffdh")%></select></td>
</tr>
</table></td></tr>
<tr>
<td>单价：
<INPUT class="longtext1" type="text" id=txtDJ name=txtDJ disabled style="width:50">
金额：
<INPUT class="longtext1" type="text" id=txtJE name=txtJE disabled style="width:80">
<input class="buttons02" type="button" value="增 加(Z)" id="btnZYZJ" name="btnZYZJ" accesskey="Z">
<input class="buttons02" type="button" value="删 除(X)" id="btnZYSC" name="btnZYSC" accesskey="X">
<input class="buttons02" type="button" value="排 序(T)" id="btnZYTZ" name="btnZYTZ" accesskey="T">
</tr></table>
</td></tr>
<TR height='100%'><TD nowrap colspan=4 height='100%'>
<iframe src="aZYMBMX.asp?hdmbid=<%=mbid%>" id="mx" name="mx" width="100%" height="100%" frameborder="1" align="left"></iframe>
</td></tr></table>
</form>
<div id="menu" style="visibility:hidden">
<table BORDER="0" CELLSPACING="0" CELLPADDING="0" bordercolorlight="#000000" bordercolordark="#FFFFFF" style="LEFT: 10px; POSITION: absolute; TOP: 160px">
<tr>
<td><iframe border="0" id="mbdz" name="mbdz" style="width:404;height=250" src="aMENU_mb.asp"></iframe></td>
</tr>
</table>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -