📄 ajcbgtx.asp
字号:
<!-- #INCLUDE FILE="../../share\connectdb3.asp" -->
<!--#include file=../../pubfunction.asp-->
<%
SET RS=SERVER.CreateObject ("ADODB.RECORDSET")
' RS.Open "SELECT * FROM YB_TXTCS WHERE CSDH='00000001'", CONN
' STRREPLY=cstr(trim(RS("CSMC")))''''''
' RS.Close
' RS.Open "SELECT * FROM YB_TXTCS WHERE CSDH='00000002'", CONN
' STRREQUEST=cstr(trim(RS("CSMC")))'
' rs.Close
' RS.Open "SELECT * FROM YB_TXTCS WHERE CSDH='00000003'", CONN
' outtime=RS("CSMC") '''
' rs.Close
%>
<!--#include file="../../ggmk.asp"-->
<!--#include file=../../aickcz.asp-->
<HTML>
<HEAD>
<META name=VI60_defaultClientScript content=VBScript><title>检查报告填写</title>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<link rel="stylesheet" type="text/css" href="../../style/style.css" >
<link rel="stylesheet" type="text/css" href="../../style/table.css" >
<script type="text/vbscript" src="../../ggmk.vbs"></script>
<SCRIPT ID=clientEventHandlersVBS LANGUAGE=vbscript>
<!--
Sub cmdDK_onclick
dim strKH
strKH=dickhm("<%=yyxx%>")
' msgbox "<%=yyxx%>"
if strKH="" then strKH="CC"
if trim(strKH)="CC" then exit sub
jcbgtx.txtKH.value = strKH
jcbgtx.pdid.value="1"
jcbgtx.submit
End Sub
sub select1_onchange
if trim(jcbgtx.select1.value)<>"" then
jcbgtx.cfid.value=mid(jcbgtx.select1.value,1,(clng(instr(1,jcbgtx.select1.value,","))-1))
jcbgtx.txtlsh.value=mid(jcbgtx.select1.value,(clng(instr(1,jcbgtx.select1.value,","))+1))
jcbgtx.pdid.value=5
jcbgtx.submit
ELSE
jcbgtx.cfid.value=0
jcbgtx.txtlsh.value=0
jcbgtx.pdid.value=5
jcbgtx.submit
end if
end sub
sub select2_onchange
jcbgtx.txtdj.value=jcbgtx.select2.value
end sub
sub cmblsh_onchange '临床诊断
if trim(jcbgtx.cmblsh.value)<>"" then
jcbgtx.txtzdid.value=mid(jcbgtx.cmblsh.value,1,(clng(instr(1,jcbgtx.cmblsh.value,","))-1))
jcbgtx.txtlsh.value=mid(jcbgtx.cmblsh.value,(clng(instr(1,jcbgtx.cmblsh.value,","))+1))
' msgbox mid(jcbgtx.cmblsh.value,(clng(instr(1,jcbgtx.cmblsh.value,","))+1))
jcbgtx.cfid.value=""
jcbgtx.submit
end if
end sub
Sub cmdok_onclick
if len(jcbgtx.cmblsh.value)=0 then
msgbox "无患者信息,请读卡！",vbinformation,"提示"
jcbgtx.cmblsh.focus
exit sub
end if
if len(jcbgtx.txtbh.value)>8 then
msgbox "编号不能大于8位数,请重新输入!",vbinformation,"提示"
jcbgtx.txtbh.focus
exit sub
end if
if len(jcbgtx.select1.value)=0 then
msgbox "请选择检验项目!",vbinformation,"提示"
jcbgtx.select1.focus
exit sub
end if
if len(jcbgtx.txtbh.value)=0 then
msgbox "编号不能为空,请输入编号!",vbinformation,"提示"
jcbgtx.txtbh.focus
exit sub
end if
jcbgtx.pdid.value=2
jcbgtx.submit
msgbox "报告填写成功!",vbinformation,"提示"
End Sub
sub cmdxg_onclick
jcbgtx.pdid.value=6
jcbgtx.submit
end sub
Sub txtmzzyh_onchange
For i =0 To 7 - Len(jcbgtx.txtmzzyh.value)
jcbgtx.txtmzzyh.value = 0 & jcbgtx.txtmzzyh.value
Next
jcbgtx.pdid.value=3
jcbgtx.submit
End Sub
Sub txtmzzyh_onkeypress
if window.event.keyCode=13 then
if trim(jcbgtx.txtmzzyh.value) ="" then
msgbox "住院门诊号不能为空值",vbinformation,"提示"
jcbgtx.txtmzzyh.focus
exit sub
end if
jcbgtx.txtbh.focus
end if
End Sub
sub cmddy_onclick
sqlstr="select * from v_mzbgtx_jcxm"
window.open "amzyjbgdy.asp?sql="&sqlstr&"","报告打印","toolbar=no,location=no,height=500,width=600"
end sub
Sub window_onload
jcbgtx.cmddk.focus
End Sub
Sub cmbmbmc_onchange
IF jcbgtx.cmbmbmc.value ="" THEN EXIT SUB
jcbgtx.cmbmbnr.value =jcbgtx.cmbmbmc.value
if jcbgtx.txtbgnr.value <>"" then
jcbgtx.txtbgnr.value =jcbgtx.txtbgnr.value+jcbgtx.cmbmbnr.options(jcbgtx.cmbmbnr.selectedIndex).text
else
jcbgtx.txtbgnr.value= jcbgtx.cmbmbnr.options(jcbgtx.cmbmbnr.selectedIndex).text
end if
End Sub
-->
</SCRIPT>
</HEAD>
<BODY topmargin=0 leftmargin=0 >
<form name=jcbgtx method="post" action="ajcbgtx.asp">
<INPUT type="hidden" id=txtybkh name=txtybkh>
<%
txtlsh=Request.Form("txtlsh")
txtmzzyh=Request.Form("txtmzzyh")
txtbrxm=Request.Form("txtbrxm")
txtxb=Request.Form("txtxb")
txtcssj=Request.Form("txtcssj")
txtnl=Request.Form("txtnl")
txtrq=Request.Form("txtrq")
txtsjys=Request.Form("txtsjys")
txtbh=Request.Form("txtbh")
txtjcxm=Request.Form("txtjcxm")
txtczy=Request.Form("txtczy")
txtdj=Request.Form("txtdj")
txtmbmc=Request.Form("txtmbmc")
txtcfid=Request.Form("cfid")
txtjcxm=Request.Form("txtjcxm")
txtzdid=Request.Form("txtzdid")
txtbgnr=Request.Form("txtbgnr")
txtjcbgsta=Request.Form("txtjcbgsta")
select2sta=Request.Form("select2sta")
sqlstr="select xm from ggzd_tgzry where ryid='" & session("yhid") & "'"
set result=conn.Execute(sqlstr)
if not result.eof then
txtczy=result("xm")
end if
result.close
sqlstr="select ksmc from ggzd_tks where ksid='" & session("rzks") & "'"
set result=conn.Execute(sqlstr)
if not result.eof then
txtbgks=result("ksmc")
end if
result.close
if Request.Form("pdid")="1" or request("pdid")="ybk" then '读卡取数据
if request("pdid")<>"ybk" then
sqlstr="select blh,mzh,xm,xb,csrq,sflxmc,syje,sjys,ryid,zdmc,zzd from v_ykbrbg where kdh='" & Request("txtKH") &"'"
else
sqlstr="select r.blh,r.mzh,x.xm,x.xb,l.sflxmc,r.syje ,y.xm as sjys ,k.zdmc,y.ryid,s.zzd from mz_tbr r ,ggzd_tsflx l ,mz_tbrxx x ,ggzd_tzdzdk k ,mz_tbrls s, ggzd_tgzry y where y.ryid=s.ys and k.zdid =s.zzd and s.blh=r.blh and 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")
txtmzzyh=result("mzh")
txtbrxm=result("xm")
txtxb=result("xb")
txtsflx=result("sflxmc")
txtghf=Request.Form("txtghf")
txtkye=result("syje")
txtcssj=result("csrq")
txtnl=Year(Date) - Year(result("CSRQ"))
txtrq=now
txtsjys=result("sjys")
txtryid=result("ryid")
' txtzdid=result("zzd")
end if
result.close
set result=nothing
end if
if Request.Form("pdid")="3" then '读卡取数据
sqlstr="select blh,mzh,xm,xb,csrq,sflxmc,syje,sjys,ryid,zdmc,zzd from v_ykbrbg where mzh='" & Request.Form("txtmzzyh") & "'"
set result=conn.Execute(sqlstr)
if not result.eof then
txtblh=result("blh")
txtbrxm=result("xm")
txtxb=result("xb")
txtsflx=result("sflxmc")
txtghf=Request.Form("txtghf")
txtkye=result("syje")
txtcssj=result("csrq")
txtnl=Year(Date) - Year(result("CSRQ"))
txtrq=now
txtsjys=result("sjys")
txtryid=result("ryid")
else
txtblh=""
txtbrxm=""
txtxb=""
txtsflx=""
txtghf=""
txtkye=""
txtcssj=""
txtnl=""
txtrq=""
txtsjys=""
txtjcxm=""
txtbh=""
txtbgnr=""
txtmbmc=""
end if
result.close
set result=nothing
end if
if trim(Request.Form("pdid"))="2" then '插新记录
sqlstr="insert into mz_tyjbg(cfid,sj,bgr,bgks,bgnr,bh,dj,lczd) values('"& Request.Form("cfid") &"','" & Request.Form("txtrq") & "', '" & session("yhid") & "','"& session("rzks") & "','" & trim(Request.Form("txtbgnr")) & "', '"& TRIM(Request.Form("TXTbh")) & "','" & trim(Request.Form("select2")) & "','" & Request.Form("txtzdid") & "')"
'Response.Write sqlstr
'Response.End
conn.Execute sqlstr
txtmzzyh=""
txtbrxm=""
txtxb=""
txtcssj=""
txtnl=""
txtrq=""
txtsjys=""
txtbh=""
txtjcxm=""
txtczy=Request.Form("txtczy")
txtdj=""
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -