📄 anewmbyy.asp
字号:
<%@ Language=VBScript %>
<!-- #INCLUDE FILE="../../share\connectdb.asp" -->
<!--#include file=../../pubfunction.asp-->
<%
set rs=server.CreateObject("adodb.recordset")
rzks=Request.Form("hdrzks")
%>
<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 txtSL_onchange
frmaMB.txtJE.value =formatcurrency(cdbl(frmaMB.txtDJ.value)*cdbl(frmaMB.txtSL.value),2)
frmaMB.txtDJ.value =formatcurrency(frmaMB.txtDJ.value,3)
End Sub
Sub btnQX_onclick
xmxg.style.visibility="hidden"
End Sub
Sub btnFH_onclick
parent.window.mbdiv.style.visibility ="hidden"
' if frmaMB.hdLRZT.value="1" then
' frmaMB.action="aZYYZXYMX.asp"
' else
' if frmaMB.hdLRZT.value ="2" then
' frmaMB.action ="aZYYZZYMX.asp"
' else
' frmaMB.action="aZYYZXMMX.asp"
' end if
'end if
'frmaMB.hdPD.value="CX"
'frmaMB.submit
End Sub
Sub cmbMBMC_onchange
dim intMBLX
frmaMB.cmbMBLX.value=frmaMB.cmbMBMC.value
intMBLX=cint(frmaMB.hdLRZT.value) 'cInt(frmaMB.cmbMBLX.options(frmaMB.cmbMBLX.selectedIndex).text)
if (intMBLX=1) then
document.all.mx.src="aXYMBMX.asp?mbfs=dk&hdmbid="+frmaMB.cmbMBMC.value
elseif (intMBLX=2) then
document.all.mx.src="aZYMBMX.asp?mbfs=dk&hdmbid="+frmaMB.cmbMBMC.value
else
document.all.mx.src="aXMMBMX.asp?mbfs=dk&hdmbid="+frmaMB.cmbMBMC.value
end if
End Sub
Sub btnYY_onclick
dim intMBLX,i
frmaMB.cmbMBLX.value =frmaMB.cmbMBMC.value
intMBLX=cint(frmaMB.hdLRZT.value)'cint(frmaMB.cmbMBLX.options(frmaMB.cmbMBLX.selectedIndex).text)
'--------------------------
i=0
if cint(intMBLX)=1 then
for each lrid in mx.form1.chk
if not isnull(lrid) then
if lrid.checked=true then
i=1
exit for
end if
end if
next'
elseif cint(intMBLX)=2 then
for each lrid in mx.form1.chk
if not isnull(lrid) then
if lrid.checked=true then
i=1
exit for
end if
end if
next'
elseif cint(intMBLX)=3 then
for each lrid in mx.form1.chk
if not isnull(lrid) then
if lrid.checked=true then
i=1
exit for
end if
end if
next'
end if
if cint(i)=0 then
msgbox "请选中你要应用的项目",vbinformation,"提示"
exit sub
end if
'----------------------------
IF isnull(trim(frmaMB.cmbMBMC.value)) THEN frmaMB.cmbMBMC.value=0
IF NOT ISNUMERIC(frmaMB.cmbMBMC.value) THEN
MSGBOX "请输入整数!"
exit sub
END IF
if (intMBLX=1) then
mx.form1.hdLSH.value=frmaMB.hdLSH.value
mx.form1.hdKZYS.value=frmaMB.cmbKZYS.value
mx.form1.hdrzks.value=frmaMB.hdrzks.value
mx.form1.hdts.value=clng(frmaMB.txtts.value)
mx.form1.hdPD.value="app"
mx.form1.hdmbid.value=frmaMB.cmbMBMC.value
mx.form1.hdye.value=frmaMB.hdye.value
mx.form1.submit
else
if (intMBLX=2) then
mx.form1.hdLSH.value=frmaMB.hdLSH.value
mx.form1.hdKZYS.value=frmaMB.cmbKZYS.value
mx.form1.hdts.value=clng(frmaMB.txtts.value)
mx.form1.hdPD.value="app"
mx.form1.hdmbid.value=frmaMB.cmbMBMC.value
mx.form1.hdye.value=frmaMB.hdye.value
mx.form1.submit
else
mx.form1.hdLSH.value=frmaMB.hdLSH.value
mx.form1.hdKZYS.value=frmaMB.cmbKZYS.value
mx.form1.hdPD.value="app"
mx.form1.hdmbid.value=frmaMB.cmbMBMC.value
mx.form1.hdye.value=frmaMB.hdye.value
mx.form1.submit
end if
end if
parent.frmJSMX.form1.txtlsh.value=parent.form1.txtlsh.value
parent.frmJSMX.form1.pdid.value=5
parent.frmJSMX.form1.submit
End Sub
Sub btnQX1_onclick
dim intMBLX,lrid
frmaMB.cmbMBLX.value =frmaMB.cmbMBMC.value
intMBLX=cint(frmaMB.hdLRZT.value)'cint(frmaMB.cmbMBLX.options(frmaMB.cmbMBLX.selectedIndex).text)
if cint(intMBLX)=1 then
for each lrid in mx.form1.chk
if not isnull(lrid) then
lrid.checked=true
end if
next'
elseif cint(intMBLX)=2 then
for each lrid in mx.form1.chk
if not isnull(lrid) then
lrid.checked=true
end if
next'
elseif cint(intMBLX)=3 then
for each lrid in mx.form1.chk
if not isnull(lrid) then
lrid.checked=true
end if
next'
end if
End Sub
-->
</SCRIPT>
</HEAD>
<BODY leftmargin=0 topmargin=0>
<form action id="frmaMB" method="post" name="frmaMB">
<input id="hdLSH" name="hdLSH" type="hidden">
<input id="hdLRZT" name="hdLRZT" type="hidden">
<input id="hdPD" name="hdPD" type="hidden">
<input id="hdXMLX" name="hdXMLX" type="hidden">
<input id="hdye" name="hdye" type="hidden" value="<%=Request.Form("hdye")%>">
<input id="hdrzks" name="hdrzks" type="hidden" value="<%=rzks%>">
<table border="1" bordercolorlight="#000000" bordercolordark="#FFFFFF" cellpadding="0" cellspacing="0" width="590" align=left>
<tr><td bgcolor="#CCE8D6" align="center">
<table align="center" border="0" cellspacing=0 cellpadding=1 width=590>
<tr>
<td width="80">模板名称:</td>
<td width="160">
<SELECT id=cmbMBMC name=cmbMBMC style="width:150"><option value=0 selected>--请选择模板名称--</option>
<% sql="select distinct ggzd_tyzcfmb.mbid,mbmc,syz,mbdh from ggzd_tyzcfmb,ggzd_tyzcfmbnr,ggzd_txmbm where ggzd_tyzcfmb.mbid=ggzd_tyzcfmbnr.mbid"
sql=sql&" and ggzd_txmbm.xmid=ggzd_tyzcfmbnr.bh and ggzd_tyzcfmbnr.xmlx>3 and (rzks=0 or rzks="&session("rzks")&")"
sql=sql&" and (syz=" & session("yhid")& " or ks="&session("rzks")&" or syz=0 ) and mblx=" & cint(Request.Form ("hdXMLX")) &" order by syz desc,mbdh "
rs.Open sql,conn,3,1
do until rs.EOF
Response.Write "<option value=" & cint(rs("mbid")) &">" & trim(rs("mbmc")) &"</option>"
rs.MoveNext
loop
rs.Close
%></option></SELECT>
</td>
<%
'Response.Write sql
if cint(Request.Form ("hdXMLX"))=2 then %>
<td width="70">中药剂数：</td>
<td><b><INPUT type="text" style="HEIGHT: 22px;width=40;" id=txtts name=txtts value=1 ></td>
<%elseif cint(Request.Form ("hdXMLX"))=1 then %>
<td width="70">西药天数：</td>
<td><b><INPUT type="text" style="HEIGHT: 22px;width=40;" id=txtts name=txtts value=1 ></td>
<%else %>
<td width="110"> </td>
<%end if %>
<td width="20"><INPUT type="button" value="全选(A)" id=btnQX1 name=btnQX1 class=buttons02 accesskey=a></td>
<td width="50"><INPUT type="button" value="应用(Y)" id=btnYY name=btnYY class=buttons02 accesskey=y></td>
<td width="50"><INPUT type="button" value="关闭(F)" id=btnFH name=btnFH class=buttons02 accesskey=f></td>
<td width="50">
<SELECT id=cmbMBLX name=cmbMBLX style="width:0px;height:0px"><option value=0 selected>1</option></SELECT>
<!--<input type="hidden" id="hdmbid" name="hdmbid" value=0>-->
</td>
<td width="0"><SELECT id=cmbKZYS name=cmbKZYS style="width:0"><%
sql="select ryid,xm from ggzd_tgzry where ryid=" & session("yhid") &" order by xm"
rs.Open sql,conn
do until rs.EOF
if cint(rs("ryid"))=cint(session("yhid")) then
Response.Write "<option value="&cint( rs("ryid")) & " selected >" & trim(rs("xm")) & "</option>"
else
Response.Write "<option value="&cint( rs("ryid")) & " >" & trim(rs("xm")) & "</option>"
end if
rs.MoveNext
loop
rs.Close %></SELECT></td>
</tr>
</table>
</td></tr>
<tr><td bgcolor="#3399ff">
<iframe src="aXMMBMX.asp?hdmbid=0" id="mx" name="mx" width="590" height="280" frameborder="0" align="left"></iframe>
</td></tr></table>
</form>
<SCRIPT LANGUAGE=vbscript>
<!--
frmaMB.hdLRZT.value ="<%=Request.form("hdXMLX")%>"
frmaMB.hdLSH.value ="<%=Request.form("hdLSH")%>"
-->
</SCRIPT>
</BODY>
</HTML>
<% set rs=nothing
set conn=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -