📄 azjmzxm.asp
字号:
<%
set conn=server.CreateObject ("adodb.connection")
conn.Open application("sconn")
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
if trim(Request.Form("pdid1"))="4" then
' if trim(Request.Form("txtlsh"))<>"" then
' if trim(Request.Form("text"))<>"医保" then
' sqlstr="insert into mz_tcflr(lsh,xmlx,bh,csl,ts,syff,ps,rzks,dj,sl,je,ytsl,ytje,cfzt,lrr,sj,fpydy,sfbc,jsr,jssj)" & _
' "values("&Request.Form("txtlsh")&","& Request.Form("txtxmlxid") & ", " & Request.Form("txtxmid") & ",0,1,0,0,"&session("rzks")&","&Request.Form("txtdj")&","&Request.Form("txtsl")&","&Request.Form("txtje")&",0,0,3,"&session("yhid")&",'"&now&"',0,1,"&session("yhid")&",'"&now&"')"
' else
sqlstr="insert into mz_tcflr(lsh,xmlx,bh,csl,ts,syff,ps,rzks,dj,sl,je,ytsl,ytje,cfzt,lrr,sj,fpydy,sfbc,jsr,jssj)" & _
"values("&Request.Form("txtlsh")&","& Request.Form("txtxmlxid") & ", " & Request.Form("txtxmid") & ",0,1,0,0,"&session("rzks")&","&Request.Form("txtdj")&","&Request.Form("txtsl")&","&Request.Form("txtje")&",0,0,3,"&session("yhid")&",'"&now&"',0,1,"&session("yhid")&",'"&now&"')"
'
' end if
conn.Execute sqlstr
end if
' end if
%>
<HTML>
<HEAD>
<META name=VI60_defaultClientScript content=VBScript>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<LINK rel="stylesheet" type="text/css" href="../../css.css">
<SCRIPT ID=clientEventHandlersVBS LANGUAGE=vbscript>
<!--
sub cmdok_onclick
mzzjxm.txtblh.value=parent.xmwjsform.txtblh.value
mzzjxm.txtsflx.value=parent.xmwjsform.txtsflx.value
mzzjxm.txtkye.value=parent.xmwjsform.txtkye.value
mzzjxm.TXTGRZHYE.value=parent.xmwjsform.TXTGRZHYE.value
mzzjxm.TXTLSH.value=parent.xmwjsform.TXTLSH.value
mzzjxm.pdid1.value=4 '增加医嘱项目
if len(mzzjxm.txtSL.value)=0 then
msgbox "请输入数字!",vbinformation,"提示"
exit sub
end if
if not IsNumeric(mzzjxm.txtSL.value) then
msgbox "请输入数字信息",32,"提示"
exit sub
end if
if cdbl(mzzjxm.txtSL.value)<0 then
msgbox "请输入大于”零“数字信息",32,"提示"
exit sub
end if
if not IsNumeric(mzzjxm.txtSL.value) then
msgbox "请输入数字信息",32,"提示"
exit sub
end if
mzzjxm.txtje.value =cdbl(mzzjxm.txtdj.value)*cdbl(mzzjxm.txtsl.value)
strgrzhye= mzzjxm.txtgrzhye.value
if strgrzhye="" then
strgrzhye=0
' else
' IF zsszjxm.txtfylx.value=0 then
' strgrzhye=strgrzhye
' ELSE
' if zsszjxm.txtfylx.value=1 then
' strgrzhye=cdbl(strgrzhye)*0.85
' else
' strgrzhye=0
' end if
'
' END IF
end if
if (cdbl(mzzjxm.txtkye.value)+cdbl(strgrzhye)) <cdbl(mzzjxm.txtje.value) and (trim(mzzjxm.txtsflx.value)<>"公费" or trim(mzzjxm.txtsflx.value)<>"特约单位") then
msgbox "该病人卡金额不够,请交费!",vbinformation,"提示"
exit sub
end if
if msgbox ("金额是"&mzzjxm.txtje.value&",请确认。",vbquestion+vbyesno,"提示")=vbyes then
mzzjxm.text.value=parent.xmwjsform.txtsflx.value
mzzjxm.txtybkh.value=parent.xmwjsform.txtmzh.value
mzzjxm.txtmzlsh.value=parent.xmwjsform.txtmzlsh.value
mzzjxm.submit
end if
parent.divxmjs.style.visibility="visible"
parent.divzjfz.style.visibility="hidden"
parent.framname1.xmjsform.SUBMIT
end sub
sub cmdquit_onclick
parent.divxmjs.style.visibility="visible"
parent.divzjfz.style.visibility="hidden"
end sub
sub txtxmmc_onkeypress
IF window.event.keyCode =13 THEN
if trim(mzzjxm.txtxmmc.value) ="" then
msgbox "项目名称不能为空值",vbinformation,"提示"
mzzjxm.txtxmmc.focus
exit sub
end if
mzzjxm.pdid1.value =1
mzzjxm.txtsl.focus
mzzjxm.submit
END IF
end sub
sub txtsl_onkeypress
IF window.event.keyCode =13 THEN
mzzjxm.cmdok.focus
END IF
end sub
Sub txtsl_onchange '计算金额
mzzjxm.txtje.value =cdbl(mzzjxm.txtdj.value)*cdbl(mzzjxm.txtsl.value)
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;
}
function fhjg(a,b,c,d,djcdy,e) {
mzzjxm.txtxmmc.value =a;
mzzjxm.txtxmlxid.value =b;
mzzjxm.txtxmid.value =c;
mzzjxm.txtdj.value =d;
mzzjxm.txtfylx.value =e;
mzzjxm.txtsl.value=1;
if (djcdy==1) {
mzzjxm.txtdj.readOnly =false
}
document.all("divzdid").style.visibility="hidden";
mzzjxm.txtsl.focus ();
}
-->
</script>
</HEAD>
<BODY>
<FORM action="" method=POST id=mzzjxm name=mzzjxm action="azjmzxm.asp">
<INPUT type="hidden" id=text name=text >
<INPUT type="hidden" id=txtfylx name=txtfylx>
<INPUT type="hidden" id=mzlsh0 name=mzlsh0>
<INPUT type="hidden" id=djlsh0 name=djlsh0>
<INPUT type="hidden" id=cardno name=cardno>
<INPUT type="hidden" id=crbcts name=crbcts>
<INPUT type="hidden" id=bckbcs name=bckbcs>
<INPUT type="hidden" id=bqbm00 name=bqbm00>
<INPUT type="hidden" id=sftsbz name=sftsbz>
<INPUT type="hidden" id=zhzfe0 name=zhzfe0>
<INPUT type="hidden" id=grzfe0 name=grzfe0>
<INPUT type="hidden" id=jjzfe0 name=jjzfe0>
<INPUT type="hidden" id=bcbxf0 name=bcbxf0>
<INPUT type="hidden" id=gwybz0 name=gwybz0>
<INPUT type="hidden" id=sfrq00 name=sfrq00>
<INPUT type="hidden" id=SFSJ00 name=SFSJ00>
<INPUT type="hidden" id=SFRXM0 name=SFRXM0>
<INPUT type="hidden" id=sftsmz name=sftsmz>
<INPUT type="hidden" id=ghksmc name=ghksmc>
<INPUT type="hidden" id=txtzjfzxm name=txtzjfzxm>
<INPUT type="hidden" id=txtybkh name=txtybkh>
<INPUT type="hidden" id=txtmzlsh name=txtmzlsh>
<p align=center>
<%
txtsflx=Request.Form("txtsflx")
txtkye=Request.Form("txtkye")
txtxmmc=Request.Form("txtxmmc")
dj=Request.Form("txtdj")
je=Request.Form("txtje")
sl=Request.Form("txtsl")
txtlsh=Request.Form("txtlsh")
txtxmlxid=Request.Form("txtxmlxid")
txtxmid=Request.Form("txtxmid")
%>
<TABLE BORDER=1 CELLSPACING=1 CELLPADDING=1 bgcolor="#ffffff" bordercolorlight=#000000 bordercolordark=#ffffff >
<TR bgcolor="#3399ff"><td align=center>增加附嘱项目
</td></tr><tr><td>
<TABLE BORDER=0 CELLSPACING=1 CELLPADDING=1 bgcolor="#ffffff" bordercolorlight=#000000 bordercolordark=#ffffff>
<TR>
<TD nowrap align=right>项目名称</TD>
<TD>
<INPUT id=txtxmmc name=txtxmmc value="<%=txtxmmc%>">
</TD>
<TD nowrap align=right>单价</TD>
<TD><INPUT id=txtdj name=txtdj readonly ></TD>
</TR>
<TR>
<TD nowrap align=right>数量</TD>
<TD><INPUT id=txtsl name=txtsl value="<%=sl%>"></TD>
<TD nowrap align=right>金额</TD>
<TD><INPUT id=txtje name=txtje style="border-left-style:none;border-top-style:none;border-right-style:none;border-bottom:1px outset green background;background-color:transparent; " readonly value="<%=je%>"></TD>
</TR>
<TR>
<TD align=middle colspan=4><INPUT type="button" value="确定" id=cmdOK name=cmdok style="HEIGHT: 22px; WIDTH: 80px">
<INPUT type="button" value="返回" id=cmdquit name=cmdquit style="HEIGHT: 22px; WIDTH: 80px"></TD>
<TD align=middle colspan=2 ></TD>
</TR>
</TABLE>
</p>
<%
if trim(Request.Form("pdid1"))="1" then
set rszdid=server.CreateObject("adodb.recordset")
rszdid.Open "select ggzd_txmbm.fylx,ggzd_txmbm.dj,ggzd_txmbm.rzks,ggzd_txmbm.xmid,ggzd_txmbm.xmlxid,ggzd_txmbm.xmmc,ggzd_txmbm.xmdh,ggzd_txmbm.djcdy from ggzd_txmbm where (rzks=0 or rzks ="&session("rzks") &") and (ggzd_txmbm.pym LIKE 'p"& Request("txtxmmc") &"%' or ggzd_txmbm.wbm LIKE 'w"& Request("txtxmmc") &"%' or ggzd_txmbm.xmmc LIKE '"& Request("txtxmmc") &"%') and ggzd_txmbm.xmlxID not in (7,8) order by ggzd_txmbm.xmid",conn,3
Response.Write "<div id=divzdid style='visibility :visible'>"
Response.Write "<table border=1 cellspacing=0 style=' LEFT: 80px;WIDTH: 400px; TOP:120px'>"
Response.Write "<tr bgcolor=#ffffff><td>"
Response.Write "ID"
Response.Write "</td><td>"
Response.Write "项目代号"
Response.Write "</td><td>"
Response.Write "项目名称"
Response.Write "</td><td>"
Response.Write "单价"
Response.Write "</td><td>"
Response.Write "单价是否重定义"
Response.Write "</td></tr>"
dim sZDMC
do while not rszdid.EOF
sZDMC=replace(rszdid("xmmc")," ","")
Response.Write "<tr language=javascript onclick=fhjg('"& sZDMC &"'," & rszdid("xmlxid") & "," & rszdid("xmid") & "," & rszdid("dj") & "," & rszdid("djcdy") & "," & rszdid("fylx") & ") onmouseout=mouseout(this,'#fffff0') onmouseover=mouseon(this,'#E0E0CA') bgcolor=#fffff0><td>"
Response.Write rszdid("xmlxid")
Response.Write "</td><td>"
Response.Write rszdid("xmdh")
Response.Write "</td><td>"
Response.Write rszdid("xmmc")
Response.Write "</td><td align=right>"
Response.Write formatnumber(rszdid("dj"),2)
Response.Write "</td><td>"
if rszdid("djcdy")=1 then
Response.Write "是"
else
Response.Write "否"
end if
Response.Write "</td></tr>"
rszdid.MoveNext
loop
Response.Write "</table>"
Response.Write "</div>"
END IF
%>
<INPUT type="hidden" id=pdid1 name=pdid1>
<INPUT type="hidden" id=txtblh name=txtblh value="<%=request("txtblh")%>">
<INPUT type="hidden" id=txtybk name=txtybk value="<%=request("txtybk")%>">
<INPUT type="hidden" id=txtkye name=txtkye value="<%=txtkye%>">
<INPUT type="hidden" id=txtgrzhye name=txtgrzhye value="<%=request("txtgrzhye")%>">
<INPUT type="hidden" id=txtlsh name=txtlsh value="<%=txtlsh%>">
<INPUT type="hidden" id=txtghsj name=txtghsj>
<INPUT type="hidden" id=txtsflx name=txtsflx value="<%=txtsflx%>">
<INPUT type="hidden" id=txtxmlxid name=txtxmlxid value="<%=txtxmlxid%>">
<INPUT type="hidden" id=txtxmid name=txtxmid value="<%=txtxmid%>">
</form>
</BODY>
<SCRIPT LANGUAGE=vbscript>
</SCRIPT>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -