axmmbdz.asp
来自「医院医技科室系统,可以进行医技报告的生成打印,完全的BS结构」· ASP 代码 · 共 248 行
ASP
248 行
<%@ 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 FrontPage 4.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.txtXMMC.value =""
frmaMB.txtXMDW.value =""
frmaMB.txtXMSL.value =""
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 txtXMMC_onkeyup
if window.event.keyCode=13 then
document.all.mbdz.src="aMENU_mb.asp"
window.mbdz.form1.txtinput.value="txtXMMC"
window.mbdz.form1.txtypmc.value= frmaMB.txtXMMC.value
window.mbdz.form1.txtxmlx.value="fyp"
'window.mbdz.form1.txtxl.value="fxy"
window.mbdz.form1.submit
menu.style.visibility ="visible"
else
menu.style.visibility ="hidden"
end if
End Sub
Sub btnXMZJ_onclick
if frmaMB.txtXMMC.value="" then
msgbox "请输入要添加的药品！",vbinformation,"提示"
frmaMB.txtXMMC.focus
exit sub
end if
if frmaMB.txtXMSL.value="" then
msgbox "请输入项目的数量！",vbinformation,"提示"
frmaMB.txtXMSL.focus
exit sub
end if
mx.frmaXMMBMX.hdPD.value="add"
mx.frmaXMMBMX.hdmbid.value=frmaMB.hdmbid.value
mx.frmaXMMBMX.hdlxid.value=frmaMB.hdlxid.value
mx.frmaXMMBMX.hdbh.value=frmaMB.hdxmid.value
mx.frmaXMMBMX.hdcsl.value=1
mx.frmaXMMBMX.hdrcs.value=0
mx.frmaXMMBMX.hdts.value=1
mx.frmaXMMBMX.hdsyff.value=0
mx.frmaXMMBMX.hdps.value=0
mx.frmaXMMBMX.hdsl.value=frmaMB.txtXMSL.value
mx.frmaXMMBMX.hddj.value=frmaMB.txtDJ.value
mx.frmaXMMBMX.hdje.value=frmaMB.txtJE.value
mx.frmaXMMBMX.hdrzks.value=frmaMB.hdRZks.value
mx.frmaXMMBMX.submit
csh()
frmaMB.txtXMMC.focus
End Sub
Sub btnXMTZ_onclick
document.all.mx.src="aXMMBMX.asp"
mx.frmaXMMBMX.hdPD.value="TZ"
mx.frmaXMMBMX.hdmbid.value=frmaMB.hdmbid.value
mx.frmaXMMBMX.submit
End Sub
Sub btnXMSC_onclick
document.all.mx.src="aXMMBMX.asp"
mx.frmaXMMBMX.hdPD.value="del"
mx.frmaXMMBMX.hdmbid.value=frmaMB.hdmbid.value
mx.frmaXMMBMX.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 txtXMSL_onchange
if isempty(frmaMB.txtXMSL.value) then
msgbox "数量不能为空！",vbinformation,"提示"
frmaMB.txtXMSL.select
exit sub
end if
if not isnumeric(frmaMB.txtXMSL.value) then
msgbox "请输入数字型的数据！",vbinformation,"提示"
frmaMB.txtXMSL.select
exit sub
end if
if cdbl(frmaMB.txtXMSL.value)<=0 then
msgbox "请输入大于零的数据！",vbinformation,"提示"
frmaMB.txtXMSL.select
exit sub
end if
frmaMB.txtXMSL.value=int(cdbl(frmaMB.txtXMSL.value)+0.999)
frmaMB.txtJE.value =formatcurrency(cdbl(frmaMB.txtXMSL.value)*cdbl(frmaMB.txtDJ.value),2)
frmaMB.txtDJ.value =formatcurrency(frmaMB.txtDJ.value,3)
End Sub
SUB txtXMSL_onkeypress
if window.event.keyCode=13 then
frmaMB.btnXMZJ.focus
end if
END SUB
Sub window_onload
frmaMB.txtXMMC.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="3">
<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="hdrzks" name="hdrzks" value="入帐科室ID">
</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="2" cellspacing="0" width="100%" style="top:80px;left=10px">
<tr>
<td>项目名称</td>
<td >数量</td>
</tr>
<tr>
<td ><input class="longtext1" type="text" id="txtXMMC" name="txtXMMC" style="width:300"></td>
<td><input class="longtext1" type="text" id="txtXMSL" name="txtXMSL"><input class="longtext1" type="text" id="txtXMDW" name="txtXMDW" style="width:50" disabled readonly></td>
</tr>
</table></td></tr>
<tr>
<td>单价：
<INPUT class="longtext1" type="text" id=txtDJ name=txtDJ disabled style="width:50" style="border-left-style:none;border-top-style:none;border-right-style:none;border-bottom:1px outset green background;background-color:transparent">
金额：
<INPUT class="longtext1" type="text" id=txtJE name=txtJE disabled style="width:80" style="border-left-style:none;border-top-style:none;border-right-style:none;border-bottom:1px outset green background;background-color:transparent">
<input class="buttons02" type="button" value="增 加(Z)" id="btnXMZJ" name="btnXMZJ" accesskey="Z">
<input class="buttons02" type="button" value="删 除(X)" id="btnXMSC" name="btnXMSC" accesskey="X">
<input class="buttons02" type="button" value="排 序(T)" id="btnXMTZ" name="btnXMTZ" accesskey="T">
</tr></table>
</td></tr>
<TR height='100%'><TD nowrap colspan=4 height='100%'>
<iframe src="aXMMBMX.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 + =
减小字号Ctrl + -
显示快捷键?