📄 amztxm.asp
字号:
<% if session("yhid")="" then
Response.Write "<CENTER><font color=red>请重新登录</font></center>"
Response.End
end if
dim conn,rs
set conn=server.CreateObject ("adodb.connection")
conn.Open application("sconn")
set rs=server.CreateObject ("adodb.recordset")
icob=Request.Form("coblsh")
imzh=Request.Form("txtmzh")
%>
<html>
<head>
<meta name="VI60_defaultClientScript" content="VBScript">
<meta NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style>
<!--
table
{
FONT-FAMILY:宋体;
FONT-SIZE: 10pt
}
INPUT
{
FONT-FAMILY:宋体;
FONT-SIZE: 9pt
}
SELECT
{
FONT-FAMILY:宋体;
FONT-SIZE: 9pt
}
-->
</style>
<base>
<script ID="clientEventHandlersVBS" LANGUAGE="vbscript">
<!--
Sub btnTY_onclick
if form1.txttxmsl.value ="" then
msgbox "请输入退项目数量",64,"提示"
exit sub
end if
if cdbl(form1.txttxmsl.value)<=0 then
msgbox "请输入大于零的数字",64,"提示"
exit sub
end if
if cdbl(form1.txttxmsl.value) > cdbl(form1.txtsl.value) then
msgbox "可退数量应小于项目数量",64,"提示"
exit sub
end if
window.frazjh.form1.txtsl.value=form1.txttxmsl.value
window.frazjh.form1.txtdj.value=form1.txtdj.value
window.frazjh.form1.txtje.value=form1.txtje.value
window.frazjh.form1.txtxmmc.value=form1.txtxm.value
window.frazjh.form1.txtyzid.value=form1.txtyzid.value
window.frazjh.form1.txtxms.value="txm"
window.frazjh.form1.submit
End Sub
Sub btnSC_onclick
window.frazjh.form1.txttkid.value=form1.txttkid.value
window.frazjh.form1.txtxms.value="sc"
window.frazjh.form1.submit
window.upmenu.form1.submit
End Sub
Sub btnSh_onclick
if msgbox("你确定要审核项目吗？",64+vbokcancel,"提示")=vbok then
window.frazjh.form1.txttkid.value=form1.txttkid.value
window.frazjh.form1.txtxms.value="sh"
window.frazjh.form1.txtlsh.value=window.fraupmenu.form1.cmbghsj.value
'MSGBOX window.fraupmenu.form1.cmbghsj.value
window.frazjh.form1.submit
window.upmenu.form1.submit
end if
End Sub
Sub txttxmsl_onchange
form1.txtje.value =cdbl(form1.txttxmsl.value) *cdbl(form1.txtdj.value)
End Sub
-->
</script>
</head>
<body TOPMARGIN=0 LEFTMARGIN=0 >
<table border="1" bordercolorlight="black" bordercolordark="white" bgcolor="#cce8d6" cellspacing="0" cellpadding="0" width="600">
<tr bgcolor="#3399ff">
<td align="middle"><font color="white">门诊病人退款</font>
</td></tr>
<tr><td>
<form action method="POST" id="form1" name="form1">
<input type="hidden" id="txttkid" name="txttkid">
<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="txtxtdj" name="txtxtdj">
<input type="hidden" id="txtxmlx" name="txtxmlx">
<table border="0" cellPadding="0" cellSpacing="0" width="600" style="WIDTH: 600px">
<tr><td colspan="5"><iframe id="fraupmenu" name="fraupmenu" frameborder="0" border="0" noresize color="#cce8d6" width="600" height="22" src="aMZTXMdk.asp">
</iframe> </td></tr></table>
<table border="0" cellPadding="0" cellSpacing="0" width="100%">
<tr>
<td width="30">医生</td>
<td><input id="txtYS" name="txtYS" readOnly style="BACKGROUND-COLOR: #cce8d6; BORDER-LEFT-STYLE: none; BORDER-RIGHT-STYLE: none; BORDER-TOP-STYLE: none; WIDTH: 80px ;COLOR: mediumblue; FONT-VARIANT: normal"></td>
<td>项目</td>
<td><input type="text" id="txtxm" name="txtxm" style="BACKGROUND-COLOR: #cce8d6; BORDER-LEFT-STYLE: none; BORDER-RIGHT-STYLE: none; BORDER-TOP-STYLE: none; WIDTH: 115px;COLOR: red;" readOnly> </td>
<td>数量</td>
<td><input id="txttxmsl" name="txttxmsl" style="WIDTH: 35px" style="BACKGROUND-COLOR: #cce8d6; BORDER-LEFT-STYLE: none; BORDER-RIGHT-STYLE: none; BORDER-TOP-STYLE: none; WIDTH: 36px ;COLOR: red;" ></td>
<td>金额</td>
<td><input id="txtje" name="txtje" style="BACKGROUND-COLOR: #cce8d6; BORDER-LEFT-STYLE: none; BORDER-RIGHT-STYLE: none; BORDER-TOP-STYLE: none; WIDTH: 36px ;COLOR: red;" readOnly></td>
<td align="right" colspan="3"> <input type="button" value="退项目" id="btnTY" name="btnTY" style="WIDTH: 60px"> </td>
</tr>
</table>
</td></tr>
<tr>
<td>
<iframe id="upmenu" name="upmenu" frameborder="1" border="1" noresize color="#cce8d6" width="600" height="180" src="aMZTXMup.asp">
</iframe>
</td>
</tr>
<tr><td>
<table border="0" cellspacing="0" cellpadding="0" style=" WIDTH: 600px">
<tr>
<td bgcolor=DarkCyan >
<input type="button" value="删 除(S)" accesskey= id="btnSC" name="btnSC" style="LEFT: 60px; TOP: 1px ">
<td bgcolor=DarkCyan >
<input type="button" value="退款审核(H)" accesskey=H id="btnSh" name="btnsh" style="LEFT: 60px; TOP: 1px ">
</td>
</tr>
</table>
<tr>
<td>
<iframe id="frazjh" name="frazjh" frameborder="1" border="1" noresize width="600" height="150" color="#ffffff" src="aMZTXMdown.asp">
</iframe>
</td>
</tr>
<tr><td color=red><FONT color=red><b>注意：医保病人处方如已发送到医保中心，必须通知收费处用医保接口冲销后才能退款！！！</tr>
</table>
</form>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -