📄 afysxmjs.asp
字号:
<SCRIPT LANGUAGE=vbscript>
<!--
if "<%=session("yhid")%>"="" then
window.location="../../amain.asp"
end if
-->
</SCRIPT>
<%
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 %>
<!--#include file=../../ggmk.asp-->
<!--#include file=../../aybmk.asp-->
<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 type="text/vbscript" src="../../ggmk.vbs"></script>
<SCRIPT ID=clientEventHandlersVBS LANGUAGE=vbscript>
<!--
Sub cmdDK_onclick
dim fso,ts,comx
Set FSO = CreateObject("Scripting.FileSystemObject")
if fso.FileExists("c:\comx.txt") then
Set ts = fso.OpenTextFile("c:\comx.txt", 1)
comx=cint(right(ts.readline,1))-1
set ts=nothing
set fso=nothing
else
msgbox "请先设置读卡器！",48,"提示"
exit sub
end if
if YhCARD1.ICKinit(comx,9600)<0 then
msgbox "初始化串口失败！",vbinformation,"提示"
exit sub
end if
dim state
state=YhCARD1.ICKstatus()
if state<0 then
msgbox "初始化卡机出错，请检查卡机是否已和串口1连接并且电源已打开",vbinformation,"提示"
YhCARD1.ICKexit
exit sub
else
if state=0 then
msgbox "卡机没有插入IC卡或IC卡没有插紧！",vbinformation,"提示"
YhCARD1.ICKexit
exit sub
end if
end if
strKH=dkh("<%=yyxx()%>")
if strKH="DKC" then
zssxmjs.pdid.value="ybk"
dybk("mzghsk")
YhCARD1.ICKbeep 30
YhCARD1.ICKexit
if delay("success")="TRUE" THEN
zssxmjs.txtybkh.value =find("cardno")
zssxmjs.txtgrzhye.value =find("grzhye")
zssxmjs.submit
end if
else
YhCARD1.ICKbeep 30
YhCARD1.ICKexit
zssxmjs.txtKH.value = strKH
zssxmjs.pdid.value=3
zssxmjs.submit
end if
End Sub
sub cmbghsj_onclick
if trim(zssxmjs.cmbghsj.value)<>"" then
IF zssxmjs.TXTLX.VALUE="医保" then
zssxmjs.txtlsh.value=mid(zssxmjs.cmbghsj.value,1,(cint(instr(1,zssxmjs.cmbghsj.value,","))-1))
zssxmjs.txtmzlsh.value=mid(zssxmjs.cmbghsj.value,(cint(instr(1,zssxmjs.cmbghsj.value,","))+1),(instr(1,zssxmjs.cmbghsj.value,"!")-instr(1,zssxmjs.cmbghsj.value,",")-1))
zssxmjs.txtjzks.value=mid(zssxmjs.cmbghsj.value,(cint(instr(1,zssxmjs.cmbghsj.value,"!"))+1),(instr(1,zssxmjs.cmbghsj.value,"?")-instr(1,zssxmjs.cmbghsj.value,"!")-1))
zssxmjs.txtys.value=mid(zssxmjs.cmbghsj.value,(cint(instr(1,zssxmjs.cmbghsj.value,"?"))+1))
strghsj=cstr(formatdatetime(mid(zssxmjs.cmbghsj.options(zssxmjs.cmbghsj.selectedIndex).text,(cint(instr(1,zssxmjs.cmbghsj.options(zssxmjs.cmbghsj.selectedIndex).text,"|"))+1)),2))
strghsjnow=cstr(formatdatetime("<%=now()%>",2))
if strghsj=strghsjnow then
varghsj="true"
else
varghsj="false"
end if
ELSE
zssxmjs.txtlsh.value=mid(zssxmjs.cmbghsj.value,1,(cint(instr(1,zssxmjs.cmbghsj.value,","))-1))
zssxmjs.txtjzks.value=mid(zssxmjs.cmbghsj.value,(cint(instr(1,zssxmjs.cmbghsj.value,","))+1),(instr(1,zssxmjs.cmbghsj.value,"?")-instr(1,zssxmjs.cmbghsj.value,",")-1))
zssxmjs.txtys.value=mid(zssxmjs.cmbghsj.value,(cint(instr(1,zssxmjs.cmbghsj.value,"?"))+1))
END IF
zssxmjs.txtghsj0.value=varghsj
window.framename.zssxmwjs.txtlsh.value=zssxmjs.txtlsh.value
window.framename.zssxmwjs.txtmzh.value=zssxmjs.txtmzh.value
window.framename1.zssxmjs.txtlsh.value=zssxmjs.txtlsh.value
window.framename1.zssxmjs.txtmzh.value=zssxmjs.txtmzh.value
window.framename.zssxmwjs.pdid.value =1 '显示医生处方
zssxmjs.pdid.value =2 '显示医生处方
window.framename.zssxmwjs.submit
window.framename1.zssxmjs.pdid.value=5
window.framename1.zssxmjs.submit
end if
end sub
Sub window_onload
IF zssxmjs.TXTLX.VALUE="医保" then
zssxmjs.cmdscfz.disabled =true
end if
document.all("divtable").style.visibility="visible"
document.all("table2").style.visibility="hidden"
document.all("table3").style.visibility="hidden"
' zssxmjs.cmddk.focus
End Sub
Sub cmdscfz_onclick
if trim(zssxmjs.txtmzh.value)="" or trim(zssxmjs.txtlsh.value)="0" or trim(zssxmjs.txtlsh.value)="" then
msgbox "请选择病人!",vbinformation,"提示"
exit sub
end if
window.framename1.zssxmjs.pdid.value=6
window.framename1.zssxmjs.submit
End Sub
Sub txtmzh_onchange
For i =0 To 14 - Len(ZSSXMJS.txtmzh.value)
ZSSXMJS.txtmzh.value = 0 & ZSSXMJS.txtmzh.value
Next
ZSSXMJS.pdid.value=1
ZSSXMJS.submit
End Sub
sub txtmzh_onkeypress
if window.event.keyCode=13 then
zssxmjs.cmbghsj.focus
' zssxmjs.txtmzh.value=right("00000000"&zssxmjs.txtmzh.value,8)
' ZSSXMJS.pdid.value=1
' msgbox "ddadf"
' ZSSXMJS.submit
end if
end sub
sub cmdzjfz_onclick
if trim(zssxmjs.txtmzh.value)="" or trim(zssxmjs.txtlsh.value)="0" or trim(zssxmjs.txtlsh.value)="" then
msgbox "请选择挂号时间!",vbinformation,"提示"
exit sub
end if
IF zssxmjs.TXTLX.VALUE="医保" then
if trim(zssxmjs.txtghsj0.value)="false" then
msgbox "请医保患者的挂号时间必须在本院今天挂号才能增加附嘱项目!",vbinformation,"提示"
exit sub
end if
enD if
document.all("divtable").style.visibility="hidden"
document.all("table2").style.visibility="visible"
window.framename2.zsszjxm.txtlsh.value=zssxmjs.txtlsh.value
window.framename2.zsszjxm.txtkye.value=zssxmjs.txtkye.value
end sub
Sub cmdpsjg_onclick
dim str
k=0
if trim(zssxmjs.hdpd.value)="" then
exit sub
end if
for i=1 to cint(zssxmjs.hdpd.value)-1
if window.framename.zssxmwjs.item("checkbox" & i).checked then
k=K+1
end if
next
if cint(k)>1 then
msgbox "皮试一次只能选中一条项目!",vbinformation,"提示"
exit sub
else
if cint(k)=0 then
msgbox "请选择要皮试的药品!",vbinformation,"提示"
exit sub
end if
end if
for i=1 to cint(zssxmjs.hdpd.value)-1
if window.framename.zssxmwjs.item("checkbox" & i).checked then
str=window.framename.zssxmwjs.item("checkbox" & i).value
end if
next
if len(str)="" then
exit sub
else
window.framename3.zsspsjgform.txtcfid.value=str
zssxmjs.txtlsh.value=2
window.framename3.zsspsjgform.txtlsh.value=zssxmjs.txtlsh.value
document.all("divtable").style.visibility="hidden"
document.all("table2").style.visibility="hidden"
document.all("table3").style.visibility="visible"
end if
End Sub
-->
</SCRIPT>
<SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -