PB图书管理系统设计 第11页
（6） 登记借阅人窗口 w_newmember
图5.5
功能介绍：增加、修改借阅人信息
操作方法：类同“新书入库窗口w_newbook”
代码分析：
Open事件：类同“新书入库窗口w_newbook”
“检索”按钮：类同“新书入库窗口w_newbook”
“新增”按钮：类同“新书入库窗口w_newbook”
“保存”按钮：类同“新书入库窗口w_newbook”
（7）注销借阅人窗口 w_delmember
图5.6
功能介绍：删除借阅人信息
操作方法：类同“旧书销毁窗口 w_delbook”
代码分析：
Open事件：类同“旧书销毁窗口 w_delbook”
“检索”按钮：类同“旧书销毁窗口 w_delbook”
“销毁”按钮：类同“旧书销毁窗口 w_delbook”
（8） 借书窗口 w_loan
图5.7
功能介绍：借阅图书，
操作方法：输入“借阅人编号”与“图书编号”后，借阅人姓名与图书编号将显示出来，然后点击“借阅”按钮借阅图书。
代码分析：
Open事件：this.width=1243
this.height=1160
“借阅人号”输入框modified事件：
string ls_memberid,ls_membername
ls_memberid=trim(this.text)
select membername//根据“借阅人编号”查询出“借阅人姓名”
into :ls_membername
from memberinfo
where memberid=:ls_memberid;
if sqlca.sqlcode<>0 then//判断是否有该“借阅人”
messagebox("系统提示","没有此借阅人信息！")
sle_memberid.setfocus()//“借阅人编号”输入框获得焦点
return
else
sle_bookid.setfocus()//“图书编号”输入框获得焦点
sle_membername.text=ls_membername//显示“”借阅人姓名
end if
“图书编号”输入框modified事件：
string ls_bookid,ls_title
ls_bookid=trim(this.text)
select title
into :ls_title
from bookinfo
where bookid=:ls_bookid;
if sqlca.sqlcode<>0 then
messagebox("系统提示","没有此图书信息！")
sle_bookid.setfocus()
return
else
sle_title.text=ls_title
end if
“借阅”按钮：string ls_bookid,ls_memberid,ls_bookonloan
date ldt_nowdate
ldt_nowdate=today()//获得“当前日期”
ls_bookid=trim(sle_bookid.text)//获得“借阅人号”
ls_memberid=trim(sle_memberid.text)//获得“图书编号”
//强制输入“借阅人号”与“图书编号”
if ls_memberid="" or isnull(ls_memberid) then
messagebox("系统提示","请输入借阅人编号！")
sle_memberid.setfocus()
return
end if
if ls_bookid="" or isnull(ls_bookid) then
messagebox("系统提示","请输入图书编号！")
sle_bookid.setfocus()
return
end if
//根据“图书编号”查询图书是否借出
SELECT bookonloan INTO:ls_bookonloan
FROM bookinfo WHERE bookid=:ls_bookid;
if ls_bookonloan="y" then
messagebox("系统提示","本书已经外借！")
sle_bookid.setfocus()
return
else
//添加图书借阅记录
INSERT INTO loan
(bookid,memberid,loandate)
VALUES (:ls_bookid,:ls_memberid,:ldt_nowdate);
commit;
//设置该图书为“借出”状态
UPDATE bookinfo set bookonloan='y'
WHERE bookid=:ls_bookid;
commit;
end if
//“借阅人号”得到焦点，所有输入框清空
sle_memberid.setfocus()
sle_bookid.text=""
sle_title.text=""
sle_memberid.text=""
sle_membername.text=""
<< 上一页 [11] [12] [13] [14] [15] 下一页
PB图书管理系统设计 第11页下载如图片无法显示或论文不完整，请联系qq752018766
