📄 ajcbgtx.asp
字号:
txtmbmc=""
txtcfid=""
txtzdid=""
txtbgnr=""
end if
%>
<table width='<%=session("screen_width")%>' height='<%=session("screen_height")%>' border=0 cellspacing="0" cellpadding="0" bgcolor="<%=tableBGCOLOR%>">
<tr class=ListCellRow bgcolor="<%=tableHBGCOLOR%>" ><TD nowrap align=left width=100%><img src="../../images/jk.GIF" width='24px' height='24px'>检查报告填写<font color="<%=tableHFONTCOLOR%>">-<%=session("yhm")%></td><TD nowrap width="10%"> </td>
<TD nowrap width=25px align=right nowrap valign=center><img src="../../images/qp.GIF" width='20px' height='20px' style='cursor:hand' alt='重新登录' onclick=javascript:allwindow()> </td>
<TD nowrap width=25px align=right nowrap valign=center><img src="../../images/gb.gif" width='20px' height='20px' style='cursor:hand' alt='关闭' onclick=javascript:closewindow()> </td></tr>
<TR><TD nowrap colspan=4>
<table align="left" border="0" cellPadding="0" cellSpacing="0" width="100%">
<TR>
<TD nowrap align=left>门诊住院号</td><td nowrap align=left><INPUT class="longtext1" type="text" id=txtmzzyh name=txtmzzyh style="HEIGHT: 21px; WIDTH: 120px" value="<%=txtmzzyh%>"></TD>
<TD nowrap align=left>姓名</td><td nowrap align=left><INPUT type="text" id=txtbrxm name=txtbrxm style="border-left-style:none;border-top-style:none;border-right-style:none;border-bottom:1px outset green background;background-color:transparent; WIDTH: 120;" readonly value="<%=txtbrxm%>"></TD>
<TD nowrap align=left>性别</td><td nowrap align=left><INPUT type="text" id=txtxb name=txtxb style="border-left-style:none;border-top-style:none;border-right-style:none;border-bottom:1px outset green background;background-color:transparent; WIDTH: 120;" readonly value="<%=txtxb%>"></TD>
</TR>
<TR>
<TD nowrap align=left>出生年月</td><td nowrap align=left><INPUT type="text" id=txtcssj name=txtcssj style="border-left-style:none;border-top-style:none;border-right-style:none;border-bottom:1px outset green background;background-color:transparent; WIDTH: 120;" readonly value="<%=txtcssj%>"></TD>
<TD nowrap align=left>年龄</td><td nowrap align=left><INPUT type="text" id=txtnl name=txtnl style="border-left-style:none;border-top-style:none;border-right-style:none;border-bottom:1px outset green background;background-color:transparent; WIDTH: 120;" readonly value="<%=txtnl%>"></TD>
<TD nowrap align=left>日期</td><td nowrap align=left><INPUT type="text" id=txtrq name=txtrq style="border-left-style:none;border-top-style:none;border-right-style:none;border-bottom:1px outset green background;background-color:transparent; WIDTH: 120;" readonly value="<%=txtrq%>"></TD>
</TR>
<TR>
<TD nowrap align=left>临床诊断</td><td nowrap align=left>
<SELECT id=cmblsh name=cmblsh style="WIDTH: 120px">
<%
'dim intlsh
sqlstr="select lsh,zdmc,zzd from v_ykbrbg WHERE mzh='" & txtmzzyh & "' order by lsh desc "
set result=conn.Execute(sqlstr)
'if not result.eof then
if trim(Request.form("txtlsh"))="" then
lsh=0
else
lsh=clng(Request.form("txtlsh"))
end if
do while not result.eof
if result("lsh")=lsh then
Response.Write "<OPTION value="&result("zzd")&","&result("lsh")&" selected>"&result("zdmc")&"/"&result("lsh")&"</OPTION>"
else
Response.Write "<OPTION value="&result("zzd")&","&result("lsh")&">"&result("zdmc")&"/"&result("lsh")&"</OPTION>"
if lsh=0 then lsh=result("lsh")
end if
result.movenext
loop
'end if
%>
</SELECT></td>
<TD nowrap align=left>送检医师</td><td nowrap align=left><INPUT type="text" id=txtsjys name=txtsjys style="border-left-style:none;border-top-style:none;border-right-style:none;border-bottom:1px outset green background;background-color:transparent; WIDTH: 120;" readonly value="<%=txtsjys%>"></TD>
<TD nowrap align=left>检查项目</td><td nowrap align=left>
<SELECT id=select1 name=select1 style="HEIGHT: 21px; WIDTH: 120px">
<option value=""></option>
<%
' if trim(Request.Form("pdid"))="5" then '根据诊断提取报告,有流水号,门诊号提取项目。同时判断是否有做过报告
sqlstr="select * from v_mzbgtx_jcxm where lsh='" & lsh & "'and cfzt in (3,7) and rzks='" & session("rzks") & "' "
'sqlstr="select * from v_mzbgtx_jcxm where cfzt in (3,7) and rzks='" & session("rzks") & "'"
'Response.Write "<OPTION value=45645654>"&session("rzks")&"</OPTION>"
'Response.Write "<OPTION value='" & txtmzzyh &"'</OPTION>"
'Response.Write "<OPTION value=" & sqlstr &"</OPTION>"
set result=conn.Execute(sqlstr)
if not result.eof then
if trim(txtcfid)="" then
txtcfid=len(txtcfid)
end if
do while not result.eof
if result("cfid")=clng(txtcfid) then
Response.Write "<OPTION value="&result("cfid")&","&result("lsh")&" selected>"&result("xmmc")&"</OPTION>"
else
Response.Write "<OPTION value="&result("cfid")&","&result("lsh")&">"&result("xmmc")&"</OPTION>"
end if
result.movenext
loop
end if
''''''''''''''''''''''''''''''''''''''''同时判断是否有做过报告
txtmbmc=""
txtbgnr=""
txtdj=""
if trim(Request.Form("pdid"))="5" then
sqlstr="select * from mz_tyjbg where CFID='" & txtcfid & "'"
set result=conn.Execute(sqlstr)
if not result.eof then
txtbh=result("bh")
txtbgnr=result("bgnr")
select2sta=result("dj")
if isnull(txtbh) then
txtjcbgsta="0"
else
txtjcbgsta="1"
end if
else
txtmbmc=""
txtjcbgsta="0"
end if
end if
if trim(Request.Form("pdid"))="6" then '有做过报告只能插入一条新的记录，要判断编号是否不一样。不一样才可以插入新纪录
'sqlstr="select bh from mz_tyjbg where cfid='" & txtcfid & "'"
conn.Execute "delete mz_tyjbg where cfid='" & txtcfid & "'"
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") & "')"
conn.Execute sqlstr
txtmzzyh=""
txtbrxm=""
txtxb=""
txtcssj=""
txtnl=""
txtrq=""
txtsjys=""
txtbh=""
txtjcxm=""
txtczy=Request.Form("txtczy")
txtdj=""
txtmbmc=""
txtcfid=""
txtzdid=""
txtbgnr=""
end if
result.close
%>
</TR>
<TR>
<TD nowrap >摸板名称</td><td nowrap align=left >
<SELECT id=cmbmbmc name=cmbmbmc style="HEIGHT: 21px; WIDTH: 120px">
<option></option>
<%
set rsmbmc=server.CreateObject("ADODB.RECORDSET")
rsmbmc.Open "select id,mbmc from mz_tjcmb where ks="&session("ks")&"",conn
do while not rsmbmc.EOF
Response.Write "<OPTION value=" & rsmbmc("id").Value &">"
Response.Write rsmbmc("mbmc").Value
Response.Write "</OPTION>"
rsmbmc.MoveNext
loop
set rsmbmc=nothing
%>
</SELECT> <SELECT id=cmbmbnr name=cmbmbnr style="HEIGHT: 0px; WIDTH:0px">
<option></option>
<%
set rsmbnr=server.CreateObject("ADODB.RECORDSET")
rsmbnr.Open "select id,mbnr from mz_tjcmb where ks="&session("ks")&"",conn
do while not rsmbnr.EOF
Response.Write "<OPTION value=" & rsmbnr("id").Value &">"
Response.Write rsmbnr("mbnr").Value
Response.Write "</OPTION>"
rsmbnr.MoveNext
loop
set rsmbnr=nothing
%>
</SELECT> </TD>
<TD nowrap align=left>操作员</td><td nowrap align=left><INPUT type="text" id=txtczy name=txtczy style="border-left-style:none;border-top-style:none;border-right-style:none;border-bottom:1px outset green background;background-color:transparent; WIDTH: 120;" readonly value="<%=txtczy%>"></TD>
<TD nowrap align=left>编号</td><td nowrap align=left><INPUT class="longtext1" type="text" id=txtbh maxLength=8 name=txtbh style="WIDTH: 120;" value="<%=txtbh%>"></TD>
</TR>
<TR>
<TD nowrap align=left>等级</td><td nowrap align=left colspan=5>
<SELECT id=select2 name=select2 style="HEIGHT: 21px; WIDTH: 120px">
<OPTION value=""></OPTION>
<%IF select2sta="甲级" THEN%>
<OPTION value="甲级" SELECTED>甲级</OPTION>
<%ELSE%>
<OPTION value="甲级">甲级</OPTION>
<% END IF%>
<%IF select2sta="乙级" THEN%>
<OPTION value="乙级" SELECTED>乙级</OPTION>
<%ELSE%>
<OPTION value="乙级">乙级</OPTION>
<% END IF%>
<%IF select2sta="丙级" THEN%>
<OPTION value="丙级" SELECTED>丙级</OPTION>
<%ELSE%>
<OPTION value="丙级">丙级</OPTION>
<% END IF%>
</SELECT>
</TD>
</TR>
<TR>
<TD colspan=6 align=center>
<INPUT class="buttons02" type="button" value="读卡(D)" accesskey="D" id=cmddk name=cmddk style="HEIGHT: 21px; WIDTH: 80px">
<%
if txtjcbgsta="1" then
Response.Write "<INPUT class=""buttons02"" type=""button"" value=""确定(Q)"" accesskey=""Q"" id=cmdok name=cmdok disabled style=""HEIGHT: 21px; WIDTH: 80px""> "
else
if txtjcbgsta="0" then
Response.Write "<INPUT class=""buttons02"" type=""button"" value=""确定(Q)"" accesskey=""Q"" id=cmdok name=cmdok style=""HEIGHT: 21px; WIDTH: 80px""> "
else
Response.Write "<INPUT class=""buttons02"" type=""button"" value=""确定(Q)"" accesskey=""Q"" id=cmdok name=cmdok style=""HEIGHT: 21px; WIDTH: 80px""> "
end if
end if
if txtjcbgsta="1" then
Response.Write "<INPUT class=""buttons02"" type=""button"" value=""修改(X)"" accesskey=""X"" id=cmdxg name=cmdxg style=""HEIGHT: 21px; WIDTH: 80px"">"
else
if txtjcbgsta="0" then
Response.Write "<INPUT class=""buttons02"" type=""button"" value=""修改(X)"" accesskey=""X"" id=cmdxg name=cmdxg disabled style=""HEIGHT: 21px; WIDTH: 80px"">"
else
Response.Write "<INPUT class=""buttons02"" type=""button"" value=""修改(X)"" accesskey=""X"" id=cmdxg name=cmdxg disabled style=""HEIGHT: 21px; WIDTH: 80px"">"
end if
end if
%>
 <INPUT class="buttons02" type="hidden" value="打印(P)" accesskey="P" id=cmddy name=cmddy style="HEIGHT: 21px; WIDTH: 80px">
</TD>
</TR></table></td></tr>
<TR height='100%'><TD nowrap colspan=4 height='100%'>
<TEXTAREA rows=2 cols=20 id=txtbgnr name=txtbgnr style="HEIGHT: 100%; WIDTH: 100%" ><%=txtbgnr%></TEXTAREA>
</TD>
</TR>
</TABLE>
</P>
<INPUT type="hidden" id=txtlsh name=txtlsh value="<%=txtlsh%>">
<INPUT type="hidden" id=txtkh name=txtkh>
<INPUT type="hidden" id=pdid name=pdid>
<INPUT type="hidden" id=cfid name=cfid value="<%=txtcfid%>">
<INPUT type="hidden" id=txtzdid name=txtzdid value="<%=txtzdid%>">
<INPUT type="hidden" id=txtdj name=txtdj value="<%=txtdj%>">
<input type="hidden" id=txtjcbgsta name=txtjcbgsta value="<%=txtjcbgsta%>">
<input type="hidden" id=select2sta name=select2sta value="<%=select2sta%>">
</form>
</BODY>
</HTML>
<%
conn.Close
set conn=nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -