图书馆信息管理系统课程设计(13)

2、添加响应代码

（1）“确定”按钮的click事件

SELECT 读者表.读者编号,姓名,学院,学号,书名,作者,出版社,价格,借书日期,还书日期,是否按期还书 FROM 读者表,图书信息表,借还书表 WHERE 读者表.读者编号=借还书表.读者编号;

AND 图书信息表.书号=借还书表.书号 AND;

ALLTRIM(姓名)=ALLTRIM(thisform.text1.Value)INTO TABLE cxb姓名 SELECT cxb姓名

LOCATE FOR ALLTRIM(姓名)=ALLTRIM(thisform.text1.value) IF NOT FOUND()

MESSAGEBOX("无该读者，请核对您输入是否正确",0+48,"注意：") ELSE

thisform.grd.recordsourcetype=0

thisform.grd.recordsource="cxb姓名" Endif

（2）“退出”按钮的click事件

yn=MESSAGEBOX("您确定退出吗？",4+32,"系统信息") IF yn=6

thisform.Release CLEAR EVENTS QUIT Endif

4.4.5 书名查询界面设计

在该界面下，用户可根据书名查询相关书籍的对应信息和借阅情况。 1、表单界面的设计与运行情况如下图所示