📄 afysxmjs.asp

📁 医院医技科室系统,可以进行医技报告的生成打印,完全的BS结构
💻 ASP
📖 第 1 页 / 共 2 页
字号:
上一页 12
<!--
function mouseon(src,clrOver){ 	
		src.style.cursor = 'hand'; 		
		src.bgColor = clrOver; 	
}
function mouseout(src,clrIn)  { 	
		src.style.cursor = 'default'; 
		src.bgColor = clrIn; 	
} 
function fhjg(a,b,c) { 
       zssxmjs.txtxmmc.value =a  
       zssxmjs.txtxmlxid.value  =b
       zssxmjs.txtxmid.value  =c
	   document.all("divzdid").style.visibility="hidden";
	   zssxmjs.txtsl.focus ();
}



//-->
</SCRIPT>
</HEAD>
<OBJECT classid="clsid:BE1D0588-3F5B-11D4-BA7E-00A0C99CA6DE" height=14 id=YhCARD1 style="HEIGHT: 14px; LEFT: 0px; TOP: 0px; WIDTH: 24px" 
	width=24>
	<PARAM NAME="_Version" VALUE="65536">
	<PARAM NAME="_ExtentX" VALUE="635">
	<PARAM NAME="_ExtentY" VALUE="370">
	<PARAM NAME="_StockProps" VALUE="0"></OBJECT>
<BODY>
<FORM action="" method=POST id=zssxmjs name=zssxmjs><INPUT type="hidden" id=txtybkh name=txtybkh>
<INPUT type="hidden" id=txtghsj0 name=txtghsj0>
<INPUT type="hidden" id=txtmzlsh name=txtmzlsh>

<%
txtblh=Request.Form("txtblh")
pdid=Request.Form("pdid")
txtmzh=Request.Form("txtmzh")
txtxm=Request.Form("txtxm")
txtxb=Request.Form("txtxb")
txtnl=Request.Form("txtnl")
txtghsj=Request.Form("txtghsj")
txtjzks=Request.Form("txtjzks")
txtys=Request.Form("txtys")
txtlx=Request.Form("txtlx")
txtlsh=Request.Form("txtlsh")
txtkye=Request.Form("txtkye")
if len(Request.Form("pdid"))=1 then '写患者信息
	sqlstr="select lsh from mz_tbrls,mz_tbr where mz_tbrls.blh=mz_tbr.blh and mz_tbr.mzh='" & Request.Form("txtmzh") & "'"
	set result=conn.Execute(sqlstr)
	if not result.eof then
		sqlstr="select * from v_mzxmwjs where mzh='" & Request.Form("txtmzh") & "' "
		set result1=conn.Execute(sqlstr)
		if not result1.eof then
			txtmzh=result1("mzh")
			txtxm=result1("brxm")
			txtxb=result1("xb")
			txtnl=Year(Date) - Year(result1("CSRQ"))
			txtlx=result1("sflxmc")
			txtkye=result1("syje")
		else
			txtmzh=""
			txtxm=""
			txtxb=""
			txtnl=""
			txtghsj=""
			txtjzks=""
			txtys=""
			txtsflx=""
			txtkye=""
			txtlsh=""
			pdid=""
		end if
		result1.close	
	else
		txtmzh="该病人尚未挂号"
		txtxm=""
		txtxb=""
		txtnl=""
		txtghsj=""
		txtjzks=""
		txtys=""
		txtsflx=""
		txtkye=""
		txtlsh=""
		pdid=""
	end if	
	result.close
end if
if trim(Request.Form("pdid"))="3" or request("pdid")="ybk" then
   if trim(Request.Form("pdid"))="3" then
	sqlstr="select blh, mzh,xm,xb,csrq,sflxmc,syje from view_ykbr where kdh='" & Request.Form("txtkh") &"' "' mzh='" & Request.Form("txtmzh") &"'"'ghsj,ksmc,ysxm,sflxmc
	else
		sqlstr=	"select r.blh,x.csrq,r.mzh,x.xm,x.xb,l.sflxmc,r.syje from mz_tbr r ,ggzd_tsflx l ,mz_tbrxx x where  l.SFLXID=r.sflx  and x.blh=r.blh and mzh='"& Request("txtybkh") & "'"
	end if
	set result=conn.Execute(sqlstr)
	if not result.eof then
	txtblh=result("blh")
		txtmzh=result("mzh")
		txtxm=result("xm")
		txtxb=result("xb")
		txtnl=year(date)-year(result("csrq"))
		txtlx=result("sflxmc")
		txtkye=result("syje")
	else
		txtxm=""
		txtxb=""
		txtnl=""
		txtlx=""
		txtjzks=""
		txtys=""
	end if
	result.close
end if
%><div id=divtable >
<TABLE BORDER=1  bgcolor="#cce8d6" bordercolorlight=#000000 bordercolordark=#ffffff CELLSPACING=1 CELLPADDING=1>
<TR><TD>

	
	<TABLE BORDER=0  bgcolor="#cce8d6" bordercolorlight=#000000 bordercolordark=#ffffff CELLSPACING=1 CELLPADDING=1>
	<TR>
		<td rowspan=2>
		<INPUT type="button" value="读卡(D)" accesskey="D" id=cmddk name=cmddk style="HEIGHT: 30px; WIDTH: 40px">
		</td>
		<TD nowrap align=right>门&nbsp;诊&nbsp;号<INPUT id=txtmzh name=txtmzh style="HEIGHT: 18px; WIDTH: 105px"  value="<%=txtmzh%>"></TD>
		<TD nowrap align=right>姓&nbsp;&nbsp;&nbsp;&nbsp;名<INPUT id=txtxm name=txtxm style="border-left-style:none;border-top-style:none;border-right-style:none;border-bottom:1px outset green background;background-color:transparent; WIDTH: 80;"  readonly value="<%=txtxm%>"></TD>
		<TD nowrap align=right>性别<INPUT id=txtxb name=txtxb style="border-left-style:none;border-top-style:none;border-right-style:none;border-bottom:1px outset green background;background-color:transparent; WIDTH: 80;"  readonly value="<%=txtxb%>"></TD>
		<TD nowrap align=right>年龄<INPUT id=txtnl name=txtnl style="border-left-style:none;border-top-style:none;border-right-style:none;border-bottom:1px outset green background;background-color:transparent; WIDTH: 80;"  readonly value="<%=txtnl%>"></TD>
	</TR>
	<TR>
		<TD nowrap align=right>挂号时间<SELECT id=cmbghsj name=cmbghsj style="HEIGHT: 18px; WIDTH: 105px">
		<option>-请选择-</option>
	<%
'	if trim(Request.Form("pdid"))="1" or trim(Request.Form("pdid"))="3" or trim(Request.form("pdid"))="2" then
		if Request("pdid")="ybk" then  
	    	sqlstr="select distinct top 10 s.lsh,ksmc,r.xm as ysxm,g.mzlsh0,g.ghsj from yb_tbr y ,mz_tbr m, mz_tbrls s ,ggzd_tks k ,ggzd_tgzry r ,yb_tgh g where g.cardno =y.cardno and   k.ksid=s.ghks and s.ys=r.ryid and y.blh=m.blh and m.blh=s.blh and y.cardno='"&txtmzh&"'  and g.lsh=s.lsh   order by s.lsh desc"
		else
		    sqlstr="select distinct top 10 lsh as lsh,ghsj,ksmc,ysxm from v_ykbrzss where mzh='" & txtmzh & "'  order by lsh desc"'and syff in (4,6,15,57,58)
		end if
		set result=conn.Execute(sqlstr)
		if not result.eof then
			if txtlsh="" then
				txtlsh=len(txtlsh)
			end if	
			do while not result.eof 
				if result("lsh")=cint(txtlsh) then
				      if Request.Form("pdid")="ybk" then 
							 Response.Write "<OPTION value="&result("lsh")&","&result("mzlsh0")&"!"&result("ksmc")&"?"&result("ysxm")&" selected>"&result("lsh")&"|"&result("ghsj")&"</OPTION>"
						else
					         Response.Write "<OPTION value="&result("lsh")&","&result("ksmc")&"?"&result("ysxm")&" selected>"&result("lsh")&"|"&result("ghsj")&"</OPTION>"
				        end if
				else
						if Request.Form("pdid")="ybk" then  
					    	Response.Write "<OPTION value="&result("lsh")&","&result("mzlsh0")&"!"&result("ksmc")&"?"&result("ysxm")&">"&result("lsh")&"|"&result("ghsj")&"</OPTION>"
						else
					    	Response.Write "<OPTION value="&result("lsh")&","&result("ksmc")&"?"&result("ysxm")&">"&result("lsh")&"|"&result("ghsj")&"</OPTION>"
						end if
				end if
				result.movenext
			loop
		end if
'	end if	
	%>	
		</SELECT></TD>
		<TD nowrap align=right>就诊科室<INPUT id=txtjzks name=txtjzks style="border-left-style:none;border-top-style:none;border-right-style:none;border-bottom:1px outset green background;background-color:transparent; WIDTH: 80;"  readonly value="<%=txtjzks%>"></TD>
		<TD nowrap align=right>医师<INPUT id=txtys name=txtys style="border-left-style:none;border-top-style:none;border-right-style:none;border-bottom:1px outset green background;background-color:transparent; WIDTH: 80;"  readonly value="<%=txtys%>"></TD>
		<TD nowrap align=right>类型<INPUT id=txtlx name=txtlx style="border-left-style:none;border-top-style:none;border-right-style:none;border-bottom:1px outset green background;background-color:transparent; WIDTH: 80;"  readonly value="<%=txtlx%>"></TD>
	</TR>
	<TR>
		<TD colspan=5 align=middle  bgcolor=3399ff>医生处方</TD>
	</TR>
	<TR>
		<TD colspan=5 align=middle>
		<iframe name=framename id=framename width=580 height=150 src=azssxmwjsmx.asp>
		</iframe>
		</td>
	<TR >
		<TD colspan=5 >医保帐户余额<INPUT  id=txtgrzhye name=txtgrzhye readonly style="border-left-style:none;border-top-style:none;border-right-style:none;border-bottom:1px outset green background;background-color:transparent; WIDTH: 60;"  value="<%=request("txtgrzhye")%>" >卡余额
		<INPUT type="text" id=txtkye name=txtkye readonly style="border-left-style:none;border-top-style:none;border-right-style:none;border-bottom:1px outset green background;background-color:transparent; WIDTH: 60;"  value="<%=txtkye%>">
		<INPUT type="button" value="增加附属项目(A)" accesskey="A" accesskey="A" id=cmdzjfz name=cmdzjfz style="width:110" >
		<INPUT type="button" value="删除附属项目(S)" accesskey="S" id=cmdscfz name=cmdscfz style="width:100">
		
	</TR>
	<tr>
		<td align=middle colspan=5>
		<iframe name=framename1 id=framename1 width=580 height=150 src=azssxmjsmx.asp >
		</iframe>
		</td>
	</tr>
	</TABLE>
</div>
<div id=table2 style="VISIBILITY: hidden ;LEFT: 63px; POSITION: absolute; TOP: 80px; Z-INDEX: 100">
	<iframe name=framename2 id=framename2 width=450 height=250 border=0 frameborder=0 src=azsszjxm.asp>
	</iframe>
</div>
<div id=table3 style="VISIBILITY: hidden ;LEFT: 63px; POSITION: absolute; TOP: 80px; Z-INDEX: 100">
	<iframe name=framename3 id=framename3 width=450 height=250 border=0 frameborder=0 src=azsspsjg.asp>
	</iframe>
</div>
<INPUT type="hidden"   id=txtblh name=txtblh value="<%=txtblh%>">
<INPUT type="hidden" id=pdid name=pdid value="<%=pdid%>">
<INPUT type="hidden" id=pdid1 name=pdid1>
<INPUT type="hidden" id=txtxmlxid name=txtxmlxid  value="<%=txtxmlxid%>">
<INPUT type="hidden" id=txtxmid name=txtxmid value="<%=txtxmid%>">
<INPUT type="hidden" id=txtlsh name=txtlsh value="<%=txtlsh%>">
<INPUT type="hidden" id=txtkh name=txtkh>
<INPUT type="hidden" id=hdpd name=hdpd>
</form>
</FONT>
</BODY>
</HTML>
上一页 12
💿 文件大小 169 K
👤 上传用户 cando99
📂 所属分类医药行业
🏷️ 相关标签

#报告 #打印 #BS结构
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -