📄 amztxmspup.asp
字号:
<%@ Language=VBScript %>
<%
'对于取医嘱的SQL语句，还要加上另外一些条件，取Application里面的项目类型
dim conn,rs
set conn=server.CreateObject ("adodb.connection")
conn.Open application("sconn")
icob=Request.Form("coblsh")
imzh=Request.Form("txtmzh")
%>
<HTML>
<HEAD>
<META name=VI60_defaultClientScript content=VBScript>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<style>
<!--
table
{
FONT-FAMILY:宋体;
FONT-SIZE: 10pt
}
INPUT
{
FONT-FAMILY:宋体;
FONT-SIZE: 9pt
}
SELECT
{
FONT-FAMILY:宋体;
FONT-SIZE: 9pt
}
-->
</style>
<SCRIPT ID=clientEventHandlersVBS LANGUAGE=vbscript>
<!--
Sub window_onload
thisform.text.value ="kk"
thisform.btnDK.focus
End Sub
Sub btnDK_onclick
thisform.ifsr.value="0"
thisform.txtmzh.style.backgroundcolor="lightgrey"
thisform.txtmzh.readonly=True
thisform.txtmzh.value = "00000004"
thisform.shdLSH.value=thisform.txtmzh.value
thisform.text.value ="yp"
thisform.submit
End Sub
Sub cobLSH_onchange
if thisform.txtmzh.value="" then
msgbox "请先读卡！",64,"提示"
exit sub
end if
thisform.text.value ="lsh"
thisform.submit
parent.frames("underzjm").subform.sHDZYH.value=thisform.cobLSH.value
parent.frames("underzjm").subform.submit
End Sub
Sub btnSY_onclick
thisform.ifsr.value ="1"
thisform.txtmzh.style.backgroundcolor="White"
thisform.txtmzh.readonly=False
thisform.txtmzh.value=""
thisform.txtmzh.focus
End Sub
Sub txtmzh_onchange
if thisform.txtmzh.value<>"" then
thisform.txtmzh.value = right("00000000"&thisform.txtmzh.value,8)
thisform.shdLSH.value=thisform.txtmzh.value
thisform.text.value ="yp"
thisform.submit
end if
End Sub
Sub txtmzh_onkeypress
IF window.event.keyCode=13 then thisform.txtXM.focus
End Sub
-->
</SCRIPT>
<SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript>
<!--
function mouseon(src,clrOver){
src.style.cursor = 'hand';
src.bgColor = clrOver;
}
function mouseout(src,clrIn) {
src.style.cursor = 'default';
src.bgColor = clrIn;
}
//-->
</SCRIPT>
</HEAD>
<BODY bgcolor=#cce8d6>
<FORM action="" method=post id=thisform name=thisform>
<table border=1 bordercolorlight=black bordercolordark=white bgcolor=#cce8d6 cellspacing=0 cellpadding=4 width=530>
<tr>
<td>
<TABLE border=0 cellspacing=0 cellpadding=0 style="HEIGHT: 32px; WIDTH: 530px">
<TR>
<TD width=70>
<P align=right> 门诊号:</P> </TD>
<TD><INPUT id=txtmzh name=txtmzh style="BACKGROUND-COLOR: #cce8d6; BORDER-BOTTOM-COLOR: black; BORDER-LEFT-STYLE: none; BORDER-RIGHT-STYLE: none; BORDER-TOP-STYLE: none; COLOR: mediumblue; HEIGHT: 22px; LEFT: 0px; TOP: 1px; WIDTH: 72px"
readOnly
>
<INPUT id=text name=text style="HEIGHT: 22px; LEFT: 0px; TOP: 1px; WIDTH: 0px" >
<INPUT id=shdLSH name=shdLSH type=hidden value=0 style="HEIGHT: 22px; LEFT: 0px; TOP: 1px; WIDTH: 0px" >
<INPUT id=ifsr name=ifsr type=hidden value=0 style="HEIGHT: 22px; LEFT: 0px; TOP: 1px; WIDTH: 0px" >
<input type=hidden name=iCKFSID value=-1 style="HEIGHT: 20px; WIDTH: 0px">
<input type=hidden name=fDanJia value=0 style="HEIGHT: 20px; WIDTH: 0px">
</TD>
<TD>
<P align=right>姓名:</P></TD>
<TD><INPUT id=txtXM name=txtXM
style="BACKGROUND-COLOR: #cce8d6; BORDER-BOTTOM-COLOR: black; BORDER-LEFT-STYLE: none; BORDER-RIGHT-STYLE: none; BORDER-TOP-STYLE: none; COLOR: mediumblue; FONT-VARIANT: normal;
FONT-WEIGHT: bold;
HEIGHT:
18px;
WIDTH:
51px"
readonly
></TD>
<TD>
<P align=right>性别:</P></TD>
<TD><INPUT id=txtXB name=txtXB
style="BACKGROUND-COLOR: #cce8d6; BORDER-BOTTOM-COLOR: black; BORDER-LEFT-STYLE: none; BORDER-RIGHT-STYLE: none; BORDER-TOP-STYLE: none; COLOR: mediumblue; FONT-VARIANT: normal; FONT-WEIGHT: bold;
WIDTH:
31px"
readonly
></TD>
<TD>
<P align=right>年龄:</P></TD>
<TD><INPUT id=txtS name=txtS
style="BACKGROUND-COLOR: #cce8d6; BORDER-BOTTOM-COLOR: black; BORDER-LEFT-STYLE: none; BORDER-RIGHT-STYLE: none; BORDER-TOP-STYLE: none; COLOR: mediumblue; FONT-VARIANT: normal; FONT-WEIGHT: bold;
WIDTH:
40px"
readonly
></TD>
<TD>岁</TD>
<TD><INPUT id=txtY name=txtY
style="BACKGROUND-COLOR: #cce8d6; BORDER-BOTTOM-COLOR: black; 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>
<P align=left>月</P></TD></TR>
</TABLE>
<TABLE WIDTH=530 BORDER=0 CELLSPACING=0 CELLPADDING=0>
<TR><TD width=68>
<P align=right>挂号时间:</P></TD>
<TD width=160 style="WIDTH: 160px"><SELECT id=cobLSH name=cobLSH
style="HEIGHT: 20px; WIDTH: 159px">
<%
set rscbo=server.CreateObject ("adodb.recordset")
if Request.ServerVariables("request_method")="POST" then
sqlcmd="select b.lsh,b.ghsj from mz_tbr a, mz_tbrls b where a.blh=b.blh "&_
"and a.mzh='"&Request.Form("shdLSH")&"'"
else
sqlcmd="select lsh,ghsj from mz_tbrls where blh=0"
end if
rscbo.Open sqlcmd,conn
do while not rscbo.EOF
if rscbo("lsh") = cint(icob) then
txtoption="<option value="&rscbo("lsh")&" selected >"&rscbo("ghsj")
else
txtoption="<option value="&rscbo("lsh")&" >"&rscbo("ghsj")
end if
Response.Write txtoption
rscbo.MoveNext
loop
rscbo.Close
set rscbo=nothing
%>
</SELECT></TD>
<TD width=40>
<P align=right>医生:</P></TD>
<TD style="WIDTH: 50px" width=50><INPUT id=txtYS name=txtYS readOnly
style="BACKGROUND-COLOR: #cce8d6; BORDER-BOTTOM-COLOR: black; BORDER-LEFT-STYLE: none; BORDER-RIGHT-STYLE: none; BORDER-TOP-STYLE: none; COLOR: mediumblue; FONT-VARIANT: normal; FONT-WEIGHT: bold; HEIGHT: 18px; WIDTH: 50px"
></TD>
<TD><P align=right>
<INPUT id=btnSY name=btnSY style="HEIGHT: 22px; WIDTH: 60px" type=button value="输 入">
<INPUT id=btnDK name=btnDK style="HEIGHT: 22px; WIDTH: 60px" type=button value="读 卡"></P>
</TD>
</TR>
</TABLE>
<TABLE border=1 cellPadding=0
cellSpacing=0 style="BACKGROUND-COLOR: #ffe4b5; COLOR: #1e90ff; HEIGHT: 23px; WIDTH: 530px">
<TR>
<TD width=200 align=middle >项目名称</TD>
<TD width=75 align=middle >领取数</TD>
<TD width=75 align=middle >已退数</TD>
<TD width=100 align=middle >单价</TD>
<TD width=100 align=middle >可退金额</TD>
</TR>
<%
if Request.ServerVariables("request_method")="POST" then
if Request.Form("text")="lsh" then
sLSH=Request.Form("cobLSH")
dim sSQL
sSQL="select b.CFID ,a.XMMC YPSPM ,b.sl ,b.ytsl,b.DJ from ggzd_txmbm a, mz_tcflr b "&_
"where a.xmid=b.bh and (b.xmlx not in (1,2,3)) and b.lsh="&sLSH
set rstab=server.CreateObject("adodb.recordset")
rstab.Open ssql,conn
do while not rstab.EOF
Response.Write "<tr language=javascript onmouseout=mouseout(this,'#ffe4b5') onmouseover=mouseon(this,'#E0E0CA') ><td>"
Response.Write rstab("YPSPM") & "</td>"
Response.Write "<td align=right>" & rstab("SL") & "</td>"
Response.Write "<td align=right>" & rstab("ytsl") & "</td>"
Response.Write "<td align=right>" & rstab("DJ") & "</td>"
Response.Write "<td align=right>" & FormatCurrency((cdbl(rstab("SL"))-cdbl(rstab("ytsl")))*cdbl(rstab("DJ"))) &"</td>"
Response.Write "</tr>"
rstab.MoveNext
loop
rstab.Close
end if
end if
%>
</TABLE>
</td>
</tr>
</table>
<%
if Request.ServerVariables("request_method")="POST" then
smzh=Request.Form("txtmzh")
'首先要将对应的病人信息显示到界面上
set rsypcx=server.CreateObject("adodb.recordset")
sqlypcx="select b.blh,b.xm,b.xb,b.csrq,datediff(mm,b.csrq,getdate())/12 as CSS,"&_
"datediff(mm,b.csrq,getdate())%12 as CSY from mz_tbr a,mz_tbrxx b "&_
"where a.blh=b.blh and a.mzh='"&smzh&"'"
rsypcx.Open sqlypcx,conn,3,4
if not rsypcx.EOF then
Response.Write "<SCRIPT language=vbscript>" & chr(10)
Response.write "thisform.txtmzh.value ="""&smzh& """" & CHR(10)
Response.Write "thisform.txtXM.VALUE="""&rsypcx("XM")& """" & CHR(10)
Response.Write "thisform.txtXB.VALUE="""&rsypcx("xb")&"""" & CHR(10)
Response.Write "thisform.txtS.VALUE="""&rsypcx("CSS")&"""" & CHR(10)
Response.Write "thisform.txtY.VALUE="""&rsypcx("CSY")&"""" & CHR(10)
Response.Write "thisform.cobLSH.VALUE="""&""&"""" & CHR(10)
Response.Write "thisform.shdLSH.VALUE="""&smzh&""""&CHR(10)
Response.Write "thisform.ifsr.VALUE="""&Request.Form("ifsr")&""""&CHR(10)
Response.Write "</SCRIPT>"
end if
if Request.Form("text")="lsh" then
sLSH=Request.Form("cobLSH")
'显示医生
set rsys=server.CreateObject("adodb.recordset")
sqlys="select b.xm from mz_tbrls a,ggzd_tgzry b where a.ys=b.ryid and a.lsh="&sLSH
rsys.Open sqlys,conn,3,4
if not rsys.EOF then
Response.Write "<SCRIPT language=vbscript>" & chr(10)
Response.Write "thisform.txtYS.VALUE="""&rsys("xm")&"""" & CHR(10)
Response.Write "thisform.cobLSH.VALUE="&sLSH&CHR(10)
Response.Write "</SCRIPT>"
end if
end if
end if
%>
</FORM>
</BODY>
</HTML>
<%
set rsypcx=nothing
set conn=nothing
set rsys =nothing
set rstab=nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -