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

📄 azssgh.asp

📁 医院医技科室系统,可以进行医技报告的生成打印,完全的BS结构
💻 ASP
字号:
🔍 
<!-- #INCLUDE FILE="../../share\connectdb3.asp" -->
<!--#include file=../../pubfunction.asp-->

<!--#include file=../../aickcz.asp-->
<%


ys=session("yhid")
blh=Request.Form("txtblh")
jzks=session("rzks")
 set rs=server.CreateObject("adodb.recordset") 
if Request.Form("pdid")="dk"  or request("pdid")="ybk" then

	  
	if request("pdid")="dk" then
		ssql="select blh,mzh,xm,xb,sflxmc,syje,sflx as sflxid,csrq,HZYLSYJE,YBSYJE,klxmc,dh,dzyb from view_ykbr where kdh='"& Request.Form("txtkh") & "' or bz='" & Request.Form("txtKH") & "'"
	else
		ssql="select r.blh,r.mzh,x.xm,x.xb,l.sflxmc,r.syje,l.SFLXID,csrq,HZYLSYJE,YBSYJE,'医保' as klxmc,dh,dzyb from mz_tbr r ,ggzd_tsflx l ,mz_tbrxx x ,mz_tbrls s where  l.SFLXID=s.sflx  and s.blh=r.blh  and x.blh=r.blh and mzh='"& Request("txtybkh") & "'"
	end if
	rs.Open ssql,conn,3,1
	if rs.RecordCount >0 then 
		blh=rs("blh")
		mzh=rs("mzh")
		xm=rs("xm")
		xb=rs("xb")
		sflxmc=rs("sflxmc")
	    HZYLSYJE=rs("HZYLSYJE")
	    YBSYJE=rs("YBSYJE")
		syje=rs("syje")
		csrq=computage(rs("csrq"))
		klxmc=rs("klxmc")
		dh=rs("dh")
		dzyb=rs("dzyb")
	end if
	
	rs.close
	
end if	
if Request.Form("pdid")="gh" then
    dim fhxx
    fhxx=""
    fhxx=funSavegh(jzks,ys,blh,application("yjghid")) 
   
    if fhxx<>"" then 
		Response.Write "<center><font color=red>"&fhxx&"</font></center>"
    else
	    Response.Write "<center><font color=red>成功挂号</font></center>"
    end if

    
	
end if



function funSavegh(jzks,jzys,blh,yjghid)

    if trim(jzks)="" or trim(jzys)="" or trim(blh)="" then exit function
  ' Response.Write jzks&","&jzys&","&blh&","&yjghid
	dim comm
	set comm=server.CreateObject("adodb.command")
	comm.ActiveConnection=conn
	comm.CommandType=4
	comm.CommandText="proc_yjgh"
	comm.Parameters("@jzks")=jzks
	comm.Parameters("@jzys")=jzys
	comm.Parameters("@blh")=blh
	comm.Parameters("@yjghid")=yjghid
	comm.Parameters("@jg")=""
	comm.Execute 
	
	funSavegh=comm.Parameters("@jg")' 
	set comm=nothing 
end function
%>

<HTML>
<HEAD>
<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 cmdDK_onclick
    'form1.select1.value=""
    form1.txtkh.value=""
   dim strKH
    
    strKH=dickhm("<%=yyxx%>")
   ' msgbox "<%=yyxx%>"
    if strKH="" then strKH="CC"
    if trim(strKH)="CC" then exit sub
    form1.txtKH.value = strKH
	form1.pdid.value="dk"
    form1.submit
   
End Sub


Sub cmdgh_onclick
   
   
	if trim(form1.txtmzh.value)="" then
		msgbox "没有病人，请确认!",vbinformation,"提示"
		exit sub
	end if
	if trim(form1.txtxm.value)="" then
		msgbox "没有病人，请确认!",vbinformation,"提示"
		exit sub
	end if
	
	form1.pdid.value="gh"
	form1.submit 
End Sub
-->
</SCRIPT>
</HEAD>


<BODY topmargin=0 leftmargin=0 scroll=no>
<FORM action="" method=POST id=form1 name=form1>


<INPUT type="hidden" id=txtblh  name=txtblh value='<%=blh%>'>

<INPUT type="hidden" id=txtkh  name=txtkh >
<INPUT type="hidden" id=pdid  name=pdid >

<table width='100%'  border=0 cellspacing="0" cellpadding="0"  bgcolor="<%=tableBGCOLOR%>">
<TR><TD nowrap  colspan=4>
<table align="left" border="0" cellPadding="0" cellSpacing="0" width="100%">
<TR><TD nowrap>门诊号:</TD><TD nowrap><INPUT id=txtMZH name=txtMZH style="WIDTH:70px; " class=transparenttext READONLY value='<%=mzh%>' >
<TD nowrap>姓名:</TD><TD nowrap><INPUT id=txtXM name=txtXM  style="WIDTH: 60px;"   class=transparenttext READONLY  value='<%=xm%>'></TD>
<TD nowrap>性别:</TD><TD nowrap><INPUT id=txtXB name=txtXB  style="WIDTH: 20px; " class=transparenttext  READONLY  value='<%=xb%>' ></TD>
<TD nowrap>年龄:</TD><TD nowrap><INPUT id=txtNL name=txtNL   style="WIDTH: 50px; " class=transparenttext  READONLY   value='<%=csrq%>'></TD>

<TD nowrap>IC卡余额:</TD><TD nowrap><INPUT id=txtBYYE name=txtBYYE style="WIDTH: 40px; " class=transparenttext  READONLY value='<%=syje%>'  ></td>
<TD nowrap>医保余额:</TD><TD nowrap><INPUT id=txtYBYE name=txtYBYE style="WIDTH: 40px; " class=transparenttext  READONLY value='<%=YBSYJE%>' ></td>
<TD nowrap >合作医疗余额:</TD><TD nowrap><INPUT id=txtHZYLYE name=txtHZYLYE style="WIDTH: 40px; " class=transparenttext  READONLY value='<%=HZYLSYJE%>' ></td>
</tr><TR>
<TD nowrap>收费类型:</TD><TD nowrap><INPUT id=txtSFLX name=txtSFLX   style="WIDTH: 60px; " class=transparenttext  READONLY  value='<%=sflxmc%>' ></TD>

<TD nowrap>卡类型:</TD><TD nowrap><INPUT id=txtKLX name=txtKLX style="WIDTH: 60px; " class=transparenttext  READONLY  value='<%=klxmc%>' ></td>
<TD nowrap>电话:</TD><TD nowrap><INPUT id=txtDH name=txtDH style="WIDTH: 60px; " class=transparenttext  READONLY  value='<%=dh%>' ></td>
<TD nowrap>地址:</TD><TD nowrap colspan=4><INPUT id=txtDZ name=txtDZ style="WIDTH: 200px; " class=transparenttext  READONLY  value='<%=dzyb%>'  >

		<TD align=middle colspan=4><INPUT  class="buttons02"  type="button" value="读卡(D)" accesskey="D" id=cmddk name=cmddk style="HEIGHT: 24px; WIDTH: 71px">&nbsp;&nbsp;
		<INPUT class="buttons02"  type="button" value="挂号(G)" accesskey="G" id=cmdgh name=cmdgh style="HEIGHT: 24px; WIDTH: 71px"></TD>
	</TR>
</TABLE>
</TABLE>

</form>
</BODY>
</HTML>


<%
set rs=nothing
conn.close
set conn=nothing
%>

⌨️ 快捷键说明

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