⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 axymbdz.asp

📁 医院医技科室系统,可以进行医技报告的生成打印,完全的BS结构
💻 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 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.txtXYCJL.value =""
  frmaMB.txtXYDW.value =""
  frmaMB.txtXYTS.value =""
  frmaMB.txtXYYPMC.value =""
  frmaMB.txtXYZJL.value =""
  frmaMB.txtXDW.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 txtXYYPMC_onkeyup
  if window.event.keyCode=13 then
      document.all.mbdz.src="aMENU_mb.asp" 
      window.mbdz.form1.txtinput.value="txtXYYPMC"    
      window.mbdz.form1.txtypmc.value=  frmaMB.txtXYYPMC.value
      window.mbdz.form1.txtxmlx.value="yp" 
      window.mbdz.form1.txtxl.value="xy" 
      window.mbdz.form1.submit
      menu.style.visibility ="visible"
  else   
      menu.style.visibility ="hidden"
  end if  
End Sub

Sub btnXYZJ_onclick
  if frmaMB.txtXYYPMC.value="" then 
    msgbox "请输入要添加的药品！",vbinformation,"提示"
    frmaMB.txtXYYPMC.focus 
    exit sub
  end if
  
  if not isnumeric(frmaMB.txtXYCJL.value) then
    msgbox "请输入次剂量！",vbinformation,"提示"
    frmaMB.txtXYCJL.focus
    exit sub
  end if      
 
  if not isnumeric(frmaMB.txtXYTS.value) then
    msgbox "请输入天数！",vbinformation,"提示"
    frmaMB.txtXYTS.focus
    exit sub
  end if      
  
  if not isnumeric(frmaMB.txtXYZJL.value) then
    msgbox "请输入总剂量！",vbinformation,"提示"
    frmaMB.txtXYZJL.focus
    exit sub
  end if      

  if cdbl(frmaMB.txtXYCJL.value)<=0 then
    msgbox "请输入次剂量,大于零的数字！",vbinformation,"提示"
    frmaMB.txtXYCJL.focus
    exit sub
  end if      
  if cdbl(frmaMB.txtXYTS.value)<=0 then
    msgbox "请输入天数,大于零的数字！",vbinformation,"提示"
    frmaMB.txtXYTS.focus
    exit sub
  end if      
 
  if cdbl(frmaMB.txtXYZJL.value)<=0 then
    msgbox "请输入总剂量,大于零的数字！",vbinformation,"提示"
    frmaMB.txtXYZJL.focus
    exit sub
  end if      
     
    
  if frmaMB.cmbXYRCS.value="" then
    msgbox "请选择药品的日次数！",vbinformation,"提示"
    frmaMB.cmbXYRCS.focus
    exit sub
  end if   

  if frmaMB.cmbXYYF.value="" then
    msgbox "请选择使用方法！",vbinformation,"提示"
    frmaMB.cmbXYYF.focus
    exit sub
  end if      

  if frmaMB.cmbXYPS.value="" then
    msgbox "请选择皮试！",vbinformation,"提示"
    frmaMB.cmbXYPS.focus
    exit sub
  end if      
  
  mx.frmaXYMBMX.hdPD.value="add"
  mx.frmaXYMBMX.hdmbid.value=frmaMB.hdmbid.value
  mx.frmaXYMBMX.hdlxid.value=frmaMB.hdlxid.value 
  mx.frmaXYMBMX.hdbh.value=frmaMB.hdypid.value 
  mx.frmaXYMBMX.hdcsl.value=frmaMB.txtXYCJL.value  
  mx.frmaXYMBMX.hdrcs.value=frmaMB.cmbXYRCS.value 
  mx.frmaXYMBMX.hdts.value=frmaMB.txtXYTS.value 
  mx.frmaXYMBMX.hdsyff.value=frmaMB.cmbXYYF.value 
  mx.frmaXYMBMX.hdps.value=frmaMB.cmbXYPS.value 
  mx.frmaXYMBMX.hdsl.value=frmaMB.txtXYZJL.value
  mx.frmaXYMBMX.hddj.value=frmaMB.txtDJ.value
  mx.frmaXYMBMX.hdje.value=frmaMB.txtJE.value
  mx.frmaXYMBMX.hdrzks.value=frmaMB.hdlyks.value
  mx.frmaXYMBMX.submit
  
  frmaMB.txtDJ.value =""
  frmaMB.txtJE.value =""
  frmaMB.txtXYCJL.value =""
  frmaMB.txtXYDW.value =""
  frmaMB.txtXYTS.value =""
  frmaMB.txtXYYPMC.value =""
  frmaMB.txtXYZJL.value =""
  frmaMB.txtXDW.value=""
  frmaMB.txtXYYPMC.focus 
End Sub

Sub btnXYTZ_onclick
  document.all.mx.src="aXYMBMX.asp"
  mx.frmaXYMBMX.hdPD.value="TZ"
  mx.frmaXYMBMX.hdmbid.value=frmaMB.hdmbid.value
  mx.frmaXYMBMX.submit
End Sub

Sub btnXYSC_onclick
  document.all.mx.src="aXYMBMX.asp"
  mx.frmaXYMBMX.hdPD.value="del"
  mx.frmaXYMBMX.hdmbid.value=frmaMB.hdmbid.value
  mx.frmaXYMBMX.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 cmbXYRCS_onchange
	CALL ZJL_onchange
End Sub

Sub txtXYCJL_onchange
	CALL ZJL_onchange
End Sub
Sub txtXYTS_onchange
	CALL ZJL_onchange
End Sub

SUB ZJL_onchange
	'次剂量判断
	if isempty(frmaMB.txtXYCJL.value) then
	  msgbox "请输入次剂量！",vbinformation,"提示"
	  frmaMB.txtXYCJL.select 
	  exit sub
	end if  
	  
	if not isnumeric(frmaMB.txtXYCJL.value) then  
	  msgbox "请输入数字型的数据！",vbinformation,"提示"
	  frmaMB.txtXYCJL.select 
	  exit sub
	end if
  
	if frmaMB.txtXYCJL.value<=0 then   
	  msgbox "请输入大于零的数据！",vbinformation,"提示"
	  frmaMB.txtXYCJL.select 
	  exit sub
	end if
	'天数判断
	if isempty(frmaMB.txtXYTS.value) then
	  msgbox "请输入天数！",vbinformation,"提示"
	  frmaMB.txtXYTS.select 
	  exit sub
	end if  
  frmaMB.cmbRCSBS.value =frmaMB.cmbXYRCS.value 

	' frmaMB.txtXYZJL.value =INT(INT(cdbl(frmaMB.txtXYCJL.value)*cdbl(frmaMB.txtXYTS.value)*cdbl(frmaMB.cmbRCSBS.options(frmaMB.cmbRCSBS.selectedIndex).text)/CDBL(frmaMB.hdHSGX.value))+0.9999) 
	'IF CINT(frmaMB.hdjx.value)=2 THEN
	'	frmaMB.txtXYZJL.value=int(cdbl(frmaMB.txtXYCJL.value)*cdbl(frmaMB.txtXYTS.value)*cdbl(frmaMB.cmbRCSBS.options(frmaMB.cmbRCSBS.selectedIndex).text)/frmaMB.hdhsgx1.value+0.9999)
	'ELSE
'		frmaMB.txtXYZJL.value=int(cdbl(frmaMB.txtXYCJL.value)*cdbl(frmaMB.txtXYTS.value)*cdbl(frmaMB.cmbRCSBS.options(frmaMB.cmbRCSBS.selectedIndex).text)/frmaMB.hdhsgx1.value+0.9999)
'	END IF
   'msgbox frmaMB.hdjx.value
   'msgbox cdbl(frmaMB.cmbRCSBS.options(frmaMB.cmbRCSBS.selectedIndex).text)
	if cint(frmaMB.hdjx.value)=2 then '针剂
		frmaMB.txtXYZJL.value=int(int(cdbl(frmaMB.txtXYCJL.value)/cdbl(frmaMB.hdhsgx1.value)+0.999)*cdbl(frmaMB.hdhsgx1.value)*cdbl(frmaMB.txtXYTS.value)*cdbl(frmaMB.cmbRCSBS.options(frmaMB.cmbRCSBS.selectedIndex).text)/frmaMB.hdhsgx1.value+0.999)	
	else
		frmaMB.txtXYZJL.value=int(cdbl(frmaMB.txtXYCJL.value)*cdbl(frmaMB.txtXYTS.value)*cdbl(frmaMB.cmbRCSBS.options(frmaMB.cmbRCSBS.selectedIndex).text)/frmaMB.hdhsgx1.value+0.999)	
		'msgbox frmaMB.txtXYZJL.value
	end if

	
	
	frmaMB.txtJE.value=formatcurrency(cdbl(frmaMB.txtDJ.value)*cdbl(frmaMB.txtXYZJL.value),2)
	frmaMB.txtDJ.value =formatcurrency(frmaMB.txtDJ.value,3) 
END SUB



Sub txtXYZJL_onchange
  frmaMB.txtJE.value=formatcurrency(cdbl(frmaMB.txtDJ.value)*cdbl(frmaMB.txtXYZJL.value),2)
End Sub

Sub txtMC_onkeyup
	'Tstr=frmaMB.txtMC.value
	'if window.event.keyCode=65 then
	'	msgbox Tstr,vbokonly+vbinformation,""
	'	frmaMB.txtMC.value=" "
	'	frmaMB.txtMC.value=Tstr
	'end if
End Sub

SUB txtXYCJL_onkeypress
 if window.event.keyCode=13 then 
frmaMB.cmbXYRCS.focus 
end if
END SUB

SUB cmbXYRCS_onkeypress
 if window.event.keyCode=13 then 
frmaMB.txtXYTS.focus 
end if
END SUB
SUB txtXYTS_onkeypress
 if window.event.keyCode=13 then 
frmaMB.btnXYZJ.focus 
end if
END SUB


Sub window_onload
frmaMB.txtXYYPMC.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="hdmblx" name="hdmblx" value="1">
        <input type="hidden" id="hdPD" name="hdPD" value="<%=Request.Form("hdPD")%>">
		<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">
		<input type="hidden" id="hdhsgx1" name="hdhsgx1" value="换算关系1">
		<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 nowrap  width=25px align=right nowrap valign=center><img src="../../images/qp.GIF" width='20px' height='20px' style='cursor:hand' alt='重新登录' onclick=javascript:allwindow()>&nbsp;</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()>&nbsp;</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:0" 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>
	    <td>日次数</td>
	    <td>天数</td>
	    <td>总剂量</td>
	    <td>用法</td>
	    <td>皮试</td>
	  </tr>
	  
	  <tr>
	    <td><input  class="longtext1" type="text" id="txtXYYPMC" name="txtXYYPMC" style="width:150"></td>
	    <td><input class="longtext1"  type="text" id="txtXYCJL" name="txtXYCJL" style="width:35"><input  class="longtext1" type="text" id="txtXYDW" name="txtXYDW" style="width:20" readonly disabled></td>
	    <td><select id="cmbXYRCS" name="cmbXYRCS" 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="txtXYTS" name="txtXYTS" style="width:40"></td>
	    <td><input  class="longtext1" type="text" id="txtXYZJL" name="txtXYZJL" style="width:40"><input   class="longtext1"type="text" id="txtXDW" name="txtXDW" style="width:20" readonly value=""></td>
	    <td><select  class="longtext1" id="cmbXYYF" name="cmbXYYF" style="width:80"><%rstocmb("select syffid,syffmc from yk_tsyff where sfsc=0 and yplx in (0,1) order by syffdh")%></select></td>
	    <td><select id="cmbXYPS" name="cmbXYPS" style="width:60"><%rstocmb("select psid,psmc from ggzd_tps order by psdh")%></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="btnXYZJ" name="btnXYZJ" accesskey="Z">
	    <input class="buttons02"  type="button" value="删 除(X)" id="btnXYSC" name="btnXYSC" accesskey="X">
	    <input class="buttons02" type="button" value="排 序(T)" id="btnXYTZ" name="btnXYTZ" accesskey="T"></td>
	  </tr></table></td></tr>


<TR  height='100%'><TD nowrap  colspan=4  height='100%'>
<iframe src="aXYMBMX.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 + -