📄 ttsjhproc.asp
字号:
msgbox "没有找至此图书,请重新输入!"
ietimer1.interval=2000
exit sub
end if
rds1.sql="SELECT * FROM Tjsdj WHERE 借书证号='"&trim(jszh.value)&"' and 分类编号 = '"&trim(fllb.value)&"' AND 主序号='"&trim(JXH.value)&"' AND 次序号='"&trim(CXH.value)&"'and 类别编号='"&trim(<%=session("lbbh")%>)&"' "
rds1.executeoptions=1
rds1.refresh
if rds1.recordset.recordcount>0 then
else
msgbox "你没有借此图书,请重新输入!",,"提示窗口"
ietimer1.interval=2000
exit sub
end if
rds2.sql="SELECT 图片 FROM TJSZ WHERE 借书证号 = '"&trim(jszh.value)&"' "
rds2.executeoptions=1
rds2.refresh
TP=RdS2.recordset.FIELDS(0).VALUE
jszh_1.value=jszh.value
fllb_1.value=fllb.value
xm_1.value=name
sh_1.value=xh
sm_1.value=sm
if isnull(zz)=true then
zz_1.value = ""
else
zz_1.value=zz
end if
if trim(jszh_1.value)<>"" or len(trim(jszh_1.value))<>0 then
l_ok=msgbox("你要还此书吗?",1,"提示窗口")
IF L_OK=1 THEN
l_hs=true
hsf()
l_press_js=false
l_hs=false
ietimer1.interval=2000
ELSE
js.disabled=false
hs.disabled=false
xj.disabled=false
b2.disabled=false
' sure.disabled=true
' hs_1.disabled=true
' xj_1.disabled=true
jszh.value=""
fllb.value=""
jxh.value=""
cxh.value="0"
xjts.value="0"
sjts.value="0"
jszh_1.value=""
fllb_1.value=""
xm_1.value=""
sh_1.value=""
sm_1.value=""
zz_1.value=""
l_find=true
l_press_js=false
ietimer1.interval=2000
END IF
ELSE
l_find=true
l_press_js=false
ietimer1.interval=2000
end if
end if
end sub
'=======================================
'借书
sub sure_click()
l_jc=true
suref()
end sub
'还书
sub hs_1_click()
msgbox "ok"
' l_press_hs=true
l_hs=true
hsf()
ietimer.interval=5
end sub
'=============================
function hsf()
if l_xjts=true or l_js=true or l_jc=true or l_hs=true then
RDS1.SQL="delete from TJSDJ where 借书证号='"&trim(jszh.value)&"' and 分类编号='"&trim(fllb.value)&"' and 主序号='"&trim(jxh.value)&"' and 次序号='"&trim(cxh.value)&"' "
RDS1.EXECUTEOPTIONS=1
RDS1.REFRESH
IF ERR.NUMBER=0 THEN
rds1.sql="update ttsml set 库存数量=库存数量+1 where 分类编号='"&trim(fllb.value)&"' and 主序号='"&trim(jxh.value)&"' and 次序号='"&trim(cxh.value)&"' "
rds1.executeoptions=1
rds1.refresh
rds1.sql="update tjsjl set 还书日期=getdate() where 借书证号='"&trim(jszh.value)&"' and 分类编号='"&trim(fllb.value)&"' and 主序号='"&trim(jxh.value)&"' and 次序号='"&trim(cxh.value)&"' "
'msgbox rds1.sql
rds1.executeoptions=1
rds1.refresh
if l_press_hs=false then
rds1.sql="delete from tdjts where 分类编号='"&trim(fllb.value)&"' and 主序号='"&trim(jxh.value)&"' and 次序号='"&trim(cxh.value)&"' and 借还='0' "
rds1.executeoptions=1
rds1.refresh
end if
MSGBOX "还书成功!"
js.disabled=false
hs.disabled=false
xj.disabled=false
b2.disabled=false
' sure.disabled=true
' hs_1.disabled=true
' xj_1.disabled=true
jszh.value=""
fllb.value=""
jxh.value=""
cxh.value="0"
xjts.value="0"
sjts.value="0"
jszh_1.value=""
fllb_1.value=""
xm_1.value=""
sh_1.value=""
sm_1.value=""
zz_1.value=""
end if
end if
end function
'=================
sub xj_click()
l_press_js=true
if jszh.value="" or len(trim(jszh.value))=0 or fllb.value="" or len(trim(fllb.value))=0 or jxh.value="" or len(trim(fllb.value))=0 then
msgbox "借书证号,分类编号,主序号不能为空!"
ietimer1.interval=2000
EXIT sub
else
rds1.sql="SELECT * FROM Tjsdj WHERE 借书证号= '"&trim(jszh.value)&"' "
rds1.executeoptions=1
rds1.refresh
if rds1.recordset.recordcount>0 then
rds1.sql="SELECT 姓名 FROM Tjsz WHERE 借书证号= '"&trim(jszh.value)&"' "
rds1.executeoptions=1
rds1.refresh
if rds1.recordset.recordcount>0 then
name=rds1.recordset.Fields(0).Value
else
msgbox "此借书证号没有登记借书、请重新输入!"
ietimer1.interval=2000
exit sub
end if
else
msgbox "此人没有借书,不能进行续借!"
ietimer1.interval=2000
exit sub
end if
rds1.sql="SELECT 书名,作者 FROM Ttsml WHERE 分类编号 = '"&trim(fllb.value)&"' AND 主序号='"&trim(JXH.value)&"' AND 次序号='"&trim(CXH.value)&"'and 类别编号='"&trim(<%=session("lbbh")%>)&"' "
rds1.executeoptions=1
rds1.refresh
if rds1.recordset.recordcount>0 then
sm=rds1.recordset.fields(0).value
zz=rds1.recordset.fields(1).value
xh=trim(fllb.value)+"/"+trim(JXH.value)+"-"+trim(cxh.value)
else
msgbox "没有找至此图书,请重新输入!",,"提示窗口"
ietimer1.interval=2000
exit sub
end if
rds2.sql="SELECT 图片 FROM TJSZ WHERE 借书证号 = '"&trim(jszh.value)&"' "
rds2.executeoptions=1
rds2.refresh
TP=RdS2.recordset.FIELDS(0).VALUE
jszh_1.value=jszh.value
fllb_1.value=fllb.value
xm_1.value=name
sh_1.value=xh
sm_1.value=sm
if isnull(zz)=true then
zz_1.value=""
else
zz_1.value=zz
end if
if trim(jszh_1.value)<>"" or len(trim(jszh_1.value))<>0 then
l_ok=msgbox("你续借此图书吗?",1,"提示窗口")
IF L_OK=1 THEN
l_xjts=true
xjtsf()
l_press_js=false
l_xjts=false
ietimer1.interval=2000
ELSE
js.disabled=false
hs.disabled=false
xj.disabled=false
b2.disabled=false
'sure.disabled=true
' hs_1.disabled=true
' xj_1.disabled=true
jszh.value=""
fllb.value=""
jxh.value=""
cxh.value="0"
xjts.value="0"
sjts.value="0"
jszh_1.value=""
fllb_1.value=""
xm_1.value=""
sh_1.value=""
sm_1.value=""
zz_1.value=""
l_find=true
l_press_js=false
ietimer1.interval=2000
END IF
ELSE
l_find=true
l_press_js=false
ietimer1.interval=2000
end if
end if
end sub
'==================
'续借图书函数
function xjtsf()
if l_xjts=true or l_js=true or l_jc=true then
RDS1.SQL="delete from TJSDJ where 借书证号='"&trim(jszh.value)&"' and 分类编号='"&trim(fllb.value)&"' and 主序号='"&trim(jxh.value)&"' and 次序号='"&trim(cxh.value)&"' "
RDS1.EXECUTEOPTIONS=1
RDS1.REFRESH
IF ERR.NUMBER=0 THEN
rds1.sql="update tjsjl set 还书日期=getdate() where 借书证号='"&trim(jszh.value)&"' and 分类编号='"&trim(fllb.value)&"' and 主序号='"&trim(jxh.value)&"' and 次序号='"&trim(cxh.value)&"' "
rds1.executeoptions=1
rds1.refresh
RDS1.SQL="INSERT INTO Tjsdj(分类编号,主序号,次序号,借书证号,借出日期,限借天数,类别编号) VALUES('"&trim(fllb.value)&"','"&trim(JXH.value)&"','"&trim(CXH.value)&"','"&trim(JSZH.value)&"',GETDATE(),'"&myvalue&"','"&trim(<%=session("lbbh")%>)&"')"
RDS1.EXECUTEOPTIONS=1
RDS1.REFRESH
RDS1.SQL="INSERT INTO Tjsjl(分类编号,主序号,次序号,借书证号,借出日期,限借天数,类别编号) VALUES('"&trim(fllb.value)&"','"&trim(JXH.value)&"','"&trim(CXH.value)&"','"&trim(JSZH.value)&"',GETDATE(),'"&myvalue&"','"&trim(<%=session("lbbh")%>)&"')"
RDS1.EXECUTEOPTIONS=1
RDS1.REFRESH
if l_press_js=false then
rds1.sql="delete from tdjts where 分类编号='"&fllb.value&"' and 主序号='"&jxh.value&"' and 次序号='"&cxh.value&"' and ip地址='"&teacher_no&"' "
rds1.executeoptions=1
rds1.refresh
end if
js.disabled=false
hs.disabled=false
xj.disabled=false
b2.disabled=false
' sure.disabled=true
' hs_1.disabled=true
' xj_1.disabled=true
jszh.value=""
fllb.value=""
jxh.value=""
cxh.value="0"
xjts.value="0"
sjts.value="0"
jszh_1.value=""
fllb_1.value=""
xm_1.value=""
sh_1.value=""
sm_1.value=""
zz_1.value=""
MSGBOX "续借图书成功!"
end if
end if
end function
sub b2_click()
jszh.value=""
fllb.value=""
jxh.value=""
cxh.value="0"
xjts.value="0"
sjts.value="0"
end sub
'============================
sub cancel_click()
jszh_1.value=""
fllb_1.value=""
xm_1.value=""
sh_1.value=""
sm_1.value=""
zz_1.value=""
js.disabled=false
hs.disabled=false
xj.disabled=false
b2.disabled=false
'sure.disabled=true
' hs_1.disabled=true
' xj_1.disabled=true
end sub
'================================
function SUREf()
if l_xjts=true or l_js=true or l_jc=true then
RDS1.SQL="INSERT INTO TJSDJ(分类编号,主序号,次序号,借书证号,姓名,借出日期,限借天数,类别编号) VALUES('"&trim(fllb.value)&"','"&trim(JXH.value)&"','"&trim(CXH.value)&"','"&trim(JSZH.value)&"','"&trim(xm)&"',GETDATE(),'"&myvalue&"','"&trim(<%=session("lbbh")%>)&"')"
RDS1.EXECUTEOPTIONS=1
RDS1.REFRESH
IF ERR.NUMBER=0 THEN
RDS1.SQL="INSERT INTO Tjsjl(分类编号,主序号,次序号,借书证号,借出日期,限借天数,类别编号) VALUES('"&trim(fllb.value)&"','"&trim(JXH.value)&"','"&trim(CXH.value)&"','"&trim(JSZH.value)&"',GETDATE(),'"&myvalue&"','"&trim(<%=session("lbbh")%>)&"')"
RDS1.EXECUTEOPTIONS=1
RDS1.REFRESH
rds1.sql="update ttsml set 库存数量=库存数量-1 where 分类编号='"&trim(fllb.value)&"' and 主序号='"&trim(jxh.value)&"' and 次序号='"&trim(cxh.value)&"' "
rds1.executeoptions=1
rds1.refresh
rds1.sql="update tjsz set 借书本数=借书本数+1 where 借书证号='"&trim(jszh.value)&"'"
rds1.executeoptions=1
rds1.refresh
'如果是手动借书就不执行
if l_press_js=false then
rds1.sql="delete from tdjts where 分类编号='"&fllb.value&"' and 主序号='"&jxh.value&"' and 次序号='"&cxh.value&"' and ip地址='"&teacher_no&"' "
rds1.executeoptions=1
rds1.refresh
end if
js.disabled=false
hs.disabled=false
xj.disabled=false
b2.disabled=false
' sure.disabled=true
' hs_1.disabled=true
' xj_1.disabled=true
jszh.value=""
fllb.value=""
jxh.value=""
cxh.value="0"
xjts.value="0"
sjts.value="0"
jszh_1.value=""
fllb_1.value=""
xm_1.value=""
sh_1.value=""
sm_1.value=""
zz_1.value=""
MSGBOX "此书成功借出!",,"提示窗口"
l_find=true
end if
end if
END function
</script>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -