📄 amztxmdk.asp
字号:
<!-- #INCLUDE FILE="../../share\connectdb.asp" -->
<!--#include file=../../pubfunction.asp-->
<%
if session("yhid")="" then
Response.Write "<CENTER><font color=red>请重新登录</font></center>"
Response.End
end if
set rs=server.CreateObject ("adodb.recordset")
mzh=Request("txtmzh")
kh=Request("txtkh")
%>
<!--#include file=../../aickcz.asp-->
<HTML>
<HEAD>
<META name=VI60_defaultClientScript content=VBScript>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<SCRIPT ID=clientEventHandlersVBS LANGUAGE=vbscript>
<!--
Sub txtmzh_onkeypress
if window.event.keyCode =13 and form1.txtmzh.value<>"" then
'form1.txtmzh.value =right("00000000"&form1.txtmzh.value,8)
form1.submit
end if
End Sub
Sub cmddk_onclick
dim strKH
strKH=dickhm("<%=yyxx%>")
' msgbox "<%=yyxx%>"
if strKH="" then strKH="CC"
if trim(strKH)="CC" then exit sub
form1.txtKH.value = strKH
form1.hdPD.value ="DK"
form1.submit
End Sub
Sub cmbghsj_onchange
form1.hdPD.value ="ghsj"
form1.submit
End Sub
-->
</SCRIPT>
<!--#include file=../../ggmk.asp-->
<script type="text/vbscript" src="../../ggmk.vbs"></script>
<style>
<!--
table
{
FONT-FAMILY:宋体;
FONT-SIZE: 10pt
}
INPUT
{
FONT-FAMILY:宋体;
FONT-SIZE: 9pt
}
SELECT
{
FONT-FAMILY:宋体;
FONT-SIZE: 9pt
}
-->
</style>
<link rel="stylesheet" type="text/css" href="../../style/style.css" >
<link rel="stylesheet" type="text/css" href="../../style/table.css" >
</HEAD>
<BODY leftmargin=0 topmargin=0 >
<FORM action="" method=POST id=form1 name=form1><INPUT type="hidden" id=hdPD name=hdPD>
<INPUT type="hidden" id=txtkh name=txtkh value="<%=kh%>">
<TABLE border=0 cellPadding=0 cellSpacing=0 width=100% >
<TR>
<TD>门诊号</TD>
<TD>
<INPUT class="longtext1" id=txtmzh name=txtmzh style="WIDTH: 80px;" disabled value="<%=mzh%>">
</TD>
<TD align=center> 姓名</TD>
<TD><INPUT id=txtXM name=txtXM
style=" BORDER-LEFT-STYLE: none; BORDER-RIGHT-STYLE: none; BORDER-TOP-STYLE: none; COLOR: mediumblue; FONT-VARIANT: normal;
FONT-WEIGHT: bold;
HEIGHT:
18px;
WIDTH:
75px"
readonly
></TD>
<TD>
性别</TD>
<TD><INPUT id=txtXB name=txtXB
style=" BORDER-LEFT-STYLE: none; BORDER-RIGHT-STYLE: none; BORDER-TOP-STYLE: none; COLOR: mediumblue; FONT-VARIANT: normal; FONT-WEIGHT: bold;
WIDTH:
20px"
readonly ></TD>
<TD>
年龄</TD>
<TD><INPUT id=txtS name=txtS
style=" BORDER-LEFT-STYLE: none; BORDER-RIGHT-STYLE: none; BORDER-TOP-STYLE: none; COLOR: mediumblue; FONT-VARIANT: normal; FONT-WEIGHT: bold;
WIDTH:
30px"
readonly
></TD>
<TD>岁</TD>
<TD><INPUT id=txtY name=txtY
style=" BORDER-LEFT-STYLE: none; BORDER-RIGHT-STYLE: none; BORDER-TOP-STYLE: none; COLOR: mediumblue; FONT-VARIANT: normal; FONT-WEIGHT: bold;
WIDTH:
24px"
readonly
></TD>
<TD>月</TD><td >
<SELECT id=cmbghsj name=cmbghsj style="width:126"> <option selected value=-1>--请选择挂号时间--</option> <% if trim(Request("txtmzh"))<>"" or trim(Request("txtkh")) <>"" then
dim intkzt
intkzt=kzt(Request.Form("txtkh"))
if intkzt=1 or intkzt=2 then
Response.Write "<script language=vbscript>"&chr(10)
Response.Write "msgbox ""该卡己不能正常使用！可能己挂失或作废"""&chr(10)
Response.Write "</script>"&chr(10)
else
if trim(Request("txtkh")) <>"" then
sql="select x.blh, r.mzh,x.xm,x.xb,x.csrq from mz_tbr r,mz_tbrxx x ,ggzd_tk k where r.blh=x.blh and k.blh=r.blh and k.kdh='"&trim(Request("txtkh"))&"'"
else
sql= "select x.blh, s.ghsj, r.mzh,x.xm,x.xb,x.csrq from mz_tbr r,mz_tbrxx x ,mz_tbrls s where r.blh=x.blh and r.mzh='"&trim(Request("txtmzh"))&"'"
end if
rs.Open sql,conn
if rs.EOF and rs.BOF then
Response.Write "<script language=vbscript>"&chr(10) Response.Write "msgbox ""该卡未出售！""" & chr(10) Response.Write "</script>"&chr(10)
else strblh=rs("blh") Response.Write "<script language=vbscript>"&chr(10)
response.Write "form1.cmbghsj.value="""&request("cmbghsj")&""""&chr(10)
response.Write "form1.txtmzh.value="""&rs("mzh")&""""&chr(10)
Response.Write "form1.txtxm.value="""&rs("xm")&""""&chr(10)
Response.Write "form1.txtxb.value="""&rs("xb")&""""&chr(10)
If Month(date()) < Month(rs("csrq")) Then
Response.Write "form1.txts.value= """ & Year(date()) - Year(rs("csrq") ) - 1 &"""" &chr(10)
Else
Response.Write "form1.txts.value="""& Year(date()) - Year(rs("csrq")) &"""" &chr(10)
End If
Response.Write "form1.txty.value ="""& (Month(date()) - Month(rs("csrq") ) + 12) Mod 12 &"""" &chr(10)
Response.write "</script>" rs.Close
rs.Open "select s.ghsj,s.lsh from mz_tbrls s where s.blh="&strblh &" and s.ghsj>='"&date()-30&"' order by s.lsh desc" while not rs.EOF
Response.Write "<OPTION value="&rs("lsh")&">" Response.Write rs("ghsj") Response.Write "</option>"
rs.MoveNext
wend
rs.Close
end if end if Response.Write "<script language=vbscript>"&chr(10)
' Response.Write "msgbox ""该卡己不能正常使用！可能己挂失或作废"""&chr(10)
Response.Write "window.parent.frazjh.form1.submit"&chr(10)
Response.Write "window.parent.upmenu.form1.submit"&chr(10)
Response.Write "</script>"
end if %>
</SELECT>
<INPUT class="buttons02" type="button" value="读 卡" id=cmddk name=cmddk style="width:60"></td>
</TR>
</table>
</FORM>
</BODY>
</HTML>
<%
if trim(Request("hdPD"))="ghsj" then
strlsh=request("cmbghsj")
Response.Write "<script language=vbscript>"&chr(10)
rs.Open "select g.xm as ysxm from mz_tbrls s ,ggzd_tgzry g where g.ryid=s.ys and s.lsh="&strlsh,conn
if not (rs.EOF and rs.BOF) then
Response.Write "parent.form1.txtys.value="""&rs("ysxm")&""""&chr(10)
Response.Write "form1.cmbghsj.value="""&request("cmbghsj")&""""&chr(10)
end if
Response.Write "window.parent.upmenu.form1.txtlsh.value="""&request("cmbghsj")&""""&chr(10)
Response.Write "window.parent.frazjh.form1.txtlsh.value="""&request("cmbghsj")&""""&chr(10)
Response.Write "window.parent.frazjh.form1.submit"&chr(10)
Response.Write "window.parent.upmenu.form1.submit"&chr(10)
Response.Write "</script>"
rs.Close
end if
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -