ayjksgh.asp
来自「医院医技科室系统,可以进行医技报告的生成打印,完全的BS结构」· ASP 代码 · 共 187 行
ASP
187 行
<!-- #INCLUDE FILE="../../share\connectdb3.asp" -->
<!--#include file=../../pubfunction.asp-->
<!--#include file=../../aickcz.asp-->
<%
ssql1="select ryid as col1,xm as col2,rzks as col3 from GGZD_tgzry where ryzt=1 and cfqx=1 "
ssql=array(ssql1)
arrname="ARR"
changecmb ssql,1,arrname
ys=Request.Form("cmbys")
blh=Request.Form("txtblh")
jzks=Request.Form("cmbjzks")
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,xx,sfdyb
strKH=dickhm("<%=yyxx%>")
'msgbox strKH
if strKH="" then strKH="CC"
form1.txtKH.value = strKH
form1.pdid.value="dk"
form1.submit
End Sub
Sub cmdgh_onclick
if form1.cmbys.value="-1" then
msgbox "请选择医师！",vbokonly+vbinformation,"提示"
exit sub
end if
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%>' >
<TR>
<TD >就诊科室</td><td ><select id=cmbjzks name=cmbjzks style= "HEIGHT: 20px; WIDTH: 100px" onchange="fillSelectFromArray(cmbys,this,ARR[0])">
<option value=-1>-请选择-
<%
ssql="select distinct ksdh,ksid,ksmc from ggzd_tks a,ggzd_tgzry b where a.ksid>0 and a.ksid=b.rzks and b.ryzt=1 and b.cfqx=1 and a.sfsc=0 order by a.ksdh "
rs.Open ssql,conn,3,1
do while not rs.eof
'if cstr(cmbjzks)=cstr(rs("ksid")) then
'Response.Write "<OPTION value="&rs("ksid")&" selected>" &rs("ksmc")&"</OPTION>"
'else
Response.Write "<OPTION value="&rs("ksid")&" >" &rs("ksmc")&"</OPTION>"
'end if
rs.movenext
loop
rs.close
set rs=nothing
%>
</TD>
<TD >医师</td><td ><select id=cmbys name=cmbys style= "HEIGHT: 20px; WIDTH: 100px">
<option value=-1>-请选择-
</TD>
<TD align=middle colspan=4><INPUT class="buttons02" type="button" value="读卡(D)" accesskey="D" id=cmddk name=cmddk style="HEIGHT: 24px; WIDTH: 71px">
<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 + =
减小字号Ctrl + -
显示快捷键?