📄 amzxmwjs.asp
字号:
<!-- #INCLUDE FILE="../../share\connectdb3.asp" -->
<!--#include file=../../pubfunction.asp-->
<!--#include file=../../aickcz.asp-->
<%
dim rs,sqhm
set rs=server.CreateObject("adodb.recordset")
sqhm=""
if Request.Form("pdid")="dk" then
sqlqhm="select b.mzh hm from ggzd_tk a,mz_tbr b where a.blh=b.blh and (a.kdh='"& Request.Form("txtkh") & "' or a.bz='" & Request.Form("txtKH") & "')"
rs.Open sqlqhm,conn,3,1
if not rs.eof then
sqhm=rs("hm")
else
sqhm="00000000"
end if
rs.Close
else '如果不是读卡，则直接取门诊号的值
sqhm=Request.Form("txtmzh")
end if
%>
<html>
<head>
<meta name="VI60_defaultClientScript" content=JavaScript>
<meta NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<title>门诊项目接收</title>
<link rel="stylesheet" type="text/css" href="../../style/style.css" >
<link rel="stylesheet" type="text/css" href="../../style/table.css" >
<script ID="clientEventHandlersVBS" LANGUAGE="vbscript">
<!--
FUNCTION JYKH()
dim strKH
JYKH=""
strKH=dickhm("<%=yyxx%>")
'msgbox "<%=yyxx%>"
if strKH="" then strKH="CC"
'msgbox strKH
if trim(strKH)="CC" then exit Function
JYKH = strKH
End FUNCTION
Sub cmdDK_onclick
form1.txtbrxm.value=""
form1.txtnl.value=""
form1.txtxb.value=""
form1.txtmzh.value=""
dim strKH,xx,sfdyb
strKH=dickhm("<%=yyxx%>")
'msgbox strKH
if strKH="" then strKH="CC"
form1.txtKH.value = strKH
form1.pdid.value="dk"
form1.submit
End Sub
Sub cobWLCF_onchange
if form1.cobWLCF.value="" then exit sub
form1.txtKH.value = "Y0000000"
form1.txtmzh.value=form1.cobWLCF.value
form1.pdid.value="wlcf"
form1.submit
' msgbox form1.txtmzh.value
End Sub
Sub cobYBBR_onchange
if trim(window.form1.cobYBBR.value)="-1" then exit sub
form1.txtKH.value = window.form1.cobYBBR.value
form1.txtybkh.value =""
form1.pdid.value="dk"
form1.submit
end sub
Sub cmbGHSJ_onchange '挂号时间
if trim(form1.cmbGHSJ.value)<>"" then
form1.txtlsh.value=form1.cmbGHSJ.value
window.frmWJSMX.form1.txtlsh.value=form1.txtlsh.value
window.frmJSMX.form1.txtlsh.value=form1.txtlsh.value
window.frmWJSMX.form1.pdid.value="CX"
window.frmWJSMX.form1.submit
window.frmJSMX.form1.submit
ELSE
form1.txtlsh.value=0
window.frmWJSMX.form1.txtlsh.value=0
window.frmJSMX.form1.txtlsh.value=0
window.frmWJSMX.form1.pdid.value="CX"
window.frmWJSMX.form1.submit
window.frmJSMX.form1.submit
end if
end sub
Sub window_onload
'IF form1.TXTSFLX.VALUE="医保" then
'form1.cmdDEL.disabled =true
'end if
form1.cmddk.focus
End Sub
'------------------------------------------
Sub cmdss_onclick
window.frmJSMX.form1.submit
End Sub
Sub cmdDKMB_onclick
if trim(form1.txtmzh.value)="" or trim(form1.txtlsh.value)="" then
msgbox "请输入病人!",vbinformation,"提示"
exit sub
end if
if trim(form1.txtmzh.value)="" or trim(form1.txtlsh.value)="0" or trim(form1.txtlsh.value)="" then
msgbox "请选择挂号时间!",vbinformation,"提示"
exit sub
end if
'sKH=JYKH()
'if form1.txtKH.value<>sKH then
' if sKH<>"" then
' msgbox "卡机中的IC卡与读卡时的IC卡不一致！" & chr(10) & chr(13) & "请重新读卡后再操作！",vbexclamation,"提示"
' end if
' exit sub
'end if
if mbdiv.style.visibility ="visible" then
msgbox "模板已打开",64,"提示"
exit sub
end if
mbdiv.style.visibility ="visible"
mbdiv.style.border =0
mbdiv.style.posTop =0
mbdiv.style.posLeft =0
mbframe.frmaMB.hdlsh.value=form1.txtlsh.value
mbframe.frmaMB.hdye.value=cdbl(form1.txtkye.value)+cdbl(form1.txtgrzhye.value)
' msgbox mbframe.frmaMB.hdye.value
' exit sub
' if not isnull(frmaCFLR.iXZFY.value ) THEN
' mbframe.frmaMB.hdXMLX.value=cint(frmaCFLR.iXZFY.value)
'else
mbframe.frmaMB.hdXMLX.value=3
'end if
'msgbox cstr(cint(frmaCFLR.iXZFY.value))
mbframe.frmaMB.submit
End Sub
-->
</script>
<SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript>
<!--
function txtinput_onkeypress() {
if(form1.txtmzh.value==''||form1.txtlsh.value=='0'||form1.txtlsh.value=='')
{
window.alert("请选择挂号时间");
return ;
}
if(form1.txtinput.value=='') return;
if(window.event.keyCode==13)
{
window.event.keyCode=0;
var obj;
obj=window.document.getElementById('txtinput').getBoundingClientRect();
window.frmfzxm.form1.txtxmlx.value="fyp";
window.frmfzxm.form1.txtypmc.value=window.document.getElementById('txtinput').value;//inputvalue;
window.frmfzxm.form1.submit();
window.divfzxm.style.posTop=obj.bottom;
window.divfzxm.style.posLeft=obj.left;
window.divfzxm.style.visibility="visible";
}
}
function cmdJS_onclick() {
if(form1.txtmzh.value==''||form1.txtlsh.value=='0'||form1.txtlsh.value=='')
{
window.alert("请选择挂号时间");
return ;
}
if(parseFloat(form1.txtcfje.value)>parseFloat(form1.txtkye.value))
{
window.alert("患者医院余额不足,不能接收!");
return;
}
if (form1.txtKH.value!='Y0000000')
{
var sKH;
sKH=JYKH();
if (form1.txtKH.value!=sKH )
{
window.alert("卡机中的IC卡与读卡时的IC卡不一致！请重新读卡后再操作！");
return;
}
}
if(funchek(frmWJSMX)==0)
{
window.alert("请选择项目!");
return;
}
window.frmWJSMX.form1.pdid.value="JS" ;
window.frmWJSMX.form1.txtyp.value=form1.txtyp.value;
window.frmWJSMX.form1.txtxm.value=form1.txtxm.value;
window.frmWJSMX.form1.txtcl.value=form1.txtcl.value;
window.frmWJSMX.form1.txtlsh.value=form1.txtlsh.value;
window.frmWJSMX.form1.submit();
window.frmJSMX.form1.txtlsh.value=form1.txtlsh.value;
window.frmJSMX.form1.submit();
}
function funchek(o)
{
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -